image - TimageList 不包含名为 GetBitmap 的成员

Question

我想从 ImageList 加载图片到 TImage (移动应用程序，fmx)。 TImage 是我的自定义样式列表框 ( LBItem.StylesData['myimage'] ) 的一部分。标准方法是 ImageList.GetBitmap() .但是 GetBitmap 方法给了我一个错误:' TimageList does not contain a member named GetBitmap '。任何解释或替代方案？提前致谢!

procedure TForm3.Button1Click(Sender: TObject);
var
    i         : Integer;
    LBItem    : TListBoxItem;
    Bitmap : TBitMap;
begin
    ListBox1.BeginUpdate;
    ListBox1.Items.Clear;
    Bitmap := TBitMap.Create;
    try
        for i := 0 to 3 do begin
            LBItem := TListBoxItem.Create(nil);
            LBItem.Parent := ListBox1;
            LBItem.StyleLookup := 'mystyle';
            LBItem.StylesData['mylabel'] := 'Some text...';
            //Bitmap.LoadFromFile('D:\Koala.jpg');
            ImageList1.GetBitmap(i, Bitmap);
            LBItem.StylesData['myimage']:= Bitmap;
        end;
    finally
        ListBox1.EndUpdate;
    end;
end;

Answer 1

假设您有一个名为 Image1 的 TImage , 名称为 ImageList1 的 TImageList列表中至少有一个条目，其图像比例为 1.0，名为 Image1Hover ，那么你可以使用下面的例子在OnEnter中加载一张“悬停图片” Image1事件:

procedure TForm1.Image1MouseEnter(Sender: TObject);
var
  Item: TCustomBitmapItem;
  Size: TSize;
begin
  ImageList1.BitmapItemByName('Image1Hover', Item, Size);
  Image1.Bitmap := Item.MultiResBitmap.Bitmaps[1.0];
end;