Преобразование TColor в Hex и Hex в TColor

WinHack

Администратор
23 Фев 2015
2,664
1,913
bsfo.ru
Вашему вниманию представляются две простые функции для преобразования значения цвета из TColor в Hex (HTML) и наоборот:

Код:
function TColorToHex(Color : TColor) : string;
 begin
    Result :=
      IntToHex(GetRValue(Color), 2) +
      IntToHex(GetGValue(Color), 2) +
      IntToHex(GetBValue(Color), 2) ;
 end;

 function HexToTColor(sColor : string) : TColor;
 begin
    Result :=
      RGB(
        StrToInt('$'+Copy(sColor, 1, 2)),
        StrToInt('$'+Copy(sColor, 3, 2)),
        StrToInt('$'+Copy(sColor, 5, 2))
      ) ;
 end;