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