Changeset 53 for trunk/Client/UCore.pas

Timestamp:

Apr 3, 2012, 8:31:39 AM (13 years ago)

Author:

chronos

Message:

• Opraveno: Aktualizace seznamu modulů do databáze a použití příznaku modulů "Instalován" pro zjištění, zda vytvářet znova strukturu.

File:

• trunk/Client/UCore.pas (modified) (3 diffs)

trunk/Client/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem, Registry,
-  USqlDatabase, UFormLoginProfile, URegistry, UPDClient, UModuleSystem;
+  USqlDatabase, UFormLoginProfile, URegistry, UPDClient;
 
 type
@@ -38 +38 @@
   Core: TCore;
 
+
 implementation
 
+uses
+  UModuleSystem, UModuleUser, UApplicationInfo;
+
 {$R *.lfm}
-
-uses
-  UApplicationInfo;
 
 { TCore }
@@ -58 +59 @@
   System.RegisterModule(TModuleSystem);
   System.ModuleSystem := TModuleSystem(System.Modules.Last);
+  System.RegisterModule(TModuleUser);
 
   {$IFDEF DEBUG}