使用Delphi XE在运行时将png图像添加到图像列表

发布时间：2020-12-15 10:07:14 所属栏目：大数据来源：网络整理

导读：我需要在运行时将一个png图像添加到TImageList.我查看了TCustomImageList实现的函数,但它们只允许添加位图, 图标或来自其他图像列表的图像例如.： function Add(Image,Mask: TBitmap): Integer;function AddIcon(Image: TIcon): Integer;function AddImag

我需要在运行时将一个png图像添加到TImageList.我查看了TCustomImageList实现的函数,但它们只允许添加

>位图,
>图标或
>来自其他图像列表的图像

例如.：

function Add(Image,Mask: TBitmap): Integer;
function AddIcon(Image: TIcon): Integer;
function AddImage(Value: TCustomImageList; Index: Integer): Integer;
procedure AddImages(Value: TCustomImageList);
function AddMasked(Image: TBitmap; MaskColor: TColor): Integer;

如何在不将此图像转换为BMP的情况下将PNG图像添加到ImageList组件？

IDE已经可以在设计时将PNG添加到ImageList：

现在我们需要在运行时完成它.

解决方法

根据MSDN,图像列表只能包含位图和图标.要将png图像添加到图像列表,您必须先将其转换为图标.可以在 PngComponents包中找到执行此操作的代码.如果您的图像列表中只有PNG图像,则可以简单地使用该软件包附带的TPngImageList.

（编辑：李大同）

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