تبدیل قالب رنگ در دلفی

تبدیل قالب استاندارد رنگ دلفی به hex

مانند استاندارد اینترنت

{

Return TColor value in XXXXXX format

(X being a hex digit)

}

function

TColorToHex( Color : TColor )

: string;

begin

Result :=

{ red value }

IntToHex( GetRValue( Color ), 2 ) +

{ green value }

IntToHex( GetGValue( Color ), 2 ) +

{ blue value }

IntToHex( GetBValue( Color ), 2 );

end;

Need to convert a hex color string to a TColor variable? Try this:

{

sColor should be in XXXXXX format

(X being a hex digit)

}

function

HexToTColor( sColor : string )

: TColor;

begin

Result :=

RGB(

{ get red value }

StrToInt( '$'+Copy( sColor, 1, 2 ) ),

{ get green value }

StrToInt( '$'+Copy( sColor, 3, 2 ) ),

{ get blue value }

StrToInt( '$'+Copy( sColor, 5, 2 ) )

);

end;