Delphi，ListView，如何删除vsIcon中项目之间的边距

Question

使用 Delphi XE3，在 vsIcon 模式下的 Listview 并指定图像列表。

我添加了一些项目并为它们分配了 ImageIndex，并且每个图像/项目之间有非常大的间距/边距，我该如何更改它？没有自定义绘图是否可以实现？

Answer 1

您可以使用ListView_SetIconSpacing宏

uses commctrl;
..
ListView_SetIconSpacing(ListView1.Handle, 36, 36);
ListView1.Arrange(arAlignTop);  // refresh view

请参阅文档，值必须包含图标大小，否则图标会相互重叠。

您可以通过为 cx 和 cy 发送“-1”来重置 View ，返回值是当前间距，因此，例如，要减少一定量的间距，您可以这样做:

var
  Spacing: DWORD;
begin
  Spacing := ListView_SetIconSpacing(ListView1.Handle, WORD(-1), WORD(-1));
  ListView_SetIconSpacing(ListView1.Handle,
                          LoWord(Spacing) - 10, HiWord(Spacing) - 6);
  ListView1.Arrange(arAlignTop);