Конвертация BGR-цвета TColor в RGB-цвет HEX

Советы » Цвета и Палитра » Конвертация BGR-цвета TColor в RGB-цвет HEX

{ **** 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com