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