Delphi 将PNG资源加载到TGPImage

我想将PNG资源加载到TGPImage

我找到的所有示例都使用位图绘制，这样会失去透明度

以下示例仅显示黑色图片：

_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;

以下内容也不起作用：

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

---

问题在于

Winapi.GDIPOBJ

单元中

TGPImage.FromStream

的实现

function TGPImage.FromStream(stream: IStream;
             useEmbeddedColorManagement: BOOL = FALSE): TGPImage;
begin
  result := TGPImage.Create(
      stream,
      useEmbeddedColorManagement
  );
end;

---

尽管此方法是一个实例方法，但它不处理

TGPImage

实例，只调用

Create

然后尝试使用图像的颜色管理信息，即调用

\u shipmimage.FromStream（sa，True）。一些线索（但会创建TBitmap）：
http://melander.dk/articles/alphasplash2/2/