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

LCL, fix grids scrollbar, from Tomasz Wieckowski, issue #18642

Browse Source 
git-svn-id: trunk@29405 -
This commit is contained in:
jesus 2011-02-07 06:05:01 +00:00
parent 2cc34a70cb
commit e2b5fc4bf1
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

@ -4008,7 +4008,7 @@ var
ScrollInfo.fMask := SIF_RANGE or SIF_PAGE; ScrollInfo.fMask := SIF_RANGE or SIF_PAGE;
GetScrollInfo(Handle, SB_HORZ, ScrollInfo); GetScrollInfo(Handle, SB_HORZ, ScrollInfo);
with ScrollInfo do with ScrollInfo do
if message.Pos>=(nMax-nMin-nPage) then if not (goSmoothScroll in Options) and (message.Pos>=(nMax-nMin-nPage)) then
result := TL result := TL
else else
result := message.Pos; result := message.Pos;
@ -4117,7 +4117,7 @@ var
ScrollInfo.fMask := SIF_RANGE or SIF_PAGE; ScrollInfo.fMask := SIF_RANGE or SIF_PAGE;
GetScrollInfo(Handle, SB_VERT, ScrollInfo); GetScrollInfo(Handle, SB_VERT, ScrollInfo);
with ScrollInfo do with ScrollInfo do
if message.Pos>=(nMax-nMin-nPage) then if not (goSmoothScroll in Options) and (message.Pos>=(nMax-nMin-nPage)) then
result := TL result := TL
else else
result := message.Pos; result := message.Pos;