pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +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

24
source/uCEFChromiumCore.pas
View File

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

2
update_CEF4Delphi.json
View File

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