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

fix #305 - Terminal, scrollbackLines settings is not working

This commit is contained in:
Basile Burg 2018-04-25 01:46:41 +02:00
parent bc0dc31b0d
commit 54c66bc9a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
etc/terminal/terminalctrls.pas
View File

@ -55,7 +55,7 @@ type
{$ifdef windows}
property terminalProgram: string read fTermProgram write fTermProgram;
{$endif}
property scrollbackLines: LongWord read fScrollbackLines write setScrollBackLines default 512;
property scrollbackLines: LongWord read fScrollbackLines write setScrollBackLines default 4096;
// Background color
property backgroundColor: TColor read fBackgroundColor write setBackgroundColor default clBlack;
// Font color
@ -329,7 +329,7 @@ begin
fSelectedColor:= clWhite;
Font.Height:=11;
Font.Name:='Monospace';
fScrollbackLines:=512;
fScrollbackLines:=4096;
{$ifdef windows}
fTermProgram := 'cmd.exe';
@ -361,7 +361,7 @@ begin
fScrollbackLines:=value;
if not assigned(FInFo) then
exit;
v.g_type:= 1;
v.g_type:= G_TYPE_UINT;
v.data[0].v_uint := fScrollbackLines;
g_object_set_property(PGObject(PWidgetInfo(FInfo).ClientWidget), 'scrollback-lines', @v);
{$else}