liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

修正tree节点visible导致的次序问题

This commit is contained in:
liujianjun 2024-07-16 09:23:49 +08:00
parent 6c712e64ab
commit 7ca04abba0
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
funcext/tvclib/utslvcltree.tsf
View File

@ -1101,7 +1101,18 @@ type TcustomTreeCtlNode = class(tsluibase) //
it.UpDateHierarchy(); it.UpDateHierarchy();
if Expanded and Owner.NodeInList(self) and it.Visible then //处理节点visibe 的问题 if Expanded and Owner.NodeInList(self) and it.Visible then //处理节点visibe 的问题
begin begin
preItem := FItems[idx-1]; /////////////////处理隐藏节点导致插入次序显示问题/////////////////////
tidx := idx;
while tidx>0 do
begin
tidx--;
preItem := FItems[tidx];
if preItem and preItem.Visible then
begin
break;
end else preItem := 0;
end
///////////////////////////////
bx := 0; bx := 0;
if preItem then bx := Owner.GetItemIndex(preItem.GetLastShowNode())+1; if preItem then bx := Owner.GetItemIndex(preItem.GetLastShowNode())+1;
else bx := owner.GetItemIndex(self)+1; else bx := owner.GetItemIndex(self)+1;