Введите условия поиска Отправить форму поиска
	Web www.delphisources.ru

Автор: Lipskiy
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Конвертация BGR-цвета TColor в RGB-цвет HEX

Функция преобразует значение типа TColor в шестнадцатиричное значение цвета
в формате string с заменой порядка следования цветовых компонентов на
противоположный (из BGR в RGB). Порядок RGB используется, например в HTML.
Корректно работает с константами системных цветов.

Зависимости: SysUtils, Windows, Graphics
Автор:       lipskiy, Fenik, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright:   Собственное написание (lipskiy)
Дата:        20 апреля 2002 г.
***************************************************** }

function ColorToHTMLHexColor(Color: TColor): string;
begin
  result := IntToHex(GetRValue(ColorToRGB(Color)), 2) +
    IntToHex(GetGValue(ColorToRGB(Color)), 2) +
    IntToHex(GetBValue(ColorToRGB(Color)), 2);
end;