From 4a591df119dd65fa311be690b0570227dac70ebe Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 10 Jan 2023 19:42:02 +0100
Subject: [PATCH] Prefer previously used filename in save-as-snippet dialog.
 Closes #1747

---
 source/main.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/main.pas b/source/main.pas
index b1dc2fff..a61b6a6a 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -4939,7 +4939,10 @@ begin
   CanSave := mrNo;
   QueryTab := QueryTabs.ActiveTab;
   Dialog := TExtFileSaveDialog.Create(Self);
-  DefaultFilename := QueryTab.TabSheet.Caption;
+  if QueryTab.MemoFilename.IsEmpty then
+    DefaultFilename := QueryTab.TabSheet.Caption
+  else
+    DefaultFilename := ExtractFileName(QueryTab.MemoFilename);
   DefaultFilename := DefaultFilename.Trim([' ', '*']);
   Dialog.FileName := ValidFilename(DefaultFilename);
   Dialog.Options := Dialog.Options + [fdoOverwritePrompt];