Discussion :

[Gaadek]

Salut, je galère pour utiliser la structure LVBKIMAGE dans mon projet.

En fait, je l'utilise pour afficher une image de fond à un listview, et j'ai réussi à le mettre en oeuvre.

Le seul souci que j'ai, c'est pour définir un offset à cette image, j'ai beau utiliser les flags comme indiqué dans la msdn, ç ne veut rien savoir!

Donc si quelqu'un a déja utilisé ces fonctions, ça m'aiderais d'avoir quelques info dessus, et plus particulièrement la valeur à donner au champ uFlag de la structure pour que les champs d'offset soient pris en compte

[anapurna]

salut

quel est ton probleme exactement

pour afficher les image il faut passer par des message

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Var
   BKIMG : LVBKIMAGE;
Begin
    With BKIMG Do
    begin
        If ListView1.ListItems.Count > 0 Then 
         uFlags = LVBKIF_SOURCE_NONE
       Else
       begin 
        uFlags = LVBKIF_SOURCE_URL
        pszImage = (Text1.Text)
        xOffsetPercent = 3
        yOffsetPercent = 3
      End; 
   End; 
 
   SendMessage(ListView1.handle,LVM_SETTEXTBKCOLOR,0,CLR_NONE)
   SendMessage(ListView1.handle,LVM_SETBKIMAGE,0,BKIMG)
end;

ou alors une autres methode plus originale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TMyform.ListViewSetBKImage(ListView1 : TListView;
 FFilename: String; 
  FTile: Boolean; 
  FXOffsetPercent, 
  FYOffsetPercent: Integer; ); 
var 
  LVBkImg: TLVBkImage; 
begin 
 
  if assigned(ListView1) and ListView1.HandleAllocated then 
  begin 
    if FFilename <> '' then 
      LVBkImg.ulFlags := LVBKIF_SOURCE_URL 
    else 
      LVBkImg.ulFlags := LVBKIF_SOURCE_NONE; 
 
   if FTile then 
      LVBkImg.ulFlags := LVBkImg.ulFlags or LVBKIF_STYLE_TILE 
    else 
      LVBkImg.ulFlags := LVBkImg.ulFlags or LVBKIF_STYLE_NORMAL; 
 
    LVBkImg.hbm := 0; 
    LVBkImg.pszImage := PChar(FFilename); 
    LVBkImg.cchImageMax := Length(FFilename); 
    LVBkImg.xOffsetPercent := 0; 
    LVBkImg.yOffsetPercent := 0; 
    ListView_SetBkImage(ListView1.Handle, @LVBkImg); 
  end; 
end;

@+ Phil

[Gaadek]

J'ai implémenté deux méthodes (basée grosso modo sur ton premier code):

La première avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

uFlags = LVBKIF_SOURCE_URL or LVBKIF_STYLE_TILE

Dans ce cas la msdn spécifie bien que les paramètres xOffsetPercent et yOffsetPercent ne sont pas pris en compte (à cause de l'utilisation du LVBKIF_STYLE_TILE). Par contre, j'arrive à afficher mon image de fond

La seconde avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

uFlags = LVBKIF_SOURCE_URL or LVBKIF_STYLE_NORMAL or LVBKIF_STYLE_TILEOFFSET

Toujours en me basant sur la msdn, il est spécifié que pour que l'offset soir pris en compte, il faut et LVBKIF_STYLE_NORMAL et LVBKIF_STYLE_TILEOFFSET

Mais dans ce second cas, je n'ai jamais réussi à afficher quoique ce soit!

Bref, merci pour tes codes, je vais essayer ça de suite!