pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-08-04 21:32:54 +02:00
Code Issues Actions Releases Activity

Block F1 and F11 in MiniBrowser demos

Browse Source
This commit is contained in:
Salvador Díaz Fau
2024-09-12 09:05:07 +02:00
parent a42f3dfd5f
commit b5e337f36c
10 changed files with 47 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm
View File

@ -312,6 +312,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnResourceResponse = Chromium1ResourceResponse
OnFileDialog = Chromium1FileDialog
OnDevToolsMethodResult = Chromium1DevToolsMethodResult
OnChromeCommand = Chromium1ChromeCommand
OnRequestMediaAccessPermission = Chromium1RequestMediaAccessPermission
Left = 32
Top = 224

9
demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
View File

@ -175,6 +175,7 @@ type
procedure Chromium1FileDialog(Sender: TObject; const browser: ICefBrowser; mode: TCefFileDialogMode; const title, defaultFilePath: ustring; const acceptFilters, accept_extensions, accept_descriptions: TStrings; const callback: ICefFileDialogCallback; var Result: Boolean);
procedure Chromium1LoadError(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; errorCode: TCefErrorCode; const errorText, failedUrl: ustring);
procedure Chromium1ResolvedHostAvailable(Sender: TObject; result: TCefErrorCode; const resolvedIps: TStrings);
procedure Chromium1ChromeCommand(Sender: TObject; const browser: ICefBrowser; command_id: Integer; disposition: TCefWindowOpenDisposition; var aResult: Boolean);
procedure BackBtnClick(Sender: TObject);
procedure ForwardBtnClick(Sender: TObject);
@ -553,6 +554,14 @@ begin
Result := False;
end;
procedure TMiniBrowserFrm.Chromium1ChromeCommand(Sender: TObject;
const browser: ICefBrowser; command_id: Integer;
disposition: TCefWindowOpenDisposition; var aResult: Boolean);
begin
aResult := (command_id = IDC_HELP_PAGE_VIA_KEYBOARD) or // Block the new Chromium window created when the user presses F1 for help.
(command_id = IDC_FULLSCREEN); // Block the "switch to full screen" command when the user presses F11.
end;
procedure TMiniBrowserFrm.Chromium1ConsoleMessage(Sender: TObject;
const browser: ICefBrowser; level: TCefLogSeverity;
const message_, source: ustring; line: Integer; out Result: Boolean);

BIN
demos/Delphi_VCL/MiniBrowserD7/MiniBrowser.res Normal file
View File

Binary file not shown.

1
demos/Delphi_VCL/MiniBrowserD7/uMiniBrowser.dfm
View File

@ -264,6 +264,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnAfterCreated = Chromium1AfterCreated
OnBeforeClose = Chromium1BeforeClose
OnClose = Chromium1Close
OnChromeCommand = Chromium1ChromeCommand
Left = 32
Top = 224
end

17
demos/Delphi_VCL/MiniBrowserD7/uMiniBrowser.pas
View File

@ -57,7 +57,8 @@ type
procedure Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer);
procedure Chromium1LoadError(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; errorCode: TCefErrorCode; const errorText, failedUrl: ustring);
procedure Chromium1StatusMessage(Sender: TObject; const browser: ICefBrowser; const value: ustring);
procedure Chromium1TitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring);
procedure Chromium1TitleChange(Sender: TObject; const browser: ICefBrowser; const title: ustring);
procedure Chromium1ChromeCommand(Sender: TObject; const browser: ICefBrowser; command_id: Integer; disposition: TCefWindowOpenDisposition; var aResult: Boolean);
procedure BackBtnClick(Sender: TObject);
procedure ConfigBtnClick(Sender: TObject);
@ -320,10 +321,7 @@ begin
// if TChromium.MultiBrowserMode is enabled then we have to close all
// stored browsers and not only the main browser.
Chromium1.CloseAllBrowsers;
// Workaround for the missing TChormium.OnClose event when "Chrome runtime" is enabled.
if GlobalCEFApp.ChromeRuntime then
CEFWindowParent1.Free;
CEFWindowParent1.Free;
end;
end;
@ -341,7 +339,6 @@ begin
// used when you call any method or property in TChromium.
Chromium1.MultiBrowserMode := True;
Chromium1.DefaultURL := MINIBROWSER_HOMEPAGE;
Chromium1.RuntimeStyle := CEF_RUNTIME_STYLE_ALLOY;
end;
procedure TMiniBrowserFrm.FormShow(Sender: TObject);
@ -412,4 +409,12 @@ begin
GlobalCEFApp.OsmodalLoop := False;
end;
procedure TMiniBrowserFrm.Chromium1ChromeCommand(Sender: TObject;
const browser: ICefBrowser; command_id: Integer;
disposition: TCefWindowOpenDisposition; var aResult: Boolean);
begin
aResult := (command_id = IDC_HELP_PAGE_VIA_KEYBOARD) or // Block the new Chromium window created when the user presses F1 for help.
(command_id = IDC_FULLSCREEN); // Block the "switch to full screen" command when the user presses F11.
end;
end.