Delphi-PRAXiS - Delphi Listview Select Problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Listview Select Problem (https://www.delphipraxis.net/82485-listview-select-problem.html)

Listview Select Problem

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

Re: Listview Select Problem

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]

Re: Listview Select Problem

Hallo,

Danke für die Hilfe. :-D

gruss bernd