Forum: Multimedia
Delphi
by himitsu,
31. Mai 2008
Im Grunde ist es schon gleich, aber da Value ja eine Farbe enthält ... :zwinker:
Forum: Multimedia
Delphi
by himitsu,
31. Mai 2008
TColor statt Integer kommt wohl etwas besser :angel:
type tSysColorRec = record
Value : TColor;
Name : String;
end;
hmmm, stimmt, GetSysColor nimmt ja nur den Index entgegen und nicht (wie ich mir da wohl irgendwie dachte) die Farbkonstanten :oops:
Forum: Multimedia
Delphi
by himitsu,
30. Mai 2008
nee neee, die Konstante (im Beispiel 15) wird nicht verändert/umgewandelt.
Forum: Multimedia
Delphi
by himitsu,
30. Mai 2008
am Einfachsten du machst dir ein Array mit den clNamen
0 = 'clScrollBar'
1 = 'clBackground'
...
for i := 0 to 31{255} do
if GetSysColor($ff000000 or i) = C then
... { S := MyColorConstArray; }
for i := $ff000000 to $ff00001f{$ff0000ff} do