Discussion :

[OutOfRange]

Bonjour

Je veux afficher dans une TListView les bitmaps contenus dans un dossier
Ces bitmaps sont d'abord stockées dans une TImageList
J'ai défini ma TImageList comme propriété LargeImages de ma TListview
Voici le code de chargement des bitmaps

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
  Paper:=TImage.Create(self);
  ImTemp:=TImage.Create(self);
  ImTemp.Height:=ImageListPapers.Height;
  ImTemp.Width:=ImageListPapers.Width;
  ListAdr:=TStringList.Create;
}
  If FindFirst(Chemin+'*.bmp',faAnyFile,Info2)=0 Then
  Begin
    Repeat
      If (Info2.Attr And faDirectory)=0
        Then begin
               ListAdr.Add(Info2.FindData.cFileName);
               Paper.Picture.Bitmap.LoadFromFile(chemin+ListAdr[ListAdr.Count-1]);
               ImTemp.Canvas.StretchDraw(ImTemp.Canvas.ClipRect,Paper.Picture.Bitmap);
               ImageListPapers.Add(ImTemp.Picture.Bitmap,nil);
               ListViewPapers.AddItem(ListAdr[ListAdr.Count-1],nil);
             end;
    Until FindNext(Info2)<>0;
    FindClose(Info2);
  End;
  Paper.Destroy;
  ImTemp.Destroy;

Tout se passe bien
Le seul pb est que les bitmaps qui s'affichent dans la TListView sont toutes identiques et correspondent à la 1ère image de ma TImageList

Le nombre d'éléments de la TListView est bon
Les noms affichés aussi
Mais les bitmaps sont tous pareils

J'ai beau tourner le pb dans tous les sens, je ne vois pas ce qui cloche

Merci de votre aide

[ShaiLeTroll]

tu n'as pas géré l'ImageIndex de chaque item de la ListView lors du AddItem

[OutOfRange]

Salut ShaiLeTroll

tu n'as pas géré l'ImageIndex de chaque item de la ListView lors du AddItem

C'était bien ça
Je pensais que les ImageIndex de la TListView étaient définis par défaut en fonction du nombre d'images dans la liste associées : 0,1,2,3... count-1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Repeat
      { Les fichiers sont affichés dans ListBox1 }
      If (Info2.Attr And faDirectory)=0
        Then begin
               ListAdr.Add(Info2.FindData.cFileName);
               Paper.Picture.Bitmap.LoadFromFile(chemin+ListAdr[ListAdr.Count-1]);
               ImTemp.Canvas.StretchDraw(ImTemp.Canvas.ClipRect,Paper.Picture.Bitmap);
               ListWallPapers.Add(ImTemp.Picture.Bitmap,nil);
               ListViewPapers.AddItem(ListAdr[ListAdr.Count-1],nil);
               ListViewPapers.Items[ListAdr.Count-1].ImageIndex:=ListAdr.Count-1;
             end;
    Until FindNext(Info2)<>0;

Maintenant ça marche impec
Merci ShaiLeTroll
J'aurais pu chercher encore longtemps