pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Added more FPC conditionals in Linux code

Browse Source
This commit is contained in:
Salvador Diaz Fau
2021-01-12 20:32:28 +01:00
parent a7fa151cfb
commit 739b510526
2 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
source/uCEFChromiumCore.pas
View File

@@ -4641,14 +4641,14 @@ begin
end;
procedure TChromiumCore.doUpdateSize(aLeft, aTop, aWidth, aHeight : integer);
{$IFDEF LINUX}
{$IFDEF LINUX}{$IFDEF FPC}
var
TempHandle : TCefWindowHandle;
TempChanges : TXWindowChanges;
TempXDisplay : PXDisplay;
{$ENDIF}
{$ENDIF}{$ENDIF}
begin
{$IFDEF LINUX}
{$IFDEF LINUX}{$IFDEF FPC}
if (GlobalCEFApp <> nil) then
begin
TempXDisplay := GlobalCEFApp.XDisplay;
@@ -4668,16 +4668,16 @@ begin
end;
end;
end;
{$ENDIF}
{$ENDIF}{$ENDIF}
end;
procedure TChromiumCore.doSendCaptureLostEvent;
{$IFDEF LINUX}
{$IFDEF LINUX}{$IFDEF FPC}
var
TempXDisplay : PXDisplay;
{$ENDIF}
{$ENDIF}{$ENDIF}
begin
{$IFDEF LINUX}
{$IFDEF LINUX}{$IFDEF FPC}
if (GlobalCEFApp <> nil) then
begin
TempXDisplay := GlobalCEFApp.XDisplay;
@@ -4685,22 +4685,22 @@ begin
if (TempXDisplay <> nil) then
XSetInputFocus(TempXDisplay, X.None, RevertToNone, CurrentTime);
end;
{$ENDIF}
{$ENDIF}{$ENDIF}
if Initialized then
Browser.Host.SendCaptureLostEvent;
end;
procedure TChromiumCore.doUpdateXWindowVisibility(aVisible : boolean);
{$IFDEF LINUX}
{$IFDEF LINUX}{$IFDEF FPC}
var
TempXDisplay : PXDisplay;
TempXDisplay : PXDisplay;
TempHandle : TCefWindowHandle;
TempState : TAtom;
TempHidden : TAtom;
{$ENDIF}
{$ENDIF}{$ENDIF}
begin
{$IFDEF LINUX}
{$IFDEF LINUX}{$IFDEF FPC}
if (GlobalCEFApp <> nil) then
begin
TempXDisplay := GlobalCEFApp.XDisplay;
@@ -4723,7 +4723,7 @@ begin
end;
end;
end;
{$ENDIF}
{$ENDIF}{$ENDIF}
end;
{$IFDEF LINUX}