Changeset 134 for trunk/Forms/UFormPlayer.pas

Timestamp:

Jul 5, 2017, 6:24:55 PM (7 years ago)

Author:

chronos

Message:

• Added: Player starts units can be configured in player dialog.

File:

• trunk/Forms/UFormPlayer.pas (modified) (7 diffs)

trunk/Forms/UFormPlayer.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ColorBox, UGame;
+  ColorBox, Menus, Spin, UGame;
 
 type
@@ -18 +18 @@
     CheckBoxDefensive: TCheckBox;
     ColorBox1: TColorBox;
-    ComboBox1: TComboBox;
+    ComboBoxMode: TComboBox;
     ComboBoxAgressivity: TComboBox;
     EditName: TEdit;
@@ -25 +25 @@
     Label3: TLabel;
     Label4: TLabel;
+    Label5: TLabel;
+    SpinEditStartUnits: TSpinEdit;
+    procedure ComboBoxModeChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
   public
     procedure Translate;
+    procedure UpdateInterface;
     procedure Load(Player: TPlayer);
     procedure Save(Player: TPlayer);
@@ -43 +48 @@
   SHuman = 'Human';
   SComputer = 'Computer';
-  SAgroNotAttacking = 'Not attacking';
   SAgroLow = 'Low';
   SAgroMedium = 'Medium';
@@ -50 +54 @@
 { TFormPlayer }
 
+procedure TFormPlayer.ComboBoxModeChange(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
+procedure TFormPlayer.FormShow(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormPlayer.Translate;
 var
   LastIndex: Integer;
 begin
-  with ComboBox1 do begin
+  with ComboBoxMode do begin
     LastIndex := ItemIndex;
     Clear;
@@ -71 +85 @@
 end;
 
+procedure TFormPlayer.UpdateInterface;
+begin
+  ComboBoxAgressivity.Visible := ComboBoxMode.ItemIndex = 1;
+  CheckBoxDefensive.Visible := ComboBoxMode.ItemIndex = 1;
+  Label4.Visible := ComboBoxMode.ItemIndex = 1;
+end;
+
 procedure TFormPlayer.Load(Player: TPlayer);
 begin
   EditName.Text := Player.Name;
-  ComboBox1.ItemIndex := Integer(Player.Mode);
+  ComboBoxMode.ItemIndex := Integer(Player.Mode);
   ColorBox1.Selected := Player.Color;
-  Label4.Visible := Player.Mode = pmComputer;
-  ComboBoxAgressivity.Visible := Player.Mode = pmComputer;
   ComboBoxAgressivity.ItemIndex := Integer(Player.Agressivity);
-  CheckBoxDefensive.Visible := Player.Mode = pmComputer;
   CheckBoxDefensive.Checked := Player.Defensive;
+  SpinEditStartUnits.Value := Player.StartUnits;
+  UpdateInterface;
 end;
 
@@ -86 +106 @@
 begin
   Player.Name := EditName.Text;
-  Player.Mode := TPlayerMode(ComboBox1.ItemIndex);
+  Player.Mode := TPlayerMode(ComboBoxMode.ItemIndex);
   Player.Color := ColorBox1.Selected;
   Player.Agressivity := TComputerAgressivity(ComboBoxAgressivity.ItemIndex);
   Player.Defensive := CheckBoxDefensive.Checked;
+  Player.StartUnits := SpinEditStartUnits.Value;
 end;