Jak zamienić TColor na zapis heksadecymalny?

Q: Jak zamienić TColor na zapis heksadecymalny?

Skorzystaj z poniższej funkcji [crayon-66e73d1ad20f4853026221/] Autor: Nakiel

Q: Jak zamienić TColor na zapis heksadecymalny?

Skorzystaj z poniższej funkcji [crayon-66e73d1ad20f4853026221/] Autor: Nakiel

Skorzystaj z poniższej funkcji

function ColorToHtml(DColor:TColor):string; 

var 

    tmpRGB : TColorRef; 

begin 

    tmpRGB := ColorToRGB(DColor) ; 

    Result:=Format('#%.2x%.2x%.2x', 

                   [GetRValue(tmpRGB), 

                    GetGValue(tmpRGB), 

                    GetBValue(tmpRGB)]) ; 

end;

function ColorToHtml(DColor:TColor):string;

var

tmpRGB : TColorRef;

begin

tmpRGB := ColorToRGB(DColor) ;

Result:=Format('#%.2x%.2x%.2x',

[GetRValue(tmpRGB),

GetGValue(tmpRGB),

GetBValue(tmpRGB)]) ;

end;

Autor: Nakiel