Как изменить размер изображения целыми числами в Lazarus с использованием TGrafPtr

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

В этой статье мы рассмотрим, как изменить размер изображения целыми числами в Lazarus с использованием компонента TGrafPtr. Мы также обсудим, как это может помочь избежать проблем с размытием изображения, которые могут возникнуть при использовании других методов масштабирования.

Введение

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

Проблема размытия изображения

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

Решение проблемы с использованием TGrafPtr

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

Пример кода

Ниже приведен пример кода на Object Pascal, который демонстрирует, как изменить размер изображения целыми числами с использованием TGrafPtr.

uses
  Classes, SysUtils, Forms, Graphics, ExtCtrls, Math;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Panel1Paint(Sender: TObject);
  private
    FImage: TBitmap;
    procedure FitImage;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FImage := TBitmap.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FImage.Free;
end;

procedure TForm1.Panel1Paint(Sender: TObject);
var
  ImagePos: TPoint;
begin
  ImagePos := Point(Max((Panel1.ClientWidth - FImage.Width) div 2, 0), Max((Panel1.ClientHeight - FImage.Height) div 2, 0));
  FImage.Draw(Panel1.Canvas, ImagePos.X, ImagePos.Y);
end;

procedure TForm1.FitImage;
var
  FitWidth, FitHeight: Integer;
  ScaleFactor: Double;
  GrafPtr: TGrafPtr;
  SourceRect, DestRect: TRect;
begin
  if Assigned(FImage) and not FImage.Empty then
  begin
    ScaleFactor := Min(Panel1.Width / FImage.Width, Panel1.Height / FImage.Height);
    FitWidth := Round(FImage.Width * ScaleFactor);
    FitHeight := Round(FImage.Height * ScaleFactor);

    // Создаем новый битмап для масштабирования
    GrafPtr := TGrafPtr.Create(FImage, FitWidth, FitHeight);

    try
      // Устанавливаем исходный и целевой прямоугольники
      SourceRect := Rect(0, 0, FImage.Width, FImage.Height);
      DestRect := Rect(0, 0, FitWidth, FitHeight);

      // Масштабируем изображение
      GrafPtr.Draw(SourceRect, DestRect, 0, 0, 0, 0);

      // Заменяем исходное изображение на масштабированное
      FImage.Assign(GrafPtr.Bitmap);
    finally
      GrafPtr.Free;
    end;

    Panel1.Invalidate;
  end;
end;

end.

Объяснение кода

1. Создание и освобождение битмапа: В методах FormCreate и FormDestroy создается и освобождается объект TBitmap.
2. Отрисовка изображения: В методе Panel1Paint изображение рисуется на панели.
3. Изменение размера изображения: В методе FitImage изображение масштабируется с использованием TGrafPtr. Мы создаем новый битмап для масштабирования и используем метод Draw для копирования изображений с использованием целых чисел.

Альтернативное решение

Если вы работаете с библиотекой BGRABitmap, вы можете использовать параметр rmSimpleStretch для функции Resample, чтобы уменьшить размытие изображения. Однако, это не всегда дает наилучшие результаты.

BGRAReplace(FImage, FImage.Resample(FitWidth, FitHeight, rmSimpleStretch));

Заключение

Изменение размера изображения целыми числами с использованием TGrafPtr в Lazarus может значительно улучшить качество изображения и избежать размытия. Этот метод предоставляет низкоуровневый доступ к графическим операциям и позволяет более точно контролировать процесс масштабирования. Попробуйте этот подход в вашем проекте и убедитесь в его эффективности.

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

Context представляет собой статью о методах изменения размера изображений в Lazarus с использованием компонента TGrafPtr для достижения высокого качества изображения и предотвращения размытия.

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

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

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