Карта сайтаСсылкиКонтакты

Как преобразовать TColor в Hex и Hex в TColor

PDF Печать
Статьи

Для преобразования TColor в Hex (для HTML) и Hex в TColor ниже приведены две функции (TColorToHex и HexToTColor), которые позволяют это сделать:

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

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;

 

Добавить комментарий


Защитный код
Обновить