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

prevent possible exception caused by the terminal scrollbar

This commit is contained in:
Basile Burg 2020-06-01 10:36:47 +02:00
parent 507075cc1e
commit 8a412cd983
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
etc/terminal/terminalctrls.pas
View File

@ -11,7 +11,7 @@ unit TerminalCtrls;
interface
uses
Gtk2Term, Classes, SysUtils, Controls,
Gtk2Term, Classes, SysUtils, Controls, math,
{$ifdef windows} windows, AsyncProcess,{$endif}
Graphics, dialogs;
@ -642,10 +642,10 @@ begin
if assigned(fTerminalHanlde) then
begin
a := vte_terminal_get_adjustment(fTerminalHanlde);
result.max := round(a^.upper);
result.min := round(a^.lower);
result.value := round(a^.value);
result.pageSize := round(a^.page_size);
result.min := trunc(a^.lower);
result.max := max(trunc(a^.upper), result.min + 1);
result.value := trunc(a^.value);
result.pageSize := trunc(a^.page_size);
end;
{$endif}
end;