pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-02-02 10:25:26 +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
Show Stats 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}

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 229,
"InternalVersion" : 230,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "87.1.13.0"
}