Changeset 194 for trunk/Forms/UFormNew.pas

Timestamp:

May 14, 2018, 5:38:45 PM (6 years ago)

Author:

chronos

Message:

• Added: Configurable game parameter maximum units per cell.

File:

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

trunk/Forms/UFormNew.pas

@@ -36 +36 @@
     EditImageFile: TEdit;
     Label1: TLabel;
+    Label10: TLabel;
     Label11: TLabel;
     Label12: TLabel;
@@ -61 +62 @@
     RadioGroupGrowAmount: TRadioGroup;
     RadioGroupGrowCells: TRadioGroup;
+    SpinEditMaxPower: TSpinEdit;
     SpinEditServerPort: TSpinEdit;
     SpinEditCityPercent: TSpinEdit;
@@ -98 +100 @@
     procedure SpinEditMapSizeXChange(Sender: TObject);
     procedure SpinEditMapSizeYChange(Sender: TObject);
+    procedure SpinEditMaxPowerChange(Sender: TObject);
     procedure TrackBarSizeYChange(Sender: TObject);
     procedure TrackBarSizeXChange(Sender: TObject);
@@ -191 +194 @@
 end;
 
+procedure TFormNew.SpinEditMaxPowerChange(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormNew.TrackBarSizeYChange(Sender: TObject);
 begin
@@ -268 +276 @@
   SpinEditServerPort.Enabled := RadioButtonModeNetworkServer.Checked;
   ListViewServers.Enabled := RadioButtonModeNetworkClient.Checked;
+  PanelChat.Visible := RadioButtonModeNetworkClient.Checked or RadioButtonModeNetworkServer.Checked;
+  SpinEditNeutralUnits.MaxValue := SpinEditMaxPower.Value;
 end;
 
@@ -402 +412 @@
     EditServerAddress.Text := LocalNetworkAddress;
     SpinEditServerPort.Value := LocalNetworkPort;
+    SpinEditMaxPower.Value := Game.MaxPower;
   end;
 end;
@@ -429 +440 @@
     Game.FogOfWar := CheckBoxFogOfWar.Checked;
     Game.BridgeEnabled := CheckBoxBridges.Checked;
+    Game.MaxPower := SpinEditMaxPower.Value;
   end;
 end;