From df78add6dd841580f5ad572a5f1a40aaafa77e6e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 15 Jun 2014 14:39:02 +0000
Subject: [PATCH] lcl: TControlScrollBar: fixed range check

git-svn-id: trunk@45536 -
---
 lcl/include/controlscrollbar.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/controlscrollbar.inc b/lcl/include/controlscrollbar.inc
index bacee957f5..09969f3a52 100644
--- a/lcl/include/controlscrollbar.inc
+++ b/lcl/include/controlscrollbar.inc
@@ -247,7 +247,7 @@ begin
     // I am not positive that this is right, but it appeared to be when I
     // compared results to Delphi 4
     if FSmooth then
-      FIncrement := FPage div 10;
+      FIncrement := Max(low(FIncrement),FPage div 10);
   end;
 end;