Changeset 13 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormNew.lfm (modified) (2 diffs)
• UFormNew.pas (modified) (1 diff)
• UFormSettings.lfm (modified) (2 diffs)
• UFormSettings.lrj (modified) (1 diff)
• UFormSettings.pas (modified) (5 diffs)

trunk/Forms/UFormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
-  Left = 759
+  Left = 753
   Height = 212
-  Top = 822
+  Top = 825
   Width = 487
   Caption = 'New game'
@@ -32 +32 @@
       '9 x 9'
       '10 x 10 '
+      '11 x 11'
+      '12 x 12'
     )
     Style = csDropDownList

trunk/Forms/UFormNew.pas

@@ -1 +1 @@
 unit UFormNew;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface

trunk/Forms/UFormSettings.lfm

@@ -8 +8 @@
   ClientWidth = 480
   DesignTimePPI = 144
+  OnClose = FormClose
+  OnCreate = FormCreate
   OnShow = FormShow
   LCLVersion = '2.0.2.0'
@@ -48 +50 @@
     TabOrder = 2
   end
+  object ComboBoxLanguage: TComboBox
+    Left = 208
+    Height = 43
+    Top = 86
+    Width = 230
+    ItemHeight = 0
+    Style = csDropDownList
+    TabOrder = 3
+  end
+  object Label2: TLabel
+    Left = 19
+    Height = 26
+    Top = 94
+    Width = 88
+    Caption = 'Language:'
+    ParentColor = False
+  end
 end

trunk/Forms/UFormSettings.lrj

@@ -3 +3 @@
 {"hash":69745274,"name":"tformsettings.label1.caption","sourcebytes":[65,110,105,109,97,116,105,111,110,32,115,112,101,101,100,58],"value":"Animation speed:"},
 {"hash":1339,"name":"tformsettings.buttonok.caption","sourcebytes":[79,75],"value":"OK"},
-{"hash":77089212,"name":"tformsettings.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}
+{"hash":77089212,"name":"tformsettings.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
+{"hash":82521866,"name":"tformsettings.label2.caption","sourcebytes":[76,97,110,103,117,97,103,101,58],"value":"Language:"}
 ]}

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;