ListView jede 2te Zeile Farbig?

[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