我有一个很大的表格TImage
以它为背景。问题是,它作为位图直接存储在 DFM 中,大约占用 3 MB。原始 PNG 文件约为 250K。我想尝试通过将 PNG 嵌入到资源中来减少膨胀,然后让表单在OnCreate
。现在我可以做到这一点,因为 Delphi 2009 包含 PNG 支持,但我不太知道如何构建包含 PNG 的资源文件。有人知道这是怎么做到的吗?
示例文本文件(名为 myres.rc):
MYPNG RCDATA mypng.png
添加到项目:
{$R 'myres.res' 'myres.rc'}
运行时加载的示例:
uses
PngImage;
var
Png: TPngImage;
begin
Png := TPngImage.Create;
try
Png.LoadFromResourceName(HInstance, 'MYPNG');
Image1.Picture.Graphic := Png; // Image1: TImage on the form
finally
Png.Free;
end;
end;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)