Delphi - база знаний


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


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



Если Вам необходимо создать 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

Взято с Исходников.ru



Начало  Назад  Вперед



Книжный магазин