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

term, rm stuff added for the dsgn component

This commit is contained in:
Basile Burg 2018-04-13 13:01:16 +02:00
parent 031386fb3e
commit 9ce5dd15e2
3 changed files with 24 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
etc/terminal/gtk2term.pas
View File

@ -82,7 +82,8 @@ var
vte_terminal_feed: procedure(terminal: PVteTerminal; data: PChar; vte_terminal_feed: procedure(terminal: PVteTerminal; data: PChar;
length: PtrInt); cdecl; length: PtrInt); cdecl;
vte_terminal_feed_child: procedure(terminal: PVteTerminal; data: PChar; length: PtrInt); cdecl; vte_terminal_feed_child: procedure(terminal: PVteTerminal; data: PChar;
length: PtrInt); cdecl;
vte_get_user_shell: function(): PChar; vte_get_user_shell: function(): PChar;
@ -107,16 +108,26 @@ begin
if Lib = 0 then if Lib = 0 then
Exit(Loaded); Exit(Loaded);
@vte_terminal_new := GetProcAddress(Lib, 'vte_terminal_new'); @vte_terminal_new := GetProcAddress(Lib,
@vte_terminal_fork_command_full := GetProcAddress(Lib, 'vte_terminal_fork_command_full'); 'vte_terminal_new');
@vte_terminal_set_color_background := GetProcAddress(Lib, 'vte_terminal_set_color_background'); @vte_terminal_fork_command_full := GetProcAddress(Lib,
@vte_terminal_set_color_foreground := GetProcAddress(Lib, 'vte_terminal_set_color_foreground'); 'vte_terminal_fork_command_full');
@vte_terminal_set_color_highlight := GetProcAddress(Lib, 'vte_terminal_set_color_highlight'); @vte_terminal_set_color_background := GetProcAddress(Lib,
@vte_terminal_set_color_highlight_foreground := GetProcAddress(Lib, 'vte_terminal_set_color_highlight_foreground'); 'vte_terminal_set_color_background');
@vte_terminal_set_font := GetProcAddress(Lib, 'vte_terminal_set_font'); @vte_terminal_set_color_foreground := GetProcAddress(Lib,
@vte_terminal_feed := GetProcAddress(Lib, 'vte_terminal_feed'); 'vte_terminal_set_color_foreground');
@vte_terminal_feed_child := GetProcAddress(Lib, 'vte_terminal_feed_child'); @vte_terminal_set_color_highlight := GetProcAddress(Lib,
@vte_get_user_shell := GetProcAddress(Lib, 'vte_get_user_shell'); 'vte_terminal_set_color_highlight');
@vte_terminal_set_color_highlight_foreground := GetProcAddress(Lib,
'vte_terminal_set_color_highlight_foreground');
@vte_terminal_set_font := GetProcAddress(Lib,
'vte_terminal_set_font');
@vte_terminal_feed := GetProcAddress(Lib,
'vte_terminal_feed');
@vte_terminal_feed_child := GetProcAddress(Lib,
'vte_terminal_feed_child');
@vte_get_user_shell := GetProcAddress(Lib,
'vte_get_user_shell');
// assume all or none // assume all or none
Loaded := @vte_terminal_new <> nil; Loaded := @vte_terminal_new <> nil;

18
etc/terminal/terminalctrls.pas
View File

@ -106,7 +106,7 @@ uses
type type
TGtk2WSTerminal = class(TWSCustomControl) TGtk2WSTerminal = class(TWSCustomControl)
protected private
class procedure SetCallbacks(const AGtkWidget: PGtkWidget; class procedure SetCallbacks(const AGtkWidget: PGtkWidget;
const AWidgetInfo: PWidgetInfo); virtual; const AWidgetInfo: PWidgetInfo); virtual;
published published
@ -266,23 +266,7 @@ begin
end; end;
procedure TTerminal.Paint; procedure TTerminal.Paint;
const
s = 'linux@user:~$ bash terminal';
var
w: integer = 0;
h: integer = 0;
begin begin
if not (csDesigning in ComponentState) then
exit;
Canvas.Pen.Style := psDash;
Canvas.Pen.Color := clWhite;
Canvas.Brush.Color := clBlack;
Canvas.Font.Color := clWhite;
Canvas.FillRect(ClientRect);
Canvas.Rectangle(ClientRect);
Canvas.GetTextSize(s, w, h);
Canvas.TextOut((Width - w) div 2, (Height - h) div 2, s);
end; end;
procedure TTerminal.setBackgroundColor(value: TColor); procedure TTerminal.setBackgroundColor(value: TColor);

1
src/ce_term.pas
View File

@ -133,6 +133,7 @@ begin
w.fTerm.selectedColor:= selectedColor; w.fTerm.selectedColor:= selectedColor;
w.fTerm.Font.BeginUpdate; w.fTerm.Font.BeginUpdate;
w.fTerm.Font.Assign(fFont); w.fTerm.Font.Assign(fFont);
// force the change: assigning does always trigger TTerminal.FontChanged.
w.fTerm.Font.Size := w.fTerm.Font.Size +1; w.fTerm.Font.Size := w.fTerm.Font.Size +1;
w.fTerm.Font.Size := w.fTerm.Font.Size -1; w.fTerm.Font.Size := w.fTerm.Font.Size -1;
w.fTerm.Font.endUpdate; w.fTerm.Font.endUpdate;