paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 12:09:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix GTK2 scroll bars jumping to bottom. Issue #24389, patch from chiizujin

Browse Source 
git-svn-id: trunk@41056 -
This commit is contained in:
juha 2013-05-06 22:05:30 +00:00
parent d86926de1e
commit 30324f1b1c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -3137,8 +3137,11 @@ begin
MaxValue := ARange^.adjustment^.upper - ARange^.adjustment^.page_size
else
MaxValue := ARange^.adjustment^.upper;
if (AValue > MaxValue) or (AValue < ARange^.adjustment^.lower) then
AValue := MaxValue;
if (AValue > MaxValue) then
AValue := MaxValue
else if (AValue < ARange^.adjustment^.lower) then
AValue := ARange^.adjustment^.lower;
with Msg do
begin