问题标签 [timagelist]

我刚刚开始了一个新项目，我是第一次使用 Delphi 2009 Actionmanager 组件。Actionmanager 有一个标准操作列表，它为我提供了诸如文件打开/保存等操作，而无需任何编码 - 很棒的东西。是否有一个标准的 ImageList 来配合这个，由 ActionManager 填充的默认 ImageIndex 的正确图像？

我在我的应用程序中使用了一组大约 100 个图标，这些是使用固定的参考数字访问的，并且这些数字也可供用户选择一个图标。所需的三种分辨率是 16x16、32x32 和 48x48。这些分辨率中的每一个都保存在 TPngImageList 中，我使用 TDataModule 创建了一个“图标库”，而不是包含这三个图像列表 (TArtImageLibraryImageLists)。当需要任何图像列表时，一个简单的“首次使用时创建”方法会实例化此 TDataModule。任何需要访问图像列表的控件的 LargeImages 或类似属性只需调用所需的分辨率函数即可。

问题是程序启动时的加载时间，在快速机器上约为 1s。显然，最坏的罪魁祸首是 48x48 图像列表，但我想知道是否有更好的加载机制（例如使用资源文件？）可以加快速度。或者有没有办法重新格式化图像列表？我在运行时仍然需要一个 TImageList，例如我的 TreeView 等。

谢谢，布赖恩。

是否可以在运行时调用 TImagelist 编辑器来查看我的内容TImagelist？

让我成为整数私有

编码

如何从列表中拉伸图标以适应 Image1 的大小？

我正在获取系统图像列表（使用 SHGetFileInfo 和 SHGFI_LARGEICON），添加两个我自己的图标并将其附加到 TListView。

问题是，如果用户的图标大小未设置为 32x32（例如设置为 48x48），Delphi7 TImageList 将失败并出现“无效图像大小”错误。

有谁知道是否有解决方法？我试过使用 TPngImageList 但它会导致其他问题。

另外，请注意，我想保留图标的 Alpha 通道。正常的 1 位透明度是不够的，因为图标往往看起来很难看。

谢谢！

我在 Windows XP Mode (SP3) 上试用了我的应用程序（Windows 7 上的开发人员）。而我与 TImageList 相关的 Tbutton （和其他）图片非常糟糕（黑色圆角）。你有解释吗？还是解决方案？

非常感谢，祝您有美好的一天！

编辑 ：

@Ken 使用 D2009 在 Windows XP 或 Windows 7 上编译的相同 EXE 给了我相同的结果。XP Mode SP3 上没有透明度（可能是虚拟机上的问题，但很奇怪）和 Windows 7 上的透明度...

@Ken 与 Delphi 2010 相同的问题：测试文件（source+Exe）：http ://www.onkeysoft.com/Test.zip

@David：一个用Facebook，另一个不知道为什么，我刚刚输入了我的姓名和电子邮件......我以为我登录了但没有......（这是我第一次使用stackoverflow，抱歉出现问题）

我正在将我的代码升级到 Delphi XE（来自 Delphi 7），并试图消除所有不必要的库。我已经使用 PNGComponents 很长时间了，但现在是时候继续使用原生的 TImageList 和 TPNGImage。

我的部分代码在运行时从链接的资源中加载图像列表。我为此工作的 PNGComponents 代码是：

使用this question中的答案我现在正在尝试下面的代码，该代码显示图像但具有黑色背景，大概是因为蒙版丢失了。我想我需要一个掩码位图来传递给 ImageList_Add '0' 所在的位置，但我对这些东西很差。有谁知道我怎样才能让这个工作？

我有一个 png 格式的图像幻灯片，如下所示：

我想知道如何剪辑每个图像并将这些图像放在 TImageList 控件中，始终保持透明度。

[编辑]

是的，在设计时 RRUZ 提到的技巧工作正常，但我想在运行时剪辑图像，即通过从资源或文件加载幻灯片

TImageList 中可以存储多少位图有限制吗？

限制是指它可以容纳的位图数量，或者图像列表的内存大小。

谢谢。

如何从 TImageList 中获取 TPicture？

我需要Image1.Picture:=...TPicture从图像列表中将图像加载到 TImage 中。

图像列表存储我所有透明的 PNG 图像。

我尝试使用位图 ( GetBitmap)，但我需要的是透明度。不幸的是，我有一个使用位图的白色背景。

谢谢！