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

Use current tab for loading sql file, not the first empty tab. Fixes issue #2416.

Browse Source
This commit is contained in:
Ansgar Becker
2011-05-18 05:22:38 +00:00
parent 592b2d98b0
commit c4f06b692a
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/main.pas
View File

@@ -2664,6 +2664,7 @@ var
i: Integer;
Dialog: TOpenTextFileDialog;
Encoding: TEncoding;
MakeNewTab: Boolean;
begin
// if IsWindowsVista then
// Dialog := TFileOpenDialog.Create(Self);
@@ -2675,8 +2676,10 @@ begin
Dialog.EncodingIndex := 0;
if Dialog.Execute then begin
Encoding := GetEncodingByName(Dialog.Encodings[Dialog.EncodingIndex]);
MakeNewTab := not QueryTabActive;
for i:=0 to Dialog.Files.Count-1 do begin
QueryLoad(Dialog.Files[i], True, True, Encoding);
QueryLoad(Dialog.Files[i], MakeNewTab, True, Encoding);
MakeNewTab := True;
end;
end;
Dialog.Free;