Disabled the text selection context menu in the KioskBrowser demo

Fixed issue #7 : The focus is now removed from the focused control when the browser gets the focus.
Use TNetEncoding.URL in Delphi XE7 and newer versions

demos/Delphi_FMX/SimpleFMXBrowser/uMainForm.fmx

@@ -64,6 +64,7 @@ object MainForm: TMainForm
     AllowSingleSignOnUsingOSPrimaryAccount = False
     OnInitializationError = WVFMXBrowser1InitializationError
     OnAfterCreated = WVFMXBrowser1AfterCreated
+    OnGotFocus = WVFMXBrowser1GotFocus
     Left = 104
     Top = 104
   end

demos/Delphi_FMX/SimpleFMXBrowser/uMainForm.pas

@@ -31,6 +31,7 @@   TMainForm = class(TForm)
 
     procedure WVFMXBrowser1AfterCreated(Sender: TObject);
     procedure WVFMXBrowser1InitializationError(Sender: TObject; aErrorCode: HRESULT; const aErrorMessage: wvstring);
+    procedure WVFMXBrowser1GotFocus(Sender: TObject);
 
   private
     FMXWindowParent         : TWVFMXWindowParent;
@@ -260,6 +261,19 @@ procedure TMainForm.WVFMXBrowser1AfterCreated(Sender: TObject);
   AddressPnl.Enabled := True;
 end;
 
+procedure TMainForm.WVFMXBrowser1GotFocus(Sender: TObject);
+var
+  TempObject : TFMXObject;
+begin
+  if (Focused <> nil) then
+    begin
+      TempObject := Focused.GetObject;
+
+      if (TempObject <> nil) and (TempObject is TControl) then
+        TControl(TempObject).ResetFocus;
+    end;
+end;
+
 procedure TMainForm.WVFMXBrowser1InitializationError(Sender: TObject;
   aErrorCode: HRESULT; const aErrorMessage: wvstring);
 begin

demos/Delphi_VCL/KioskBrowser/uKioskBrowser.pas

@@ -190,9 +190,10 @@ procedure TMainForm.WMMoving(var aMessage : TMessage);
 end;
 
 initialization
-  GlobalWebView2Loader                := TWVLoader.Create(nil);
-  GlobalWebView2Loader.UserDataFolder := ExtractFileDir(Application.ExeName) + '\CustomCache';
-  GlobalWebView2Loader.KioskPrinting  := True; // This property enables silent priting
+  GlobalWebView2Loader                 := TWVLoader.Create(nil);
+  GlobalWebView2Loader.UserDataFolder  := ExtractFileDir(Application.ExeName) + '\CustomCache';
+  GlobalWebView2Loader.KioskPrinting   := True; // This property enables silent priting
+  GlobalWebView2Loader.DisableFeatures := 'msWebOOUI,msPdfOOUI';  // Disable the text selection context menu
   GlobalWebView2Loader.StartWebView2;
 
 end.

packages/WebView4DelphiVCLRTL.dpk

@@ -30,7 +30,8 @@ package WebView4DelphiVCLRTL;
 
 requires
   rtl,
-  vcl;
+  vcl,
+  inet;
 
 contains
   uWVConstants in '..\source\uWVConstants.pas',

source/uWVBrowserBase.pas

@@ -2942,7 +2942,7 @@ procedure TWVBrowserBase.doOnRetrieveHTMLCompleted(aErrorCode: HRESULT; const aR
 
       if succeeded(aErrorCode) then
         begin
-          {$IFDEF DELPHI26_UP}
+          {$IFDEF DELPHI21_UP}
             TempHTML := TNetEncoding.URL.Decode(aResultObjectAsJson);
           {$ELSE}
             {$IFDEF FPC}
@@ -2979,7 +2979,7 @@ procedure TWVBrowserBase.doOnRetrieveTextCompleted(aErrorCode: HRESULT; const aR
 
       if succeeded(aErrorCode) then
         begin
-          {$IFDEF DELPHI26_UP}
+          {$IFDEF DELPHI21_UP}
             TempText := TNetEncoding.URL.Decode(aResultObjectAsJson);
           {$ELSE}
             {$IFDEF FPC}

source/uWVFMXWindowParent.pas

@@ -22,8 +22,11 @@   TWVFMXWindowParent = class(TCommonCustomForm)
 
       procedure Notification(AComponent: TComponent; Operation: TOperation); override;
       procedure Resize; override;
+      {$IFDEF DELPHI18_UP}
+      procedure DoFocusChanged; override;
+      {$ELSE}
       procedure SetActive(const Value: Boolean); override;
-
+      {$ENDIF}
     public
       constructor Create(AOwner: TComponent); override;
       procedure   Reparent(const aNewParentHandle : {$IFDEF DELPHI18_UP}TWindowHandle{$ELSE}TFmxHandle{$ENDIF});
@@ -55,7 +58,10 @@ constructor TWVFMXWindowParent.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
 
-  FBrowser := nil;
+  FBrowser    := nil;
+  Caption     := '';
+  BorderStyle := TFmxFormBorderStyle.{$IFDEF DELPHI20_UP}None{$ELSE}bsNone{$ENDIF};
+  BorderIcons := [];
 end;
 
 procedure TWVFMXWindowParent.Resize;
@@ -65,13 +71,23 @@ procedure TWVFMXWindowParent.Resize;
   UpdateSize;
 end;
 
+{$IFDEF DELPHI18_UP}
+procedure TWVFMXWindowParent.DoFocusChanged;
+begin
+  inherited DoFocusChanged;
+
+  if (Focused <> nil) and (FBrowser <> nil) then
+    FBrowser.SetFocus;
+end;
+{$ELSE}
 procedure TWVFMXWindowParent.SetActive(const Value: Boolean);
 begin
   inherited SetActive(Value);
 
   if Value and (Focused <> nil) and (FBrowser <> nil) then
     FBrowser.SetFocus;
 end;
+{$ENDIF}
 
 function TWVFMXWindowParent.GetBrowser: TWVBrowserBase;
 begin

source/uWVLoader.pas

@@ -811,12 +811,14 @@ function TWVLoader.GetCustomCommandLineSwitches : wvstring;
   // The list of features you can enable is here :
   // https://chromium.googlesource.com/chromium/src/+/master/chrome/common/chrome_features.cc
   // https://source.chromium.org/chromium/chromium/src/+/main:content/public/common/content_features.cc
+  // https://source.chromium.org/search?q=base::Feature
   if (length(FEnableFeatures) > 0) then
     Result := Result + '--enable-features=' + FEnableFeatures + ' ';
 
   // The list of features you can disable is here :
   // https://chromium.googlesource.com/chromium/src/+/master/chrome/common/chrome_features.cc
   // https://source.chromium.org/chromium/chromium/src/+/main:content/public/common/content_features.cc
+  // https://source.chromium.org/search?q=base::Feature
   TempFeatures := FDisableFeatures;
 
   if not(FSmartScreenProtectionEnabled) then

update_CEF4Delphi.json

@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 31,
+      "InternalVersion" : 32,
       "Name" : "webview4delphi.lpk",
       "Version" : "1.0.1108.44"
     }