>>> Shape.Color in HexaDezimalZahl (für HTML) umwandeln <&

[Moin]

Tach alle zusammen,

ich progge grade ne art HTML-Editor und habe 4 Shapes, deren Farben über einen ColorDialog[1-4] eine Farbe zugewiesen bekommen können. diese Farben sollen dann in eine Memo in der Form von

Code:

color= "#RRGGBB"

eingefügt werden. Wie konvertiere ich also ein TColor in eine 6 stellige Hexdezimalzahl????? :?:


Thx im vorraus,
euer moin

[SirThornberry]

Sollte so funktionieren

Delphi-Quellcode:

function GetFarbeAsString(AFarbe: TColor): String;
begin
  result := IntToHex(getRValue(AFarbe), 2) + IntToHex(getGValue(AFarbe), 2) + IntToHex(getBValue(AFarbe), 2);
end;

[Moin]

Danke, funzt super