procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with ListView1.Canvas.Brush do
begin
if (Item.Index mod 2) = 0 then
Color := clYellow
else
Color := clWhite;
end;
end;
Abraço a todos.
