diff --git a/demos/Delphi_VCL/MobileBrowser/uMobileBrowser.dfm b/demos/Delphi_VCL/MobileBrowser/uMobileBrowser.dfm index d1a10b40..dc27f4ef 100644 --- a/demos/Delphi_VCL/MobileBrowser/uMobileBrowser.dfm +++ b/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 diff --git a/demos/Delphi_VCL/MobileBrowser/uMobileBrowser.pas b/demos/Delphi_VCL/MobileBrowser/uMobileBrowser.pas index 14c37fb1..3572df49 100644 --- a/demos/Delphi_VCL/MobileBrowser/uMobileBrowser.pas +++ b/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'); diff --git a/update_CEF4Delphi.json b/update_CEF4Delphi.json index 7021655d..dda7fec2 100644 --- a/update_CEF4Delphi.json +++ b/update_CEF4Delphi.json @@ -2,7 +2,7 @@ "UpdateLazPackages" : [ { "ForceNotify" : true, - "InternalVersion" : 618, + "InternalVersion" : 619, "Name" : "cef4delphi_lazarus.lpk", "Version" : "126.2.0" }