1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00

Update to CEF 79.1.35

- Added groups to the demos with a secondary subprocess project
- Added some conditional directives for MacOS (MACOS IS NOT SUPPORTED YET!)
- Removed some Windows dependencies in the FMXExternalPumpBrowser demo
- Added TChromium.ParentFormHandle property
This commit is contained in:
Salvador Díaz Fau
2020-01-28 11:36:34 +01:00
parent 3754563ab9
commit b7a4cdd786
48 changed files with 5745 additions and 338 deletions

View File

@@ -65,6 +65,7 @@ type
{$IFNDEF FPC}{$IFDEF DELPHI16_UP}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}{$ENDIF}
TChromium = class(TChromiumCore)
protected
function GetParentFormHandle : TCefWindowHandle; override;
function GetParentForm : TCustomForm;
procedure InitializeDevToolsWindowInfo(aDevTools : TWinControl); virtual;
public
@@ -182,6 +183,27 @@ begin
TempComp := TempComp.owner;
end;
function TChromium.GetParentFormHandle : TCefWindowHandle;
{$IFDEF MSWINDOWS}
var
TempForm : TCustomForm;
{$ENDIF}
begin
Result := inherited GetParentFormHandle;
{$IFDEF MSWINDOWS}
TempForm := GetParentForm;
if (TempForm <> nil) and TempForm.HandleAllocated then
Result := TempForm.Handle
else
if (Application <> nil) and
(Application.MainForm <> nil) and
Application.MainForm.HandleAllocated then
Result := Application.MainForm.Handle;
{$ENDIF}
end;
procedure TChromium.MoveFormTo(const x, y: Integer);
var
TempForm : TCustomForm;