"Сохранение прозрачности PNG в Delphi: решение проблемы с масштабированием через Graphics32" ```

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

Сохранение прозрачности PNG при масштабировании в Delphi

Вопрос, поднятый пользователем, касается сохранения прозрачности изображения формата PNG после его масштабирования с использованием библиотеки Graphics32. Это особенно актуально для приложений DpiAware, где требуется корректное отображение изображений на различных устройствах и разрешениях.

Проблема

Пользователь столкнулся с проблемой потери прозрачности изображения после его масштабирования. Изображение загружалось из ресурсов приложения в объект TPngImage, который позволял корректно отображать прозрачные участки. Однако, при использовании библиотеки Graphics32 для изменения размера изображения, прозрачность терялась.

Решение

Ключевым моментом является то, что функция Resample из Graphics32 работает с битовыми картами без поддержки альфа-канала. Для сохранения прозрачности необходимо использовать другие методы рисования, которые учитывают альфа-канал.

Вариант 1: Использование функции AlphaBlend

Функция AlphaBlend из WinAPI позволяет рисовать изображение с учётом альфа-канала. Для использования этой функции необходимо задать параметры смешивания цветов и формат альфа-канала:

procedure TForm.Paint;
var
  BF: TBlendFunction;
begin
  BF.BlendOp := AC_SRC_OVER;
  BF.BlendFlags := 0;
  BF.SourceConstantAlpha := 255;
  BF.AlphaFormat := AC_SRC_ALPHA;

  Winapi.Windows.AlphaBlend(Canvas.Handle, X, Y, Buff.Width, Buff.Height,
    Buff.Canvas.Handle, 0, 0, Buff.Width, Buff.Height, BF);
end;

Вариант 2: Конвертация TBitmap32 в TBitmap

Можно конвертировать объект TBitmap32 в стандартный TBitmap, который поддерживает альфа-канал, и затем рисовать его на холсте:

procedure TForm.Paint;
var
  Bmp: TBitmap;
  I: Integer;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.PixelFormat := pf32bit;
    Bmp.AlphaFormat := afDefined;
    Bmp.SetSize(Buff.Width, Buff.Height);
    for I := 0 to Buff.Height - 1 do
      Move(Buff.ScanLine[I]^, Bmp.ScanLine[I]^, Buff.Width * 4);
    Canvas.Draw(X, Y, Bmp);
  finally
    Bmp.Free;
  end;
end;

Альтернативный ответ

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

Подтверждённый ответ

Проблема была решена путём использования функции AlphaBlend или конвертации TBitmap32 в TBitmap, который поддерживает альфа-канал. Это позволяет сохранить прозрачность изображения после его изменения размера.

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

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

Объяснение состоит из описания задачи сохранения прозрачности изображения формата PNG при его изменении размеров в программе на Delphi с использованием библиотеки Graphics32.

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

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

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