![](/img/trans.png)
[英]How to custom draw a ListView using the OnDrawItem event when the ViewStyle is vsIcon
[英]Delphi, ListView, how to remove the margin between items in vsIcon
在vsicon模式下使用Delphi XE3,Listview并指定了imagelist。
我添加一些项目并为它们分配一个ImageIndex,每个图像/项目之间有一个非常大的间距/边距,我该如何改变它? 没有定制绘图可以吗?
您可以使用ListView_SetIconSpacing
宏
uses commctrl;
..
ListView_SetIconSpacing(ListView1.Handle, 36, 36);
ListView1.Arrange(arAlignTop); // refresh view
请参阅文档,值必须包含图标大小,否则图标会相互重叠。
您可以通过为cx和cy发送'-1'来重置视图,并且返回值是当前间距,因此,例如,要减少一定量的间距,您可以执行以下操作:
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);
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.