You've already forked CEF4Delphi
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:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user