You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-08-04 21:32:54 +02:00
Added a menu option to download a file in MiniBrowser
This commit is contained in:
@@ -177,6 +177,9 @@ object MiniBrowserFrm: TMiniBrowserFrm
|
|||||||
|
|
||||||
'https://developer.mozilla.org/en-US/docs/Web/HTML/Attributes/acc' +
|
'https://developer.mozilla.org/en-US/docs/Web/HTML/Attributes/acc' +
|
||||||
'ept'
|
'ept'
|
||||||
|
|
||||||
|
'https://codesandbox.io/p/sandbox/image-blob-example-0igon?file=%' +
|
||||||
|
'2Fsrc%2FApp.js'
|
||||||
'chrome://version/'
|
'chrome://version/'
|
||||||
'chrome://net-internals/'
|
'chrome://net-internals/'
|
||||||
'chrome://tracing/'
|
'chrome://tracing/'
|
||||||
@@ -384,6 +387,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
|
|||||||
Caption = 'Download image...'
|
Caption = 'Download image...'
|
||||||
OnClick = Downloadimage1Click
|
OnClick = Downloadimage1Click
|
||||||
end
|
end
|
||||||
|
object Downloadfile1: TMenuItem
|
||||||
|
Caption = 'Download file...'
|
||||||
|
OnClick = Downloadfile1Click
|
||||||
|
end
|
||||||
object Simulatekeyboardpresses1: TMenuItem
|
object Simulatekeyboardpresses1: TMenuItem
|
||||||
Caption = 'Simulate keyboard presses'
|
Caption = 'Simulate keyboard presses'
|
||||||
OnClick = Simulatekeyboardpresses1Click
|
OnClick = Simulatekeyboardpresses1Click
|
||||||
|
@@ -132,6 +132,7 @@ type
|
|||||||
SaveasMHTML1: TMenuItem;
|
SaveasMHTML1: TMenuItem;
|
||||||
Allowdownloads1: TMenuItem;
|
Allowdownloads1: TMenuItem;
|
||||||
Toggleaudio1: TMenuItem;
|
Toggleaudio1: TMenuItem;
|
||||||
|
Downloadfile1: TMenuItem;
|
||||||
|
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
@@ -209,6 +210,7 @@ type
|
|||||||
procedure SaveasMHTML1Click(Sender: TObject);
|
procedure SaveasMHTML1Click(Sender: TObject);
|
||||||
procedure Allowdownloads1Click(Sender: TObject);
|
procedure Allowdownloads1Click(Sender: TObject);
|
||||||
procedure Toggleaudio1Click(Sender: TObject);
|
procedure Toggleaudio1Click(Sender: TObject);
|
||||||
|
procedure Downloadfile1Click(Sender: TObject);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
FPendingMsgID : integer;
|
FPendingMsgID : integer;
|
||||||
@@ -2118,6 +2120,16 @@ begin
|
|||||||
ShowDevTools;
|
ShowDevTools;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TMiniBrowserFrm.Downloadfile1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
TempURL : string;
|
||||||
|
begin
|
||||||
|
TempURL := InputBox('Download File', 'URL:', '');
|
||||||
|
|
||||||
|
if (length(TempURL) > 0) then
|
||||||
|
Chromium1.StartDownload(TempURL);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TMiniBrowserFrm.Downloadimage1Click(Sender: TObject);
|
procedure TMiniBrowserFrm.Downloadimage1Click(Sender: TObject);
|
||||||
var
|
var
|
||||||
TempURL : string;
|
TempURL : string;
|
||||||
|
@@ -2,7 +2,7 @@
|
|||||||
"UpdateLazPackages" : [
|
"UpdateLazPackages" : [
|
||||||
{
|
{
|
||||||
"ForceNotify" : true,
|
"ForceNotify" : true,
|
||||||
"InternalVersion" : 713,
|
"InternalVersion" : 714,
|
||||||
"Name" : "cef4delphi_lazarus.lpk",
|
"Name" : "cef4delphi_lazarus.lpk",
|
||||||
"Version" : "134.3.2"
|
"Version" : "134.3.2"
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user