Listview Select Problem

[Bernd29bln]

Hallo,

Ich hab mir ein download Programm für ein Lan Netzwerk geschrieben.
Mein Problem,wenn jemand bei mir aus dem lan netzwerk downloaded soll im Listview die datei blau selectiert werden und der upload rot.

Wie könnte man das umsätzen?

Gruss Bernd

[s-off]

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]

[Bernd29bln]

Hallo,

Danke für die Hilfe.

gruss bernd