delphi - 如何隐藏虚拟 TreeView 中的展开/折叠按钮？

Question

我使用 VirtualStringTree (VST) 来显示分组的数据、标题详细信息。我需要有一个选项允许用户展开、折叠标题以查看详细信息，在某些情况下，我需要将数据显示为静态 View ，其中它们无法展开、折叠，只能看到完整展开的树:

这是用户可以展开、折叠带有子节点的节点的示例:

这是我想阻止用户展开/折叠节点并始终看到所有展开的(或显示的任何内容)的示例:

在此测试中，我通过“允许展开/折叠/”复选框进行控制。

我通过添加以下内容来防止展开、折叠:

Allowed:=CheckBox1.Checked;

进入OnCollapsing/OnExpanding:

procedure TMainForm.VSTCollapsing(Sender: TBaseVirtualTree;
  Node: PVirtualNode; var Allowed: Boolean);
begin
  Allowed:=CheckBox1.Checked;
end;

procedure TMainForm.VSTExpanding(Sender: TBaseVirtualTree;
  Node: PVirtualNode; var Allowed: Boolean);
begin
  Allowed:=CheckBox1.Checked;
end;

我还根据复选框显示/隐藏 TreeLines

procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    VST.TreeOptions.PaintOptions:=VST.TreeOptions.PaintOptions + [toShowTreeLines]
  else
    VST.TreeOptions.PaintOptions:=VST.TreeOptions.PaintOptions - [toShowTreeLines];
end;

当我想阻止用户展开、折叠节点时，如何隐藏这个小加号。有什么建议吗？

<小时/>

编辑:

为了消除表单图标的困惑，这是来自 Virtual Treeivew 5 演示库的演示项目。 IDE中的窗体有Delphi XE7图标，运行项目时会出现这个旧图标。不知道为什么。只是想确保清楚我使用的是 XE7，而不是任何旧的 Delphi 版本，在这些版本中，相同的解决方案可能不适用。

在IDE中图标如果是XE7图标:

Answer 1

您正在寻找的附加选项是toShowButtons。在使用 toShowTreeLines 的同一位置使用它。

该选项记录在 TVTPaintOption 声明中的 VirtualTrees.pas 中:

    toShowButtons,             // Display collapse/expand buttons left to a node.