Hallo,
Delphi-Quellcode:
Procedure TForm1.MyListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Var DefaultDraw: Boolean);
Begin
If Item.Caption = 'Upload' Then
Item.Listview.Canvas.Brush.Color := clRed
Else If Item.Caption = 'Download' Then
Item.Listview.Canvas.Brush.Color := clBlue
Else
Item.Listview.Canvas.Brush.Color := clWhite;
End;
Damit färbst Du die gesamte Zeile ein basierend auf dem Eintrag in der ersten Spalte (Caption).
Soll auf Basis der Spalten 1 und höher eingefärbt werden, so benutzt Du an Stelle der Caption
SubItems.Strings[x]