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

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ů.

File:

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

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