Changeset 178
- Timestamp:
- Jan 30, 2018, 10:23:49 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Languages/xtactics.cs.po
r170 r178 86 86 87 87 #: tcore.ashowcharts.caption 88 #, fuzzy89 #| msgid "Show charts"90 88 msgctxt "tcore.ashowcharts.caption" 91 89 msgid "Charts" 92 msgstr "Grafy vývoje"90 msgstr "Grafy" 93 91 94 92 #: tcore.ashowunitmoves.caption 95 #, fuzzy96 93 msgctxt "tcore.ashowunitmoves.caption" 97 94 msgid "Unit moves" … … 185 182 msgctxt "tformmain.menuitem19.caption" 186 183 msgid "-" 187 msgstr " "184 msgstr "-" 188 185 189 186 #: tformmain.menuitem5.caption 190 187 msgctxt "tformmain.menuitem5.caption" 191 188 msgid "-" 192 msgstr " "189 msgstr "-" 193 190 194 191 #: tformmain.menuitem8.caption … … 516 513 msgid "Do you want to end current game?" 517 514 msgstr "Chcete ukončit aktuální hru?" 515 516 #: ucore.sfiledialogfilter 517 msgid "xTactics games (.xtg)|*.xtg|All files|*.*" 518 msgstr "xTactics hry (.xtg)|*.xtg|Všechny soubory|*.*" 518 519 519 520 #: ucore.splayersnotinitialized … … 724 725 msgid "Zero zoom not allowed" 725 726 msgstr "Nulové přiblížení není povoleno" 726 -
trunk/Languages/xtactics.po
r170 r178 497 497 #: ucore.sendgamequestion 498 498 msgid "Do you want to end current game?" 499 msgstr "" 500 501 #: ucore.sfiledialogfilter 502 msgid "xTactics games (.xtg)|*.xtg|All files|*.*" 499 503 msgstr "" 500 504 -
trunk/UCore.lfm
r176 r178 7 7 VerticalOffset = 352 8 8 Width = 940 9 PPI = 12010 9 object ActionList1: TActionList 11 10 Images = ImageListSmall -
trunk/UCore.pas
r176 r178 111 111 SRestartGameQuestion = 'Do you want to restart current game?'; 112 112 SPlayersNotInitialized = 'Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells.'; 113 SFileDialogFilter = 'xTactics games (.xtg)|*.xtg|All files|*.*'; 113 114 114 115 … … 307 308 procedure TCore.AGameLoadExecute(Sender: TObject); 308 309 begin 309 if (Game.FileName = '') and (LastOpenedList1.Items.Count > 0) then310 OpenDialog1.FileName := LastOpenedList1.Items[0]311 else OpenDialog1.FileName := Game.FileName;310 OpenDialog1.Filter := SFileDialogFilter; 311 OpenDialog1.InitialDir := ExtractFileDir(Game.FileName); 312 OpenDialog1.FileName := ExtractFileName(Game.FileName); 312 313 if OpenDialog1.Execute then begin 313 314 LoadGame(OpenDialog1.FileName); … … 333 334 procedure TCore.AGameSaveExecute(Sender: TObject); 334 335 begin 335 if (Game.FileName = '') and (LastOpenedList1.Items.Count > 0) then336 SaveDialog1.FileName := ExtractFileDir(LastOpenedList1.Items[0])337 else SaveDialog1.FileName := Game.FileName;336 SaveDialog1.Filter := SFileDialogFilter; 337 SaveDialog1.InitialDir := ExtractFileDir(Game.FileName); 338 SaveDialog1.FileName := ExtractFileName(Game.FileName); 338 339 if SaveDialog1.Execute then begin 339 340 Game.SaveToFile(SaveDialog1.FileName);
Note:
See TracChangeset
for help on using the changeset viewer.