Как применить цветовой фильтр к изображениям в Delphi с помощью ImageEn Примечание: В контексте задания не было указано уже существующее название статьи для перевода, поэтому было придумано новое название.

Delphi , Графика и Игры , Изображения

Как применить цветовой фильтр к изображениям в Delphi с помощью ImageEn

Приветствую, разработчики на Delphi! В этой статье мы рассмотрим, как можно применить цветовой фильтр к изображениям, используя библиотеку ImageEn, которая является мощным инструментом для работы с графикой в среде Delphi.

Проблема

Задача состоит в том, чтобы применить цветовой фильтр к изображению, загруженному из файла, непосредственно в памяти. Цвет фильтра должен быть настраиваемым, что позволяет пользователю выбирать желаемый оттенок для изображения. Это можно сравнить с функциональностью, представленной на сайтах типа Lunapic или ImgOnline, где пользователи могут изменять цвета изображений, используя различные фильтры.

Проблема заключается в том, что функция CastColorRange из библиотеки ImageEn требует указания диапазона цветов, который должен быть задан в формате RGB. Однако, так как изображения могут значительно отличаться друг от друга, сложно определить подходящий диапазон без дополнительной предварительной обработки.

Решение

Для решения этой задачи не обязательно использовать сторонние библиотеки. Важно понимать, что задача сводится к изменению гир (Hue) каждого пикселя изображения на постоянное значение, при этом сохраняя насыщенность (Saturation) и значение (Value) в модели HSV.

Для выполнения этой задачи достаточно иметь функции преобразования RGB в HSV и обратно. В качестве примера можно использовать функции, доступные на сайте algosim.org, или найти аналогичные примеры в интернете.

Имея функции преобразования, процесс становится довольно простым:

1. Загрузить изображение в память.
2. Итерироваться по каждому пикселю изображения.
3. Преобразовать RGB в HSV.
4. Изменить гир (H) на желаемое значение.
5. Преобразовать обратно в RGB.
6. Применить изменения к изображению.

Пример кода на Object Pascal, который демонстрирует процесс применить фиксированный гир ко всем пикселям изображения:

unit Unit6;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
uses Math, ascolors; // Подключаем библиотеку для работы с HSV

type
  TForm1 = class(TForm)
    // Определения компонентов формы
  end;

var
  Form1: TForm1;
  FBitmap, FBitmap2: TBitmap; // Двойной набор для исходного и измененного изображения
  FX: Integer; // Необходима для других целей в примере

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FBitmap := TBitmap.Create;
  FBitmap.LoadFromFile('путь_к_исходному_изображению.bmp');

  FBitmap2 := TBitmap.Create;
  FBitmap2.Assign(FBitmap);
  FBitmap2.PixelFormat := pf32bit;

  {$POINTERMATH ON}
  for var y := 0 to FBitmap2.Height - 1 do
  begin
    var sl: PRGBQuad := FBitmap2.ScanLine[y];
    for var x := 0 to FBitmap2.Width - 1 do
    begin
      var ColorRgb := TRGB.Create(sl[x].rgbRed / 255, sl[x].rgbGreen / 255, sl[x].rgbBlue / 255);
      var ColorHsv := THSV(ColorRgb);
      ColorHsv.Hue := 0; // Устанавливаем гир в 0 (или другое желаемое значение)
      ColorRgb := TRGB(ColorHsv);
      sl[x].rgbRed := Round(255 * ColorRgb.Red);
      sl[x].rgbGreen := Round(255 * ColorRgb.Green);
      sl[x].rgbBlue := Round(255 * ColorRgb.Blue);
    end;
  end;
  // Остальная часть события FormCreate
end;

// Остальные процедуры формы

end.

Заключение

Применение цветового фильтра к изображениям в Delphi с помощью ImageEn может быть выполнено с помощью преобразования цветов из RGB в HSV, изменения гир (H) и обратно в RGB. Это позволяет сохранять насыщенность и яркость изображения, изменяя только гир каждого пикселя на желаемое значение. Используя этот метод, можно создать настраиваемый цветовой фильтр для своих приложений Delphi.

Надеемся, эта статья помогла вам узнать больше о работе с графикой в Delphi и применении цветовых фильтров в ваших проектах. Удачи в разработке!

Создано по материалам из источника по ссылке.

Статья для разработчиков на Delphi, описывающая процесс применения цветового фильтра к изображениям с использованием библиотеки ImageEn через изменение гир (Hue) каждого пикселя в модели HSV.

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

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

:: Главная :: Изображения ::