From 09a42889b0d935fd8aaed58d8c87daa85e7de52c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 12 Sep 2008 22:51:28 +0000
Subject: [PATCH] Fix bug #736 cannot drop a table when cursor is on top of the
 tree

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

diff --git a/source/main.pas b/source/main.pas
index 996ca201..398acfec 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1283,7 +1283,8 @@ begin
 
   Tables := TWideStringlist.Create;
   Views := TWideStringlist.Create;
-  if Childwin.PageControlMain.ActivePage = Childwin.tabDatabase then begin
+  if (Childwin.PageControlMain.ActivePage = Childwin.tabDatabase) and
+    ((Sender as TAction).ActionComponent <> Childwin.PopupMenuDropTable) then begin
     // Invoked from one of the various buttons, SheetDatabase is the active page, drop highlighted table(s).
     Tables := GetVTCaptions(Childwin.ListTables, True, 0, NODETYPE_TABLE);
     Tables.AddStrings(GetVTCaptions(Childwin.ListTables, True, 0, NODETYPE_CRASHED_TABLE));