fix: data grid context menu not opening after click in empty area

ansgarbecker · ansgarbecker · commit 10fc1177d86d · 2026-02-19T19:31:26.000+01:00
diff --git a/source/main.pas b/source/main.pas
@@ -4429,11 +4429,11 @@ procedure TMainForm.actPreviousTabExecute(Sender: TObject);
 procedure TMainForm.DataGridContextPopup(Sender: TObject; MousePos: TPoint;
   var Handled: Boolean);
 var
-  HitInfo: THitInfo;
+  Tree: TLazVirtualStringTree;
 begin
-  // Prevent context popup if clicked on header, or click was not on a node
-  (Sender as TLazVirtualStringTree).GetHitTestInfoAt(MousePos.X, MousePos.Y, True, {%H-}HitInfo);
-  Handled := (HitInfo.HitNode = nil);
+  // Prevent context popup if clicked on header
+  Tree := Sender as TLazVirtualStringTree;
+  Handled := Tree.Header.InHeader(MousePos);
 end;
 
 procedure TMainForm.FormActivate(Sender: TObject);
