在 Imagelist 上显示次要底层图像？

Question

我有一个分配给列表视图的图像列表以显示透明图像。

关于添加的一些透明图像有一个小问题，那就是有时很难在列表视图中看到/找到它们。

查看此示例图片：

您会注意到图像（尤其是鼠标）几乎看不到，事实上，如果添加了一个空图像，您甚至都看不到它，这里的数字标题会起到拯救作用，表明确实存在一些东西。

但我想让图像在视觉上更容易看到。我想也许在透明图像下面放另一个图像会起作用 - 当然它不会影响实际图像。

考虑到这一点，我制作了一个棋盘格位图：

我觉得这将是表示图像透明区域的最合适方式，就像 Paint.NET 等一样。

为了进一步说明这个例子，如果我们将棋盘位图作为底层图像，我已经修改了原始图像以显示它的外观：

如果有棋盘，则首先表明那里有一个列表项，棋盘网格的位图可能更暗或完全不同的图像。正如我之前所说，如果没有图像，您将什么也看不到，所以显示一个空的国际象棋网格或其他位图总比什么都没有好。

那么，如何使用图像列表在原始图像下方显示第二张图像以提供类似于上面示例的结果？下面的图像可以是任何东西 - 例如只是另一个加载的位图。

Answer 1

如果您将棋盘存储为第一个图像（索引为 0）并制作来自OnGetImageIndex 事件处理程序中的当前图像的叠加图像，它将执行您想要的操作。但是我不确定每次触发事件时制作覆盖图像的效率如何。

procedure TForm1.ListView1GetImageIndex(Sender: TObject; Item: TListItem);
begin
  // make the overlay (with overlay index 1) from the 
  // image with index Item.Index + 1
  ImageList1.Overlay(Item.Index + 1, 1);
  // use the first image from the list as a background
  Item.ImageIndex := 0;
  // and assign just created overlay index for overlay
  Item.OverlayIndex := 1;
end;

Answer 2

我看来你需要的是一个具有额外功能的 TImageList。

作为起点，我建议您考虑Inside Delphi 2006

一书中描述的TImageListEx

摘录：

TImageListEx 组件是一个 TImageList 后代，可以使用 来自另一个图像列表的图像以生成禁用图像，这可以 用于工具栏和其他用户界面元素。

TImageListEx 组件是一个 TImageList 后代，可以使用 来自另一个图像列表的图像以生成禁用图像，这可以 可用于工具栏和其他用户界面元素。

TImageListEx 组件有几个好处：

• 无需创建禁用字形。

• 无需在设计时将禁用的字形添加到额外的 TImageList 组件。

• 它可以显着减小 .dfm 文件和整个应用程序的大小，尤其是在使用大量 字形。

• 它非常快，只需几毫秒即可禁用图像列表中的所有图像，即使有很多图像。

• 它非常轻巧。 （如果将它添加到已经使用标准 TImageList 组件的应用程序中，它不会增加 可执行文件的大小，如果将其添加到应用程序 不使用标准 TImageList 组件，开销是 只有 2 KB。）

这与您的要求相去甚远，但足够详细，可以展示如何扩展 TImageList。