ListBox formatieren

[.chicken]

Ja, also im OnDawItem Event oder?
Da formatiere ich ja auch meine Schrift, aber ich weiss nicht wie ich da verhindern soll, dass angewählte Items markiert sind.

Hier mal mein Code wie ich die Schrift formatiere:

Delphi-Quellcode:

procedure TListForm.UserListDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with UserList do
  begin
    Canvas.Font.Color := (Items.Objects[Index] as TListObject).Color;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top, Items.Strings[Index]);
  end;
end;