in Listbox ein Icon vor jeder Zeile

[jim_raynor]

Oh. Sorry hab ich erst jetzt gesehen. Du musst dann natürlich zweimal Textout machen.

Delphi-Quellcode:

canvas.Font.Color := clYellow;
canvas.textout(rect.Left+2,rect.top+2,inttostr(index+1)+'.'); 
canvas.Font.Color:=clWindowText;
Canvas.TextOut(Rect.Left+100,rect.Top+2,items[index]);