fix: do not start edit mode in ListTables on right mouse button click

Author: ansgarbecker

source/main.lfm

@@ -2146,6 +2146,7 @@ object MainForm: TMainForm
             OnHeaderDraggedOut = AnyGridHeaderDraggedOut
             OnInitNode = ListTablesInitNode
             OnKeyPress = ListTablesKeyPress
+            OnMouseUp = AnyGridMouseUp
             OnNewText = ListTablesNewText
           end
         end

source/main.pas

@@ -7467,7 +7467,7 @@ procedure TMainForm.ListTablesEditing(Sender: TBaseVirtualTree;
   // Tables and views can be renamed, routines cannot
   if Assigned(Node) then begin
     Obj := Sender.GetNodeData(Node);
-    Allowed := Obj.NodeType in [lntTable, lntView];
+    Allowed := (Obj.NodeType in [lntTable, lntView]) and (FLastMouseButtonUpOnGrid = mbLeft);
   end;
 end;
 
@@ -11334,6 +11334,9 @@ procedure TMainForm.AnyGridMouseUp(Sender: TObject; Button: TMouseButton;
   Grid := Sender as TVirtualStringTree;
   if not Assigned(Grid.FocusedNode) then
     Exit;
+  // Exit early for non-result-grids like ListTables
+  if Grid <> ActiveGrid  then
+    Exit;
   Grid.GetHitTestInfoAt(X, Y, False, {%H-}Hit);
   if (Hit.HitNode = nil) or (Hit.HitColumn = NoColumn) or (Hit.HitColumn = InvalidColumn) then begin
     Results := GridResult(Grid);