mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-11-16 08:15:55 +01:00
600 lines
20 KiB
ObjectPascal
600 lines
20 KiB
ObjectPascal
// ************************************************************************
|
|
// ***************************** CEF4Delphi *******************************
|
|
// ************************************************************************
|
|
//
|
|
// CEF4Delphi is based on DCEF3 which uses CEF3 to embed a chromium-based
|
|
// browser in Delphi applications.
|
|
//
|
|
// The original license of DCEF3 still applies to CEF4Delphi.
|
|
//
|
|
// For more information about CEF4Delphi visit :
|
|
// https://www.briskbard.com/index.php?lang=en&pageid=cef
|
|
//
|
|
// Copyright © 2018 Salvador Díaz Fau. All rights reserved.
|
|
//
|
|
// ************************************************************************
|
|
// ************ vvvv Original license and comments below vvvv *************
|
|
// ************************************************************************
|
|
(*
|
|
* Delphi Chromium Embedded 3
|
|
*
|
|
* Usage allowed under the restrictions of the Lesser GNU General Public License
|
|
* or alternatively the restrictions of the Mozilla Public License 1.1
|
|
*
|
|
* Software distributed under the License is distributed on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
|
|
* the specific language governing rights and limitations under the License.
|
|
*
|
|
* Unit owner : Henri Gourvest <hgourvest@gmail.com>
|
|
* Web site : http://www.progdigy.com
|
|
* Repository : http://code.google.com/p/delphichromiumembedded/
|
|
* Group : http://groups.google.com/group/delphichromiumembedded
|
|
*
|
|
* Embarcadero Technologies, Inc is not permitted to use or redistribute
|
|
* this source code without explicit permission.
|
|
*
|
|
*)
|
|
|
|
unit uCEFClient;
|
|
|
|
{$IFNDEF CPUX64}
|
|
{$ALIGN ON}
|
|
{$MINENUMSIZE 4}
|
|
{$ENDIF}
|
|
|
|
{$I cef.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
uCEFBaseRefCounted, uCEFInterfaces, uCEFTypes;
|
|
|
|
type
|
|
TCefClientRef = class(TCefBaseRefCountedRef, ICefClient)
|
|
protected
|
|
function GetContextMenuHandler: ICefContextMenuHandler; virtual;
|
|
function GetDialogHandler: ICefDialogHandler; virtual;
|
|
function GetDisplayHandler: ICefDisplayHandler; virtual;
|
|
function GetDownloadHandler: ICefDownloadHandler; virtual;
|
|
function GetDragHandler: ICefDragHandler; virtual;
|
|
function GetFindHandler: ICefFindHandler; virtual;
|
|
function GetFocusHandler: ICefFocusHandler; virtual;
|
|
function GetJsdialogHandler: ICefJsdialogHandler; virtual;
|
|
function GetKeyboardHandler: ICefKeyboardHandler; virtual;
|
|
function GetLifeSpanHandler: ICefLifeSpanHandler; virtual;
|
|
function GetRenderHandler: ICefRenderHandler; virtual;
|
|
function GetLoadHandler: ICefLoadHandler; virtual;
|
|
function GetRequestHandler: ICefRequestHandler; virtual;
|
|
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; virtual;
|
|
|
|
procedure RemoveReferences; virtual;
|
|
|
|
public
|
|
class function UnWrap(data: Pointer): ICefClient;
|
|
end;
|
|
|
|
TCefClientOwn = class(TCefBaseRefCountedOwn, ICefClient)
|
|
protected
|
|
function GetContextMenuHandler: ICefContextMenuHandler; virtual;
|
|
function GetDialogHandler: ICefDialogHandler; virtual;
|
|
function GetDisplayHandler: ICefDisplayHandler; virtual;
|
|
function GetDownloadHandler: ICefDownloadHandler; virtual;
|
|
function GetDragHandler: ICefDragHandler; virtual;
|
|
function GetFindHandler: ICefFindHandler; virtual;
|
|
function GetFocusHandler: ICefFocusHandler; virtual;
|
|
function GetJsdialogHandler: ICefJsdialogHandler; virtual;
|
|
function GetKeyboardHandler: ICefKeyboardHandler; virtual;
|
|
function GetLifeSpanHandler: ICefLifeSpanHandler; virtual;
|
|
function GetRenderHandler: ICefRenderHandler; virtual;
|
|
function GetLoadHandler: ICefLoadHandler; virtual;
|
|
function GetRequestHandler: ICefRequestHandler; virtual;
|
|
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; virtual;
|
|
|
|
procedure RemoveReferences; virtual;
|
|
|
|
public
|
|
constructor Create; virtual;
|
|
end;
|
|
|
|
TCustomClientHandler = class(TCefClientOwn)
|
|
protected
|
|
FEvents : Pointer;
|
|
FLoadHandler : ICefLoadHandler;
|
|
FFocusHandler : ICefFocusHandler;
|
|
FContextMenuHandler : ICefContextMenuHandler;
|
|
FDialogHandler : ICefDialogHandler;
|
|
FKeyboardHandler : ICefKeyboardHandler;
|
|
FDisplayHandler : ICefDisplayHandler;
|
|
FDownloadHandler : ICefDownloadHandler;
|
|
FJsDialogHandler : ICefJsDialogHandler;
|
|
FLifeSpanHandler : ICefLifeSpanHandler;
|
|
FRenderHandler : ICefRenderHandler;
|
|
FRequestHandler : ICefRequestHandler;
|
|
FDragHandler : ICefDragHandler;
|
|
FFindHandler : ICefFindHandler;
|
|
|
|
|
|
function GetContextMenuHandler: ICefContextMenuHandler; override;
|
|
function GetDialogHandler: ICefDialogHandler; override;
|
|
function GetDisplayHandler: ICefDisplayHandler; override;
|
|
function GetDownloadHandler: ICefDownloadHandler; override;
|
|
function GetDragHandler: ICefDragHandler; override;
|
|
function GetFindHandler: ICefFindHandler; override;
|
|
function GetFocusHandler: ICefFocusHandler; override;
|
|
function GetJsdialogHandler: ICefJsdialogHandler; override;
|
|
function GetKeyboardHandler: ICefKeyboardHandler; override;
|
|
function GetLifeSpanHandler: ICefLifeSpanHandler; override;
|
|
function GetRenderHandler: ICefRenderHandler; override;
|
|
function GetLoadHandler: ICefLoadHandler; override;
|
|
function GetRequestHandler: ICefRequestHandler; override;
|
|
function OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean; override;
|
|
|
|
procedure InitializeVars;
|
|
|
|
public
|
|
constructor Create(const events: IChromiumEvents;
|
|
aCreateLoadHandler, aCreateFocusHandler, aCreateContextMenuHandler, aCreateDialogHandler,
|
|
aCreateKeyboardHandler, aCreateDisplayHandler, aCreateDownloadHandler, aCreateJsDialogHandler,
|
|
aCreateLifeSpanHandler, aCreateRenderHandler, aCreateRequestHandler, aCreateDragHandler,
|
|
aCreateFindHandler : boolean); reintroduce; virtual;
|
|
procedure BeforeDestruction; override;
|
|
procedure RemoveReferences; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF DELPHI16_UP}
|
|
System.SysUtils,
|
|
{$ELSE}
|
|
SysUtils,
|
|
{$ENDIF}
|
|
uCEFMiscFunctions, uCEFLibFunctions, uCEFProcessMessage, uCEFBrowser, uCEFLoadHandler,
|
|
uCEFFocusHandler, uCEFContextMenuHandler, uCEFDialogHandler, uCEFKeyboardHandler,
|
|
uCEFDisplayHandler, uCEFDownloadHandler, uCEFJsDialogHandler,
|
|
uCEFLifeSpanHandler, uCEFRequestHandler, uCEFRenderHandler, uCEFDragHandler,
|
|
uCEFFindHandler, uCEFConstants, uCEFApplication;
|
|
|
|
|
|
// ******************************************************
|
|
// ****************** TCefClientRef *********************
|
|
// ******************************************************
|
|
|
|
class function TCefClientRef.UnWrap(data: Pointer): ICefClient;
|
|
begin
|
|
if (data <> nil) then
|
|
Result := Create(data) as ICefClient
|
|
else
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetContextMenuHandler: ICefContextMenuHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetDialogHandler: ICefDialogHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetDisplayHandler: ICefDisplayHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetDownloadHandler: ICefDownloadHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetDragHandler: ICefDragHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetFindHandler: ICefFindHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetFocusHandler: ICefFocusHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetJsdialogHandler: ICefJsDialogHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetKeyboardHandler: ICefKeyboardHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetLifeSpanHandler: ICefLifeSpanHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetLoadHandler: ICefLoadHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetRenderHandler: ICefRenderHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.GetRequestHandler: ICefRequestHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientRef.OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
procedure TCefClientRef.RemoveReferences;
|
|
begin
|
|
//
|
|
end;
|
|
|
|
|
|
// ******************************************************
|
|
// ****************** TCefClientOwn *********************
|
|
// ******************************************************
|
|
|
|
|
|
function cef_client_own_get_context_menu_handler(self: PCefClient): PCefContextMenuHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetContextMenuHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_dialog_handler(self: PCefClient): PCefDialogHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetDialogHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_display_handler(self: PCefClient): PCefDisplayHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetDisplayHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_download_handler(self: PCefClient): PCefDownloadHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetDownloadHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_drag_handler(self: PCefClient): PCefDragHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetDragHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_find_handler(self: PCefClient): PCefFindHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetFindHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_focus_handler(self: PCefClient): PCefFocusHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetFocusHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_jsdialog_handler(self: PCefClient): PCefJsDialogHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetJsdialogHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_keyboard_handler(self: PCefClient): PCefKeyboardHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetKeyboardHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_life_span_handler(self: PCefClient): PCefLifeSpanHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetLifeSpanHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_load_handler(self: PCefClient): PCefLoadHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetLoadHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_get_render_handler(self: PCefClient): PCefRenderHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetRenderHandler);
|
|
end;
|
|
|
|
function cef_client_own_get_request_handler(self: PCefClient): PCefRequestHandler; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := CefGetData(GetRequestHandler);
|
|
end;
|
|
|
|
function cef_client_own_on_process_message_received(self: PCefClient; browser: PCefBrowser;
|
|
source_process: TCefProcessId; message: PCefProcessMessage): Integer; stdcall;
|
|
begin
|
|
with TCefClientOwn(CefGetObject(self)) do
|
|
Result := Ord(OnProcessMessageReceived(TCefBrowserRef.UnWrap(browser), source_process, TCefProcessMessageRef.UnWrap(message)));
|
|
end;
|
|
|
|
constructor TCefClientOwn.Create;
|
|
begin
|
|
inherited CreateData(SizeOf(TCefClient));
|
|
|
|
with PCefClient(FData)^ do
|
|
begin
|
|
get_context_menu_handler := cef_client_own_get_context_menu_handler;
|
|
get_dialog_handler := cef_client_own_get_dialog_handler;
|
|
get_display_handler := cef_client_own_get_display_handler;
|
|
get_download_handler := cef_client_own_get_download_handler;
|
|
get_drag_handler := cef_client_own_get_drag_handler;
|
|
get_find_handler := cef_client_own_get_find_handler;
|
|
get_focus_handler := cef_client_own_get_focus_handler;
|
|
get_jsdialog_handler := cef_client_own_get_jsdialog_handler;
|
|
get_keyboard_handler := cef_client_own_get_keyboard_handler;
|
|
get_life_span_handler := cef_client_own_get_life_span_handler;
|
|
get_load_handler := cef_client_own_get_load_handler;
|
|
get_render_handler := cef_client_own_get_get_render_handler;
|
|
get_request_handler := cef_client_own_get_request_handler;
|
|
on_process_message_received := cef_client_own_on_process_message_received;
|
|
end;
|
|
end;
|
|
|
|
function TCefClientOwn.GetContextMenuHandler: ICefContextMenuHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetDialogHandler: ICefDialogHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetDisplayHandler: ICefDisplayHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetDownloadHandler: ICefDownloadHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetDragHandler: ICefDragHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetFindHandler: ICefFindHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetFocusHandler: ICefFocusHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetJsdialogHandler: ICefJsDialogHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetKeyboardHandler: ICefKeyboardHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetLifeSpanHandler: ICefLifeSpanHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetLoadHandler: ICefLoadHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetRenderHandler: ICefRenderHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.GetRequestHandler: ICefRequestHandler;
|
|
begin
|
|
Result := nil;
|
|
end;
|
|
|
|
function TCefClientOwn.OnProcessMessageReceived(const browser: ICefBrowser; sourceProcess: TCefProcessId; const message: ICefProcessMessage): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
procedure TCefClientOwn.RemoveReferences;
|
|
begin
|
|
//
|
|
end;
|
|
|
|
|
|
// ******************************************************
|
|
// *************** TCustomClientHandler *****************
|
|
// ******************************************************
|
|
|
|
|
|
constructor TCustomClientHandler.Create(const events : IChromiumEvents;
|
|
aCreateLoadHandler : boolean;
|
|
aCreateFocusHandler : boolean;
|
|
aCreateContextMenuHandler : boolean;
|
|
aCreateDialogHandler : boolean;
|
|
aCreateKeyboardHandler : boolean;
|
|
aCreateDisplayHandler : boolean;
|
|
aCreateDownloadHandler : boolean;
|
|
aCreateJsDialogHandler : boolean;
|
|
aCreateLifeSpanHandler : boolean;
|
|
aCreateRenderHandler : boolean;
|
|
aCreateRequestHandler : boolean;
|
|
aCreateDragHandler : boolean;
|
|
aCreateFindHandler : boolean);
|
|
begin
|
|
inherited Create;
|
|
|
|
InitializeVars;
|
|
|
|
FEvents := Pointer(events);
|
|
|
|
if (FEvents <> nil) then
|
|
begin
|
|
if aCreateLoadHandler then FLoadHandler := TCustomLoadHandler.Create(FEvents);
|
|
if aCreateFocusHandler then FFocusHandler := TCustomFocusHandler.Create(FEvents);
|
|
if aCreateContextMenuHandler then FContextMenuHandler := TCustomContextMenuHandler.Create(FEvents);
|
|
if aCreateDialogHandler then FDialogHandler := TCustomDialogHandler.Create(FEvents);
|
|
if aCreateKeyboardHandler then FKeyboardHandler := TCustomKeyboardHandler.Create(FEvents);
|
|
if aCreateDisplayHandler then FDisplayHandler := TCustomDisplayHandler.Create(FEvents);
|
|
if aCreateDownloadHandler then FDownloadHandler := TCustomDownloadHandler.Create(FEvents);
|
|
if aCreateJsDialogHandler then FJsDialogHandler := TCustomJsDialogHandler.Create(FEvents);
|
|
if aCreateLifeSpanHandler then FLifeSpanHandler := TCustomLifeSpanHandler.Create(FEvents);
|
|
if aCreateRenderHandler then FRenderHandler := TCustomRenderHandler.Create(FEvents);
|
|
if aCreateRequestHandler then FRequestHandler := TCustomRequestHandler.Create(FEvents);
|
|
if aCreateDragHandler then FDragHandler := TCustomDragHandler.Create(FEvents);
|
|
if aCreateFindHandler then FFindHandler := TCustomFindHandler.Create(FEvents);
|
|
end;
|
|
end;
|
|
|
|
procedure TCustomClientHandler.BeforeDestruction;
|
|
begin
|
|
InitializeVars;
|
|
|
|
inherited BeforeDestruction;
|
|
end;
|
|
|
|
procedure TCustomClientHandler.RemoveReferences;
|
|
begin
|
|
FEvents := nil;
|
|
|
|
if (FLoadHandler <> nil) then FLoadHandler.RemoveReferences;
|
|
if (FFocusHandler <> nil) then FFocusHandler.RemoveReferences;
|
|
if (FContextMenuHandler <> nil) then FContextMenuHandler.RemoveReferences;
|
|
if (FDialogHandler <> nil) then FDialogHandler.RemoveReferences;
|
|
if (FKeyboardHandler <> nil) then FKeyboardHandler.RemoveReferences;
|
|
if (FDisplayHandler <> nil) then FDisplayHandler.RemoveReferences;
|
|
if (FDownloadHandler <> nil) then FDownloadHandler.RemoveReferences;
|
|
if (FJsDialogHandler <> nil) then FJsDialogHandler.RemoveReferences;
|
|
if (FLifeSpanHandler <> nil) then FLifeSpanHandler.RemoveReferences;
|
|
if (FRequestHandler <> nil) then FRequestHandler.RemoveReferences;
|
|
if (FRenderHandler <> nil) then FRenderHandler.RemoveReferences;
|
|
if (FDragHandler <> nil) then FDragHandler.RemoveReferences;
|
|
if (FFindHandler <> nil) then FFindHandler.RemoveReferences;
|
|
end;
|
|
|
|
procedure TCustomClientHandler.InitializeVars;
|
|
begin
|
|
FLoadHandler := nil;
|
|
FFocusHandler := nil;
|
|
FContextMenuHandler := nil;
|
|
FDialogHandler := nil;
|
|
FKeyboardHandler := nil;
|
|
FDisplayHandler := nil;
|
|
FDownloadHandler := nil;
|
|
FJsDialogHandler := nil;
|
|
FLifeSpanHandler := nil;
|
|
FRequestHandler := nil;
|
|
FRenderHandler := nil;
|
|
FDragHandler := nil;
|
|
FFindHandler := nil;
|
|
FEvents := nil;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetContextMenuHandler: ICefContextMenuHandler;
|
|
begin
|
|
Result := FContextMenuHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetDialogHandler: ICefDialogHandler;
|
|
begin
|
|
Result := FDialogHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetDisplayHandler: ICefDisplayHandler;
|
|
begin
|
|
Result := FDisplayHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetDownloadHandler: ICefDownloadHandler;
|
|
begin
|
|
Result := FDownloadHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetDragHandler: ICefDragHandler;
|
|
begin
|
|
Result := FDragHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetFindHandler: ICefFindHandler;
|
|
begin
|
|
Result := FFindHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetFocusHandler: ICefFocusHandler;
|
|
begin
|
|
Result := FFocusHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetJsdialogHandler: ICefJsDialogHandler;
|
|
begin
|
|
Result := FJsDialogHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetKeyboardHandler: ICefKeyboardHandler;
|
|
begin
|
|
Result := FKeyboardHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetLifeSpanHandler: ICefLifeSpanHandler;
|
|
begin
|
|
Result := FLifeSpanHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetLoadHandler: ICefLoadHandler;
|
|
begin
|
|
Result := FLoadHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetRenderHandler: ICefRenderHandler;
|
|
begin
|
|
Result := FRenderHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.GetRequestHandler: ICefRequestHandler;
|
|
begin
|
|
Result := FRequestHandler;
|
|
end;
|
|
|
|
function TCustomClientHandler.OnProcessMessageReceived(const browser : ICefBrowser;
|
|
sourceProcess : TCefProcessId;
|
|
const message : ICefProcessMessage): Boolean;
|
|
begin
|
|
if (FEvents <> nil) then
|
|
Result := IChromiumEvents(FEvents).doOnProcessMessageReceived(browser, sourceProcess, message)
|
|
else
|
|
Result := inherited OnProcessMessageReceived(browser, sourceProcess, message);
|
|
end;
|
|
|
|
end.
|