Umwandlung von TColor nach Hex

[Oliver Killguss]

Hallo,

wie kann ich eine ausgewählte Farbe (TColorDialog) so umwandeln, dass der Farbwert in einem per Delphi erstelltem HTML Dokument auch dem entspricht was der User ausgewählt hat. Wenn ich die Funktion IntToHex verwende kommt statt Blau ein Rot-Ton heraus. (Delphi 5 Pro)

[Hagen Reddmann]

Hi

Normalerweise enthält der HEX Wert den RGB Anteil. Somit lässt sich vermuten das in BGR konvertiert werden muß. Das scheint auch logisch da IntToHEX den Colorwert als Little Endian Wert bekommt, HTML's aber immer mit Big Endian arbeiten.

<pre>

function Endian(Value: LongWord): LongWord;
asm
BSWAP EAX
SHR EAX,8
end;<br>

ResultStr := IntToHEX(Endian(clRed), 6);

</pre>

Gruß Hage

[Oliver Killguss]

Vielen Dank !

Ich bin echt begeistert, jetzt funktioniert es wirklich gut. Danke für den Tipp, der hat mir viel Arbeit erspart