Farbwert

[Steve]

Hi,

das sollte inhaltlich dem Code vom "Vorposting" entsprechen:

Delphi-Quellcode:

  result :=  '#' + IntToHex(GetRValue(ColorToRGB(Col), 2) +
                 IntToHex(GetGValue(ColorToRGB(Col), 2) +
                 IntToHex(GetBValue(ColorToRGB(Col), 2);

GetRValue etc. liefert den jeweiligen Rot-/Grün-/Blau-Anteil einer Farbe, zu finden in der Unit Windows. ColorToRGB wandelt Konstanten wie clBtnFace etc. in Farbwerte um, siehe OH.


Gruß
Stephan