in Listbox ein Icon vor jeder Zeile

[bluescreen25]

Ja danke, habe dazu etwas gefunden.

Fürs erste habe ich mal eine Nummerierung vor die items gesetzt (zur Probe).

Wie kann man den FontFarbe für die Nummerung anders setzen als die FontFarbe für die Items ?

Delphi-Quellcode:

with Control as TListBox do
    begin
      canvas.FillRect(rect);
      //canvas.Font.Color := clYellow;
      canvas.textout(rect.Left+2,
                     rect.top+2,
                     inttostr(index+1)+'.  '+items[index]);
    end;