Changeset 12 for trunk/Forms/UMainForm.pas

Timestamp:

Jun 9, 2011, 1:04:45 PM (13 years ago)

Author:

george

Message:

• Fixed: Display edit controls according property type.
• Added: Interface language translation.

File:

• trunk/Forms/UMainForm.pas (modified) (4 diffs)

trunk/Forms/UMainForm.pas

@@ -121 +121 @@
 
 uses
-  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo;
+  UItemView, UItemEdit, UItemAdd, ULoginForm, USettingForm, UApplicationInfo,
+  UCore;
 
 {$R *.lfm}
@@ -138 +139 @@
     System.Database.UserName := ReadStringWithDefault('DatabaseUserName', 'chronis');
     System.Database.Password := ReadStringWithDefault('DatabasePassword', '');
-  finally
+    with Core.CoolTranslator1 do
+      Language := Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''));
+ finally
     Free;
   end;
@@ -154 +157 @@
     WriteString('DatabaseUserName', System.Database.UserName);
     WriteString('DatabasePassword', System.Database.Password);
+    with Core.CoolTranslator1 do
+      WriteString('LanguageCode', Language.Code);
   finally
     Free;
@@ -434 +439 @@
   System.Database.Connect;
   InitStructure;
+  System.LoadTypes;
   LoadTree;
 end;