如何在屏幕上显示TVirtualStringTree的节点？

Question

很容易检查节点是否可见。但我不知道如何正确定义该节点在屏幕上显示。我只能这样发现：

BottomNode := Tree.BottomNode;
Node := Tree.TopNode;

IdBottomNode := Tree.AbsoluteIndex(BottomNode);

while Tree.AbsoluteIndex(Node) <> IdBottomNode do
begin
  Node := Node.NextSibling;
  if not Assigned(Node) then
    Break;
end;

（代码未经检查）

但我认为这是相当粗糙的方式。可能有更准确的方法吗？

Answer 1

您可以编写如下函数。 Tree参数指定虚拟树，Node是您要检查其是否可见的节点，Column可选参数是列的索引（如果您愿意）需要确定节点和偶数列是否在客户端rect中可见：

function IsNodeVisibleInClientRect(Tree: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex = NoColumn): Boolean;
begin
  Result := Tree.IsVisible[Node] and
    Tree.GetDisplayRect(Node, Column, False).IntersectsWith(Tree.ClientRect);
end;

但也许有一种更直接的方式......