pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-22 22:17:48 +02:00
Code Issues Actions 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

15
source/uCEFBrowserViewComponent.pas
View File

@ -41,6 +41,7 @@ type
FOnUseFramelessWindowForPictureInPicture : TOnUseFramelessWindowForPictureInPicture;
FOnGestureCommand : TOnGestureCommandEvent;
FOnGetBrowserRuntimeStyle : TOnGetBrowserRuntimeStyleEvent;
FOnAllowMoveForPictureInPicture : TOnAllowMoveForPictureInPictureEvent;
procedure DestroyView; override;
procedure Initialize; override;
@ -61,6 +62,7 @@ type
procedure doOnUseFramelessWindowForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
procedure doOnGestureCommand(const browser_view: ICefBrowserView; gesture_command: TCefGestureCommand; var aResult : boolean);
procedure doOnGetBrowserRuntimeStyle(var aResult : TCefRuntimeStyle);
procedure doOnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
public
/// <summary>
@ -172,6 +174,12 @@ type
/// TCefRuntimeStyle documentation for details.
/// </summary>
property OnGetBrowserRuntimeStyle : TOnGetBrowserRuntimeStyleEvent read FOnGetBrowserRuntimeStyle write FOnGetBrowserRuntimeStyle;
/// <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>
property OnAllowMoveForPictureInPicture : TOnAllowMoveForPictureInPictureEvent read FOnAllowMoveForPictureInPicture write FOnAllowMoveForPictureInPicture;
end;
{$IFDEF FPC}
@ -224,6 +232,7 @@ begin
FOnUseFramelessWindowForPictureInPicture := nil;
FOnGestureCommand := nil;
FOnGetBrowserRuntimeStyle := nil;
FOnAllowMoveForPictureInPicture := nil;
end;
procedure TCEFBrowserViewComponent.DestroyView;
@ -372,6 +381,12 @@ begin
FOnGetBrowserRuntimeStyle(self, aResult);
end;
procedure TCEFBrowserViewComponent.doOnAllowMoveForPictureInPicture(const browser_view: ICefBrowserView; var aResult: boolean);
begin
if assigned(FOnAllowMoveForPictureInPicture) then
FOnAllowMoveForPictureInPicture(self, browser_view, aResult);
end;
{$IFDEF FPC}
procedure Register;
begin