Changeset 59 for trunk/Packages/ModularSystem/UModularSystem.pas

Timestamp:

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

Author:

chronos

Message:

• Fixed: Store module settings in system registry.

File:

• trunk/Packages/ModularSystem/UModularSystem.pas (modified) (8 diffs)

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -109 +109 @@
     FAPI: TAPI;
     FOnUpdate: TNotifyEvent;
-    FUpdateCount: Integer;
     FOptions: TModuleManagerOptions;
     procedure SetAPI(AValue: TAPI);
@@ -122 +121 @@
     procedure RegisterModule(Module: TModule);
     procedure UnregisterModule(Module: TModule);
-    procedure LoadFromRegistry(Context: TRegistryContext);
-    procedure SaveToRegistry(Context: TRegistryContext);
+    procedure LoadFromRegistry(AContext: TRegistryContext);
+    procedure SaveToRegistry(AContext: TRegistryContext);
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -139 +138 @@
 resourcestring
   SModuleNotFound = 'Module "%1:s" not found as dependency for module "%0:s"';
+  SInvalidModuleName = 'Invalid module name';
 
 procedure Register;
@@ -264 +264 @@
 procedure TModuleManager.RegisterModule(Module: TModule);
 begin
+  if Module.Identification = '' then
+    raise Exception.Create(SInvalidModuleName);
   Modules.Add(Module);
   Module.FManager := Self;
@@ -291 +293 @@
 end;
 
-procedure TModuleManager.LoadFromRegistry(Context: TRegistryContext);
+procedure TModuleManager.LoadFromRegistry(AContext: TRegistryContext);
 var
   I: Integer;
@@ -297 +299 @@
   with TRegistryEx.Create do
   try
-    RootKey := Context.RootKey;
+    RootKey := AContext.RootKey;
     for I := 0 to Modules.Count - 1 do
     with TModule(Modules[I]) do begin
-      OpenKey(Context.Key + '\' + Identification, True);
+      OpenKey(AContext.Key + '\' + Identification, True);
       Installed := ReadBoolWithDefault('Installed', Installed);
       Enabled := ReadBoolWithDefault('Enabled', Enabled);
@@ -309 +311 @@
 end;
 
-procedure TModuleManager.SaveToRegistry(Context: TRegistryContext);
+procedure TModuleManager.SaveToRegistry(AContext: TRegistryContext);
 var
   I: Integer;
@@ -315 +317 @@
   with TRegistryEx.Create do
   try
-    RootKey := Context.RootKey;
+    RootKey := AContext.RootKey;
     for I := 0 to Modules.Count - 1 do
     with TModule(Modules[I]) do begin
-      OpenKey(Context.Key + '\' + Identification, True);
+      OpenKey(AContext.Key + '\' + Identification, True);
       WriteBool('Enabled', Enabled);
       WriteBool('Installed', Installed);