TColor ---> HTML Color
Falk0ner, вс, 06/07/2008 - 15:35.
Функция для преобразования цвета TColor в формат цветов HTML
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;
Не нужно забывать о
var
RGBColor: Longint;
begin
RGBColor := ColorToRGB(Value);
Result := Format('#%.2x%.2x%.2x', [GetRValue(RGBColor), GetGValue(RGBColor), GetBValue(RGBColor)]);
end;
uses SysUtils, Graphics;
для функций Format и ColorToRGB!
Автор: Smike
Взято из http://forum.sources.ru
Отправить комментарий