修正树节点 visible的缺陷

2024-07-15 11:38:25 +08:00 · 2024-07-15 11:38:25 +08:00 · 6c712e64ab
parent 17a55d2a44
commit 6c712e64ab
1 changed files with 1 additions and 1 deletions
--- a/funcext/tvclib/utslvcltree.tsf
+++ b/funcext/tvclib/utslvcltree.tsf
@ -1099,7 +1099,7 @@ type TcustomTreeCtlNode = class(tsluibase) //
            it.Parent := self(true);
            FCurrentAddNode := nil;
            it.UpDateHierarchy();
-            if Expanded and Owner.NodeInList(self)then
+            if Expanded and Owner.NodeInList(self) and it.Visible then //处理节点visibe 的问题
            begin
                preItem := FItems[idx-1];
                bx := 0;