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

Remove AcceptLanguageList from the MiniBrowser demos

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-07-26 12:23:12 +02:00
parent 58fbd83d30
commit 229da769b8
8 changed files with 22 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
demos/Lazarus_Windows/MiniBrowser/MiniBrowser.lpi
View File

@ -17,7 +17,7 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True/PM_V2"/>
<DpiAware Value="True"/>
</XPManifest>
</General>
<BuildModes Count="1">

BIN
demos/Lazarus_Windows/MiniBrowser/MiniBrowser.res
View File

Binary file not shown.

11
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm
View File

@ -10,12 +10,11 @@ object MiniBrowserFrm: TMiniBrowserFrm
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '3.4.0.0'
object Splitter1: TSplitter
Left = 1179
Height = 663
@ -118,11 +117,11 @@ object MiniBrowserFrm: TMiniBrowserFrm
TabOrder = 1
object URLCbx: TComboBox
Left = 0
Height = 21
Height = 22
Top = 3
Width = 978
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 13
ItemHeight = 14
ItemIndex = 0
Items.Strings = (
'https://www.google.com'
@ -351,10 +350,6 @@ object MiniBrowserFrm: TMiniBrowserFrm
Caption = 'Simulate keyboard presses'
OnClick = MenuItem2Click
end
object MenuItem4: TMenuItem
Caption = 'Accept language...'
OnClick = MenuItem4Click
end
object MenuItem3: TMenuItem
Caption = 'Flush cookies'
OnClick = MenuItem3Click

12
demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
View File

@ -75,7 +75,6 @@ type
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
Allowdownloads1: TMenuItem;
@ -132,7 +131,6 @@ type
procedure MenuItem1Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
procedure MenuItem6Click(Sender: TObject);
procedure ReloadBtnClick(Sender: TObject);
@ -338,16 +336,6 @@ begin
showmessage('There was a problem flushing the cookies.');
end;
procedure TMiniBrowserFrm.MenuItem4Click(Sender: TObject);
var
TempLanguageList : ustring;
begin
TempLanguageList := Chromium1.AcceptLanguageList;
if (length(TempLanguageList) = 0) then TempLanguageList := GlobalCEFApp.AcceptLanguageList;
Chromium1.AcceptLanguageList := InputBox('Language', 'Accept language list', TempLanguageList);
end;
procedure TMiniBrowserFrm.MenuItem5Click(Sender: TObject);
var
TempInfo : string;