Changeset 59 for trunk/UCore.pas

Timestamp:

Nov 16, 2012, 9:59:56 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Store module settings in system registry.

File:

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

trunk/UCore.pas

@@ -11 +11 @@
 
 type
+  TChronisPlatform = class;
 
   { TCore }
 
   TCore = class(TDataModule)
-    ApplicationInfo1: TApplicationInfo;
     CoolTranslator1: TCoolTranslator;
     Database: TSqlDatabase;
@@ -23 +23 @@
     procedure ModuleManagerUpdate(Sender: TObject);
   private
+    FRegistryContext: TRegistryContext;
+    procedure SetRegistryContext(AValue: TRegistryContext);
   public
+    Platform: TChronisPlatform;
     FormModuleList: TFormModuleList;
     FormList: TForm;
     PersistentForm: TPersistentForm;
-    RegistryContext: TRegistryContext;
     procedure Init;
     procedure Done;
@@ -34 +36 @@
     procedure LoadFromRegistry(AContext: TRegistryContext);
     procedure SaveToRegistry(AContext: TRegistryContext);
+    property RegistryContext: TRegistryContext read FRegistryContext
+      write SetRegistryContext;
   end;
 
@@ -39 +43 @@
 
   TChronisPlatform = class(TComponent)
+  private
+    FOnRegisterModules: TNotifyEvent;
+    FOnUnregisterModules: TNotifyEvent;
+    FRegistryContext: TRegistryContext;
+    procedure SetRegistryContext(AValue: TRegistryContext);
   public
     constructor Create(AOwner: TComponent); override;
@@ -44 +53 @@
     procedure Init;
     procedure Done;
+    property RegistryContext: TRegistryContext read FRegistryContext
+      write SetRegistryContext;
+  published
+    property OnRegisterModules: TNotifyEvent read FOnRegisterModules
+      write FOnRegisterModules;
+    property OnUnregisterModules: TNotifyEvent read FOnUnregisterModules
+      write FOnUnregisterModules;
   end;
 
@@ -56 +72 @@
 
 uses
-  UFormMain, UFormConnection;
+  UFormMain, UFormConnection, UFormSetting;
 
 procedure Register;
@@ -65 +81 @@
 { TChronisPlatform }
 
+procedure TChronisPlatform.SetRegistryContext(AValue: TRegistryContext);
+begin
+  if FRegistryContext = AValue then Exit;
+  FRegistryContext := AValue;
+  if Assigned(Core) then Core.RegistryContext := AValue;
+end;
+
 constructor TChronisPlatform.Create(AOwner: TComponent);
 begin
@@ -78 +101 @@
 begin
   Application.CreateForm(TCore, Core);
-  Application.CreateForm(TFormMain, FormMain);
+  Core.Platform := Self;
+  Core.RegistryContext := FRegistryContext;
+  Application.CreateForm(TFormMain, FormMain); // first form
   Application.CreateForm(TFormConnection, FormConnection);
+  Application.CreateForm(TFormSetting, FormSetting);
   //Core := TCore.Create(Application);
   //FormMain := TFormMain.Create(Application);
@@ -87 +113 @@
 procedure TChronisPlatform.Done;
 begin
-  FormConnection.Free;
-  FormMain.Free;
-  Core.Free;
+(*  FreeAndNil(FormSetting);
+  FreeAndNil(FormConnection);
+  FreeAndNil(FormMain);
+  FreeAndNil(Core); *)
 end;
 
@@ -98 +125 @@
 begin
   PersistentForm := TPersistentForm.Create;
-  PersistentForm.RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot),
-    ApplicationInfo1.RegistryKey + '\Forms');
-  RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
 end;
 
@@ -113 +137 @@
     FormModuleList.Reload;
   FormMain.ReloadPages;
+end;
+
+procedure TCore.SetRegistryContext(AValue: TRegistryContext);
+begin
+  if (FRegistryContext.RootKey = AValue.RootKey) and
+    (FRegistryContext.Key = AValue.Key) then Exit;
+  FRegistryContext := AValue;
+  PersistentForm.RegistryContext := RegContext(RegistryContext.RootKey,
+    RegistryContext.Key + '\Forms');
 end;
 
@@ -126 +159 @@
     try
       Context := RegistryContext;
-      //RegisterModules(ModuleManager);
+      if Assigned(Platform.OnRegisterModules) then
+        Platform.OnRegisterModules(Self);
       if ReadBoolWithDefault('ModuleManagerInstalled', False) then
         ModuleManager.LoadFromRegistry(RegContext(RegistryContext.RootKey, RegistryContext.Key + '\Modules'))
@@ -151 +185 @@
   if Assigned(FormModuleList) then FreeAndNil(FormModuleList);
   ModuleManager.OnUpdate := nil;
-  //UnregisterModules(ModuleManager);
+  if Assigned(Platform.OnUnregisterModules) then
+    Platform.OnUnregisterModules(Self);
 end;