Schriftfarbe einer Zeile in der Listbox ändern?

[Christian Seehase]

Moin Chris,

dazu muss die Eigenschaft Style der ListBox auf lbOwnerDrawFixed gesetzt werden.

So könnte man dann die Einträge immer im Wechsel rot und grün schreiben.

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

  if (Index mod 2 = 0) then begin
    ListBox1.Canvas.Font.Color := clred;
  end else begin
    ListBox1.Canvas.Font.Color := clGreen;
  end;
  ListBox1.Canvas.TextOut(Rect.Left,Rect.Top,ListBox1.Items[Index]);
end;