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

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

6
source/uCEFMiscFunctions.pas
View File

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

2
update_CEF4Delphi.json
View File

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