Delphi 和 48x48（或更大）图像列表 - 有解决方法吗？

Question

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

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

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

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

谢谢！

Answer 1

我不知道 TImageList 可以容纳的图像大小有任何限制。在我看来，你的问题是你有不同大小的图标，并且你不能在同一图像列表中保存不同大小的图标。

如果您使用不同大小的图标，那么您将需要增大较小的图标。您必须使用位图在代码中构建它。您使用纯透明 Alpha 通道填充位图，然后将较小的图标 blt 到位图的中心。

另一种选择是维护两个单独的图像列表，但如果您需要将图标绘制到同一个列表视图中，那么我认为这无法完成工作。我的猜测是你需要增大小图标。

对于 Alpha，您需要自己创建图像列表句柄，因为 D7 中不存在 ColorDepth 属性。因此，普通的 D7 TImageList 根本无法支持带有 Alpha 通道的图标。

您可以通过调用 ImageList_Create< 来解决此限制/code>，传递ILC_COLOR32并将结果分配给ImageList.Handle。在添加任何图像之前执行此操作。您必须在运行时而不是设计时填充列表，但听起来您已经在这样做了。

这是一个 48x48 工具按钮的屏幕截图，带有 32bpp 图标，具有 Alpha 透明度：

这是真的，我在 D2010 中做到了这一点，但我的上述解决方法适用于 D7 – 直到最近我在 D6 中才使用该机制。我只是展示这个来证明图像列表可以容纳 48px 的图标。由于 TImageList 只是系统图像列表组件的包装器，我相信您所尝试的应该是完全可行的。

Answer 2

就在我准备放弃这个页面时，我找到了解决方案：
http://delphihaven.wordpress.com/2010/ 09/06/custom-drawing-on-glass-2/

显然，如果你尝试在 Delphi7 中向 timagelist 添加一个大于 32x32 的图标，VCL 会给你一个“无效的图像大小”错误而它可以简单地调用 hisagelist API - 它可以轻松处理它。

这是完整的解决方案：

unit ImageListFix;

interface

uses CommCtrl, Graphics, ImgList;

type
  TImageListFixer = class(TCustomImageList)
  public
    function AddIcon(Image: TIcon): Integer;
  end;

implementation

function TImageListFixer.AddIcon(Image: TIcon): Integer;
begin
  if Image = nil then
    Result := Add(nil, nil)
  else
  begin
    Result := ImageList_AddIcon(Handle, Image.Handle);
    Change;
  end;
end;

end.

以及将图标添加到系统图像列表的代码：

DocumentImgList:=TImageListFixer(GetSystemLargeIconsList);

IconToAdd:=TIcon.Create;
try
  IconToAdd.Handle := LoadImage(0, 'c:\Ico1.ico', IMAGE_ICON, DocumentImgList.Width, DocumentImgList.Height, LR_LOADFROMFILE);
  DocumentImgList.AddIcon(IconToAdd);

  IconToAdd.Handle := LoadImage(0, 'c:\Ico2.ico', IMAGE_ICON, DocumentImgList.Width, DocumentImgList.Height, LR_LOADFROMFILE);
  DocumentImgList.AddIcon(IconToAdd);
finally
  IconToAdd.Free;
end;

Answer 3

TImageList 仅在 2 个条件下引发“无效图像大小”错误：

1) 当 TImageList 最初通过 CreateSize() 构造函数创建时，TImageList 的 Height 或 Width 属性小于 1，或者 Height 属性大于 32768（有高度和宽度属性设置器没有施加此类限制）。

2) 您尝试添加/插入一个新的 TBitmap 或 TIcon，其尺寸不适合 TImageList 的内部图像。