listbox et icone

J'ai testé le code ici present:
http://delphipage.free.fr/astuces/listico.html

mais quand je teste (avec une icone valide) il ne m'affiche que le texte.
J'ai delphi 7, vous voyez d'ou peut venir le probleme ?


correction:
il m'affiche l'icone en haut à gauche du programme et moins je voudrais une listebox avec:

icone (petit espace) + texte.
Vous voyez comment faire ?

salut

utilise le ondrawItem

je pense que tu peut t'inspire du defi qui fut lancer pour l'amelioration d'un menu

http://www.developpez.net/forums/viewtopic.php?t=429701

@+ Phil

merci mon probleme est resolu

grosso modo je mets ca:

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin   ListBox1.Canvas.Draw(0, 0, icon);   end;

---