如何将TImageList中的图片分配给TImage？

Question

我正在使用AppMethod 1.17的试用版，也就是西雅图的Delphi10。因此，我无法查看源代码。

在VCL中，我使用了TImageList.Draw()，但在新的TMultiResBitmap类中，我不知道如何使用它。

Answer 1

我找到了一个解决方案，但不知道这是不是更好的方式。

var
  s: TSizeF;
begin
  s.Create(32, 32); //Image size
  myImage.Bitmap := myImageList.Bitmap(s,imageIndex);
end;

Answer 2

另一种方法是将位图添加到TImage的MultiResBitmap中：

var
  sz: TSize;
  bmpSrc, bmpTgt: TBitmap;

...

// Obtain the bitmap (e.g. from ImageList in data-module)
sz := TSize.Create(MaxInt, MaxInt); // Pick best size
DataModule1.ImageList1.BestSize(3, sz);
bmpSrc := DataModule1.ImageList1.Bitmap(sz, 3);

// Assign to Image1, to desired scale
bmpTgt := Image1.MultiResBitmap.Bitmaps[1.0];
bmpTgt.SetSize(bmpSrc.Size);
bmpTgt.Assign(bmpSrc);