[Delphi]HTML Hexcode naar TColor

[Verwijderd]

Hoe krijg ik een HTML Hexcode zoals #FFFFFF naar een TColor waarde in Delphi (in dit geval dus ClWhite)? Ik heb gekeken bij Torry, DTNT, en gezocht op 't forum, maar ik kan het maar niet vinden. Iemand enig idee hoe 't moet?

[MisterE]

ColorToString

...en StringToColor natuurlijk

[Varienaja]

Uit de Delphi Help...

If you specify TColor as a specific 4-byte hexadecimal number instead of using the constants defined in the Graphics unit, the low three bytes represent RGB color intensities for blue, green, and red, respectively. The value $00FF0000 represents full-intensity, pure blue, $0000FF00 is pure green, and $000000FF is pure red. $00000000 is black and $00FFFFFF is white.

Kortom: #AABBCC in HTML = $00CCBBAA in Delphi.

Dat lijkt heel simpel, maar in code moet je dan toch even sleutelen, je moet namelijk eerst de drie hexadecimale naar integer converteren.

code:

var Kleur:string;
    R,G,B:integer;
    Resultaat:TColor;
begin
   Kleur:='AABBCC';
   R:=HexStringToInt(Kleur[1]+Kleur[2]);
   G:=HexStringToInt(Kleur[3]+Kleur[4]);
   B:=HexStringToInt(Kleur[5]+Kleur[6]);

   Resultaat:=R+G*65536+B*65536*65536;
end;

Waarbij je de funtie HexStringToInt zelf maar even moet verzinnen.