diff --git a/lcl/include/scrollbar.inc b/lcl/include/scrollbar.inc
index 96832794b2..2137d45622 100644
--- a/lcl/include/scrollbar.inc
+++ b/lcl/include/scrollbar.inc
@@ -141,6 +141,11 @@ begin
     TWSScrollBarClass(WidgetSetClass).SetParams(Self);
 end;
 
+procedure TCustomScrollBar.SetParams(APosition, AMin, AMax: Integer);
+begin
+  SetParams(APosition, AMin, AMax, FPageSize);
+end;
+
 procedure TCustomScrollBar.SetPosition(Value: Integer);
 begin
   SetParams(Value, FMin, FMax, FPageSize);
diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index e6f690ba76..3f54563cb3 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -60,6 +60,8 @@ type
   TScrollEvent = procedure(Sender: TObject; ScrollCode: TScrollCode;
                            var ScrollPos: Integer) of object;
 
+  { TCustomScrollBar }
+
   TCustomScrollBar = class(TWinControl)
   private
     FKind: TScrollBarKind;
@@ -91,6 +93,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     procedure SetParams(APosition, AMin, AMax, APageSize: Integer);
+    procedure SetParams(APosition, AMin, AMax: Integer);
   public
     property Kind: TScrollBarKind read FKind write SetKind default sbHorizontal;
     property LargeChange: TScrollBarInc read FLargeChange write FLargeChange default 1;