Changeset 10 for trunk/UCore.pas

Timestamp:

Jan 25, 2015, 9:54:33 PM (10 years ago)

Author:

chronos

Message:

• Added: Option to choose interface language.
• Added: Source of used packages.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UDatabase, Forms;
+  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UDatabase,
+  UCoolTranslator, Forms;
 
 type
@@ -17 +18 @@
     AExit: TAction;
     ActionList1: TActionList;
+    CoolTranslator1: TCoolTranslator;
     ImageList1: TImageList;
     XMLConfig1: TXMLConfig;
@@ -163 +165 @@
   Preferences.RememberDatabase := XMLConfig1.GetValue('RememberDatabase', True);
   Preferences.LastDatabaseName := XMLConfig1.GetValue('LastDatabaseName', '');
+  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
 end;
 
@@ -177 +180 @@
   XMLConfig1.SetValue('RememberDatabase', Preferences.RememberDatabase);
   XMLConfig1.SetValue('LastDatabaseName', Preferences.LastDatabaseName);
+  XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
 end;