pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00
Code Issues Actions Releases Activity

Added TChromiumCore.ClearDataForOrigin procedure

Browse Source 
Added a menu option to the MiniBrowser demo to clear all data from the current URL
This commit is contained in:
Salvador Díaz Fau
2020-07-05 12:56:21 +02:00
parent d394d41991
commit 59ec2022e5
5 changed files with 53 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,6 +137,7 @@ type
Clearcache1: TMenuItem;
akescreenshot1: TMenuItem;
Useragent1: TMenuItem;
ClearallstorageforcurrentURL1: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
@ -204,6 +205,7 @@ type
procedure Clearcache1Click(Sender: TObject);
procedure akescreenshot1Click(Sender: TObject);
procedure Useragent1Click(Sender: TObject);
procedure ClearallstorageforcurrentURL1Click(Sender: TObject);
protected
FScreenshotMsgID : integer;
@ -984,6 +986,11 @@ begin
ShowStatusText('Zoom : ' + floattostr(aZoomPct) + '%');
end;
procedure TMiniBrowserFrm.ClearallstorageforcurrentURL1Click(Sender: TObject);
begin
Chromium1.ClearDataForOrigin(URLCbx.Text);
end;
procedure TMiniBrowserFrm.Clearcache1Click(Sender: TObject);
begin
Chromium1.ClearCache;