HEX 코드를 TColor 값으로 변환하여 반환

HEX 코드를 TColor 값으로 변환하여 반환

 

728x90

 

 

 

 

HexToTColor(), TColorToHex()

 

HEX 코드를 TColor 값으로 변환하여 반환한다

 

function HexToTColor(RGBCode: String): TColor;

var

hex: Int64;

Color: TColor;

iRGBCode: STring;

begin

try

iRGBCode := copy(RGBCode,5,2)+copy(RGBCode,3,2)+copy(RGBCode,1,2);

hex := StrToInt64('$00'+iRGBCode);

except

on Exception do

begin

hex := $00000000;

MessageDlg('올바르지 않은 색상값입니다.', mtError, [mbOK], 0);

end;

end;

Color := TColor(hex); Result := Color;

end;

 

TColor 를 Hex(String) 으로 변환하여 반환한다

function TColorToHex(Color: TColor): String;

begin

Result := IntToHex(GetRValue(Color),2)+ IntToHex(GetGValue(Color),2)+ IntToHex(GetBValue(Color),2);

end;