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

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

Автор: Николай Федоровских
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Перевод цвета в строку HTML кода

Зависимости: SysUtils
Автор: Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright: Автор Николай Федоровских
Дата: 18 октября 2002 г.
***************************************************** }

function ColorToHTML(Color: TColor): string;
begin
  {RGB составляющие цвета переводим в шестнадцатеричную
   систему счисления}
  FmtStr(Result,
    '#%.2x%.2x%.2x',
    [Lo(Color), {красный}
    Lo(Color shr 8), {зелёный}
    Lo((Color shr 8) shr 8) {синий}]);
end;

Это функция Delphi под именем ColorToHTML, которая конвертирует значение типа TColor в RGB-цвет в формате hexadecimal HTML.

Вот подробное описание, что код делает:

1. Lo( Color ): Извлекает нижние 8 бит (красный) из значения TColor.
2. Lo( Color shr 8 ): Сдвигает биты значения TColor вправо на 8 позиций и извлекает следующих 8 бит (зеленый).
3. Lo( (Color shr 8) shr 8 ): Сдвигает биты значения TColor вправо на еще 8 позиций и извлекает последних 8 бит (синий).

Затем эти три значения используются для создания строкового представления в формате #RRGGBB, где RR - красный компонент, GG - зеленый компонент, а BB - синий компонент.

Функция использует процедуру FmtStr из модуля SysUtils для форматирования результата в строку. Форматная строка '#%.2x%.2x%.2x' указывает, что результат должен быть строкой hexadecimal с двумя цифрами для каждого компонента цвета (красный, зеленый и синий).

Вот пример использования этой функции:

var
  Color: TColor;
  HTMLString: string;

begin
  Color := $FF0000; // Красный
  HTMLString := ColorToHTML(Color);
  ShowMessage(HTMLString); // Вывод: #FF0000
end.

Этот код-снippet выведет hexadecimal-цветовое значение #FF0000 для красного цвета.

В целом, эта функция - полезный инструмент для конвертации значений типа TColor в HTML-цвета в приложениях Delphi.

Функция ColorToHTML переводит цвет TColor в строку HTML кода, преобразуя его BGR-компоненты в RGB-компоненты HEX-формата.

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

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

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