TColor в HTML Color

Материал из DRKB


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

uses SysUtils, Graphics;

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;


Author: Smike
Source: http://forum.sources.ru
ID: 03677