procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if item.Selected then (sender as TListView).Canvas.Brush.Color:=clTeal else begin if item.Index mod 2=0 then (sender as TListView).Canvas.Brush.Color:=clSkyBlue else (sender as TListView).Canvas.Brush.Color:=clMoneyGreen; end; (Sender as TListView).Canvas.Refresh; end;