Преобразовать RGB в COLORREF (BGR)

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function RGB2BGR(R, G, B: Byte): COLORREF; overload;
 begin
   Result := (Integer(B) shl 16) + (Integer(G) shl 8) + R;
 end;

 function RGB2BGR(RGB: Integer): COLORREF; overload;
 var
   R, G, B: Integer;
 begin
   R      := RGB div $10000;
   G      := ((RGB mod $10000) div $100) shl 8;
   B      := (RGB mod $100) shl 16;
   Result := B + G + R;
 end;

Here is the translation of the text into Russian:

Неплохой код на Delphi!

Цель этих двух функций - преобразовать значения цветов RGB (Красный, Зеленый, Синий) в формат COLORREF, который является специфическим способом хранения цветов в Windows API.

Давайте разберемся в каждой функции:

RGB2BGR(R: Byte; G: Byte; B: Byte): COLORREF

Эта перегрузка принимает три параметра типа Byte (R, G и B), представляющие значения цветов RGB. Функция просто сдвигает и добавляет эти значения для создания значения COLORREF.

• Result := Integer(B) shl 16 + Integer(G) shl 8 + R;
  • (Integer(B) shl 16) сдвигает значение синего цвета (B) на 16 бит влево, эффективно помещая его в позицию наиболее значимого байта.
  • (Integer(G) shl 8) сдвигает значение зеленого цвета (G) на 8 бит влево, помещая его в позицию среднего байта.
  • R добавляется последним, без сдвига, так как он уже находится в своей правильной позиции.

RGB2BGR(RGB: Integer): COLORREF

Эта перегрузка принимает одиночный параметр типа Integer (RGB), представляющий значение цветов RGB. Функция разлагает это значение на компоненты R, G и B с помощью некоторых умных битовых операций.

• R := RGB div $10000;
  • Это сдвигает значение RGB на 16 бит вправо (эффективно делит на 2^16) и затем выполняет целочисленное деление на $10000 (равное 65536), эффективно извлекая компонент R.
• G := ((RGB mod $10000) div $100) shl 8;
  • Это вычисляет остаток значения RGB, разделенного на $10000 (используя оператор модуля %), и затем сдвигает его на 8 бит влево, помещая компонент G в свою правильную позицию.
• B := (RGB mod $100) shl 16;
  • Это вычисляет остаток значения RGB, разделенного на $100 (используя оператор модуля %), и затем сдвигает его на 16 бит влево, помещая компонент B в позицию наиболее значимого байта.
• Итоговый результат просто является суммой этих трех компонентов: Result := B + G + R;.

В целом, обе функции достигают одного и того же результата - преобразования значений цветов RGB в формат COLORREF. Первая перегрузка принимает отдельные значения R, G и B в качестве входных параметров, а вторая перегрузка принимает одиночное значение RGB в качестве входного параметра и разлагает его внутренне.

Что касается предложений, я не вижу очевидных проблем с этими реализациями. Однако, если вы хотите улучшить их эффективность или читаемость, вы можете рассмотреть использование битовых операций (например, R := RGB and $FF0000) вместо сдвигов и добавления значений. Кроме того, вы можете использовать именованные константы для магических чисел (например, $10000, $100) для улучшения читаемости кода.

Преобразование RGB в COLORREF (BGR) реализуется с помощью функции RGB2BGR, которая принимает аргументы в формате Byte или Integer и возвращает результат в формате COLORREF.

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

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

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