Fixed an access violation in TChromium.ShowDevTools with some Delphi versions

source/uCEFBrowser.pas

@@ -615,12 +615,12 @@ end;
 
 function TCefBrowserHostRef.IsMouseCursorChangeDisabled: Boolean;
 begin
-  Result := PCefBrowserHost(FData)^.is_mouse_cursor_change_disabled(FData) <> 0
+  Result := PCefBrowserHost(FData)^.is_mouse_cursor_change_disabled(FData) <> 0;
 end;
 
 function TCefBrowserHostRef.IsWindowRenderingDisabled: Boolean;
 begin
-  Result := PCefBrowserHost(FData)^.is_window_rendering_disabled(FData) <> 0
+  Result := PCefBrowserHost(FData)^.is_window_rendering_disabled(FData) <> 0;
 end;
 
 procedure TCefBrowserHostRef.NotifyMoveOrResizeStarted;

source/uCEFChromium.pas

@@ -2972,9 +2972,13 @@ end;
 procedure TChromium.ShowDevTools(inspectElementAt: TPoint; const aDevTools : TWinControl);
 var
   TempPoint  : TCefPoint;
+  TempClient : ICefClient;
+  TempPPoint : PCefPoint;
+begin
+  try
+    try
+      if Initialized then
         begin
-  if not(Initialized) or HasDevTools then Exit;
-
           InitializeSettings(FDevBrowserSettings);
 
           if (aDevTools <> nil) then
@@ -2982,17 +2986,27 @@ begin
            else
             WindowInfoAsPopUp(FDevWindowInfo, WindowHandle, DEVTOOLS_WINDOWNAME);
 
+          TempClient := TCefClientOwn.Create;
 
           if (inspectElementAt.x <> low(integer)) and
              (inspectElementAt.y <> low(integer)) then
             begin
               TempPoint.x := inspectElementAt.x;
               TempPoint.y := inspectElementAt.y;
-
+              TempPPoint  := @TempPoint;
-      FBrowser.Host.ShowDevTools(@FDevWindowInfo, TCefClientOwn.Create as ICefClient, @FDevBrowserSettings, @TempPoint);
             end
            else
-    FBrowser.Host.ShowDevTools(@FDevWindowInfo, TCefClientOwn.Create as ICefClient, @FDevBrowserSettings, nil);
+            TempPPoint := nil;
+
+          FBrowser.Host.ShowDevTools(@FDevWindowInfo, TempClient, @FDevBrowserSettings, TempPPoint);
+        end;
+    except
+      on e : exception do
+        if CustomExceptionHandler('TChromium.ShowDevTools', e) then raise;
+    end;
+  finally
+    TempClient := nil;
+  end;
 end;
 
 procedure TChromium.CloseDevTools(const aDevTools : TWinControl);

source/uCEFWriteHandler.pas

@@ -98,6 +98,11 @@ type
 implementation
 
 uses
+  {$IFDEF DELPHI16_UP}
+  System.Math,
+  {$ELSE}
+  Math,
+  {$ENDIF}
   uCEFMiscFunctions, uCEFLibFunctions;
 
 
@@ -246,18 +251,21 @@ end;
 function TCefBytesWriteHandler.Write(const ptr: Pointer; size, n: NativeUInt): NativeUInt;
 var
   TempPointer : pointer;
+  TempSize    : int64;
 begin
   EnterCriticalSection(FCriticalSection);
 
-  if ((FOffset + (size * n)) >= FBufferSize) and (Grow(size * n) = 0) then
+  TempSize := size * n;
+
+  if ((FOffset + TempSize) >= FBufferSize) and (Grow(TempSize) = 0) then
     Result := 0
    else
     begin
       TempPointer := Pointer(cardinal(FBuffer) + FOffset);
 
-      CopyMemory(TempPointer, ptr, size * n);
+      CopyMemory(TempPointer, ptr, TempSize);
 
-      FOffset := FOffset + (size * n);
+      FOffset := FOffset + TempSize;
       Result  := n;
     end;
 
@@ -337,21 +345,21 @@ end;
 
 function TCefBytesWriteHandler.Grow(size : NativeUInt) : NativeUInt;
 var
-  s : NativeUInt;
+  TempTotal : int64;
 begin
+  try
     EnterCriticalSection(FCriticalSection);
 
-  if (size > FGrow) then
+    TempTotal := max(size, FGrow);
-    s := size
+    inc(TempTotal, FBufferSize);
-   else
-    s := FGrow;
 
-  ReallocMem(FBuffer, FBufferSize + s);
+    ReallocMem(FBuffer, TempTotal);
 
-  FBufferSize := FBufferSize + s;
+    FBufferSize := TempTotal;
     Result      := FBufferSize;
-
+  finally
     LeaveCriticalSection(FCriticalSection);
   end;
+end;
 
 end.