Zeile einer ListBox einfärben

[Sharky]

Zitat von ghost007:

... kann man die einträge oberhalb von der 5ten zeile nicht lesen =/

Hai ghost007,

das liegt an einem kleinen Fehler im Code von Matze
Da sein .TextOut innerhalb des Blocks mit der IF-Abfrage steht wird das Item nur für die fünfte Zeile gezeichnet.

So wird ein Schuh draus:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (control as TListBox) do
  begin
    if Index = 4 then  // Farben für die 5. Zeile ändern.
    begin
      Canvas.Brush.Color := clRed;
      Canvas.Pen.Color := clWhite;
      Canvas.Rectangle(Rect);
    end;
    Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, Items[Index]); // Item wird immer gezeichnet
  end;
end;