Changeset 61 for trunk/UCore.pas

Timestamp:

Sep 26, 2014, 12:36:53 AM (10 years ago)

Author:

chronos

Message:

• Added: Confirmation dialog for ending game.

File:

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

trunk/UCore.pas

@@ -72 +72 @@
 resourcestring
   SPlayerWins = 'Player %s wins';
+  SEndGame = 'End game?';
+  SEndGameQuestion = 'Do you want to end current game?';
 
 
@@ -122 +124 @@
 procedure TCore.AGameEndExecute(Sender: TObject);
 begin
-  Game.Running := False;
-  FormMain.Redraw;
-  UpdateActions;
+  if MessageDlg(SEndGame, SEndGameQuestion, mtConfirmation, mbYesNo, 0) = mrYes then begin
+    Game.Running := False;
+    FormMain.Redraw;
+    UpdateActions;
+  end;
 end;