Как преобразовать шестнадцатиричный цвет HTML в TColor

Previous  Top  Next

    
 

 

 

Code:

unit colours;

 

interface

uses

Windows, Sysutils, Graphics;

 

function ConvertHtmlHexToTColor(Color: string):TColor ;

function CheckHexForHash(col: string):string ;

 

implementation

 

 

function ConvertHtmlHexToTColor(Color: string):TColor ;

var

rColor: TColor;

begin

Color := CheckHexForHash(Color);

 

if (length(color) >= 6) then

begin

   {незабудьте, что TColor это bgr, а не rgb: поэтому необходимо изменить порядок}

   color := '$00' + copy(color,5,2) + copy(color,3,2) + copy(color,1,2);

   rColor := StrToInt(color);

end;

 

result := rColor;

end;

 

 

// Просто проверяет первый сивол строки на наличие '#' и удаляет его, если он найден

function CheckHexForHash(col: string):string ;

begin

if col[1] = '#' then

   col := StringReplace(col,'#','',[rfReplaceAll]);

result := col;

end;

 

end.

 

 

©Drkb::03704

       

Взято с http://delphiworld.narod.ru