Comment ajouter des items à une listView

Version imprimable

Bonjour à tous,

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

Code:

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

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:

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;

Ok celà se compile bien, mais à l'arrivée ListView n'est pas bonne

Voici le code complet

Code:

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 !!!

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

Citation:

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...
09/10/2012, 19h38
colorid

Valeur ViewStyle = VsIcon
09/10/2012, 19h49
colorid

Quel Composant Delphi pour afrficher liste images en vignettes

Si il existe un composant pour afficher une liste d'images en vignettes ne me laissez-pas mourir idiot !!!
09/10/2012, 20h29
Ph. B.

Citation:

Envoyé par colorid

Si il existe un composant pour afficher une liste d'images en vignettes ne me laissez-pas mourir idiot !!!

C'est fou comme les gens ne sont pas curieux... :(
Un petit appel à mon ami :google: et je trouve :

Classement d'images
10/10/2012, 08h40
SergioMaster

n'oublions pas la JVCL avec son composant JvThumbNail