Update to WebView2 NuGet 1.0.3856.49

Author: salvadordf

README.md

@@ -3,7 +3,7 @@ WebView4Delphi is an open source project created by Salvador Díaz Fau to embed
 
 WebView4Delphi only supports Windows. If you need to embed a web browser in Linux, Windows or MacOS consider using [CEF4Delphi](https://github.com/salvadordf/CEF4Delphi) instead. 
 
-WebView4Delphi uses the [Microsoft Edge WebView2 Runtime](https://docs.microsoft.com/en-us/microsoft-edge/webview2/) and [Microsoft.Web.WebView2 NuGet package version 1.0.3800.47](https://www.nuget.org/packages/Microsoft.Web.WebView2) to embed a web browser.
+WebView4Delphi uses the [Microsoft Edge WebView2 Runtime](https://docs.microsoft.com/en-us/microsoft-edge/webview2/) and [Microsoft.Web.WebView2 NuGet package version 1.0.3856.49](https://www.nuget.org/packages/Microsoft.Web.WebView2) to embed a web browser.
 
 WebView4Delphi was developed and tested on Delphi 13, Delphi XE2, Delphi 7 and Lazarus 4.6/FPC 3.2.2. 
 Delphi 6 requires installing the [second Delphi 6 patch](https://support.embarcadero.com/kr/article/38607).

bin32/WebView2Loader.dll

@@ -100,7 +100,9 @@ procedure TMainForm.WVBrowser1AfterCreated(Sender: TObject);
   AddressPnl.Enabled := True;
 
   // Filter all requests to the custom scheme
-  WVBrowser1.AddWebResourceRequestedFilter(MY_CUSTOM_SCHEME + '*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL);
+  WVBrowser1.AddWebResourceRequestedFilterWithRequestSourceKinds(MY_CUSTOM_SCHEME + '*',
+                                                                 COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL,
+                                                                 COREWEBVIEW2_WEB_RESOURCE_REQUEST_SOURCE_KINDS_ALL);
 end;
 
 procedure TMainForm.WVBrowser1DocumentTitleChanged(Sender: TObject);

bin64/WebView2Loader.dll

@@ -11,6 +11,7 @@ object WebBrowserForm: TWebBrowserForm
   Font.Name = 'Segoe UI'
   Font.Style = []
   Position = poScreenCenter
+  OnClose = FormClose
   OnShow = FormShow
   TextHeight = 15
   object WVWindowParent1: TWVWindowParent

demos/Delphi_VCL/CustomSchemeBrowser/uCustomSchemeBrowser.pas

@@ -26,8 +26,9 @@   TWebBrowserForm = class(TForm)
     GoBtn: TButton;
 
     procedure Timer1Timer(Sender: TObject);
-    procedure FormShow(Sender: TObject);
     procedure GoBtnClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 
     procedure WVBrowser1AfterCreated(Sender: TObject);
     procedure WVBrowser1DocumentTitleChanged(Sender: TObject);
@@ -71,6 +72,11 @@ implementation
 // uWVLoader.pas. All browsers should be already destroyed before GlobalWebView2Loader
 // is destroyed.
 
+procedure TWebBrowserForm.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
 procedure TWebBrowserForm.FormShow(Sender: TObject);
 begin
   if GlobalWebView2Loader.InitializationError then

demos/Delphi_VCL/DLLBrowser/uWebBrowserForm.dfm

@@ -97,7 +97,9 @@ procedure TMainForm.WVBrowser1AfterCreated(Sender: TObject);
   AddressPnl.Enabled := True;
 
   // Filter all requests to the custom scheme
-  WVBrowser1.AddWebResourceRequestedFilter(MY_CUSTOM_SCHEME + '*', COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL);
+  WVBrowser1.AddWebResourceRequestedFilterWithRequestSourceKinds(MY_CUSTOM_SCHEME + '*',
+                                                                 COREWEBVIEW2_WEB_RESOURCE_CONTEXT_ALL,
+                                                                 COREWEBVIEW2_WEB_RESOURCE_REQUEST_SOURCE_KINDS_ALL);
 end;
 
 procedure TMainForm.WVBrowser1DocumentTitleChanged(Sender: TObject);

demos/Delphi_VCL/DLLBrowser/uWebBrowserForm.pas

@@ -16,7 +16,7 @@
     </CompilerOptions>
     <Description Value="WebView4Delphi is an open source project created by Salvador Díaz Fau to embed Chromium-based browsers in applications made with Delphi or Lazarus/FPC."/>
     <License Value="MIT"/>
-    <Version Major="1" Release="3800" Build="47"/>
+    <Version Major="1" Release="3856" Build="49"/>
     <Files Count="68">
       <Item1>
         <Filename Value="..\source\uWVBrowser.pas"/>

demos/Lazarus/CustomSchemeBrowser/uCustomSchemeBrowser.pas

@@ -1,12 +1,12 @@
   WEBVIEW2LOADERLIB_VERSION_MAJOR   = 1;
   WEBVIEW2LOADERLIB_VERSION_MINOR   = 0;
-  WEBVIEW2LOADERLIB_VERSION_RELEASE = 3800;
-  WEBVIEW2LOADERLIB_VERSION_BUILD   = 47;
+  WEBVIEW2LOADERLIB_VERSION_RELEASE = 3856;
+  WEBVIEW2LOADERLIB_VERSION_BUILD   = 49;
 
   // For full API compatibility, WebView4Delphi requires the same
   // WebView2 Runtime version mentioned in the release notes :
   // https://docs.microsoft.com/en-us/microsoft-edge/webview2/release-notes
-  CHROMIUM_VERSION_MAJOR   = 145;
+  CHROMIUM_VERSION_MAJOR   = 146;
   CHROMIUM_VERSION_MINOR   = 0;
   CHROMIUM_VERSION_RELEASE = WEBVIEW2LOADERLIB_VERSION_RELEASE;
   CHROMIUM_VERSION_BUILD   = WEBVIEW2LOADERLIB_VERSION_BUILD;

packages/webview4delphi.lpk

@@ -2,9 +2,9 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 52,
+      "InternalVersion" : 53,
       "Name" : "webview4delphi.lpk",
-      "Version" : "1.0.3800.47"
+      "Version" : "1.0.3856.49"
     }
   ],
   "UpdatePackageData" : {