@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]);
end;
@CLRS530:
Werd ich gleich probieren.