Prefer previously used filename in save-as-snippet dialog. Closes #1747

This commit is contained in:
Ansgar Becker
2023-01-10 19:42:02 +01:00
parent ad034dfdd8
commit 4a591df119

View File

@ -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];