From 1ef28cb013e7f9e91d2c2cd710da77b2e68f92eb Mon Sep 17 00:00:00 2001 From: Salvador Diaz Fau Date: Sun, 21 Feb 2021 18:49:04 +0100 Subject: [PATCH] Fix Lazarus build issue --- source/uCEFLinkedWindowParent.pas | 4 ++-- source/uCEFWinControl.pas | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/source/uCEFLinkedWindowParent.pas b/source/uCEFLinkedWindowParent.pas index 091f0e4e..0543523f 100644 --- a/source/uCEFLinkedWindowParent.pas +++ b/source/uCEFLinkedWindowParent.pas @@ -73,7 +73,7 @@ type {$ENDIF} 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} procedure WndProc(var aMessage: TMessage); override; {$ENDIF} @@ -105,7 +105,7 @@ begin FChromium := nil; end; -function TCEFLinkedWindowParent.GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}{LclType.}{$ENDIF}{$ENDIF}THandle; +function TCEFLinkedWindowParent.GetChildWindowHandle : {$IFNDEF MSWINDOWS}{$IFDEF FPC}LclType.{$ENDIF}{$ENDIF}THandle; begin Result := 0; diff --git a/source/uCEFWinControl.pas b/source/uCEFWinControl.pas index 4f425531..23ad611d 100644 --- a/source/uCEFWinControl.pas +++ b/source/uCEFWinControl.pas @@ -62,7 +62,7 @@ uses type TCEFWinControl = class(TWinControl) 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; public @@ -110,7 +110,7 @@ implementation uses 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 {$IFDEF MSWINDOWS} if not(csDesigning in ComponentState) and HandleAllocated then