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

界面库 

小修改
This commit is contained in:
JianjunLiu 2022-10-10 09:45:33 +08:00
parent 9f6742851d
commit 25cc144bb7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
funcext/tvclib/utslvcltree.tsf
View File

@ -485,8 +485,8 @@ type TcustomTreeCtlNode = class(TVirtualListItem)
if self=Owner.RootNode then if self=Owner.RootNode then
begin begin
while ItemCount>0 DO while ItemCount>0 DO
begin begin
DeleteChildNode(FItems[0]); DeleteNodeByIndex(0);//DeleteChildNode(FItems[0]);
end end
r := false; r := false;
end end
@ -1862,7 +1862,9 @@ type TcustomTreeCtl = class(TVirtualList)
begin begin
if FRootItem then if FRootItem then
begin begin
flockchangedcall := true;
FRootItem.DeleteChildren(); FRootItem.DeleteChildren();
flockchangedcall := false;
end end
end end
property CurrentNode read FCurrentNode; property CurrentNode read FCurrentNode;