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

dbgrids: fix 2 occurrences where gzFixedCols and gxFixedRows were swapped. Resolves issue #41719.

Browse Source
This commit is contained in:
Bart 2025-07-04 22:04:34 +02:00
parent f826f69769
commit bd116b488b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbgrids.pas
View File

@ -2778,14 +2778,14 @@ begin
doMouseDown;
end;
gzFixedCells, gzFixedCols:
gzFixedCells, gzFixedRows:
doInherited;
else
begin
P:=MouseToCell(Point(X,Y));
if Gz=gzFixedRows then
if Gz=gzFixedCols then
P.X := Col;
if P.Y=Row then begin // The current active row was clicked again.
@ -3929,10 +3929,10 @@ begin
MouseToCell(x, y, aCol, aRow);
if (Result=gzFixedRows) or (Result=gzNormal) then
if (Result=gzFixedCols) or (Result=gzNormal) then
RecordOffset := aRow - Row;
if (Result=gzFixedCols) or (Result=gzNormal) then begin
if (Result=gzFixedRows) or (Result=gzNormal) then begin
aRow := ColumnIndexFromGridColumn(aCol);
if aRow>=0 then
Column := Columns[aRow];