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

Fix Lazarus build issue

Browse Source
This commit is contained in:
Salvador Diaz Fau
2021-02-21 18:49:04 +01:00
parent 92da537bf7
commit 1ef28cb013
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/uCEFLinkedWindowParent.pas
View File

@@ -73,7 +73,7 @@ type
{$ENDIF} {$ENDIF}
procedure SetChromium(aValue : TChromium); procedure SetChromium(aValue : TChromium);
function GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}{LclType.}{$ENDIF}{$ENDIF}THandle; override; function GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}LclType.{$ENDIF}{$ENDIF}THandle; override;
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
procedure WndProc(var aMessage: TMessage); override; procedure WndProc(var aMessage: TMessage); override;
{$ENDIF} {$ENDIF}
@@ -105,7 +105,7 @@ begin
FChromium := nil; FChromium := nil;
end; end;
function TCEFLinkedWindowParent.GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}{LclType.}{$ENDIF}{$ENDIF}THandle; function TCEFLinkedWindowParent.GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}LclType.{$ENDIF}{$ENDIF}THandle;
begin begin
Result := 0; Result := 0;

4
source/uCEFWinControl.pas
View File

@@ -62,7 +62,7 @@ uses
type type
TCEFWinControl = class(TWinControl) TCEFWinControl = class(TWinControl)
protected protected
function GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}{LclType.}{$ENDIF}{$ENDIF}THandle; virtual; function GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}LclType.{$ENDIF}{$ENDIF}THandle; virtual;
procedure Resize; override; procedure Resize; override;
public public
@@ -110,7 +110,7 @@ implementation
uses uses
uCEFMiscFunctions, uCEFClient, uCEFConstants; uCEFMiscFunctions, uCEFClient, uCEFConstants;
function TCEFWinControl.GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}{LclType.}{$ENDIF}{$ENDIF}THandle; function TCEFWinControl.GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}LclType.{$ENDIF}{$ENDIF}THandle;
begin begin
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
if not(csDesigning in ComponentState) and HandleAllocated then if not(csDesigning in ComponentState) and HandleAllocated then