Улучшение работы с изображениями в Delphi: изменение размера PNG без потерь прозрачности

Delphi , Графика и Игры , Компоненты и Графика

Первый метод заключается в использовании компонента Windows Imaging Component (WIC), доступного начиная с Delphi 2010. Этот компонент позволяет загрузить изображение в класс TWICImage, а затем использовать интерфейс IWICBitmapScaler для изменения размеров изображения, сохраняя при этом качество и прозрачность.

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

Пример кода для изменения размера PNG-изображения с использованием компонента PNGImage:

procedure TForm1.Button1Click(Sender: TObject);
var
  pic_empty, pic_stamp, pic_result : TPicture;
  r: TRect;
  png : TPNGObject;
begin
  pic_stamp := TPicture.Create;
  pic_stamp.LoadFromFile('c:\heart.png');
  pic_stamp.Graphic.Transparent := True;

  pic_empty := TPicture.Create;
  pic_empty.LoadFromFile('c:\empty.png');
  pic_empty.Graphic.Transparent := True;

  r.Left := 0;
  r.Top := 0;
  r.Right := r.Left + NewWidth; // Новый размер по ширине
  r.Bottom := r.Top + NewHeight; // Новый размер по высоте

  pic_result := TPicture.Create;
  pic_result.Bitmap.Assign(pic_empty.Graphic);
  pic_result.Graphic.Transparent := True;
  pic_result.Bitmap.Canvas.StretchDraw(r,pic_stamp.Graphic);
  pic_result.Bitmap.Width := NewWidth;
  pic_result.Bitmap.Height:= NewHeight;

  png := TPNGObject.Create;
  png.Assign(pic_result.Bitmap);
  png.SaveToFile('c:\result.png');

  // Освобождение используемых объектов
  png.Free;
  pic_result.Free;
  pic_empty.Free;
  pic_stamp.Free;
end;

Важно отметить, что для использования WIC на Windows XP необходимо установить соответствующее обновление. Также стоит упомянуть о наличии дополнительных примеров кода и методов в компоненте PNGImage, которые могут быть полезны при работе с PNG-изображениями.

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

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

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

:: Главная :: Компоненты и Графика ::