Statt TColor-Namen TColor-Werte anzeigen

[Opa Knack]

Hallo,

ich suche nun schon seit längerem hier im Forum, habe aber nichts dazu finden können (nun ja, im Zeichen steigender Senilität habe ich wahrscheinlich auch die falschen Suchbegriffe gewählt):

Wenn ich einen Farbwert per ColorToString auslese, habe ich häufig die Farbnamen (z. B. clBlack, clWhite) als Ergebnis. Ich bräuchte aber die realen Werte (z. B. $00000000 oder $00FFFFFF).

Wie kann ich die erhalten?

Danke vorab und gute Nacht
Opa

[Manne]

Servus,
meinst to vielleicht die Funktion

Delphi-Quellcode:

ColorToRGB(Color: TColor): Longint;

aus der Unit Graphics?
Macht meiner Meinung das was du brauchst.

[Sprint]

Delphi-Quellcode:

StringToColor

[Pr0g]

Bspw. so:

Code:

Edit1.Text := '$' + IntToHex(clWhite, 8);

[SMO]

Ich würde zusätzlich ColorToRGB benutzen:

Delphi-Quellcode:

Edit1.Text := '$' + IntToHex(ColorToRGB(clBtnFace), 8);

Sonst bekommt man nicht den "realen Wert" von Systemfarben wie clBtnFace & Co.