Changeset 178 for trunk/UCore.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

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);