Changeset 15 for trunk/Forms

Timestamp:

Oct 5, 2019, 11:50:27 AM (6 years ago)

Author:

chronos

Message:

• Fixed: New and Settings forms were not translated in runtime.

Location:

trunk/Forms

Files:

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

trunk/Forms/UFormNew.lfm

@@ -8 +8 @@
   ClientWidth = 487
   DesignTimePPI = 144
+  OnCreate = FormCreate
   LCLVersion = '2.0.2.0'
   object Label1: TLabel

trunk/Forms/UFormNew.pas

@@ -18 +18 @@
     ComboBoxSize: TComboBox;
     Label1: TLabel;
+    procedure FormCreate(Sender: TObject);
   private
 
@@ -32 +33 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
 { TFormNew }
+
+procedure TFormNew.FormCreate(Sender: TObject);
+begin
+  Core.Translator1.TranslateComponentRecursive(Self);
+end;
 
 procedure TFormNew.Load(Game: TGame);

trunk/Forms/UFormSettings.pas

@@ -73 +73 @@
 procedure TFormSettings.FormCreate(Sender: TObject);
 begin
+  Core.Translator1.TranslateComponentRecursive(Self);
   Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
 end;