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

Update to CEF 101.0.15

Browse Source
This commit is contained in:
salvadordf
2022-05-03 12:43:16 +02:00
parent 455a75c849
commit 3bca41ef4a
22 changed files with 414 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -285,6 +285,7 @@ object MiniBrowserFrm: TMiniBrowserFrm
OnStatusMessage = Chromium1StatusMessage
OnLoadingProgressChange = Chromium1LoadingProgressChange
OnCursorChange = Chromium1CursorChange
OnCanDownload = Chromium1CanDownload
OnBeforeDownload = Chromium1BeforeDownload
OnDownloadUpdated = Chromium1DownloadUpdated
OnAfterCreated = Chromium1AfterCreated
@ -398,6 +399,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
Caption = 'User agent...'
OnClick = Useragent1Click
end
object Allowdownloads1: TMenuItem
Caption = 'Allow downloads'
OnClick = Allowdownloads1Click
end
object N5: TMenuItem
Caption = '-'
end

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

@ -145,6 +145,7 @@ type
ClearallstorageforcurrentURL1: TMenuItem;
CEFinfo1: TMenuItem;
SaveasMHTML1: TMenuItem;
Allowdownloads1: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -186,6 +187,7 @@ type
procedure Chromium1FileDialog(Sender: TObject; const browser: ICefBrowser; mode: Cardinal; const title, defaultFilePath: ustring; const acceptFilters: TStrings; selectedAcceptFilter: Integer; const callback: ICefFileDialogCallback; out Result: Boolean);
procedure Chromium1SelectClientCertificate(Sender: TObject; const browser: ICefBrowser; isProxy: Boolean; const host: ustring; port: Integer; certificatesCount: NativeUInt; const certificates: TCefX509CertificateArray; const callback: ICefSelectClientCertificateCallback; var aResult: Boolean);
procedure Chromium1CursorChange(Sender: TObject; const browser: ICefBrowser; cursor_: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; var aResult: Boolean);
procedure Chromium1CanDownload(Sender: TObject; const browser: ICefBrowser; const url, request_method: ustring; var aResult: Boolean);
procedure BackBtnClick(Sender: TObject);
procedure ForwardBtnClick(Sender: TObject);
@ -217,6 +219,7 @@ type
procedure ClearallstorageforcurrentURL1Click(Sender: TObject);
procedure CEFinfo1Click(Sender: TObject);
procedure SaveasMHTML1Click(Sender: TObject);
procedure Allowdownloads1Click(Sender: TObject);
protected
FPendingMsgID : integer;
@ -225,6 +228,7 @@ type
FHasShutdownReason : boolean;
FSelectCertCallback : ICefSelectClientCertificateCallback;
FCertificates : TCefX509CertificateArray;
FAllowDownloads : boolean;
FResponse : TStringList;
FRequest : TStringList;
@ -482,6 +486,13 @@ begin
InspectRequest(request);
end;
procedure TMiniBrowserFrm.Chromium1CanDownload(Sender: TObject;
const browser: ICefBrowser; const url, request_method: ustring;
var aResult: Boolean);
begin
aResult := FAllowDownloads;
end;
procedure TMiniBrowserFrm.Chromium1CertificateError(Sender: TObject;
const browser: ICefBrowser; certError: Integer;
const requestUrl: ustring; const sslInfo: ICefSslInfo;
@ -872,6 +883,11 @@ begin
end;
end;
procedure TMiniBrowserFrm.Allowdownloads1Click(Sender: TObject);
begin
FAllowDownloads := not(FAllowDownloads);
end;
procedure TMiniBrowserFrm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
@ -1263,6 +1279,7 @@ begin
FSelectCertCallback := nil;
FCertificates := nil;
FPendingMsgID := 0;
FAllowDownloads := True;
// Windows may show this text message while shutting down the operating system
FShutdownReason := 'MiniBrowser closing...';
@ -1584,6 +1601,8 @@ begin
DevTools1.Caption := 'Hide DevTools'
else
DevTools1.Caption := 'Show DevTools';
Allowdownloads1.Checked := FAllowDownloads;
end;
procedure TMiniBrowserFrm.Preferences1Click(Sender: TObject);