Changeset 29 for trunk/UCore.pas

Timestamp:

Nov 23, 2011, 8:24:07 PM (13 years ago)

Author:

chronos

Message:

• Added: Preliminary support for modules.
• Modified: Database initialization moved to module System.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UCoolTranslator, UDebugLog, USystem, Registry,
-  USqlDatabase, ULoginProfileForm, URegistry, UChronisClient;
+  USqlDatabase, ULoginProfileForm, URegistry, UChronisClient, UModuleSystem;
 
 type
@@ -43 +43 @@
 
 uses
-  UApplicationInfo;
+  UApplicationInfo, UChronisClientDirect;
 
 { TCore }
@@ -56 +56 @@
   System := TChronisBase.Create;
   System.Database := SqlDatabase1;
+  System.Client := TChronisClientDirect.Create;
+  System.RegisterModule(TModuleSystem);
+  System.ModuleSystem := TModuleSystem(System.Modules.Last);
+
   {$IFDEF DEBUG}
   DebugLog1.WriteToFileEnable := True;