Changeset 178

Timestamp:

Jan 30, 2018, 10:23:49 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Open/Save dialog with file filter and initial directory and name from current game.

Location:

trunk

Files:

• Languages/xtactics.cs.po (modified) (4 diffs)
• Languages/xtactics.po (modified) (1 diff)
• UCore.lfm (modified) (1 diff)
• UCore.pas (modified) (3 diffs)

trunk/Languages/xtactics.cs.po

@@ -86 +86 @@
 
 #: tcore.ashowcharts.caption
-#, fuzzy
-#| msgid "Show charts"
 msgctxt "tcore.ashowcharts.caption"
 msgid "Charts"
-msgstr "Grafy vývoje"
+msgstr "Grafy"
 
 #: tcore.ashowunitmoves.caption
-#, fuzzy
 msgctxt "tcore.ashowunitmoves.caption"
 msgid "Unit moves"
@@ -185 +182 @@
 msgctxt "tformmain.menuitem19.caption"
 msgid "-"
-msgstr ""
+msgstr "-"
 
 #: tformmain.menuitem5.caption
 msgctxt "tformmain.menuitem5.caption"
 msgid "-"
-msgstr ""
+msgstr "-"
 
 #: tformmain.menuitem8.caption
@@ -516 +513 @@
 msgid "Do you want to end current game?"
 msgstr "Chcete ukončit aktuální hru?"
+
+#: ucore.sfiledialogfilter
+msgid "xTactics games (.xtg)|*.xtg|All files|*.*"
+msgstr "xTactics hry (.xtg)|*.xtg|Všechny soubory|*.*"
 
 #: ucore.splayersnotinitialized
@@ -724 +725 @@
 msgid "Zero zoom not allowed"
 msgstr "Nulové přiblížení není povoleno"
-

trunk/Languages/xtactics.po

@@ -497 +497 @@
 #: ucore.sendgamequestion
 msgid "Do you want to end current game?"
+msgstr ""
+
+#: ucore.sfiledialogfilter
+msgid "xTactics games (.xtg)|*.xtg|All files|*.*"
 msgstr ""
 

trunk/UCore.lfm

@@ -7 +7 @@
   VerticalOffset = 352
   Width = 940
-  PPI = 120
   object ActionList1: TActionList
     Images = ImageListSmall

trunk/UCore.pas

@@ -111 +111 @@
   SRestartGameQuestion = 'Do you want to restart current game?';
   SPlayersNotInitialized = 'Not all players were initialized with start cell. Needed %d, initialized %d. Change map parameters to have more terrain cells.';
+  SFileDialogFilter = 'xTactics games (.xtg)|*.xtg|All files|*.*';
 
 
@@ -307 +308 @@
 procedure TCore.AGameLoadExecute(Sender: TObject);
 begin
-  if (Game.FileName = '') and (LastOpenedList1.Items.Count > 0) then
-    OpenDialog1.FileName := LastOpenedList1.Items[0]
-    else OpenDialog1.FileName := Game.FileName;
+  OpenDialog1.Filter := SFileDialogFilter;
+  OpenDialog1.InitialDir := ExtractFileDir(Game.FileName);
+  OpenDialog1.FileName := ExtractFileName(Game.FileName);
   if OpenDialog1.Execute then begin
     LoadGame(OpenDialog1.FileName);
@@ -333 +334 @@
 procedure TCore.AGameSaveExecute(Sender: TObject);
 begin
-  if (Game.FileName = '') and (LastOpenedList1.Items.Count > 0) then
-    SaveDialog1.FileName := ExtractFileDir(LastOpenedList1.Items[0])
-    else SaveDialog1.FileName := Game.FileName;
+  SaveDialog1.Filter := SFileDialogFilter;
+  SaveDialog1.InitialDir := ExtractFileDir(Game.FileName);
+  SaveDialog1.FileName := ExtractFileName(Game.FileName);
   if SaveDialog1.Execute then begin
     Game.SaveToFile(SaveDialog1.FileName);