Changeset 74 for trunk/UCore.pas

Timestamp:

Oct 4, 2014, 9:19:27 PM (10 years ago)

Author:

chronos

Message:

• Added: Show player color in player list.
• Added: Confirmation dialog for game restart action.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -75 +75 @@
   SEndGame = 'End game?';
   SEndGameQuestion = 'Do you want to end current game?';
+  SRestartGame = 'Restart game?';
+  SRestartGameQuestion = 'Do you want to restart current game?';
 
 
@@ -203 +205 @@
 procedure TCore.AGameRestartExecute(Sender: TObject);
 begin
-  Game.New;
-  Game.Running := True;
-  FormMain.AZoomAll.Execute;
-  FormMain.Redraw;
-  UpdateActions;
+  if MessageDlg(SRestartGame, SRestartGameQuestion, mtConfirmation, mbYesNo, 0) = mrYes then begin
+    Game.New;
+    Game.Running := True;
+    FormMain.AZoomAll.Execute;
+    FormMain.Redraw;
+    UpdateActions;
+  end;
 end;