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

Previous Top Next

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

Code:

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;

©Drkb::03538

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