delphi – 如何在屏幕上显示TVirtualStringTree的节点?
发布时间:2020-12-15 10:04:53 所属栏目:大数据 来源:网络整理
导读:检查节点是否可见很容易.但我不知道如何正确定义该节点在屏幕上显示.我只能这样发现: BottomNode := Tree.BottomNode;Node := Tree.TopNode;IdBottomNode := Tree.AbsoluteIndex(BottomNode);while Tree.AbsoluteIndex(Node) IdBottomNode dobegin Node :=
检查节点是否可见很容易.但我不知道如何正确定义该节点在屏幕上显示.我只能这样发现:
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; 但也许有一种更直接的方式…… (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |