Changeset 165 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 19, 2018, 9:28:03 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Correctly initialize directory and file name in Open/Save dialogs.
• Fixed: Filter displayed files by project file extension in Open/Save dialogs.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -283 +283 @@
 begin
   OpenDialog1.DefaultExt := ProjectExt;
-  if Assigned(Core.AcronymDb) then
-    OpenDialog1.FileName := Core.AcronymDb.FileName;
+  if Assigned(Core.AcronymDb) then begin
+    OpenDialog1.InitialDir := ExtractFileDir(Core.AcronymDb.FileName);
+    OpenDialog1.FileName := ExtractFileName(Core.AcronymDb.FileName);
+  end;
   if OpenDialog1.Execute then begin
     ProjectOpen(OpenDialog1.FileName);
@@ -293 +295 @@
 begin
   SaveDialog1.DefaultExt := ProjectExt;
-  SaveDialog1.FileName := Core.AcronymDb.FileName;
+  SaveDialog1.InitialDir := ExtractFileDir(Core.AcronymDb.FileName);
+  SaveDialog1.FileName := ExtractFileName(Core.AcronymDb.FileName);
   if SaveDialog1.Execute then begin
     Core.AcronymDb.SaveToFile(SaveDialog1.FileName);