Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 552

•  TDictionary Custom Sort  6 580

•  Fast Watermark Sources  6 351

•  3D Designer  9 302

•  Sik Screen Capture  6 687

•  Patch Maker  7 056

•  Айболит (remote control)  7 067

•  ListBox Drag & Drop  5 938

•  Доска для игры Реверси  97 432

•  Графические эффекты  7 271

•  Рисование по маске  6 568

•  Перетаскивание изображений  5 442

•  Canvas Drawing  5 808

•  Рисование Луны  5 512

•  Поворот изображения  5 043

•  Рисование стержней  3 595

•  Paint on Shape  2 847

•  Генератор кроссвордов  3 727

•  Головоломка Paletto  3 004

•  Теорема Монжа об окружностях  3 808

•  Пазл Numbrix  2 506

•  Заборы и коммивояжеры  3 197

•  Игра HIP  2 166

•  Игра Go (Го)  2 098

•  Симулятор лифта  2 472

•  Программа укладки плитки  2 136

•  Генератор лабиринта  2 613

•  Проверка числового ввода  2 290

•  HEX View  2 624

•  Физический маятник  2 234

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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




Вебмастер сдает на права, заполняет бланк:
Рост: 175
Вес: 80
Цвет глаз: #44AAFF

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





Похожие по теме исходники

Couleur (цветовая палитра)

Изменение цвета изображения

Image to HTML

HTML Parser (парсер)

 

Delphi to HTML Converter

Image2Html

Txt to HTML

Конвертер Word - HTML

 

Mini HTML Editor

MSHTML Editor

HTML Test Creator




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте