Changeset 18 for trunk/Forms/UFormSettings.pas

Timestamp:

Mar 19, 2013, 10:09:14 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Možnost nastavit jazyk rozhraní v okně nastavení.

File:

• trunk/Forms/UFormSettings.pas (modified) (5 diffs)

trunk/Forms/UFormSettings.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  StdCtrls;
+  StdCtrls, ULanguages;
 
 type
@@ -17 +17 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
-    ComboBox1: TComboBox;
+    ComboBoxFormat: TComboBox;
+    ComboBoxLang: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     LabeledEditFolder: TLabeledEdit;
     LabeledEditFileNameFormat: TLabeledEdit;
@@ -50 +52 @@
   I: TFioDataFormat;
 begin
-  while ComboBox1.Items.Count < Length(DataFormatText) do
-    ComboBox1.Items.Add('');
-  while ComboBox1.Items.Count > Length(DataFormatText) do
-    ComboBox1.Items.Delete(ComboBox1.Items.Count - 1);
+  while ComboBoxFormat.Items.Count < Length(DataFormatText) do
+    ComboBoxFormat.Items.Add('');
+  while ComboBoxFormat.Items.Count > Length(DataFormatText) do
+    ComboBoxFormat.Items.Delete(ComboBoxFormat.Items.Count - 1);
   for I := Low(DataFormatText) to High(DataFormatText) do
-    ComboBox1.Items.Strings[Integer(I)] := DataFormatText[I];
+    ComboBoxFormat.Items.Strings[Integer(I)] := DataFormatText[I];
 end;
 
@@ -68 +70 @@
 procedure TFormSettings.Load;
 begin
+  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLang.Items);
+  ComboBoxLang.ItemIndex := ComboBoxLang.Items.IndexOfObject(Core.CoolTranslator1.Language);
   LabeledEditFileNameFormat.Text := Core.OutputFormat;
-  ComboBox1.ItemIndex := Integer(Core.DataFormat);
+  ComboBoxFormat.ItemIndex := Integer(Core.DataFormat);
   LabeledEditFolder.Text := Core.TargetDirectory;
 end;
@@ -75 +79 @@
 procedure TFormSettings.Save;
 begin
+  if ComboBoxLang.Items.Objects[ComboBoxLang.ItemIndex] <> Core.CoolTranslator1.Language then begin
+    Core.CoolTranslator1.Language := TLanguage(ComboBoxLang.Items.Objects[ComboBoxLang.ItemIndex]);
+
+  end;
   Core.OutputFormat := LabeledEditFileNameFormat.Text;
-  Core.DataFormat := TFioDataFormat(ComboBox1.ItemIndex);
+  Core.DataFormat := TFioDataFormat(ComboBoxFormat.ItemIndex);
   Core.TargetDirectory := LabeledEditFolder.Text;
 end;