bug fix #68

demos/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.dpr

@@ -41,17 +41,13 @@ program JSExtensionWithFunction;
 
 uses
   {$IFDEF DELPHI16_UP}
-  WinApi.Windows,
   Vcl.Forms,
-  System.SysUtils,
+  WinApi.Windows,
   {$ELSE}
   Forms,
   Windows,
-  SysUtils,
   {$ENDIF }
   uCEFApplication,
-  uCEFMiscFunctions,
-  uCEFInterfaces,
   uJSExtensionWithFunction in 'uJSExtensionWithFunction.pas' {JSExtensionWithFunctionFrm},
   uMyV8Handler in 'uMyV8Handler.pas';
 
@@ -60,29 +56,6 @@ uses
 // CEF3 needs to set the LARGEADDRESSAWARE flag which allows 32-bit processes to use up to 3GB of RAM.
 {$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}
 
-procedure GlobalCEFApp_OnWebKitInitializedEvent;
-var
-  TempExtensionCode : string;
-  TempHandler       : ICefv8Handler;
-begin
-  // This is the JS extension example with a function in the "JavaScript Integration" wiki page at
-  // https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
-
-  TempExtensionCode := 'var test;' +
-                       'if (!test)' +
-                       '  test = {};' +
-                       '(function() {' +
-                       '  test.myfunc = function() {' +
-                       '    native function myfunc();' +
-                       '    return myfunc();' +
-                       '  };' +
-                       '})();';
-
-  TempHandler := TMyV8Handler.Create;
-
-  CefRegisterExtension('v8/test', TempExtensionCode, TempHandler);
-end;
-
 begin
   GlobalCEFApp                     := TCefApplication.Create;
   GlobalCEFApp.OnWebKitInitialized := GlobalCEFApp_OnWebKitInitializedEvent;

demos/JavaScript/JSExtensionWithFunction/JSExtensionWithFunction.dproj

@@ -100,6 +100,7 @@
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <AppEnableHighDPI>true</AppEnableHighDPI>
+        <BT_BuildType>Debug</BT_BuildType>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

demos/JavaScript/JSExtensionWithFunction/uJSExtensionWithFunction.pas

@@ -74,16 +74,44 @@ type
 var
   JSExtensionWithFunctionFrm: TJSExtensionWithFunctionFrm;
 
+procedure GlobalCEFApp_OnWebKitInitializedEvent;
+
 implementation
 
 {$R *.dfm}
 
+uses
+  uCEFMiscFunctions, uMyV8Handler;
+
 // The CEF3 document describing JavaScript integration is here :
 // https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
 
 // The HTML file in this demo has a button that shows the contents of 'test.myfunc()'
 // which was registered in the GlobalCEFApp.OnWebKitInitialized event.
 
+procedure GlobalCEFApp_OnWebKitInitializedEvent;
+var
+  TempExtensionCode : string;
+  TempHandler       : ICefv8Handler;
+begin
+  // This is the JS extension example with a function in the "JavaScript Integration" wiki page at
+  // https://bitbucket.org/chromiumembedded/cef/wiki/JavaScriptIntegration.md
+
+  TempExtensionCode := 'var test;' +
+                       'if (!test)' +
+                       '  test = {};' +
+                       '(function() {' +
+                       '  test.myfunc = function() {' +
+                       '    native function myfunc();' +
+                       '    return myfunc();' +
+                       '  };' +
+                       '})();';
+
+  TempHandler := TMyV8Handler.Create;
+
+  CefRegisterExtension('v8/test', TempExtensionCode, TempHandler);
+end;
+
 procedure TJSExtensionWithFunctionFrm.GoBtnClick(Sender: TObject);
 begin
   Chromium1.LoadURL(Edit1.Text);