From 6c712e64ab4eafc6f0f615340ce6e390e363fe65 Mon Sep 17 00:00:00 2001
From: liujianjun <liujianjun@tinysoft.com.cn>
Date: Mon, 15 Jul 2024 11:38:25 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=AD=A3=E6=A0=91=E8=8A=82=E7=82=B9?=
 =?UTF-8?q?=20visible=E7=9A=84=E7=BC=BA=E9=99=B7?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 funcext/tvclib/utslvcltree.tsf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/funcext/tvclib/utslvcltree.tsf b/funcext/tvclib/utslvcltree.tsf
index 6df510a..c98dcfe 100644
--- 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;