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' +
|
||||
'ept'
|
||||
|
||||
'https://codesandbox.io/p/sandbox/image-blob-example-0igon?file=%' +
|
||||
'2Fsrc%2FApp.js'
|
||||
'chrome://version/'
|
||||
'chrome://net-internals/'
|
||||
'chrome://tracing/'
|
||||
@ -384,6 +387,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
|
||||
Caption = 'Download image...'
|
||||
OnClick = Downloadimage1Click
|
||||
end
|
||||
object Downloadfile1: TMenuItem
|
||||
Caption = 'Download file...'
|
||||
OnClick = Downloadfile1Click
|
||||
end
|
||||
object Simulatekeyboardpresses1: TMenuItem
|
||||
Caption = 'Simulate keyboard presses'
|
||||
OnClick = Simulatekeyboardpresses1Click
|
||||
|
@ -132,6 +132,7 @@ type
|
||||
SaveasMHTML1: TMenuItem;
|
||||
Allowdownloads1: TMenuItem;
|
||||
Toggleaudio1: TMenuItem;
|
||||
Downloadfile1: TMenuItem;
|
||||
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
@ -209,6 +210,7 @@ type
|
||||
procedure SaveasMHTML1Click(Sender: TObject);
|
||||
procedure Allowdownloads1Click(Sender: TObject);
|
||||
procedure Toggleaudio1Click(Sender: TObject);
|
||||
procedure Downloadfile1Click(Sender: TObject);
|
||||
|
||||
protected
|
||||
FPendingMsgID : integer;
|
||||
@ -2118,6 +2120,16 @@ begin
|
||||
ShowDevTools;
|
||||
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);
|
||||
var
|
||||
TempURL : string;
|
||||
|
@ -2,7 +2,7 @@
|
||||
"UpdateLazPackages" : [
|
||||
{
|
||||
"ForceNotify" : true,
|
||||
"InternalVersion" : 713,
|
||||
"InternalVersion" : 714,
|
||||
"Name" : "cef4delphi_lazarus.lpk",
|
||||
"Version" : "134.3.2"
|
||||
}
|
||||
|
Reference in New Issue
Block a user