farbe einer Zeile in ListView ändern mit FARBCODES

rafi@work · Beiträge: 147 Win2000 Prof D7 Enterprise

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TSocketConnectForm.ListViewDeviceCustomDrawItem(
  Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  i : Integer;
begin
   if (Item=nil) then Exit; 
  with Sender.Canvas.Brush do
    if Item.SubItems[0] = 'Active' then Color:=clGreen
      else Color:=clYellow;
end;

hiermit ändere ich je nach String des ersten SubItems die Farbe. Gibt es eine möglichkeit anstelle von clGreen, clYellow etc.. Farbcodes zu verwenden? Danke für eure Hilfe!

gruss[/code]

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

rafi@work hat folgendes geschrieben:

Gibt es eine möglichkeit anstelle von clGreen, clYellow etc.. Farbcodes zu verwenden?

Was verstehst du unter einem Farbcode?

Eventl:

markieren

Delphi-Quelltext

1:	Color := $0000FF;

Gruß
Tino

rafi@work · Beiträge: 147 Win2000 Prof D7 Enterprise

ja genau das mein ich. bei mir hats nicht gefunzt, hab das '$' -Zeichen vergessen...

naja hauptsache jetzt klappts! Besten Danke Tino!

gruss

rafi@work · Beiträge: 147 Win2000 Prof D7 Enterprise

wie müsste ich es anstellen, wenn ich jetzt für 'Unknown' Rot, für 'Ready' gelb, für 'Active' grün etc... will??

gruss

Ehemaliges Mitglied Erhaltene Danke: 1

Vielleicht die Farben mischen?

markieren

Quelltext

1:
2:
3:

rot  = $0000ff
grün = $00ff00
gelb = $ffff00

Gast Erhaltene Danke: 1

nein,

markieren

Quelltext

1:
2:

gelb   = $00FFFF
hellblau = $FFFF00

BGR ;)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme