Added more test sites to MobileBrowser demo

Added the fullVersion field information to the Emulation.setUserAgentOverride method

demos/Delphi_VCL/MobileBrowser/uMobileBrowser.dfm

@@ -427,17 +427,6 @@ object Form1: TForm1
       Padding.Right = 5
       Padding.Bottom = 5
       TabOrder = 0
-      object AddressEdt: TEdit
-        Left = 5
-        Top = 5
-        Width = 700
-        Height = 20
-        Margins.Right = 5
-        Align = alClient
-        TabOrder = 0
-        Text = 'http://www.google.com'
-        ExplicitHeight = 21
-      end
       object GoBtn: TButton
         Left = 705
         Top = 5
@@ -446,9 +435,29 @@ object Form1: TForm1
         Margins.Left = 5
         Align = alRight
         Caption = 'Go'
-        TabOrder = 1
+        TabOrder = 0
         OnClick = GoBtnClick
       end
+      object AddressCb: TComboBox
+        Left = 5
+        Top = 5
+        Width = 700
+        Height = 21
+        Align = alClient
+        ItemIndex = 0
+        TabOrder = 1
+        Text = 'https://www.google.com'
+        Items.Strings = (
+          'https://www.google.com'
+          'https://browserleaks.com'
+          'https://www.leaktest.io/'
+          'https://coveryourtracks.eff.org/'
+          'https://ipleak.com/full-report/'
+          'https://xsinator.com/testing.html')
+        ExplicitLeft = 392
+        ExplicitTop = 16
+        ExplicitWidth = 145
+      end
     end
     object CEFWindowParent1: TCEFWindowParent
       Left = 0

demos/Delphi_VCL/MobileBrowser/uMobileBrowser.pas

@@ -17,7 +17,6 @@ type
     Panel1: TPanel;
     Panel2: TPanel;
     AddressPnl: TPanel;
-    AddressEdt: TEdit;
     GoBtn: TButton;
     CEFWindowParent1: TCEFWindowParent;
     Splitter1: TSplitter;
@@ -48,6 +47,7 @@ type
     Panel10: TPanel;
     Label5: TLabel;
     AngleEdt: TSpinEdit;
+    AddressCb: TComboBox;
 
     procedure GoBtnClick(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
@@ -158,7 +158,7 @@ begin
   FCanClose            := False;
   FClosing             := False;
   FPendingMsgID        := 0;
-  Chromium1.DefaultURL := AddressEdt.Text;
+  Chromium1.DefaultURL := AddressCb.Text;
 end;
 
 procedure TForm1.FormShow(Sender: TObject);
@@ -270,7 +270,7 @@ end;
 procedure TForm1.GoBtnClick(Sender: TObject);
 begin
   // This will load the URL in the edit box
-  Chromium1.LoadURL(AddressEdt.Text);
+  Chromium1.LoadURL(AddressCb.Text);
 end;
 
 procedure TForm1.OverrideDeviceMetricsBtnClick(Sender: TObject);
@@ -338,6 +338,7 @@ begin
 
     TempMetadataDict.SetList('brands', TempBrandsArray);
     TempMetadataDict.SetList('fullVersionList', TempFullVersionListArray);
+    TempMetadataDict.SetString('fullVersion', '91.0.4472.114'); // Deprecated
     TempMetadataDict.SetString('platform', 'Android'); //or Windows
     TempMetadataDict.SetString('platformVersion', '12');
     TempMetadataDict.SetString('architecture', 'arm');

update_CEF4Delphi.json

@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 618,
+      "InternalVersion" : 619,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "126.2.0"
     }