procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); begin if item.Index mod 2 = 1 then begin sender.Canvas.Brush.Color:=clYellow; end else sender.Canvas.Brush.Color:=clwhite; end;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if item.Index mod 2 = 1 then
begin
sender.Canvas.Brush.Color:=clYellow;
end
else
sender.Canvas.Brush.Color:=clwhite;
end;