Оптимизация отображения изображений в Delphi: масштабирование без обрезки с использованием TImage

Delphi , Компоненты и Классы , TImage и TImageList

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

Решение проблемы

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

procedure SetCanvasZoomPercent(Canvas: TCanvas; AZoomPercent: Integer);
begin
  SetMapMode(Canvas.Handle, MM_ISOTROPIC);
  SetWindowExtEx(Canvas.Handle, 100, 100, nil);
  SetViewportExtEx(Canvas.Handle, AZoomPercent, AZoomPercent, nil);
end;

Приведенный выше код процедуры SetCanvasZoomPercent позволяет установить процентное масштабирование для компонента TCanvas, что может быть использовано для масштабирования изображения в TImage.

Пример использования

Далее, рассмотрим пример использования данного подхода в контексте приложения Delphi. Создается TImage, к которому присваивается bitmap, и TrackBar для изменения масштаба. В обработчике события изменения значения TrackBar вызывается процедура для масштабирования изображения.

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  Zoom, x, y: Integer;
begin
  Zoom := TrackBar1.Position;
  if not (Visible or (Zoom = 100)) or (Zoom = 0) then
    Exit;
  // Применение масштабирования к компоненту TImage
  // ...
  // Рисуем изображение с учетом нового масштаба
  imgmain.Canvas.Draw(x, y, bmpMain);
end;

В коде выше, imgmain.Canvas.Draw(x, y, bmpMain) вызывает рисование изображения, но перед этим мы устанавливаем новые параметры отображения, которые определяют, как будут интерпретироваться логические и физические единицы в рамках компонента TImage.

Устранение обрезки изображения

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

imgmain.Width := Round(bmpmain.Width * Zoom / FULLSCALE);
imgmain.Height := Round(bmpmain.Height * Zoom / FULLSCALE);
if Assigned(imgmain.Picture.Graphic) then begin
  imgmain.Picture.Graphic.Width := imgmain.Width;
  imgmain.Picture.Graphic.Height := imgmain.Height;
end;

Использование TScrollBox позволяет обеспечить прокрутку изображения, если оно не помещается в доступном для отображения окне.

Заключение

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

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

В среде разработки Delphi рассматривается задача оптимизации отображения изображений в компоненте TImage через масштабирование без обрезки, используя TImage и TrackBar для изменения размера изображения.

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

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

:: Главная :: TImage и TImageList ::