Вращение и масштабирование изображений в Delphi: методы и библиотеки для профессиональной графики

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

Вращение и Масштабирование Изображений в Delphi

В данной статье мы рассмотрим различные подходы к вращению изображений в программировании на Delphi, используя Object Pascal. Мы сосредоточимся на вращении изображений на произвольный угол, а также на методах масштабирования изображений, возникающем в результате вращения. Особое внимание будет уделено использованию библиотеки GDI+ для более качественного и эффективного вращения.

Введение

Вращение изображений на произвольный угол — это задача, которая часто возникает в графических приложениях. Для решения этой задачи можно использовать различные подходы, начиная от встроенных функций Delphi и заканчивая специализированными библиотеками, такими как Graphics32 и GDI+.

Вращение изображения с помощью SetWorldTransform

Один из способов вращения изображения в Delphi — использовать функцию SetWorldTransform, которая позволяет задать матрицу преобразования для контекста устройства. Для вращения изображения на угол Rads вокруг центра, расположенного в точке (0.5 * ширина, 0.5 * высота), можно использовать следующий код:

procedure RotateBitmap(Bmp: TBitmap; Rads: Single; AdjustSize: Boolean; BkColor: TColor = clNone);
var
  C, S: Single;
  XForm: TXForm;
  Tmp: TBitmap;
begin
  // ...
  XForm.eM11 := Cos(Rads);
  XForm.eM12 := Sin(Rads);
  XForm.eM21 := -Sin(Rads);
  XForm.eM22 := Cos(Rads);
  // ...
  if AdjustSize then
  begin
    // ...
    XForm.eDx := (Tmp.Width - Bmp.Width * C + Bmp.Height * S) / 2;
    XForm.eDy := (Tmp.Height - Bmp.Width * S - Bmp.Height * C) / 2;
  end
  else
  begin
    // ...
    XForm.eDx := (Bmp.Width - Bmp.Width * C + Bmp.Height * S) / 2;
    XForm.eDy := (Bmp.Height - Bmp.Width * S - Bmp.Height * C) / 2;
  end;
  // ...
  SetWorldTransform(Tmp.Canvas.Handle, XForm);
  BitBlt(Tmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, SRCCOPY);
  Bmp.Assign(Tmp);
  // ...
end;

Использование GDI+

GDI+ предоставляет более продвинутые возможности для работы с графикой, включая антиалиасинг, что позволяет получать более качественные изображения после вращения. Вот пример функции вращения с использованием GDI+:

procedure RotateBitmapGDIP(Bmp: TBitmap; Degs: Integer; AdjustSize: Boolean; BkColor: TColor = clNone);
var
  Tmp: TGPBitmap;
  Matrix: TGPMatrix;
  Graphs: TGPGraphics;
  C, S: Single;
  NewSize: TSize;
begin
  // ...
  Matrix.RotateAt(Degs, MakePoint(0.5 * Bmp.Width, 0.5 * Bmp.Height));
  // ...
  if AdjustSize then
  begin
    // ...
    Bmp.Width := NewSize.cx;
    Bmp.Height := NewSize.cy;
  end;
  // ...
  Graphs.SetTransform(Matrix);
  Graphs.DrawImage(Tmp, (Cardinal(Bmp.Width) - Tmp.GetWidth) div 2,
    (Cardinal(Bmp.Height) - Tmp.GetHeight) div 2);
  // ...
end;

Заключение

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

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

Дополнительные материалы и библиотеки

• Graphics32 – библиотека для быстрой работы с бит:микмими
• CrossGL (AGG) – высокопроизводичная библиотека для работы с двумерной графикой
• Mitov Video Library – для более продвинутых задач работы с видео и графикой в VCL и FireMonkey

Примечание к статье

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

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

В статье рассматриваются методы вращения и масштабирования изображений в среде программирования Delphi с использованием Object Pascal и библиотеки GDI+.

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

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

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