From 51a2f3c09c91f0957a08a45821314a8f72c2b885 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Tue, 9 Jun 2020 16:02:44 +0200
Subject: [PATCH] fix #46 - Scrollbar out of range exception in the terminal

---
 src/u_term.pas | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/u_term.pas b/src/u_term.pas
index 5ee835c2..24ecca6b 100644
--- a/src/u_term.pas
+++ b/src/u_term.pas
@@ -341,11 +341,8 @@ var
 begin
   if fDisableScrollBarSync or not visible or fTerm.isNil then
     exit;
-  i                   := fTerm.getVScrollInfo();
-  ScrollBar1.Min      := i.min;
-  ScrollBar1.Max      := i.max;
-  ScrollBar1.Position := i.value;
-  ScrollBar1.PageSize := i.pageSize;
+  i := fTerm.getVScrollInfo();
+  ScrollBar1.SetParams(i.value, i.min, i.max, i.pageSize);
 end;
 
 procedure TTermWidget.FormShortCut(var Msg: TLMKey; var Handled: Boolean);