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

Delphi , Графика и Игры , Цвета и Палитра

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Функция преобразует значение типа 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;

Перевод контента на русский язык:

Функция Delphi, именуемая ColorToHTMLHexColor, конвертирует значение типа TColor в строку hexadecimal HTML-цвета. Конвертация включает в себя несколько шагов:

1. Переключение значения TColor в RGB (Красный, Зеленый, Синий) с помощью функции ColorToRGB.
2. Извлечение отдельных компонентов цвета (R, G, B) с помощью функций GetRValue, GetGValue и GetBValue.
3. Переключение каждого компонента в строку hexadecimal с помощью функции IntToHex.
4. Конкатенация трех строк hexadecimal вместе для формирования окончательной строки HTML-цвета.

Вот разбивка кода:

function ColorToHTMLHexColor(Color: TColor): string;
begin
  result := IntToHex(GetRValue(ColorToRGB(Color)), 2) +   // Переключение R-значения в hex
             IntToHex(GetGValue(ColorToRGB(Color)), 2) +   // Переключение G-значения в hex
             IntToHex(GetBValue(ColorToRGB(Color)), 2);    // Переключение B-значения в hex
end;

Функция IntToHex используется для переключения целочисленного значения в строку hexadecimal. Второй аргумент (2) specifies минимальную длину полученной строки hexadecimal.

Код работает корректно с системными константами цвета и может быть полезен для конвертации значений TColor в строки HTML-цвета в приложениях Delphi.

Альтернативное решение:

function ColorToHTMLHexColor(Color: TColor): string;
begin
  result := Format('%02X%02X%02X', [GetRValue(ColorToRGB(Color)), GetGValue(ColorToRGB(Color)), GetBValue(ColorToRGB(Color))]);
end;

В этом альтернативном решении функция Format используется для конкатенации трех компонентов цвета в одну строку. Форматный указатель %02X используется для переключения каждого компонента в строку hexadecimal с двумя цифрами, если необходимо. Это достижение того же результата, что и оригинальный код, но может быть более компактным и читаемым для некоторых разработчиков.

Функция ColorToHTMLHexColor преобразует значение типа TColor в шестнадцатиричное значение цвета в формате string, выполняя обратную замену порядка следования цветовых компонентов от BGR до RGB.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Цвета и Палитра ::