Delphi/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2024-11-16 00:05:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Compilation fix for Lazarus in Linux

Browse Source
This commit is contained in:
Salvador Díaz Fau 2019-05-04 09:53:50 +02:00
parent 179a2442ee
commit f8f9d420a7
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
source/uCEFBufferPanel.pas
View File

@ -52,7 +52,7 @@ uses
{$ELSE}
{$IFDEF MSWINDOWS}Windows, imm, {$ENDIF} Classes, Forms, Controls, Graphics,
{$IFDEF FPC}
LCLProc, LCLType, LCLIntf, LResources, LMessages, InterfaceBase, Win32Extra,
LCLProc, LCLType, LCLIntf, LResources, LMessages, InterfaceBase, {$IFDEF MSWINDOWS}Win32Extra,{$ENDIF}
{$ELSE}
Messages,
{$ENDIF}
@ -371,11 +371,13 @@ begin
end;
function TBufferPanel.CopyBuffer : boolean;
{$IFDEF MSWINDOWS}
var
TempFunction : TBlendFunction;
{$ENDIF}
begin
Result := False;
{$IFDEF MSWINDOWS}
if BeginBufferDraw then
try
if (FBuffer <> nil) then
@ -405,6 +407,7 @@ begin
finally
EndBufferDraw;
end;
{$ENDIF}
end;
procedure TBufferPanel.Paint;

6
source/uCEFMiscFunctions.pas
View File

@ -637,7 +637,7 @@ end;
{$IFDEF LINUX}
procedure WindowInfoAsChild(var aWindowInfo : TCefWindowInfo; aParent : TCefWindowHandle; aRect : TRect; const aWindowName : ustring = '');
begin
aWindowInfo.window_name := aWindowName;
aWindowInfo.window_name := CefString(aWindowName);
aWindowInfo.x := aRect.left;
aWindowInfo.y := aRect.top;
aWindowInfo.width := aRect.right - aRect.left;
@ -651,7 +651,7 @@ end;
procedure WindowInfoAsPopUp(var aWindowInfo : TCefWindowInfo; aParent : TCefWindowHandle; const aWindowName : ustring = '');
begin
aWindowInfo.window_name := aWindowName;
aWindowInfo.window_name := CefString(aWindowName);
aWindowInfo.x := 0;
aWindowInfo.y := 0;
aWindowInfo.width := 0;
@ -665,7 +665,7 @@ end;
procedure WindowInfoAsWindowless(var aWindowInfo : TCefWindowInfo; aParent : TCefWindowHandle; const aWindowName : ustring = '');
begin
aWindowInfo.window_name := aWindowName;
aWindowInfo.window_name := CefString(aWindowName);
aWindowInfo.x := 0;
aWindowInfo.y := 0;
aWindowInfo.width := 0;

2
update_CEF4Delphi.json
View File

@ -2,7 +2,7 @@
"UpdateLazPackages" : [
{
"ForceNotify" : true,
"InternalVersion" : 5,
"InternalVersion" : 6,
"Name" : "cef4delphi_lazarus.lpk",
"Version" : "74.1.13.0"
}