TColor, clBtnFace und Farben extrahieren

[Patrick Krause]

Hallo,

wenn ich aus einer Farbe (TColor) die einzelnen RGB-Werte extrahieren will, dann mache ich das normalerweise so:
<br><br>
farbeB := ($00FF0000 and clSilver) div $10000 -> Blau<br>
farbeG := ($0000FF00 and clSilver) div $100 -> Grün<br>
farbeR := $000000FF and clSilver -> Rot<br>
<br>
Bei <b>clBtnFace</b>, bzw. der Hintergrundfarbe meines Forms funktioniert das allerdings nicht. Dort bekomme ich immer dezimal 0 für blau und grün, 15 für rot. In der Deklaraton sieht clBtnFace auch anders aus als die Standard-Farben ...

Wer kann mir helfen? Wie kann ich die Formularfarben einzeln extrahieren?

mfG,
Patrick Krause

[Hagen Reddmann]

Doppelt gestellte Frage ?

[Patrick Krause]

ja, war doppelt gestellt; bin neu hier :-

[Hakanlunden]

Die Frage ist wohl schon längst beantwortet worden, aber clBtnFace ist keine RGB-Farbe.
RGB Colors reichen von clBlack = $000000 bis clWhite = $FFFFFF weil die Window System Colors (Negative als decimal integers) reichen von SCROLL_BARS = $80000000 bis
BUTTON_TEXT = $80000012 oder vielleicht noch länger
Es gibt keine feste Übersetzung von Systemfarbe zu RGB-Farbe, sondern die Übersetzung ist in jeder Windowsversion anders, wenn auch nur geringfügig.