You've already forked CEF4Delphi
mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2025-08-04 21:32:54 +02:00
Remove AcceptLanguageList from the MiniBrowser demos
This commit is contained in:
@ -1,7 +1,7 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{4BC9C886-B196-4B7F-931A-6134EB9A8DA6}</ProjectGuid>
|
||||
<ProjectVersion>20.1</ProjectVersion>
|
||||
<ProjectVersion>20.3</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<MainSource>MiniBrowser.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
@ -9,6 +9,7 @@
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
<AppType>Application</AppType>
|
||||
<ProjectName Condition="'$(ProjectName)'==''">MiniBrowser</ProjectName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
@ -180,7 +181,7 @@
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp280.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment Version="4">
|
||||
<Deployment Version="5">
|
||||
<DeployFile LocalName="..\..\..\bin\MiniBrowser.exe" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="MiniBrowser.exe" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
@ -195,16 +196,6 @@
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClasses">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>64</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android64">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>64</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidFileProvider">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\xml</RemoteDir>
|
||||
@ -215,12 +206,6 @@
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
@ -313,6 +298,16 @@
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStylesV35">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values-v35</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android64">
|
||||
<RemoteDir>res\values-v35</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_AdaptiveIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-anydpi-v26</RemoteDir>
|
||||
@ -843,6 +838,9 @@
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win64x">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice32">
|
||||
@ -1136,6 +1134,7 @@
|
||||
<ProjectRoot Platform="OSXARM64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64x" Name="$(PROJECTNAME)"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
|
@ -395,10 +395,6 @@ object MiniBrowserFrm: TMiniBrowserFrm
|
||||
Caption = 'Simulate keyboard presses'
|
||||
OnClick = Simulatekeyboardpresses1Click
|
||||
end
|
||||
object Acceptlanguage1: TMenuItem
|
||||
Caption = 'Accept language...'
|
||||
OnClick = Acceptlanguage1Click
|
||||
end
|
||||
object Flushcookies1: TMenuItem
|
||||
Caption = 'Flush cookies'
|
||||
OnClick = Flushcookies1Click
|
||||
|
@ -122,7 +122,6 @@ type
|
||||
Downloadimage1: TMenuItem;
|
||||
Simulatekeyboardpresses1: TMenuItem;
|
||||
Flushcookies1: TMenuItem;
|
||||
Acceptlanguage1: TMenuItem;
|
||||
FindText1: TMenuItem;
|
||||
Clearcache1: TMenuItem;
|
||||
akescreenshot1: TMenuItem;
|
||||
@ -198,7 +197,6 @@ type
|
||||
procedure Downloadimage1Click(Sender: TObject);
|
||||
procedure Simulatekeyboardpresses1Click(Sender: TObject);
|
||||
procedure Flushcookies1Click(Sender: TObject);
|
||||
procedure Acceptlanguage1Click(Sender: TObject);
|
||||
procedure PopupMenu1Popup(Sender: TObject);
|
||||
procedure Timer1Timer(Sender: TObject);
|
||||
procedure FindText1Click(Sender: TObject);
|
||||
@ -1563,16 +1561,6 @@ begin
|
||||
NavControlPnl.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TMiniBrowserFrm.Acceptlanguage1Click(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.AddURL(const aURL : string);
|
||||
begin
|
||||
if (URLCbx.Items.IndexOf(aURL) < 0) then URLCbx.Items.Add(aURL);
|
||||
|
@ -17,7 +17,7 @@
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<DpiAware Value="True/PM_V2"/>
|
||||
<DpiAware Value="True"/>
|
||||
</XPManifest>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
|
Binary file not shown.
@ -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
|
||||
|
@ -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;
|
||||
|
Reference in New Issue
Block a user