Zitat von
BenniP:
@urbanbruhin:
Oh ja, Verzeihung:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
listbox1.canvas.FillRect(rect);
Listbox1.canvas.Font.Style:= [fsbold];
Listbox1.canvas.TextOut(Rect.Left+2, Rect.Top, listbox1.Items[index]); // Hier ist ja der Index
end;
@CLRS530:
Werd ich gleich probieren.
Ich denke, es müsste schon so gehen wie es CLRS530 beschrieben hat.