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

Question

我需要在运行时将png图像添加到TImageList。我查看了TCustomImageList实现的功能，但它们只允许添加

• 位图，
• 图标或
• 来自其他图片列表的图片

E.g：

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：

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

Answer 1

Answer 2

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

Answer 3

• 创建TPngImage的实例，PngImage：PngImage
• 将图像加载到此实例PngImage.LoadFromFile（..）
中
• 创建TBitmap的实例，位图：TBitmap
• 将PNG分配给位图Bitmap.Assign（PngImage）
• 将位图添加到图像列表
• 工作完成！