Listbox Eintrag fett machen

[Khabarakh]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var 
  i: Integer;
begin
  with (Control as TListBox).Canvas do
  begin
    FillRect(Rect);
    if ListBox2.Items.IndexOf(IntToStr(Index)) <> -1 then
      Font.Style:= [fsbold]
     else
       Font.Style:= []; 

    TextOut(Rect.Left + 2, Rect.Top, ListBox1.Items[Index]);
  end;
end;