From d70fd7f280e85d8aff711894c689850a1c5e4ea7 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sat, 31 May 2025 09:34:04 +0200
Subject: [PATCH] Grids: fix result of TCustomGrid.MouseToGridZone and
 TCustomGrid.CellToGridZone for gzFixedCol and gxFixedRow. Issue #41681.

---
 lcl/grids.pas | 36 +++++++++++++++++++++---------------
 1 file changed, 21 insertions(+), 15 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 3b794d21d9..9390b54b17 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -6530,23 +6530,14 @@ var
   aBorderWidth: Integer;
   aCol, aRow: Longint;
 begin
+  {$ifdef dbgGrid}
+  debugln(['TCustomGrid.MouseToGridZone: X=',X,', Y=',Y,', FGCache.FixedWidth=',FGCache.FixedWidth,', FGCache.FixedHeight=',FGCache.FixedHeight]);
+  {$endif}
   aBorderWidth := GetBorderWidth;
   if FlipX(X)<FGCache.FixedWidth+aBorderWidth then begin
-    // in fixedwidth zone
+    // in fixedwidth zone: either a fixedcol or a fixedcell
     if Y<FGcache.FixedHeight+aBorderWidth then
       Result:= gzFixedCells
-    else begin
-      OffsetToColRow(False, True, Y, aRow, aCol);
-      if (aRow<0) or (RowCount<=FixedRows) then
-        Result := gzInvalid
-      else
-        Result := gzFixedRows;
-    end;
-  end
-  else if Y<FGCache.FixedHeight+aBorderWidth then begin
-    // if fixedheight zone
-    if FlipX(X)<FGCache.FixedWidth+aBorderWidth then
-      Result:=gzFixedCells
     else begin
       OffsetToColRow(True, True, X, aCol, aRow);
       if (aCol<0) or (ColCount<=FixedCols) then
@@ -6555,6 +6546,18 @@ begin
         Result := gzFixedCols;
     end;
   end
+  else if Y<FGCache.FixedHeight+aBorderWidth then begin
+    // if fixedheight zone: either a fixedrow or a fixedcell
+    if FlipX(X)<FGCache.FixedWidth+aBorderWidth then
+      Result:=gzFixedCells
+    else begin
+      OffsetToColRow(False, True, Y, aRow, aCol);
+      if (aRow<0) or (RowCount<=FixedRows) then
+        Result := gzInvalid
+      else
+        Result := gzFixedRows;
+    end;
+  end
   else if not FixedGrid then begin
     // in normal cell zone (though, might be outbounds)
     MouseToCell(x, y, aCol, aRow);
@@ -6565,6 +6568,9 @@ begin
   end
   else
     result := gzInvalid;
+  {$ifdef dbgGrid}
+  debugln(['TCustomGrid.MouseToGridZone: Result=',Dbgs(Result)]);
+  {$endif}
 end;
 
 function TCustomGrid.CellToGridZone(aCol, aRow: Integer): TGridZone;
@@ -6576,13 +6582,13 @@ begin
     if aRow<FFixedRows then
       Result:= gzFixedCells
     else
-      Result:= gzFixedRows
+      Result:= gzFixedCols
   else
   if (aRow<FFixedRows) then
     if aCol<FFixedCols then
       Result:= gzFixedCells
     else
-      Result:= gzFixedCols
+      Result:= gzFixedRows
   else
     Result := gzNormal;
 end;