opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

fix: re-enable dropping sql files on main form

Browse Source
This commit is contained in:
Ansgar Becker
2026-02-05 19:06:27 +01:00
parent 7dfad025e8
commit 314db47302
2 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/main.lfm
View File

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

16
source/main.pas
View File

@@ -906,7 +906,7 @@ type
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 @@ end;
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;