界面库

小修改

funcext/tvclib/utslvcltree.tsf

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