Changeset 61 for trunk

Timestamp:

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

Author:

chronos

Message:

• Added: Confirmation dialog for ending game.

Location:

trunk

Files:

• Languages/xtactics.cs.po (modified) (5 diffs)
• Languages/xtactics.po (modified) (1 diff)
• UCore.pas (modified) (2 diffs)

trunk/Languages/xtactics.cs.po

@@ -90 +90 @@
 #: tformmain.astatusbarvisible.caption
 msgid "Statusbar visible"
-msgstr ""
+msgstr "Viditelná stavová lišta"
 
 #: tformmain.atoolbarbigicons.caption
@@ -98 +98 @@
 #: tformmain.atoolbarvisible.caption
 msgid "Toolbar visible"
-msgstr ""
+msgstr "Viditelný nástrojový panel"
 
 #: tformmain.azoomall.caption
@@ -192 +192 @@
 #: tformmove.label3.caption
 msgid "Win probability:"
-msgstr ""
+msgstr "Pravděpodobnost vítězství:"
 
 #: tformmove.labelwinprobability.caption
 msgid "   "
-msgstr ""
+msgstr "   "
 
 #: tformnew.aplayeradd.caption
@@ -355 +355 @@
 msgstr "Jazyk:"
 
+#: ucore.sendgame
+msgid "End game?"
+msgstr "Ukončit hru?"
+
+#: ucore.sendgamequestion
+msgid "Do you want to end current game?"
+msgstr "Chcete ukončit aktuální hru?"
+
 #: ucore.splayerwins
 msgctxt "ucore.splayerwins"
@@ -471 +479 @@
 msgid "Unfinished battle"
 msgstr "Neukončená bitva"
-

trunk/Languages/xtactics.po

@@ -343 +343 @@
 msgstr ""
 
+#: ucore.sendgame
+msgid "End game?"
+msgstr ""
+
+#: ucore.sendgamequestion
+msgid "Do you want to end current game?"
+msgstr ""
+
 #: ucore.splayerwins
 msgctxt "ucore.splayerwins"

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;