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

fix comilation broken on win

This commit is contained in:
Basile Burg 2018-04-13 11:16:04 +02:00
parent 9ce5dd15e2
commit 994566ed9a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
etc/terminal/terminalctrls.pas
View File

@ -18,7 +18,9 @@ type
TTerminal = class(TCustomControl) TTerminal = class(TCustomControl)
private private
FInfo: Pointer; FInfo: Pointer;
{$ifdef hasgtk2term}
fTerminalHanlde: PVteTerminal; fTerminalHanlde: PVteTerminal;
{$endif}
fOnTerminate: TNotifyEvent; fOnTerminate: TNotifyEvent;
fOnTerminalVisibleChanged: TNotifyEvent; fOnTerminalVisibleChanged: TNotifyEvent;
fBackgroundColor: TColor; fBackgroundColor: TColor;
@ -246,12 +248,14 @@ begin
{$endif} {$endif}
end; end;
{$ifdef hasgtk2term}
function RegisterTerminal: Boolean; function RegisterTerminal: Boolean;
begin begin
Result := TerminalAvailable; Result := TerminalAvailable;
if Result then if Result then
RegisterWSComponent(TTerminal, TGtk2WSTerminal); RegisterWSComponent(TTerminal, TGtk2WSTerminal);
end; end;
{$endif}
constructor TTerminal.Create(AOwner: TComponent); constructor TTerminal.Create(AOwner: TComponent);
begin begin
@ -270,8 +274,10 @@ begin
end; end;
procedure TTerminal.setBackgroundColor(value: TColor); procedure TTerminal.setBackgroundColor(value: TColor);
{$ifdef hasgtk2term}
var var
c: TGDKColor; c: TGDKColor;
{$endif}
begin begin
fBackgroundColor:=value; fBackgroundColor:=value;
{$ifdef hasgtk2term} {$ifdef hasgtk2term}
@ -284,8 +290,10 @@ begin
end; end;
procedure TTerminal.setForegroundColor(value: TColor); procedure TTerminal.setForegroundColor(value: TColor);
{$ifdef hasgtk2term}
var var
c: TGDKColor; c: TGDKColor;
{$endif}
begin begin
fForegroundColor:=value; fForegroundColor:=value;
{$ifdef hasgtk2term} {$ifdef hasgtk2term}
@ -298,8 +306,10 @@ begin
end; end;
procedure TTerminal.setSelectedColor(value: TColor); procedure TTerminal.setSelectedColor(value: TColor);
{$ifdef hasgtk2term}
var var
c: TGDKColor; c: TGDKColor;
{$endif}
begin begin
fSelectedColor:=value; fSelectedColor:=value;
{$ifdef hasgtk2term} {$ifdef hasgtk2term}