Changeset 188 for trunk

Timestamp:

Apr 22, 2018, 2:10:24 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Translate during form creation to not affect player mode combobox.

Location:

trunk/Forms

Files:

• UFormPlayer.lfm (modified) (11 diffs)
• UFormPlayer.pas (modified) (2 diffs)

trunk/Forms/UFormPlayer.lfm

@@ -9 +9 @@
   Constraints.MinHeight = 344
   Constraints.MinWidth = 522
-  DesignTimePPI = 120
   OnClose = FormClose
+  OnCreate = FormCreate
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.8.0.6'
+  LCLVersion = '1.8.0.4'
   object Label1: TLabel
     Left = 24
-    Height = 20
+    Height = 26
     Top = 27
-    Width = 43
+    Width = 56
     Caption = 'Name:'
     ParentColor = False
@@ -24 +24 @@
   object EditName: TEdit
     Left = 168
-    Height = 28
+    Height = 36
     Top = 27
     Width = 339
@@ -53 +53 @@
   object ComboBoxMode: TComboBox
     Left = 168
-    Height = 28
+    Height = 36
     Top = 72
     Width = 339
     Anchors = [akTop, akLeft, akRight]
-    ItemHeight = 20
+    ItemHeight = 0
     ItemIndex = 0
     Items.Strings = (
@@ -70 +70 @@
   object Label2: TLabel
     Left = 24
-    Height = 20
+    Height = 26
     Top = 72
-    Width = 42
+    Width = 53
     Caption = 'Mode:'
     ParentColor = False
@@ -78 +78 @@
   object Label3: TLabel
     Left = 24
-    Height = 20
+    Height = 26
     Top = 128
-    Width = 39
+    Width = 50
     Caption = 'Color:'
     ParentColor = False
@@ -86 +86 @@
   object ColorBox1: TColorBox
     Left = 168
-    Height = 26
+    Height = 40
     Top = 120
     Width = 339
@@ -96 +96 @@
   object Label4: TLabel
     Left = 24
-    Height = 20
+    Height = 26
     Top = 168
-    Width = 74
+    Width = 98
     Caption = 'Agressivity:'
     ParentColor = False
@@ -104 +104 @@
   object ComboBoxAgressivity: TComboBox
     Left = 168
-    Height = 28
+    Height = 40
     Top = 168
     Width = 339
     Anchors = [akTop, akLeft, akRight]
-    ItemHeight = 20
+    ItemHeight = 0
     Items.Strings = (
       'Low'
@@ -120 +120 @@
   object CheckBoxDefensive: TCheckBox
     Left = 24
-    Height = 24
+    Height = 30
     Top = 208
-    Width = 89
+    Width = 107
     Caption = 'Defensive'
     TabOrder = 6
@@ -128 +128 @@
   object Label5: TLabel
     Left = 24
-    Height = 20
+    Height = 26
     Top = 248
-    Width = 69
+    Width = 94
     Caption = 'Start units:'
     ParentColor = False
@@ -136 +136 @@
   object SpinEditStartUnits: TSpinEdit
     Left = 224
-    Height = 28
+    Height = 36
     Top = 240
     Width = 112

trunk/Forms/UFormPlayer.pas

@@ -29 +29 @@
     procedure ComboBoxModeChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -68 +69 @@
 end;
 
+procedure TFormPlayer.FormCreate(Sender: TObject);
+begin
+  Translate;
+end;
+
 procedure TFormPlayer.FormShow(Sender: TObject);
 begin
   Core.PersistentForm.Load(Self);
-  Translate;
   UpdateInterface;
 end;