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

Хостинг


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

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

Вашему вниманию представляются две простые функции для преобразования значения цвета из 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;

 

Комментарии   

 
0 #1 Silas 28.07.2016 19:36
Just what I was looking for. I recently had
to fill out a form and spent an enormous amount of time trying to find an appropriate If
you ever need to fill out a form, here is web page (Silas: http://celebtop10.com/2016/07/07/top-10-celebrities-you-didnt-know-had-stage-names/) a really useful
tool. Very easy to navigate and use.|Helpful article-
Цитировать
 

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


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