Changeset 13 for trunk/Forms/UFormSettings.pas

Timestamp:

Oct 5, 2019, 11:16:00 AM (5 years ago)

Author:

chronos

Message:

• Added: Allow to change interface language in settings form.

File:

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

trunk/Forms/UFormSettings.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
+  ULanguages;
 
 type
@@ -15 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ComboBoxLanguage: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
     TrackBar1: TTrackBar;
     procedure ButtonCancelClick(Sender: TObject);
     procedure ButtonOkClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -29 +34 @@
   FormSettings: TFormSettings;
 
+
 implementation
 
@@ -35 +41 @@
 uses
   UCore;
+
+resourcestring
+  SLanguageChangeTitle = 'Language change';
+  SLanguageChangeMessage = 'Interface language was changed. It may require restart of application.';
+
 
 { TFormSettings }
@@ -46 +57 @@
 begin
   Core.Game.AnimationDuration := TrackBar1.Position;
+  if ComboBoxLanguage.ItemIndex <> -1 then begin
+    if (Core.Translator1.Language <> TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex])) then
+      MessageDlg(SLanguageChangeTitle, SLanguageChangeMessage, mtInformation, [mbOk], 0);
+    Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  end;
   Close;
+end;
+
+procedure TFormSettings.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
+procedure TFormSettings.FormCreate(Sender: TObject);
+begin
+  Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
 end;
 
 procedure TFormSettings.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
   TrackBar1.Position := Core.Game.AnimationDuration;
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Translator1.Language);
+  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
 end;