TListbox: eine Zeile einfärben

[malabarista]

Ich möchte gerne bei TListbox einzelne Zeilen in rot darstellen.
Wie ist das möglich ? Oder geht das nicht ?

[m.fuchs]

Dann musst du selber zeichnen. Stell den Style der ListBox auf lbOwnerDrawFixed und mach dann folgendes in OnDrawItem:

Code: Alles auswählen

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState);
var
  ListCanvas: TCanvas;
begin
  ListCanvas := TListBox(Control).Canvas;
  if Index = 3 then begin
    ListCanvas.Pen.Color := clRed;
    ListCanvas.Brush.Color := clRed;
    ListCanvas.Rectangle(ARect);
  end;
  ListCanvas.TextOut(ARect.Left + 1, ARect.Top + 1, TListBox(Control).Items[Index] );
end;

Sollte natürlich noch ein wenig angepasst werden, damit es vertikal schön zentriert ist oder Ähnliches.

[malabarista]

Da habe ich mich nicht richtig ausgedrückt:
Ich wollte nur den Text rot, der Hintergrund sollte weiss bleiben.
Aber mit .Font.Color klappt das.
Dankeschön !