From 0acf6bbc41e3347b79ea4f7ec33b28cdc25627a9 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Sat, 29 May 2021 12:21:34 +0200
Subject: [PATCH] Move menu items for previous and next tab from Tools to Go-To
 main menu

---
 source/main.dfm | 27 +++++++++++++++------------
 source/main.pas |  1 +
 2 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/source/main.dfm b/source/main.dfm
index b2a63f55..14491639 100644
--- a/source/main.dfm
+++ b/source/main.dfm
@@ -2197,18 +2197,6 @@ object MainForm: TMainForm
     end
     object MainMenuTools: TMenuItem
       Caption = 'Tools'
-      object Previoustab1: TMenuItem
-        Action = actPreviousTab
-      end
-      object Nexttab1: TMenuItem
-        Action = actNextTab
-      end
-      object Previousresulttab1: TMenuItem
-        Action = actPreviousResult
-      end
-      object Nextresulttab1: TMenuItem
-        Action = actNextResult
-      end
       object Flush1: TMenuItem
         Caption = 'Flush'
         object MenuFlushHosts: TMenuItem
@@ -2272,6 +2260,21 @@ object MainForm: TMainForm
     end
     object MainMenuGoto: TMenuItem
       Caption = 'Go to'
+      object Previoustab1: TMenuItem
+        Action = actPreviousTab
+      end
+      object Nexttab1: TMenuItem
+        Action = actNextTab
+      end
+      object Previousresulttab1: TMenuItem
+        Action = actPreviousResult
+      end
+      object Nextresulttab1: TMenuItem
+        Action = actNextResult
+      end
+      object N16: TMenuItem
+        Caption = '-'
+      end
       object actGotoFilter1: TMenuItem
         Action = actGotoFilter
       end
diff --git a/source/main.pas b/source/main.pas
index 4d059251..77f8389f 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -750,6 +750,7 @@ type
     actCreateFunction: TAction;
     Storedfunction1: TMenuItem;
     menuEditorCommands: TMenuItem;
+    N16: TMenuItem;
     procedure actCreateDBObjectExecute(Sender: TObject);
     procedure menuConnectionsPopup(Sender: TObject);
     procedure actExitApplicationExecute(Sender: TObject);