From 229da769b87b2325f237f2adc56e52a592e0157d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Salvador=20D=C3=ADaz=20Fau?= <briskbard@briskbard.com>
Date: Sat, 26 Jul 2025 12:23:12 +0200
Subject: [PATCH] Remove AcceptLanguageList from the MiniBrowser demos

---
 .../Delphi_VCL/MiniBrowser/MiniBrowser.dproj  |  35 +++++++++---------
 demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm |   4 --
 demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas |  12 ------
 .../MiniBrowser/MiniBrowser.lpi               |   2 +-
 .../MiniBrowser/MiniBrowser.res               | Bin 1883 -> 1824 bytes
 .../MiniBrowser/uMiniBrowser.lfm              |  11 ++----
 .../MiniBrowser/uMiniBrowser.pas              |  12 ------
 update_CEF4Delphi.json                        |   2 +-
 8 files changed, 22 insertions(+), 56 deletions(-)

diff --git a/demos/Delphi_VCL/MiniBrowser/MiniBrowser.dproj b/demos/Delphi_VCL/MiniBrowser/MiniBrowser.dproj
index a61ea97c..a0630c3f 100644
--- a/demos/Delphi_VCL/MiniBrowser/MiniBrowser.dproj
+++ b/demos/Delphi_VCL/MiniBrowser/MiniBrowser.dproj
@@ -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>
diff --git a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm
index dc9d7681..7d971a24 100644
--- a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm
+++ b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.dfm
@@ -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
diff --git a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
index f9965ca5..16386434 100644
--- a/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
+++ b/demos/Delphi_VCL/MiniBrowser/uMiniBrowser.pas
@@ -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);
diff --git a/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.lpi b/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.lpi
index e794f3a0..71a354b9 100644
--- a/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.lpi
+++ b/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.lpi
@@ -17,7 +17,7 @@
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
       <XPManifest>
-        <DpiAware Value="True/PM_V2"/>
+        <DpiAware Value="True"/>
       </XPManifest>
     </General>
     <BuildModes Count="1">
diff --git a/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.res b/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.res
index 34eedb1192da4bb90aebdab762898fd00d536c6d..18ed76a9f75066926afa01c1beff825fdaec3b9a 100644
GIT binary patch
delta 21
dcmcc3w}5Yg0@DMwjY`~Xla1M0C%<LO0{~Fz2U!3B

delta 77
zcmZ3$cbjj50+TfRMkQ`GHvItK_%Nf%x@@hJ<=HrO@=}Y7?E+GZeDm`%OY)1tjC2$b
VJRAL#f=tKq#G+KNvdNp+@&Jj=8FBys

diff --git a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm
index 2f05f1b5..89b968f2 100644
--- a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm
+++ b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.lfm
@@ -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
diff --git a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
index 12589f4f..f1ee4610 100644
--- a/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
+++ b/demos/Lazarus_Windows/MiniBrowser/uMiniBrowser.pas
@@ -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;
diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json
index 963a6995..8e9bb783 100644
--- a/update_CEF4Delphi.json
+++ b/update_CEF4Delphi.json
@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 757,
+      "InternalVersion" : 758,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "138.0.33"
     }