Changeset 10 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormPreferences.lfm (modified) (2 diffs)
• UFormPreferences.lrt (added)
• UFormPreferences.pas (modified) (4 diffs)

trunk/Forms/UFormPreferences.lfm

@@ -21 +21 @@
     Top = 376
     Width = 75
+    Anchors = [akRight, akBottom]
     Caption = 'Save'
     ModalResult = 1
@@ -30 +31 @@
     Top = 375
     Width = 75
+    Anchors = [akRight, akBottom]
     Caption = 'Cancel'
     ModalResult = 2
     TabOrder = 2
   end
+  object ComboBoxLanguage: TComboBox
+    Left = 192
+    Height = 35
+    Top = 64
+    Width = 292
+    ItemHeight = 0
+    Style = csDropDownList
+    TabOrder = 3
+  end
+  object Label1: TLabel
+    Left = 18
+    Height = 25
+    Top = 65
+    Width = 95
+    Caption = 'Language:'
+    ParentColor = False
+  end
 end

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;