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 75.1.4

Browse Source 
- Fixed issue #179 : Added a new EditorBrowser demo.
- Fixed issue #195 : Added VizDisplayCompositor to the disabled features list
- Fixed issue #206 : Added a context menu option to show the DevTools in SimpleFMXBrowser. Added TCEFFMXChromium.ShowDevTools and TCEFFMXChromium.CloseDevTools.
- Added a new menu option to MiniBrowser to simulate key presses in normal mode.
This commit is contained in:
Salvador Díaz Fau
2019-07-18 11:48:11 +02:00
parent 0e08d66a1f
commit 43b0ec7e20
43 changed files with 5155 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
demos/Delphi_FMX/SimpleFMXBrowser/uSimpleFMXBrowser.pas
View File

@ -50,6 +50,9 @@ uses
FMX.Edit, FMX.Controls.Presentation, uCEFFMXWindowParent, uCEFFMXChromium,
uCEFInterfaces, uCEFConstants, uCEFTypes;
const
MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS = MENU_ID_USER_FIRST + 1;
type
TSimpleFMXBrowserFrm = class(TForm)
AddressPnl: TPanel;
@ -78,6 +81,13 @@ type
procedure FormResize(Sender: TObject);
procedure FMXChromium1AfterCreated(Sender: TObject;
const browser: ICefBrowser);
procedure FMXChromium1BeforeContextMenu(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; const model: ICefMenuModel);
procedure FMXChromium1ContextMenuCommand(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; commandId: Integer;
eventFlags: Cardinal; out Result: Boolean);
protected
// Variables to control when can we destroy the form safely
@ -147,6 +157,13 @@ begin
PostCustomMessage(WM_CLOSE);
end;
procedure TSimpleFMXBrowserFrm.FMXChromium1BeforeContextMenu(
Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; const model: ICefMenuModel);
begin
model.AddItem(MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS, 'Show DevTools');
end;
procedure TSimpleFMXBrowserFrm.FMXChromium1BeforePopup( Sender : TObject;
const browser : ICefBrowser;
const frame : ICefFrame;
@ -172,6 +189,22 @@ begin
aAction := cbaDelay;
end;
procedure TSimpleFMXBrowserFrm.FMXChromium1ContextMenuCommand(
Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame;
const params: ICefContextMenuParams; commandId: Integer;
eventFlags: Cardinal; out Result: Boolean);
var
TempPoint : TPoint;
begin
if (commandId = MINIBROWSER_CONTEXTMENU_SHOWDEVTOOLS) then
begin
TempPoint.x := params.XCoord;
TempPoint.y := params.YCoord;
FMXChromium1.ShowDevTools(TempPoint);
end;
end;
function TSimpleFMXBrowserFrm.PostCustomMessage(aMessage, wParam : cardinal; lParam : integer) : boolean;
{$IFDEF MSWINDOWS}
var