Farbwerte als String

[Mirilin]

Delphi-Quellcode:

function ColToString(AColor : TColor):String;
begin
  AColor := ColorToRGB(AColor);
  Result := IntToHex(GetRValue(AColor),2)+
            IntToHex(GetGValue(AColor),2)+
            IntToHEx(GetBValue(AColor),2);
end;

[janjan]

Meine Verwirrung lag darin das Chakotay1308 meinen ersten Vorschlag nicht angenommen hat.

Form1.Caption:= IntToHex(integer(clblue),6); Das klappt soweit, das Problem ist nur, das das erste und letzte Zahlenpaar vertauscht sind. Leider hab ich das grade erst gemerkt und war bis eben der Überzeugung das dies die Lösung ist die Chakotey gesucht hat.

Und diesen Satz hier trug auch nicht zur klärung bei, denn kann man auch ohne Probleme so verstehen wie ich ihn verstanden hab:

Zitat:

Nur, dass wenn acolor den Wert clNavy hat (also den Wert von clNavy; da clNavy eine konstante ist), dann auch Result 'clNavy' ist...

Naja, was solls...