Changeset 43 for trunk/UCore.pas

Timestamp:

Mar 9, 2012, 1:09:52 PM (13 years ago)

Author:

chronos

Message:

• Fixed: Selection of available protocols in profile manager.
• Modified: Initialization of persistent data structures rewrited to more native structures.

File:

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

trunk/UCore.pas

@@ -16 +16 @@
     CoolTranslator1: TCoolTranslator;
     DebugLog1: TDebugLog;
+    procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -55 +56 @@
   LoadFromRegistry;
   System := TChronisBase.Create;
-  System.Client := TChronisClientMySQL.Create;
   //TChronisClientMySQL(System.Client).Database := SqlDatabase1;
   System.RegisterModule(TModuleSystem);
@@ -63 +63 @@
   DebugLog1.WriteToFileEnable := True;
   {$ENDIF}
+end;
+
+procedure TCore.CoolTranslator1Translate(Sender: TObject);
+begin
+  UFormLoginProfile.UpdateTranslation;
 end;