mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-02-12 10:26:05 +02:00
ca8bc9dff4
Added the PDS file to extract the HTML Help files using PasDoc Added more XML documentation Fixed some XML errors. Removed the license copy from the pas units. Updated the LICENSE.md file
448 lines
18 KiB
ObjectPascal
448 lines
18 KiB
ObjectPascal
unit uCEFDisplayHandler;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE OBJFPC}{$H+}
|
|
{$ENDIF}
|
|
|
|
{$I cef.inc}
|
|
|
|
{$IFNDEF TARGET_64BITS}{$ALIGN ON}{$ENDIF}
|
|
{$MINENUMSIZE 4}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
System.Classes,
|
|
{$ELSE}
|
|
Classes,
|
|
{$ENDIF}
|
|
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
|
|
|
|
type
|
|
TCefDisplayHandlerOwn = class(TCefBaseRefCountedOwn, ICefDisplayHandler)
|
|
protected
|
|
procedure OnAddressChange(const browser: ICefBrowser; const frame: ICefFrame; const url: ustring); virtual;
|
|
procedure OnTitleChange(const browser: ICefBrowser; const title: ustring); virtual;
|
|
procedure OnFaviconUrlChange(const browser: ICefBrowser; const iconUrls: TStrings); virtual;
|
|
procedure OnFullScreenModeChange(const browser: ICefBrowser; fullscreen: Boolean); virtual;
|
|
function OnTooltip(const browser: ICefBrowser; var text: ustring): Boolean; virtual;
|
|
procedure OnStatusMessage(const browser: ICefBrowser; const value: ustring); virtual;
|
|
function OnConsoleMessage(const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring; line: Integer): Boolean; virtual;
|
|
function OnAutoResize(const browser: ICefBrowser; const new_size: PCefSize): Boolean; virtual;
|
|
procedure OnLoadingProgressChange(const browser: ICefBrowser; const progress: double); virtual;
|
|
procedure OnCursorChange(const browser: ICefBrowser; cursor_: TCefCursorHandle; CursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; var aResult : boolean); virtual;
|
|
procedure OnMediaAccessChange(const browser: ICefBrowser; has_video_access, has_audio_access: boolean); virtual;
|
|
|
|
procedure RemoveReferences; virtual;
|
|
|
|
public
|
|
constructor Create; virtual;
|
|
end;
|
|
|
|
TCustomDisplayHandler = class(TCefDisplayHandlerOwn)
|
|
protected
|
|
FEvents : Pointer;
|
|
|
|
procedure OnAddressChange(const browser: ICefBrowser; const frame: ICefFrame; const url: ustring); override;
|
|
procedure OnTitleChange(const browser: ICefBrowser; const title: ustring); override;
|
|
procedure OnFaviconUrlChange(const browser: ICefBrowser; const iconUrls: TStrings); override;
|
|
procedure OnFullScreenModeChange(const browser: ICefBrowser; fullscreen: Boolean); override;
|
|
function OnTooltip(const browser: ICefBrowser; var text: ustring): Boolean; override;
|
|
procedure OnStatusMessage(const browser: ICefBrowser; const value: ustring); override;
|
|
function OnConsoleMessage(const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring; line: Integer): Boolean; override;
|
|
function OnAutoResize(const browser: ICefBrowser; const new_size: PCefSize): Boolean; override;
|
|
procedure OnLoadingProgressChange(const browser: ICefBrowser; const progress: double); override;
|
|
procedure OnCursorChange(const browser: ICefBrowser; cursor_: TCefCursorHandle; CursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; var aResult : boolean); override;
|
|
procedure OnMediaAccessChange(const browser: ICefBrowser; has_video_access, has_audio_access: boolean); override;
|
|
|
|
procedure RemoveReferences; override;
|
|
|
|
public
|
|
constructor Create(const events : IChromiumEvents); reintroduce; virtual;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
System.SysUtils,
|
|
{$ELSE}
|
|
SysUtils,
|
|
{$ENDIF}
|
|
uCEFMiscFunctions, uCEFLibFunctions, uCEFBrowser, uCEFFrame, uCEFStringList;
|
|
|
|
|
|
procedure cef_display_handler_on_address_change( self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
frame : PCefFrame;
|
|
const url : PCefString); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
TCefDisplayHandlerOwn(TempObject).OnAddressChange(TCefBrowserRef.UnWrap(browser),
|
|
TCefFrameRef.UnWrap(frame),
|
|
CefString(url));
|
|
end;
|
|
|
|
procedure cef_display_handler_on_title_change( self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
const title : PCefString); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
TCefDisplayHandlerOwn(TempObject).OnTitleChange(TCefBrowserRef.UnWrap(browser),
|
|
CefString(title));
|
|
end;
|
|
|
|
procedure cef_display_handler_on_favicon_urlchange(self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
icon_urls : TCefStringList); stdcall;
|
|
var
|
|
TempSL : TStringList;
|
|
TempCefSL : ICefStringList;
|
|
TempObject : TObject;
|
|
begin
|
|
TempSL := nil;
|
|
|
|
try
|
|
try
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
begin
|
|
TempSL := TStringList.Create;
|
|
TempCefSL := TCefStringListRef.Create(icon_urls);
|
|
TempCefSL.CopyToStrings(TempSL);
|
|
|
|
TCefDisplayHandlerOwn(TempObject).OnFaviconUrlChange(TCefBrowserRef.UnWrap(browser),
|
|
TempSL);
|
|
end;
|
|
except
|
|
on e : exception do
|
|
if CustomExceptionHandler('cef_display_handler_on_favicon_urlchange', e) then raise;
|
|
end;
|
|
finally
|
|
if (TempSL <> nil) then FreeAndNil(TempSL);
|
|
end;
|
|
end;
|
|
|
|
procedure cef_display_handler_on_fullscreen_mode_change(self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
fullscreen : Integer); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
TCefDisplayHandlerOwn(TempObject).OnFullScreenModeChange(TCefBrowserRef.UnWrap(browser),
|
|
fullscreen <> 0);
|
|
end;
|
|
|
|
function cef_display_handler_on_tooltip(self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
text : PCefString): Integer; stdcall;
|
|
var
|
|
TempText : ustring;
|
|
TempObject : TObject;
|
|
begin
|
|
Result := Ord(False);
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
begin
|
|
TempText := CefStringClearAndGet(text);
|
|
Result := Ord(TCefDisplayHandlerOwn(TempObject).OnTooltip(TCefBrowserRef.UnWrap(browser),
|
|
TempText));
|
|
if (text <> nil) then text^ := CefStringAlloc(TempText);
|
|
end;
|
|
end;
|
|
|
|
procedure cef_display_handler_on_status_message( self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
const value : PCefString); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
TCefDisplayHandlerOwn(TempObject).OnStatusMessage(TCefBrowserRef.UnWrap(browser),
|
|
CefString(value));
|
|
end;
|
|
|
|
function cef_display_handler_on_console_message( self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
level : TCefLogSeverity;
|
|
const message_ : PCefString;
|
|
const source : PCefString;
|
|
line : Integer): Integer; stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
Result := Ord(False);
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
Result := Ord(TCefDisplayHandlerOwn(TempObject).OnConsoleMessage(TCefBrowserRef.UnWrap(browser),
|
|
level,
|
|
CefString(message_),
|
|
CefString(source),
|
|
line));
|
|
end;
|
|
|
|
function cef_display_handler_on_auto_resize( self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
const new_size : PCefSize): Integer; stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
Result := Ord(False);
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
Result := Ord(TCefDisplayHandlerOwn(TempObject).OnAutoResize(TCefBrowserRef.UnWrap(browser),
|
|
new_size));
|
|
end;
|
|
|
|
|
|
procedure cef_display_handler_on_loading_progress_change(self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
progress : double); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
TCefDisplayHandlerOwn(TempObject).OnLoadingProgressChange(TCefBrowserRef.UnWrap(browser),
|
|
progress);
|
|
end;
|
|
|
|
function cef_display_handler_on_cursor_change( self : PCefDisplayHandler;
|
|
browser : PCefBrowser;
|
|
cursor : TCefCursorHandle;
|
|
type_ : TCefCursorType;
|
|
const custom_cursor_info : PCefCursorInfo): Integer; stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
TempResult : boolean;
|
|
begin
|
|
TempResult := False;
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
TCefDisplayHandlerOwn(TempObject).OnCursorChange(TCefBrowserRef.UnWrap(browser),
|
|
cursor,
|
|
type_,
|
|
custom_cursor_info,
|
|
TempResult);
|
|
|
|
Result := Ord(TempResult);
|
|
end;
|
|
|
|
procedure cef_display_handler_on_media_access_change(self: PCefDisplayHandler; browser: PCefBrowser; has_video_access, has_audio_access: integer); stdcall;
|
|
var
|
|
TempObject : TObject;
|
|
begin
|
|
TempObject := CefGetObject(self);
|
|
|
|
if (TempObject <> nil) and (TempObject is TCefDisplayHandlerOwn) then
|
|
TCefDisplayHandlerOwn(TempObject).OnMediaAccessChange(TCefBrowserRef.UnWrap(browser),
|
|
has_video_access <> 0,
|
|
has_audio_access <> 0);
|
|
end;
|
|
|
|
constructor TCefDisplayHandlerOwn.Create;
|
|
begin
|
|
inherited CreateData(SizeOf(TCefDisplayHandler));
|
|
|
|
with PCefDisplayHandler(FData)^ do
|
|
begin
|
|
on_address_change := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_address_change;
|
|
on_title_change := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_title_change;
|
|
on_favicon_urlchange := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_favicon_urlchange;
|
|
on_fullscreen_mode_change := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_fullscreen_mode_change;
|
|
on_tooltip := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_tooltip;
|
|
on_status_message := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_status_message;
|
|
on_console_message := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_console_message;
|
|
on_auto_resize := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_auto_resize;
|
|
on_loading_progress_change := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_loading_progress_change;
|
|
on_cursor_change := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_cursor_change;
|
|
on_media_access_change := {$IFDEF FPC}@{$ENDIF}cef_display_handler_on_media_access_change;
|
|
end;
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnAddressChange(const browser: ICefBrowser; const frame: ICefFrame; const url: ustring);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
function TCefDisplayHandlerOwn.OnConsoleMessage(const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring; line: Integer): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
function TCefDisplayHandlerOwn.OnAutoResize(const browser: ICefBrowser; const new_size: PCefSize): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnLoadingProgressChange(const browser: ICefBrowser; const progress: double);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnCursorChange(const browser: ICefBrowser; cursor_: TCefCursorHandle; CursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; var aResult : boolean);
|
|
begin
|
|
aResult := False;
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnMediaAccessChange(const browser: ICefBrowser; has_video_access, has_audio_access: boolean);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnFaviconUrlChange(const browser: ICefBrowser; const iconUrls: TStrings);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnFullScreenModeChange(const browser: ICefBrowser; fullscreen: Boolean);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnStatusMessage(const browser: ICefBrowser; const value: ustring);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.OnTitleChange(const browser: ICefBrowser; const title: ustring);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
function TCefDisplayHandlerOwn.OnTooltip(const browser: ICefBrowser; var text: ustring): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
procedure TCefDisplayHandlerOwn.RemoveReferences;
|
|
begin
|
|
//
|
|
end;
|
|
|
|
// TCustomDisplayHandler
|
|
|
|
constructor TCustomDisplayHandler.Create(const events : IChromiumEvents);
|
|
begin
|
|
inherited Create;
|
|
|
|
FEvents := Pointer(events);
|
|
end;
|
|
|
|
destructor TCustomDisplayHandler.Destroy;
|
|
begin
|
|
RemoveReferences;
|
|
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.RemoveReferences;
|
|
begin
|
|
FEvents := nil;
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnAddressChange(const browser : ICefBrowser;
|
|
const frame : ICefFrame;
|
|
const url : ustring);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnAddressChange(browser, frame, url);
|
|
end;
|
|
|
|
function TCustomDisplayHandler.OnConsoleMessage(const browser : ICefBrowser;
|
|
level : TCefLogSeverity;
|
|
const message_ : ustring;
|
|
const source : ustring;
|
|
line : Integer): Boolean;
|
|
begin
|
|
if (FEvents <> nil) then
|
|
Result := IChromiumEvents(FEvents).doOnConsoleMessage(browser, level, message_, source, line)
|
|
else
|
|
Result := inherited OnConsoleMessage(browser, level, message_, source, line);
|
|
end;
|
|
|
|
function TCustomDisplayHandler.OnAutoResize(const browser: ICefBrowser; const new_size: PCefSize): Boolean;
|
|
begin
|
|
if (FEvents <> nil) then
|
|
Result := IChromiumEvents(FEvents).doOnAutoResize(browser, new_size)
|
|
else
|
|
Result := inherited OnAutoResize(browser, new_size);
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnLoadingProgressChange(const browser: ICefBrowser; const progress: double);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnLoadingProgressChange(browser, progress);
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnCursorChange(const browser : ICefBrowser;
|
|
cursor_ : TCefCursorHandle;
|
|
cursorType : TCefCursorType;
|
|
const customCursorInfo : PCefCursorInfo;
|
|
var aResult : boolean);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnCursorChange(browser, cursor_, cursorType, customCursorInfo, aResult);
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnMediaAccessChange(const browser: ICefBrowser; has_video_access, has_audio_access: boolean);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnMediaAccessChange(browser, has_video_access, has_audio_access);
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnFaviconUrlChange(const browser: ICefBrowser; const iconUrls: TStrings);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnFaviconUrlChange(browser, iconUrls);
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnFullScreenModeChange(const browser: ICefBrowser; fullscreen: Boolean);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnFullScreenModeChange(browser, fullscreen);
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnStatusMessage(const browser: ICefBrowser; const value: ustring);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnStatusMessage(browser, value);
|
|
end;
|
|
|
|
procedure TCustomDisplayHandler.OnTitleChange(const browser: ICefBrowser; const title: ustring);
|
|
begin
|
|
if (FEvents <> nil) then
|
|
IChromiumEvents(FEvents).doOnTitleChange(browser, title);
|
|
end;
|
|
|
|
function TCustomDisplayHandler.OnTooltip(const browser: ICefBrowser; var text: ustring): Boolean;
|
|
begin
|
|
if (FEvents <> nil) then
|
|
Result := IChromiumEvents(FEvents).doOnTooltip(browser, text)
|
|
else
|
|
Result := inherited OnTooltip(browser, text);
|
|
end;
|
|
|
|
end.
|