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