procedure TQueryForm.ListViewCustomDrawItem (Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin inherited; DefaultDraw: = false; if ((item.Index) mod 2) = 0 then begin TListView (Sender). Canvas.brush.color: = RGB (224, 224, 224); //tlistview (transnvas.font.color: = CLRED; END; defaultdraw: = true;