Delphi：不必要的列线和列线列表视图 (SysListView32) 中没有 RowSelect

Question

有一个带有样式的列表视图（感谢Sertac Akyuz提供了解决方案:)）

ListView_SetExtendedListViewStyle(ListView1.Handle, LVS_EX_DOUBLEBUFFER);

但是现在列表视图有两个不足：不必要的列蓝线和行不能即使 RowSelect:=True; 也会被选择。如果要选择项目，则选择行，对于子项目不起作用。

如果执行 GridLines:=True 那么网格将不会出现，列表视图的背景会发生一些变化...

如果使用 OwnerDraw 绘制项目，则线条不会出现，而只会出现在项目下方。我可以绘制整个背景，但这是隐藏那些蓝线的最简单方法吗？

我能处理这些吗？

感谢您的宝贵回答！

Answer 1

当您调用时，

ListView_SetExtendedListViewStyle(ListView1.Handle, LVS_EX_DOUBLEBUFFER);

您会取消设置所有其他扩展样式标志，仅将 LVS_EX_DOUBLEBUFFER 设置为打开。因此使用

ListView_SetExtendedListViewStyle(ListView1.Handle,
    ListView_GetExtendedListViewStyle(ListView1.Handle) or LVS_EX_DOUBLEBUFFER);

来保留现有的标志。

垂直线可能是 VCL 尽可能模仿系统列表视图的产物。启用主题后，VCL 调用 SetWindowTheme 在列表视图上将“explorer”作为“SubAppName”参数传递，因此您可以在资源管理器文件夹视图中看到的垂直线是重复的。要撤消该操作，您可以自己再次调用该函数：

  SetWindowTheme(ListView1.Handle, nil, nil);

请注意，您可能不喜欢列表视图变成的样子:)。