procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if odd(item.Index) then item.ListView.Canvas.Brush.Color:=$00FEF4E7 else item.ListView.Canvas.Brush.Color:=$00F7F8F9; end;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if odd(item.Index) then
item.ListView.Canvas.Brush.Color:=$00FEF4E7
else
item.ListView.Canvas.Brush.Color:=$00F7F8F9;
end;