Changeset 77 for trunk/Packages/ModularSystem

Timestamp:

Jun 4, 2024, 9:53:17 PM (6 months ago)

Author:

chronos

Message:

• Modified: Compiler targets moved into modules.

File:

• trunk/Packages/ModularSystem/ModularSystem.pas (modified) (17 diffs)

trunk/Packages/ModularSystem/ModularSystem.pas

@@ -27 +27 @@
     FCategory: string;
     FEnabled: Boolean;
+    FOnUpdate: TNotifyEvent;
     FReleaseTime: TDateTime;
     FRunning: Boolean;
@@ -45 +46 @@
     procedure SetManager(AValue: TModuleManager);
     procedure SetRunning(AValue: Boolean);
+    procedure DoUpdate;
   protected
     procedure DoStart; virtual;
@@ -87 +89 @@
     property WebSite: string read FWebSite write FWebSite;
     // Screenshots, reviews, icon, weak dependencies, ...
+    property OnUpdate: TNotifyEvent read FOnUpdate write FOnUpdate;
   end;
 
@@ -272 +275 @@
   Module.FManager := Self;
   Module.API := API;
-  //Modules.Update;
+  DoUpdate(Self);
 end;
 
@@ -278 +281 @@
 begin
   Modules.Remove(Module);
-  //Modules.Update;
+  DoUpdate(Self);
 end;
 
@@ -286 +289 @@
   Modules := TModules.Create;
   Modules.OwnsObjects := False;
-  //Modules.OnUpdate := DoUpdate;
 end;
 
@@ -304 +306 @@
     RootKey := Context.RootKey;
     for I := 0 to Modules.Count - 1 do
-    with TModule(Modules[I]) do begin
+    with Modules[I] do begin
       OpenKey(Context.Key + '\' + Identification, True);
       Installed := ReadBoolWithDefault('Installed', Installed);
@@ -322 +324 @@
     RootKey := Context.RootKey;
     for I := 0 to Modules.Count - 1 do
-    with TModule(Modules[I]) do begin
+    with Modules[I] do begin
       OpenKey(Context.Key + '\' + Identification, True);
       WriteBool('Enabled', Enabled);
@@ -342 +344 @@
 procedure TModule.DoStart;
 begin
-
 end;
 
 procedure TModule.DoStop;
 begin
-
 end;
 
 procedure TModule.DoInstall;
 begin
-
 end;
 
 procedure TModule.DoUninstall;
 begin
-
 end;
 
 procedure TModule.DoUpgrade;
 begin
-
+end;
+
+procedure TModule.DoUpdate;
+begin
+  if Assigned(FOnUpdate) then FOnUpdate(Self);
 end;
 
@@ -398 +400 @@
     List.Free;
   end;
-  //Manager.Modules.Update;
+  DoUpdate;
 end;
 
@@ -440 +442 @@
   FStartUpTime := Now - StartTime;
   FRunning := True;
-  //Manager.Modules.Update;
+  DoUpdate;
 end;
 
@@ -458 +460 @@
   end;
   DoStop;
-  //Manager.Modules.Update;
+  DoUpdate;
 end;
 
@@ -482 +484 @@
   FInstalled := True;
   DoInstall;
-  //Enable; // Auto enable installed module
-  //Manager.Modules.Update;
+  Enable; // Auto enable installed module
+  DoUpdate;
 end;
 
@@ -502 +504 @@
   FInstalled := False;
   DoUninstall;
-  //Manager.Modules.Update;
+  DoUpdate;
 end;
 
@@ -514 +516 @@
 begin
   if not Enabled or not Installed then Exit;
-  if Running then try
+  if Running then
+  try
     Stop;
     DoUpgrade;
@@ -520 +523 @@
     Start;
   end else DoUpgrade;
-  //Manager.Modules.Update;
+  DoUpdate;
 end;
 
@@ -540 +543 @@
 begin
   FInstalled := Value;
-  //Manager.Modules.Update;
+  DoUpdate;
 end;