From 322b78b8b4549be244ab4b986b5e090c7139564c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Tue, 23 Jul 2024 19:18:38 +0200
Subject: [PATCH] CSV import: set default folder and filename in
 open-file-dialog to the one of the selected file

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

diff --git a/source/loaddata.pas b/source/loaddata.pas
index 8cc547be..549386ef 100644
--- a/source/loaddata.pas
+++ b/source/loaddata.pas
@@ -10,7 +10,7 @@ interface
 
 uses
   Winapi.Windows, System.SysUtils, System.Classes, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.CheckLst,
-  SynRegExpr, Vcl.Buttons, Vcl.ExtCtrls, Vcl.ToolWin, Vcl.ExtDlgs, System.Math, extra_controls,
+  SynRegExpr, Vcl.Buttons, Vcl.ExtCtrls, Vcl.ToolWin, Vcl.ExtDlgs, System.Math, System.IOUtils, extra_controls,
   dbconnection, dbstructures, gnugettext;
 
 type
@@ -656,6 +656,8 @@ var
 begin
   AppSettings.ResetPath;
   Dialog := TExtFileOpenDialog.Create(Self);
+  Dialog.DefaultFolder := ExtractFilePath(editFilename.Text);
+  Dialog.FileName := ExtractFileName(editFilename.Text);
   Dialog.AddFileType('*.csv', _('CSV files'));
   Dialog.AddFileType('*.txt', _('Text files'));
   Dialog.AddFileType('*.*', _('All files'));