Opkman: Speed up the load of the package tree.

git-svn-id: trunk@62680 -

components/onlinepackagemanager/opkman_mainfrm.pas

@@ -437,6 +437,7 @@ begin
   case AErrTyp of
     etNone:
       begin
+        if (not Options.LoadJsonLocally) then
           SetupMessage(rsMainFrm_rsMessageParsingJSON);
         if (SerializablePackages.Count = 0) then
         begin

components/onlinepackagemanager/opkman_visualtree.pas

@@ -331,6 +331,8 @@ begin
   FVST.NodeDataSize := SizeOf(TData);
   UniqueID := 0;
   //add repository(DataType = 0)
+  FVST.BeginUpdate;
+  try
     RootNode := FVST.AddChild(nil);
     RootData := FVST.GetNodeData(RootNode);
     RootData^.Repository := Options.RemoteRepository[Options.ActiveRepositoryIndex];
@@ -489,6 +491,9 @@ begin
     FVST.SortTree(0, laz.VirtualTrees.sdAscending);
     ExpandEx;
     CollapseEx;
+  finally
+    FVST.EndUpdate;
+  end;
   RootNode := VST.GetFirst;
   if RootNode <> nil then
   begin