paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 19:58:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Prevent a double validation message in TStringGrid. Issue #34306, patch from Tintinux.

Browse Source 
git-svn-id: trunk@59207 -
This commit is contained in:
juha 2018-10-01 08:41:39 +00:00
parent 969020a44e
commit 21ce8c93c4
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/grids.pas
View File

@ -6702,7 +6702,6 @@ begin
P:=MouseToLogcell(Point(X,Y)); P:=MouseToLogcell(Point(X,Y));
if gfNeedsSelectActive in GridFlags then if gfNeedsSelectActive in GridFlags then
SelectActive := (P.x<>FPivot.x)or(P.y<>FPivot.y); SelectActive := (P.x<>FPivot.x)or(P.y<>FPivot.y);
MoveExtend(False, P.x, P.y, False);
end; end;
gsColMoving: gsColMoving:
if goColMoving in Options then if goColMoving in Options then