Восстановление прозрачности PNG в TGPImage: решение проблемы с загрузкой изображений в Delphi

Delphi , Технологии , DDE

Объяснение задачи:

При разработке программного обеспечения на языке Object Pascal и использовании среды разработки Delphi иногда возникают сложности, связанные со специфическими возможностями библиотек и компонентов. Одна из таких проблем заключается в необходимости загрузки PNG-изображений с прозрачностью в объект TGPImage, при этом важно сохранить исходную непрозрачность изображения.

Проблема:

Разработчики столкнулись с трудностью сохранения прозрачности изображений формата PNG при их загрузке в компонент TGPImage. Все найденные примеры использования метода Bitmap Draw приводили к потере прозрачности, что делало изображение полностью чёрным.

Пример неудачной реализации:

_shipImage := TGPImage.Create();
ms := TMemoryStream.Create();
png := TPngImage.Create;
try
  png.LoadFromResourceName(HInstance, 'SHIP_RIGHT');
  ms.Position := 0;
  png.SaveToStream(ms);
  ms.Position := 0;
  sa := TStreamAdapter.Create(ms);
  _shipImage.FromStream(sa);
finally
  //sa.Free(); //Invalid pointer operation
  png.Free();
  ms.Free();
end;

Аналогичная проблема возникала и при использовании TResourceStream:

_shipImage := TGPImage.Create();
rs := TResourceStream.Create(HInstance, 'SHIP_RIGHT', RT_RCDATA);
rs.Position := 0;
sa := TStreamAdapter.Create(rs, soOwned);
_shipImage.FromStream(sa);

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

Ключ к решению заключается в использовании информации о цветовых профилях изображения. При вызове метода _shipImage.FromStream необходимо указать параметр useEmbeddedColorManagement, который позволит сохранить прозрачность изображения.

_shipImage.FromStream(sa, True);

Подробности реализации:

Проблема оказалась связана с реализацией метода TGPImage.FromStream в модуле Winapi.GDIPOBJ. Метод создаёт новый экземпляр TGPImage, не используя существующий объект. Это важно учитывать при работе с прозрачностью и цветовыми профилями.

Выводы:

Для корректной загрузки PNG-изображений в компонент TGPImage в Delphi необходимо использовать дополнительные параметры метода FromStream, которые позволят сохранить исходную непрозрачность изображения. Разработчикам следует быть внимательными к таким тонкостям при работе с графическими объектами и их свойствами.

Примерный код:

uses
  Classes, Winapi.GDIPObjPNG, System.SysUtils;

procedure LoadPNGResourceToTGPImage;
var
  _shipImage: TGPImage;
  ms: TMemoryStream;
  png: TPngImage;
begin
  _shipImage := TGPImage.Create;
  try
    ms := TMemoryStream.Create;
    png := TPngImage.Create;
    try
      // Загрузка PNG-изображения из ресурсов
      png.LoadFromResourceName(HInstance, 'SHIP_RIGHT');
      ms.Position := 0;
      // Сохранение изображения в поток
      png.SaveToStream(ms);
      ms.Position := 0;
      // Создание адаптера потока для загрузки в TGPImage
      var sa: IStreamAdapter = TStreamAdapter.Create(ms, soOwned);
      try
        // Загрузка изображения с учётом цветового профиля
        _shipImage.FromStream(sa, True);
      finally
        sa.Free;
      end;
    finally
      png.Free;
    end;
  finally
    _shipImage.Free;
  end;
end;

Обратите внимание на использование параметра True в методе _shipImage.FromStream, что позволяет сохранить цветовое управление, заложенное в изображении PNG. Это ключевой момент для восстановления прозрачности изображения при его работе с компонентом TGPImage.

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

Проблема связана с необходимостью сохранения прозрачности PNG-изображений при их загрузке в объект TGPImage в среде разработки Delphi.

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

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

:: Главная :: DDE ::