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

LCL, fix grid's goScrollKeepVisible, issue #33783

Browse Source 
git-svn-id: trunk@58024 -
This commit is contained in:
jesus 2018-05-25 06:22:40 +00:00
parent a8c53413f8
commit 825c389d9b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -4887,8 +4887,12 @@ begin
if not GetSmoothScroll(SB_Vert) then
FGCache.TLRowOff := 0;
if not PointIgual(OldTopleft,FTopLeft) then
if not PointIgual(OldTopleft,FTopLeft) then begin
TopLeftChanged;
if goScrollKeepVisible in Options then
MoveNextSelectable(False, FTopLeft.x - oldTopLeft.x + col,
FTopLeft.y - oldTopLeft.y + row);
end;
NewTopLeftXY := GetPxTopLeft;
ScrollBy((OldTopLeftXY.x-NewTopLeftXY.x)*RTLSign, OldTopLeftXY.y-NewTopLeftXY.y);