Mega Code Archive

 

Categories / Delphi / Graphic

 

How to create colored rows in a TListView

Title: How to create colored rows in a TListView procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin with ListView1.Canvas.Brush do begin case Item.Index of 0: Color := clYellow; 1: Color := clGreen; 2: Color := clRed; end; end; end;