From c4f06b692a115e5811beceb01f71c2df975d813e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 18 May 2011 05:22:38 +0000
Subject: [PATCH] Use current tab for loading sql file, not the first empty
 tab. Fixes issue #2416.

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

diff --git a/source/main.pas b/source/main.pas
index c5204582..3eaf13c8 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -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;