Changeset 94 for trunk/Packages/ModularSystem

Timestamp:

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

Author:

chronos

Message:

• Opraveno: Zobrazení stránek s a bez modulu User.

File:

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

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -44 +44 @@
     procedure EnumModulesUninstall(ModuleList: TStringList);
     procedure SetInstalledState(Value: Boolean);
-    constructor Create(Owner: TComponent); virtual;
+    constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
     property Running: Boolean read FRunning write SetRunning;
@@ -70 +70 @@
     Modules: TObjectList; // TObjectList<TModule>
     function FindModuleByName(Name: string): TModule;
+    function ModuleRunning(Name: string): Boolean;
     procedure StartDependencies(ModuleName: string; Dependencies: TStringList);
     procedure StopDependencies(ModuleName: string);
@@ -125 +126 @@
 end;
 
+function TModuleManager.ModuleRunning(Name: string): Boolean;
+var
+  Module: TModule;
+begin
+  Module := FindModuleByName(Name);
+  if Assigned(Module) then begin
+    Result := Module.Running;
+  end else Result := False;
+end;
+
 procedure TModuleManager.StartDependencies(ModuleName: string; Dependencies: TStringList);
 var