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

Grids: fix col/rowsizing after commit d70fd7f2.

Browse Source
This commit is contained in:
Bart 2025-06-01 00:18:16 +02:00
parent cebc92b18c
commit c3cd60d26d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/grids.pas
View File

@ -6903,14 +6903,14 @@ begin
gzFixedCols:
begin
if (goColSizing in Options) and (FCursorState=gcsColWidthChanging) then begin
fGridState:= gsColSizing;
if (goRowSizing in Options) and (FCursorState=gcsRowHeightChanging) then begin
fGridState:= gsRowSizing;
FGCache.OldMaxTopLeft := FGCache.MaxTopLeft;
end
else begin
// ColMoving or Clicking
if fGridState<>gsColMoving then begin
fGridState:=gsColMoving;
if fGridState<>gsRowMoving then begin
fGridState:=gsRowMoving;
ResetLastMove;
end;
@ -6924,11 +6924,11 @@ begin
gzFixedRows:
begin
if (goRowSizing in Options) and (FCursorState=gcsRowHeightChanging) then
fGridState:= gsRowSizing
if (goColSizing in Options) and (FCursorState=gcsColWidthChanging) then
fGridState:= gsColSizing
else begin
// RowMoving or Clicking
fGridState:=gsRowMoving;
fGridState:=gsColMoving;
ResetLastMove;
if ((goHeaderPushedLook in Options) and
(FGCache.HotGridZone in FHeaderPushZones)) then