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

Update to CEF 136.1.1

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-05-04 18:27:51 +02:00
parent 8752850487
commit 770019bec8
27 changed files with 2873 additions and 2439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
source/uCEFBrowserViewDelegate.pas
View File

@ -30,6 +30,7 @@ type
procedure OnUseFramelessWindowForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
procedure OnGestureCommand(const browser_view: ICefBrowserView; gesture_command: TCefGestureCommand; var aResult : boolean);
procedure OnGetBrowserRuntimeStyle(var aResult : TCefRuntimeStyle);
procedure OnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
public
/// <summary>
@ -105,6 +106,12 @@ type
/// </summary>
procedure OnGetBrowserRuntimeStyle(var aResult : TCefRuntimeStyle); virtual;
/// <summary>
/// Return true (1) to allow the use of JavaScript moveTo/By() and
/// resizeTo/By() (without user activation) with Document picture-in-picture
/// popups.
/// </summary>
procedure OnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean); virtual;
/// <summary>
/// Links the methods in the internal CEF record data pointer with the methods in this class.
/// </summary>
procedure InitializeCEFMethods; override;
@ -143,6 +150,7 @@ type
procedure OnUseFramelessWindowForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean); override;
procedure OnGestureCommand(const browser_view: ICefBrowserView; gesture_command: TCefGestureCommand; var aResult : boolean); override;
procedure OnGetBrowserRuntimeStyle(var aResult : TCefRuntimeStyle); override;
procedure OnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean); override;
public
constructor Create(const events: ICefBrowserViewDelegateEvents); reintroduce;
@ -224,6 +232,12 @@ begin
aResult := PCefBrowserViewDelegate(FData)^.get_browser_runtime_style(PCefBrowserViewDelegate(FData));
end;
procedure TCefBrowserViewDelegateRef.OnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
begin
aResult := (PCefBrowserViewDelegate(FData)^.allow_move_for_picture_in_picture(PCefBrowserViewDelegate(FData),
CefGetData(browser_view)) <> 0);
end;
class function TCefBrowserViewDelegateRef.UnWrap(data: Pointer): ICefBrowserViewDelegate;
begin
if (data <> nil) then
@ -363,6 +377,22 @@ begin
TCefBrowserViewDelegateOwn(TempObject).OnGetBrowserRuntimeStyle(Result);
end;
function cef_browserview_delegate_allow_move_for_picture_in_picture(self : PCefBrowserViewDelegate;
browser_view : PCefBrowserView): integer; stdcall;
var
TempObject : TObject;
TempResult : boolean;
begin
TempObject := CefGetObject(self);
TempResult := False;
if (TempObject <> nil) and (TempObject is TCefBrowserViewDelegateOwn) then
TCefBrowserViewDelegateOwn(TempObject).OnAllowMoveForPictureInPicture(TCefBrowserViewRef.UnWrap(browser_view),
TempResult);
Result := ord(TempResult);
end;
constructor TCefBrowserViewDelegateOwn.Create;
begin
inherited CreateData(SizeOf(TCefBrowserViewDelegate));
@ -384,6 +414,7 @@ begin
use_frameless_window_for_picture_in_picture := {$IFDEF FPC}@{$ENDIF}cef_browserview_delegate_use_frameless_window_for_picture_in_picture;
on_gesture_command := {$IFDEF FPC}@{$ENDIF}cef_browserview_delegate_on_gesture_command;
get_browser_runtime_style := {$IFDEF FPC}@{$ENDIF}cef_browserview_delegate_get_browser_runtime_style;
allow_move_for_picture_in_picture := {$IFDEF FPC}@{$ENDIF}cef_browserview_delegate_allow_move_for_picture_in_picture;
end;
end;
@ -427,6 +458,11 @@ begin
aResult := CEF_RUNTIME_STYLE_DEFAULT;
end;
procedure TCefBrowserViewDelegateOwn.OnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
begin
aResult := False;
end;
// **************************************************************
// **************** TCustomBrowserViewDelegate ******************
// **************************************************************
@ -667,5 +703,18 @@ begin
end;
end;
procedure TCustomBrowserViewDelegate.OnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
begin
aResult := False;
try
if (FEvents <> nil) then
ICefBrowserViewDelegateEvents(FEvents).doOnAllowMoveForPictureInPicture(browser_view, aResult);
except
on e : exception do
if CustomExceptionHandler('TCustomBrowserViewDelegate.OnAllowMoveForPictureInPicture', e) then raise;
end;
end;
end.