虚拟树视图。如何修改子列的宽度？

Question

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

传奇：

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

现在的样子 - 看看孩子的黑色反应角。它必须如何 - 看红色矩形。

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;