From 924cafa5b493cf656ca2ce249cf4ed1e45a655e6 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 22 May 2010 13:11:15 +0000
Subject: [PATCH] Gtk2: fixed TScrollingWinControl moving viewport out of
 scrollbar max ranges.

git-svn-id: trunk@25580 -
---
 lcl/interfaces/gtk/gtkcallback.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkcallback.inc b/lcl/interfaces/gtk/gtkcallback.inc
index 60404f739f..6005f7de32 100644
--- a/lcl/interfaces/gtk/gtkcallback.inc
+++ b/lcl/interfaces/gtk/gtkcallback.inc
@@ -2584,11 +2584,14 @@ begin
 
   if (AWidgetInfo^.LCLObject is TScrollingWinControl) then
   begin
-    MaxValue := ARange^.adjustment^.upper;
+    if ARange^.adjustment^.page_size > 0 then
+      MaxValue := ARange^.adjustment^.upper - ARange^.adjustment^.page_size
+    else
+      MaxValue := ARange^.adjustment^.upper;
     if (AValue > MaxValue) or (AValue < ARange^.adjustment^.lower) then
     begin
       Result := not Result;
-      exit;
+      AValue := MaxValue;
     end;
   end;