Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - farbe einer Zeile in ListView ändern mit FARBCODES
rafi@work - Mo 20.10.03 13:07
Titel: farbe einer Zeile in ListView ändern mit FARBCODES
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 - Mo 20.10.03 13:46
Titel: Re: farbe einer Zeile in ListView ändern mit FARBCODES
| 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:
Gruß
Tino
rafi@work - Mo 20.10.03 13:53
ja genau das mein ich. bei mir hats nicht gefunzt, hab das '$' -Zeichen vergessen... :? naja hauptsache jetzt klappts! Besten Danke Tino! :D
gruss
rafi@work - Fr 24.10.03 15:47
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
Delete - Fr 24.10.03 17:45
Vielleicht die Farben mischen?
Quelltext
1:
2:
3:
| rot = $0000ff
grün = $00ff00
gelb = $ffff00 |
Anonymous - Fr 24.10.03 18:27
nein,
Quelltext
1:
2:
| gelb = $00FFFF
hellblau = $FFFF00 |
BGR ;)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!