Listbox Eintrag fett machen

[100nF]

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.