Changeset 10 for trunk/Forms/UFormPreferences.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/Forms/UFormPreferences.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     CheckBoxRememberDatabase: TCheckBox;
+    ComboBoxLanguage: TComboBox;
+    Label1: TLabel;
   private
     { private declarations }
@@ -30 +32 @@
 {$R *.lfm}
 
+uses
+  UCore, ULanguages;
+
 { TFormPreferences }
 
@@ -35 +40 @@
 begin
   CheckBoxRememberDatabase.Checked := Preferences.RememberDatabase;
+  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
+  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
 end;
 
@@ -40 +48 @@
 begin
   Preferences.RememberDatabase := CheckBoxRememberDatabase.Checked;
+  if ComboBoxLanguage.ItemIndex <> -1 then
+    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
 end;