Как получить цвет строки в HTML формате?

Материал из DRKB


Если Вам необходимо создать HTML-файл, то необходимо объявить тэг для цвета шрифта либо цвета фона. Однако просто вставить значение TColor не получится - необходимо преобразовать цвет в формат RGB. В своём наборе SMExport я использую следующую функцию:

function GetHTMLColor(cl: TColor; IsBackColor: Boolean): string;
var
  rgbColor: TColorRef;
begin
  if IsBackColor then
    Result := 'bg'
  else
    Result := '';
  rgbColor := ColorToRGB(cl);
  Result := Result + 'color="#' + Format('%.2x%.2x%.2x',
    [GetRValue(rgbColor), GetGValue(rgbColor), GetBValue(rgbColor)]) + '"';
end;


Source: http://forum.sources.ru
ID: 03535
ID: 03538