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 @@  {4BC9C886-B196-4B7F-931A-6134EB9A8DA6} - 20.1 + 20.3 VCL MiniBrowser.dpr True @@ -9,6 +9,7 @@ Win32 3 Application + MiniBrowser true @@ -180,7 +181,7 @@ Microsoft Office XP Sample Automation Server Wrapper Components - + @@ -195,16 +196,6 @@ 0 - - - classes - 64 - - - classes - 64 - - res\xml @@ -215,12 +206,6 @@ 1 - - - library\lib\armeabi-v7a - 1 - - library\lib\armeabi @@ -313,6 +298,16 @@ 1 + + + res\values-v35 + 1 + + + res\values-v35 + 1 + + res\drawable-anydpi-v26 @@ -843,6 +838,9 @@ 1 + + 1 + @@ -1136,6 +1134,7 @@ + True 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 @@ - + diff --git a/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.res b/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.res index 34eedb11..18ed76a9 100644 Binary files a/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.res and b/demos/Lazarus_Windows/MiniBrowser/MiniBrowser.res differ 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" }