Changeset 12 for trunk/UCore.pas

Timestamp:

Nov 15, 2012, 8:06:57 AM (12 years ago)

Author:

chronos

Message:

• Přidáno: Další použité komponenty.
• Přidáno: Modulární systém pro uživatelské zavádění součástí aplikace.
• Opraveno: Ukládání nastavení do registrů.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Registry, Classes, SysUtils, FileUtil, USqlDatabase, URegistry, Forms,
-  UApplicationInfo, UCoolTranslator, UPersistentForm;
+  UApplicationInfo, UCoolTranslator, UPersistentForm, UModularSystem,
+  UFormModuleList;
 
 type
@@ -17 +18 @@
     CoolTranslator1: TCoolTranslator;
     Database: TSqlDatabase;
+    ModuleManager: TModuleManager;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure ModuleManagerUpdate(Sender: TObject);
   private
+    procedure ModuleManagerChange(Sender: TObject);
   public
+    FormModuleList: TFormModuleList;
     FormList: TForm;
     PersistentForm: TPersistentForm;
+    RegistryContext: TRegistryContext;
     procedure Init;
     procedure Done;
     procedure InitData;
     procedure Connect;
-    procedure LoadFromRegistry(Context: TRegistryContext);
-    procedure SaveToRegistry(Context: TRegistryContext);
+    procedure LoadFromRegistry(AContext: TRegistryContext);
+    procedure SaveToRegistry(AContext: TRegistryContext);
   end;
 
@@ -38 +44 @@
 {$R *.lfm}
 
+uses
+  URegistredModules;
+
 
 { TCore }
@@ -46 +55 @@
   PersistentForm.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
     ApplicationInfo1.RegistryKey + '\Forms');
+  ModuleManager := TModuleManager.Create(nil);
+  RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  if Assigned(FormModuleList) then FreeAndNil(FormModuleList);
+  FreeAndNil(ModuleManager);
   FreeAndNil(PersistentForm);
+end;
+
+procedure TCore.ModuleManagerUpdate(Sender: TObject);
+begin
+  if Assigned(FormModuleList) then
+    FormModuleList.Reload;
+end;
+
+procedure TCore.ModuleManagerChange(Sender: TObject);
+begin
+
 end;
 
 procedure TCore.Init;
 begin
-  LoadFromRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
-//  LoadFromRegistry(RegContext(HKEY_CURRENT_USER, '\Software\Chronosoft\Dochazka'));
+  LoadFromRegistry(RegistryContext);
 
-  Connect;
+    // Init modules
+    with TRegistryEx.Create do
+    try
+      Context := RegistryContext;
+      RegisterModules(ModuleManager);
+      if ReadBoolWithDefault('ModuleManagerInstalled', False) then
+        ModuleManager.LoadFromRegistry(RegContext(RegistryContext.RootKey, RegistryContext.Key + '\Modules'))
+        else begin
+          ModuleManager.Modules.Perform([maEnable]);
+          ModuleManager.SaveToRegistry(RegContext(RegistryContext.RootKey, RegistryContext.Key + '\Modules'));
+          WriteBool('ModuleManagerInstalled', True);
+        end;
+    finally
+      Free;
+    end;
+    ModuleManager.Modules.Perform([maStart], [mcEnabled]);
+
+    Connect;
 end;
 
 procedure TCore.Done;
 begin
-  SaveToRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
+  SaveToRegistry(RegistryContext);
 end;
 
@@ -83 +123 @@
 end;
 
-procedure TCore.LoadFromRegistry(Context: TRegistryContext);
+procedure TCore.LoadFromRegistry(AContext: TRegistryContext);
 begin
   with TRegistryEx.Create do
   try
-    RootKey := Context.RootKey;
-    OpenKey('\Software\Chronosoft\Dochazka', True);
-    //OpenKey(Context.Key, True);
+    Context := AContext;
     Database.HostName := ReadStringWithDefault('HostName', 'localhost');
     Database.Database := ReadStringWithDefault('Schema', 'dochazka');
@@ -100 +138 @@
 end;
 
-procedure TCore.SaveToRegistry(Context: TRegistryContext);
+procedure TCore.SaveToRegistry(AContext: TRegistryContext);
 begin
   with TRegistryEx.Create do
   try
-    RootKey := Context.RootKey;
-    OpenKey(Context.Key, True);
+    Context := AContext;
     WriteString('HostName', Database.HostName);
     WriteString('Schema', Database.Database);