Changeset 14 for trunk/UCore.pas

Timestamp:

Nov 15, 2012, 9:48:48 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Inicializace pohledů pro docházku přesunuto do modulu Docházka.

File:

• trunk/UCore.pas (modified) (8 diffs)

trunk/UCore.pas

@@ -23 +23 @@
     procedure ModuleManagerUpdate(Sender: TObject);
   private
-    procedure ModuleManagerChange(Sender: TObject);
   public
     FormModuleList: TFormModuleList;
@@ -45 +44 @@
 
 uses
-  URegistredModules;
+  URegistredModules, UFormMain;
 
 
@@ -55 +54 @@
   PersistentForm.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
     ApplicationInfo1.RegistryKey + '\Forms');
-  ModuleManager := TModuleManager.Create(nil);
   RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
 end;
@@ -61 +59 @@
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  if Assigned(FormModuleList) then FreeAndNil(FormModuleList);
-  FreeAndNil(ModuleManager);
   FreeAndNil(PersistentForm);
 end;
@@ -70 +66 @@
   if Assigned(FormModuleList) then
     FormModuleList.Reload;
-end;
-
-procedure TCore.ModuleManagerChange(Sender: TObject);
-begin
-
+  FormMain.ReloadPages;
 end;
 
@@ -80 +72 @@
 begin
   LoadFromRegistry(RegistryContext);
+
+  try
+    ModuleManager.Modules.BeginUpdate;
 
     // Init modules
@@ -97 +92 @@
     end;
     ModuleManager.Modules.Perform([maStart], [mcEnabled]);
-
-    Connect;
+  finally
+    ModuleManager.Modules.EndUpdate;
+  end;
+  Connect;
 end;
 
@@ -104 +101 @@
 begin
   SaveToRegistry(RegistryContext);
+  FormMain.Hide; // Speed up undocking with hidden main form
+  ModuleManager.SaveToRegistry(RegContext(RegistryContext.RootKey, RegistryContext.Key + '\Modules'));
+  if Assigned(FormModuleList) then FreeAndNil(FormModuleList);
+  ModuleManager.OnUpdate := nil;
+  ModuleManager.Modules.Clear;
 end;