Zeile einer ListBox einfärben

[Matze]

Hi, das geht so in der Art:

Delphi-Quellcode:

// ListBox-Style muss auf "lbOwnerDrawFixed" sein
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  if Index = 4 then  // 5. Zeile
  begin
    ListBox1.Canvas.Brush.Color := clRed;
    ListBox1.Canvas.Pen.Color := clWhite;
    ListBox1.Canvas.Rectangle(Rect);

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

Aber bemühe doch bitte die Suchfunktion, das wurde schon oft gefragt.