Changeset 61 for trunk


Ignore:
Timestamp:
Sep 26, 2014, 12:36:53 AM (10 years ago)
Author:
chronos
Message:
  • Added: Confirmation dialog for ending game.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Languages/xtactics.cs.po

    r59 r61  
    9090#: tformmain.astatusbarvisible.caption
    9191msgid "Statusbar visible"
    92 msgstr ""
     92msgstr "Viditelná stavová lišta"
    9393
    9494#: tformmain.atoolbarbigicons.caption
     
    9898#: tformmain.atoolbarvisible.caption
    9999msgid "Toolbar visible"
    100 msgstr ""
     100msgstr "Viditelný nástrojový panel"
    101101
    102102#: tformmain.azoomall.caption
     
    192192#: tformmove.label3.caption
    193193msgid "Win probability:"
    194 msgstr ""
     194msgstr "Pravděpodobnost vítězství:"
    195195
    196196#: tformmove.labelwinprobability.caption
    197197msgid "   "
    198 msgstr ""
     198msgstr "   "
    199199
    200200#: tformnew.aplayeradd.caption
     
    355355msgstr "Jazyk:"
    356356
     357#: ucore.sendgame
     358msgid "End game?"
     359msgstr "Ukončit hru?"
     360
     361#: ucore.sendgamequestion
     362msgid "Do you want to end current game?"
     363msgstr "Chcete ukončit aktuální hru?"
     364
    357365#: ucore.splayerwins
    358366msgctxt "ucore.splayerwins"
     
    471479msgid "Unfinished battle"
    472480msgstr "Neukončená bitva"
    473 
  • trunk/Languages/xtactics.po

    r59 r61  
    343343msgstr ""
    344344
     345#: ucore.sendgame
     346msgid "End game?"
     347msgstr ""
     348
     349#: ucore.sendgamequestion
     350msgid "Do you want to end current game?"
     351msgstr ""
     352
    345353#: ucore.splayerwins
    346354msgctxt "ucore.splayerwins"
  • trunk/UCore.pas

    r60 r61  
    7272resourcestring
    7373  SPlayerWins = 'Player %s wins';
     74  SEndGame = 'End game?';
     75  SEndGameQuestion = 'Do you want to end current game?';
    7476
    7577
     
    122124procedure TCore.AGameEndExecute(Sender: TObject);
    123125begin
    124   Game.Running := False;
    125   FormMain.Redraw;
    126   UpdateActions;
     126  if MessageDlg(SEndGame, SEndGameQuestion, mtConfirmation, mbYesNo, 0) = mrYes then begin
     127    Game.Running := False;
     128    FormMain.Redraw;
     129    UpdateActions;
     130  end;
    127131end;
    128132
Note: See TracChangeset for help on using the changeset viewer.