pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-10-30 23:07:52 +02:00
Code Issues Actions 1 Releases Activity

Added TChromiumCore.ToggleAudioMuted

Browse Source 
Always set TChromiumCore.AudioMuted in the right CEF thread
This commit is contained in:
salvadordf
2022-08-29 22:45:28 +02:00
parent 15f51eccc7
commit 941f2c768f
6 changed files with 144 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -407,6 +407,10 @@ object MiniBrowserFrm: TMiniBrowserFrm
Caption = 'Allow downloads'
OnClick = Allowdownloads1Click
end
object Toggleaudio1: TMenuItem
Caption = 'Toggle audio'
OnClick = Toggleaudio1Click
end
object N5: TMenuItem
Caption = '-'
end

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

@@ -147,6 +147,7 @@ type
CEFinfo1: TMenuItem;
SaveasMHTML1: TMenuItem;
Allowdownloads1: TMenuItem;
Toggleaudio1: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
@@ -223,6 +224,7 @@ type
procedure CEFinfo1Click(Sender: TObject);
procedure SaveasMHTML1Click(Sender: TObject);
procedure Allowdownloads1Click(Sender: TObject);
procedure Toggleaudio1Click(Sender: TObject);
protected
FPendingMsgID : integer;
@@ -1187,6 +1189,11 @@ begin
MessageDlg(TempMessage, mtInformation, [mbOK], 0);
end;
procedure TMiniBrowserFrm.Toggleaudio1Click(Sender: TObject);
begin
Chromium1.ToggleAudioMuted;
end;
procedure TMiniBrowserFrm.Chromium1ResourceResponse(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame;
const request: ICefRequest; const response: ICefResponse;