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

发布时间：2020-12-15 04:09:34 所属栏目：大数据来源：网络整理

导读：我想从T ImageList加载图片(32位深度,透明)到TImage.标准方法是ImageList.GetBitmap(Index,Image.Picture.Bitmap);.但是,GetBitmap方法不适用于透明度,所以我总是得到一个非透明的位图. 解决方法解决方法相当简单 – ImageList提供了另一种方法GetIcon,它可

我想从T ImageList加载图片(32位深度,透明)到TImage.标准方法是ImageList.GetBitmap(Index,Image.Picture.Bitmap);.但是,GetBitmap方法不适用于透明度,所以我总是得到一个非透明的位图.

解决方法

解决方法相当简单 – ImageList提供了另一种方法GetIcon,它可以正常工作.加载透明图像的代码是：

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!