forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #46 - Scrollbar out of range exception in the terminal

This commit is contained in:
Basile Burg 2020-06-09 16:02:44 +02:00
parent 3271a778c4
commit 51a2f3c09c
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/u_term.pas
View File

@ -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);