créer une liste d'images dans une listbox

Bonjour,

Je souhaite créer une liste d'images dans une listbox ou équivalent dans laquelle les images seraient visibles dans une vignette (avec ou sans titre), par exemple 128x96 pour pouvoir les sélectionner visuellement. La liste ne comprend que 6 à 8 images

Quelqu'un a une idée ?

mets ta liste en OwnerDrawVariable (dans les propriétés)

ensuite il te faudrat donner une hauteur a tes items : par exemple 64 pixels.

ensuite, dans l'événement OnDrawItem il te suffit d'écrire la routine pour dessiner une image dans le canvas de la liste.

pour ajouter tes images, charge les dans des TBitmap par exemple, dans un tableau pour plus de facilité.

Code:

---

array[0..n] of Tbitmap;

---

ensuite, quand tu ajoute des items à la liste, utilise la methode "AddObject" comme cela :

Code:

---

ListBox1.Items.AddObject('legende', Bitmaps[n]);

---

ou encore avec l'index de l'image :

Code:

---

1 2	ListBox1.Items.Add('0'); ListBox1.Items.Add('1');

---

ensuite dans le gestionnaire d'événement OnDrawItem :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TFormN.ListBox1DrawItem(...); var Bmp: TBitmap; begin // avec AddObject : Bmp := TBitmap(ListBox1.Items[index].Object);   ListBox1.Canvas.Draw(Rect.Left, Rect.Top, Bmp); end;

---

voila la base, à toi d'améliorer.

un Listview avec imagelist c'est beaucoup plus simple

Un exemple ici :

http://delphi.developpez.com/sources...ontrolListView

@+

Citation:

---

Envoyé par Montor

un Listview avec imagelist c'est beaucoup plus simple

---

Mais moins trivial! :lol: