TColor ---> HTML Color

Previous  Top  Next

    
 

Функция для преобразования цвета TColor в формат цветов HTML

Code:

function TColorToHTML(const Value: TColor): string;

var

RGBColor: Longint;

begin

RGBColor := ColorToRGB(Value);

Result := Format('#%.2x%.2x%.2x', [GetRValue(RGBColor), GetGValue(RGBColor), GetBValue(RGBColor)]);

end;

 

 
Не нужно забывать о

Code:

uses SysUtils, Graphics;

 
для функций Format и ColorToRGB!
 

Автор: Smike

Взято из http://forum.sources.ru

 

©Drkb::03677