我想将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);
问题是TGPImage.FromStream
在Winapi.GDIPOBJ
单元中的实施。
function TGPImage.FromStream(stream: IStream;
useEmbeddedColorManagement: BOOL = FALSE): TGPImage;
begin
result := TGPImage.Create(
stream,
useEmbeddedColorManagement
);
end;
尽管此方法是实例方法,但它对实例不执行任何操作TGPImage
而仅调用Create
!!!