Changeset 51 for trunk/Client/Module/UModuleUser.pas

Timestamp:

Apr 2, 2012, 3:59:58 PM (13 years ago)

Author:

chronos

Message:

• Added: Unfinished installable module management.

File:

• trunk/Client/Module/UModuleUser.pas (modified) (3 diffs)

trunk/Client/Module/UModuleUser.pas

@@ -10 +10 @@
 type
 
-  { TModuleSystem }
+  { TModuleUser }
 
-  TModuleSystem = class(TChronisModule)
+  TModuleUser = class(TChronisModule)
   public
     procedure Install; override;
@@ -23 +23 @@
 implementation
 
-{ TModuleSystem }
+{ TModuleUser }
 
-procedure TModuleSystem.Install;
+procedure TModuleUser.Install;
 begin
   inherited Install;
 end;
 
-procedure TModuleSystem.Uninstall;
+procedure TModuleUser.Uninstall;
 begin
   inherited Uninstall;
 end;
 
-constructor TModuleSystem.Create;
+constructor TModuleUser.Create;
 begin
   Name := 'User';
@@ -41 +41 @@
 end;
 
-destructor TModuleSystem.Destroy;
+destructor TModuleUser.Destroy;
 begin
   inherited Destroy;