Changeset 93 for trunk/Packages

Timestamp:

Sep 7, 2012, 10:31:31 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Udržovní inforamce o instalovaných modulech v databázi.

File:

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

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -58 +58 @@
   end;
 
+  TModuleEvent = procedure (Sender: TObject; Module: TModule) of object;
+
   { TModuleManager }
 
@@ -63 +65 @@
   private
     FAPI: TAPI;
+    FOnModuleChange: TModuleEvent;
     procedure SetAPI(AValue: TAPI);
   public
@@ -84 +87 @@
     destructor Destroy; override;
     property API: TAPI read FAPI write SetAPI;
+    property OnModuleChange: TModuleEvent read FOnModuleChange write FOnModuleChange;
   end;
 
@@ -328 +332 @@
   Manager.InstallDependencies(Identification, Dependencies);
   FInstalled := True;
+  if Assigned(Manager.FOnModuleChange) then
+    Manager.FOnModuleChange(Manager, Self);
 end;
 
@@ -336 +342 @@
   Manager.UninstallDependencies(Identification);
   FInstalled := False;
+  if Assigned(Manager.FOnModuleChange) then
+    Manager.FOnModuleChange(Manager, Self);
 end;
 
@@ -370 +378 @@
 begin
   FInstalled := Value;
+  if Assigned(Manager.FOnModuleChange) then
+    Manager.FOnModuleChange(Manager, Self);
 end;