delphi - 如何从ImageList加载透明图像？

Question

我想将图片(32 位深度，透明)从 TImageList 加载到 TImage。标准方法是ImageList.GetBitmap(Index, Image.Picture.Bitmap);。但是 GetBitmap 方法不适用于透明度，因此我总是得到不透明的位图。

Answer 1

解决方法相当简单 - ImageList 提供了另一种方法，GetIcon，它可以在透明的情况下正常工作。加载透明图像的代码是:

ImageList.GetIcon(Index, Image.Picture.Icon);

并且不要忘记设置正确的 ImageList 属性:

ImageList.ColorDepth:=cd32bit;
ImageList.DrawingStyle:=dsTransparent;