图片列表使用

Question

我将应用程序的图标存储在多个图像列表中。

有一个：

X16

X24

X48

X32

TAction 和直接访问将 ICO 放入 TButton 或 TImage 都来自这几个图像列表。

我的问题是，当我需要删除一个噩梦时

，我想到为每个人设置一个 CONST 值，但由于有些值在 TAc​​tions 中使用，这不是一个完整的解决方案。

你们是如何做到这一点的？你们有什么解决方案来解决或至少改进这个问题？ 我使用DELPHI 2007。

Answer 1

我所做的是在运行时通过从资源加载来添加所有图标。添加它们时，我将添加的图标的索引保存到全局变量中。我还通过引用这些全局变量在运行时分配每个操作的 ImageIndex 属性。

这样可以灵活地向项目添加和删除图标，而不会出现编号问题。该方法适合基于字体缩放的运行时图标大小决策。缺点是您在设计时看不到图像，这是一个缺点。如果您想拥有上述所有灵活性，我没有看到更好的解决方案。在理想情况下，图像将通过名称或 ID 来标识，而不是通过数组中的连续索引来标识。但要实现这一点，您需要在 VCL 之上实现大量代码。

Answer 2

这个问题有多种解决方案。

如果您想使用常量，但不想在每次删除图像时都更改它们。您可以执行以下操作：

const
  idImgA   =   0;
  idImgB   =   idImgA + 1;
  idImgC   =   idImgB + 1;
  idImgD   =   idImgC + 1;
  idImgE   =   idImgD + 1;
  idImgF   =   idImgE + 1;
  idImgG   =   idImgF + 1;

当您想要删除图像 D 时，只需更改两行即可：

const
  idImgA   =   0;
  idImgB   =   idImgA + 1;
  idImgC   =   idImgB + 1;
  idImgE   =   idImgC + 1;
  idImgF   =   idImgE + 1;
  idImgG   =   idImgF + 1;

另一种方法是使用枚举类型：

type
  TImgEnum = (imgA, imgB, imgC, imgD, imgE, imgG);

您可以使用 Ord 运算符来获取图像索引：

index := Ord(Enum);