fix: mouse click in edited row calls save action although focus did not change

Refs #2475

Author: ansgarbecker

source/main.pas

@@ -11608,7 +11608,10 @@ procedure TMainForm.AnyGridMouseUp(Sender: TObject; Button: TMouseButton;
   Grid := Sender as TVirtualStringTree;
   if not Assigned(Grid.FocusedNode) then
     Exit;
-  Grid.GetHitTestInfoAt(X, Y, False, Hit);
+  // Exit early for non-result-grids like ListTables
+  if Grid <> ActiveGrid  then
+    Exit;
+  Grid.GetHitTestInfoAt(X, Y, True, Hit);
   if (Hit.HitNode = nil) or (Hit.HitColumn = NoColumn) or (Hit.HitColumn = InvalidColumn) then begin
     Results := GridResult(Grid);
     if Results.Modified then begin