ListView jede 2te Zeile Farbig?

[Flom]

Hallo,
Weiß einer von euch ob und wie ich in einem ListView jede 2te Zeile Farbig hinterlegen kann für eine bessere Übersicht?!

Grüße

[Hawkeye219]

Hallo Flom,

versuche es so:

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Odd(Item.Index) then
    Sender.Canvas.Brush.Color := clYellow
  else
    Sender.Canvas.Brush.Color := clRed;
end;

Gruß Hawkeye

[Flom]

cool danke