fix: re-enable dropping sql files on main form

ansgarbecker · ansgarbecker · commit 314db47302a4 · 2026-02-05T19:06:27.000+01:00
diff --git a/source/main.lfm b/source/main.lfm
@@ -3,6 +3,7 @@ object MainForm: TMainForm
   Height = 380
   Top = 272
   Width = 798
+  AllowDropFiles = True
   Caption = 'MainForm'
   ClientHeight = 380
   ClientWidth = 798
@@ -14,6 +15,7 @@ object MainForm: TMainForm
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnDropFiles = FormDropFiles
   OnShow = FormShow
   object StatusBar: TStatusBar
     Left = 0
@@ -3436,7 +3438,6 @@ object MainForm: TMainForm
               MouseLinkColor.Foreground = clBlue
               LineHighlightColor.Background = clNone
               LineHighlightColor.Foreground = clNone
-              OnDropFiles = SynMemoQueryDropFiles
               OnProcessCommand = SynMemoQueryProcessCommand
               OnReplaceText = SynMemoQueryReplaceText
               OnShowHint = SynMemoQueryShowHint
diff --git a/source/main.pas b/source/main.pas
@@ -906,7 +906,7 @@   TMainForm = class(TExtForm)
     procedure SynMemoQueryDragOver(Sender, Source: TObject; X, Y: Integer;
       State: TDragState; var Accept: Boolean);
     procedure SynMemoQueryDragDrop(Sender, Source: TObject; X, Y: Integer);
-    procedure SynMemoQueryDropFiles(Sender: TObject; X, Y: Integer; AFiles: TStrings);
+    procedure FormDropFiles(Sender: TObject; const FileNames: array of string);
     procedure popupHostPopup(Sender: TObject);
     procedure popupDBPopup(Sender: TObject);
     procedure popupDataGridPopup(Sender: TObject);
@@ -7748,20 +7748,24 @@ procedure TMainForm.SynMemoQueryDragDrop(Sender, Source: TObject; X,
 
 
 
-procedure TMainForm.SynMemoQueryDropFiles(Sender: TObject; X, Y: Integer;
-  AFiles: TStrings);
+procedure TMainForm.FormDropFiles(Sender: TObject;
+  const FileNames: array of string);
 var
   i: Integer;
   Tab: TQueryTab;
+  Files: TStringList;
 begin
   // One or more files from explorer or somewhere else was dropped onto the
   // query-memo - load their contents into seperate tabs
-  if not RunQueryFiles(AFiles, nil, False) then begin
-    for i:=0 to AFiles.Count-1 do begin
+  Files := TStringList.Create;
+  Files.AddStrings(FileNames);
+  if not RunQueryFiles(Files, nil, False) then begin
+    for i:=0 to Files.Count-1 do begin
       Tab := GetOrCreateEmptyQueryTab(True);
-      Tab.LoadContents(AFiles[i], False, nil);
+      Tab.LoadContents(Files[i], False, nil);
     end;
   end;
+  Files.Free;
 end;
 
 
