Changeset 92 for trunk/Packages/ModularSystem

Timestamp:

Sep 7, 2012, 9:52:38 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Administrační stránka pro instalaci a odinstalaci modulů.
• Přidáno: Modul System je zodpovědný za udržování seznamu všech modulů.

Location:

trunk/Packages/ModularSystem

Files:

• ModularSystem.lpk (modified) (1 diff)
• UModularSystem.pas (modified) (2 diffs)

trunk/Packages/ModularSystem/ModularSystem.lpk

@@ -20 +20 @@
     <Description Value="Modular system"/>
     <License Value="GNU/LGPLv3"/>
-    <Version Minor="1"/>
+    <Version Minor="2"/>
     <Files Count="1">
       <Item1>

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -43 +43 @@
     procedure EnumModulesInstall(ModuleList: TStringList);
     procedure EnumModulesUninstall(ModuleList: TStringList);
+    procedure SetInstalledState(Value: Boolean);
     constructor Create(Owner: TComponent); virtual;
     destructor Destroy; override;
@@ -366 +367 @@
 end;
 
+procedure TModule.SetInstalledState(Value: Boolean);
+begin
+  FInstalled := Value;
+end;
+
 constructor TModule.Create(Owner: TComponent);
 begin