Comment ajouter des items à une listView

**colorid** · 09/10/2012, 16h43

Bonjour à tous,

Je pense avoir corretement initialisé une imagelist par le code suivant :

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
  ImageList.Clear;
  ListView.Clear;
  for k:=0 to pred(FileListBoxImage.Count) do
  begin
    ImgJpeg:= TJpegImage.Create;
    try
      ImgJpeg.LoadFromFile(FileListBoxImage.Directory+'\'+FileListBoxImage.Items[k]);
      ABitmap:=TBitmap.Create;
      ABitmap.Assign(ImgJpeg);
      ImageList.AddMasked(ABitmap, clFuchsia);
      ABitmap.Free;
    finally
      ImgJpeg.Free;
    end;
  end;

Si ce code est bon, comment initialiser avec ImageList une listView ?

Merci à tous

**ShaiLeTroll** · 09/10/2012, 16h57

je crois avoir fourni un code complet à ce sujet en m'inspirant de l'exemple
FileSelectBtnEdit et D7ComboBox (C++)

la fonction MakeImageList pour charger une liste de fichier (en version complète ou miniature) puis le code de remplissage de la TListView

Code :

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

1
2
3
4
5
6
7
8
 
  ListView1.LargeImages:= ... ta image list ... 
  for i:=0 to ListView1.LargeImages.Count - 1 do
  begin
    ListItem :=ListView1.Items.Add;
    Listitem.Caption := 'Image'+IntToStr(I) ;
    ListItem.ImageIndex := I ; // ça !!!
  end;

**colorid** · 09/10/2012, 17h42

Voici le code complet

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
  ImageList.Clear;
  for k:=0 to pred(FileListBoxImage.Count) do
  begin
    ImgJpeg:= TJpegImage.Create;
    try
      ImgJpeg.LoadFromFile(FileListBoxImage.Directory+'\'+FileListBoxImage.Items[k]);
      ABitmap:=TBitmap.Create;
      ABitmap.Assign(ImgJpeg);
      ImageList.AddMasked(ABitmap, clFuchsia);
      ABitmap.Free;
    finally
      ImgJpeg.Free;
    end;
  end;
  ListView.Clear;
  ListView.LargeImages:= ImageList;
  for k:=0 to ListView.LargeImages.Count - 1 do
  begin
    ListItem :=ListView.Items.Add;
    Listitem.Caption := 'Image'+IntToStr(k) ;
    ListItem.ImageIndex := k ; 
  end;

La listView contient plus d'images que le FileListBox de départ et les immages sont toutes petites !!! Y a un truc !!!

**Ph. B.** · 09/10/2012, 18h16

Envoyé par colorid

La listView contient plus d'images que le FileListBox de départ et les immages sont toutes petites !!! Y a un truc !!!

Quelle valeur a la propriété ViewStyle du TListView ?
Ensuite si vous voulez afficher des images sous forme de vignette, ce n'est pas le composant adéquat...