Changeset 130 for trunk/Forms/UFormNew.pas

Timestamp:

Jun 18, 2017, 11:27:44 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Require at least 2 players for a game.
• Fixed: Translate more strings.

File:

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

trunk/Forms/UFormNew.pas

@@ -90 +90 @@
     procedure Translate;
     procedure ReloadView;
+    procedure UpdateInterface;
     procedure Load(Game: TGame);
     procedure Save(Game: TGame);
@@ -229 +230 @@
   ListView1.Items.Count := Players.Count;
   ListView1.Refresh;
-  ButtonPlayerRemove.Enabled := Assigned(ListView1.Selected) and (Players.Count > 1);
-  ButtonPlayerAdd.Enabled := Players.Count < MaxPlayerCount;
+  Translate;
+  UpdateInterface;
+end;
+
+procedure TFormNew.UpdateInterface;
+begin
+  APlayerRemove.Enabled := Assigned(ListView1.Selected) and (Players.Count > 2);
+  APlayerAdd.Enabled := Players.Count < MaxPlayerCount;
   APlayerModify.Enabled := Assigned(ListView1.Selected);
   EditImageFile.Enabled := ComboBoxMapShape.ItemIndex = Integer(msImage);
   ButtonImageBrowse.Enabled := ComboBoxMapShape.ItemIndex = Integer(msImage);
-  Translate;
 end;