paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Grids: fix MouseToGridzone: if mouse is over a fixed grid, don't return gzInvalid. Issue #41700.

Browse Source
This commit is contained in:
Bart 2025-06-06 23:33:06 +02:00
parent 18505ab603
commit 387ddf0aa8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -6546,7 +6546,7 @@ begin
Result:= gzFixedCells
else begin
OffsetToColRow(True, True, X, aCol, aRow);
if (aCol<0) or (ColCount<=FixedCols) then
if (aCol<0) {or (ColCount<=FixedCols)} then // Issue #41700.
Result := gzInvalid
else begin
if AllowOutboundEvents then
@ -6567,7 +6567,7 @@ begin
Result:=gzFixedCells
else begin
OffsetToColRow(False, True, Y, aRow, aCol);
if (aRow<0) or (RowCount<=FixedRows) then
if (aRow<0) {or (RowCount<=FixedRows)} then // Issue #41700.
Result := gzInvalid
else begin
if AllowOutboundEvents then