delphi – 如何在屏幕上显示TVirtualStringTree的节点?

前端之家收集整理的这篇文章主要介绍了delphi – 如何在屏幕上显示TVirtualStringTree的节点?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
检查节点是否可见很容易.但我不知道如何正确定义该节点在屏幕上显示.我只能这样发现:
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;

(代码没有检查)

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

解决方法

您可以编写如下函数. Tree参数指定虚拟树,Node是您要检查其是否可见的节点,如果您需要确定节点和偶数列是否可见,则Column可选参数是列的索引客户端矩形:
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;

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

原文链接:https://www.f2er.com/delphi/102958.html

猜你在找的Delphi相关文章