delphi - 虚拟 TreeView 。如何修改子列宽度？

Question

我的 friend 正在 Delphi 中使用 VirtualTreeView 工作，并且遇到了下一个问题:他有两列，第一列的每一行都有数据和子项。是否可以不更改第一列宽度来设置最大子列宽度？

图例:

• 圆圈是节点
• 矩形是文本(根节点的黑色矩形是两列)

现在看起来怎么样 - 看看 child 的黑色 react 角。它必须是怎样的 - 看红色矩形。

Answer 1

这称为列跨越，是的，它可以很容易地完成 - 只需将 TreeOptions -> AutoOptions -> toAutoSpanColumns 选项设置为 True 即可。它的工作方式是，如果相邻列为空，则当前列的标题将扩展到其中。由于您只希望它适用于子列，因此您必须实现 OnGetCellIsEmpty 事件并仅针对子节点返回 IsEmpty := True ，即类似

procedure TForm1.VT_GetCellIsEmpty(Sender: TBaseVirtualTree;
          Node: PVirtualNode; Column: TColumnIndex; var IsEmpty: Boolean);
begin
  IsEmpty := (Sender.GetNodeLevel(Node) > 0);
end;