delphi - 如何制作 PNG 资源？

Question

我有一个表单，上面有一个大的 TImage 作为背景。问题是，它作为位图直接存储在 DFM 中，大约占用 3 MB。原始 PNG 文件约为 250K。我想尝试通过将 PNG 嵌入资源中来减少膨胀，然后让表单在 OnCreate 期间加载它。现在我可以做到这一点，因为 Delphi 2009 包含 PNG 支持，但我不太知道如何构建包含 PNG 的资源文件。有人知道这是怎么做到的吗？

Answer 1

示例文本文件(名为 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;