image - 如何在 FireMonkey 中存储图像？

Question

在 VCL 中，我必须ImageList存储图像。在 FireMonkey 中没有ImageList控制。如何将图像存储在 FireMonkey 中以备后用？

Answer 1

在 FireMonkey (XE4) 中添加图像

Project -> Resources and Images

然后访问它：

procedure TForm1.Button1Click(Sender: TObject);
var
  InStream: TResourceStream;
begin
  InStream := TResourceStream.Create(HInstance, 'MyPng', RT_RCDATA);
  try
    Image1.Bitmap.LoadFromStream(InStream);
  finally
    InStream.Free;
  end;
end;

感谢彼得·冯卡

Answer 2

因为 Delphi Android 中没有 ImageList，所以您必须：

1. 将您的图像添加到您的项目中

   项目 -> 资源和图像

2. 将“资源和图像”中的图像删除为 ResourceType RCDATA

3. 添加此过程：

->

procedure TForm1.load_image_from_resource(var Im1: Timage; res_name: String);
var InStream: TResourceStream;
begin
  InStream := TResourceStream.Create(HInstance, res_name, RT_RCDATA);
  try
    Im1.Bitmap.LoadFromStream(InStream);
  finally
    InStream.Free;
  end;
end

然后加载您的图像，例如：

var i : nativeint;
begin
  i := 1;      
  load_image_from_resource(Image1, 'Bitmap_' + inttostr(i));
end;

从各地。

Answer 3

通过将您的图像添加为资源Project > Resources and Images。

Answer 4

对于现在正在看这个问题的人，因为 Delphi XE8 FireMonkey 有 TImageList 组件

Answer 5

在表单上放置一个 TPopupMenu 并添加一些菜单项并分配每个 TMenuItem 的 TBitmap。然后您可以使用以下表达式访问位图：

PopupMenu1.Items[index].Bitmap

或者

MenuItem1.Bitmap
MenuItem2.Bitmap
...