pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Added support for Lazarus/FPC (windows 32bit)

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-05-12 14:50:54 +02:00
parent 294a245250
commit dd5f7f42c4
220 changed files with 6385 additions and 4281 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
source/uCEFWindowParent.pas
View File

@ -10,7 +10,7 @@
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright � 2018 Salvador D�az Fau. All rights reserved.
// Copyright � 2018 Salvador Diaz Fau. All rights reserved.
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
@ -37,6 +37,10 @@
unit uCEFWindowParent;
{$IFDEF FPC}
{$MODE OBJFPC}{$H+}
{$ENDIF}
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
@ -50,7 +54,12 @@ uses
{$IFDEF DELPHI16_UP}
{$IFDEF MSWINDOWS}WinApi.Windows, WinApi.Messages, Vcl.Controls, Vcl.Graphics,{$ENDIF} System.Classes,
{$ELSE}
Windows, Messages, Classes, Controls, Graphics,
Windows, Classes, Forms, Controls, Graphics,
{$IFDEF FPC}
LCLProc, LCLType, LCLIntf, LResources, LMessages, InterfaceBase,
{$ELSE}
Messages,
{$ENDIF}
{$ENDIF}
uCEFTypes, uCEFInterfaces;
@ -82,6 +91,10 @@ type
property Hint;
end;
{$IFDEF FPC}
procedure Register;
{$ENDIF}
implementation
uses
@ -89,7 +102,10 @@ uses
function TCEFWindowParent.GetChildWindowHandle : THandle;
begin
Result := GetWindow(Handle, GW_CHILD);
if not(csDesigning in ComponentState) and HandleAllocated then
Result := GetWindow(Handle, GW_CHILD)
else
Result := 0;
end;
procedure TCEFWindowParent.Resize;
@ -140,7 +156,7 @@ begin
WM_ERASEBKGND:
begin
TempHandle := ChildWindowHandle;
if (csDesigning in ComponentState) or (TempHandle = 0) then inherited WndProc(aMessage);
if (TempHandle = 0) then inherited WndProc(aMessage);
end;
CM_WANTSPECIALKEY:
@ -192,4 +208,12 @@ begin
Result := (TempHWND <> 0) and DestroyWindow(TempHWND);
end;
{$IFDEF FPC}
procedure Register;
begin
{$I tcefwindowparent.lrs}
RegisterComponents('Chromium', [TCEFWindowParent]);
end;
{$ENDIF}
end.