Update to CEF 81.2.22

- Added CefKeyEventLog and CefMouseEventLog to the uCEFMiscFunctions unit

README.md

@@ -3,10 +3,10 @@ CEF4Delphi is an open source project created by Salvador D
 
 CEF4Delphi is based on DCEF3, made by Henri Gourvest. The original license of DCEF3 still applies to CEF4Delphi. Read the license terms in the first lines of any *.pas file.
 
-CEF4Delphi uses CEF 81.2.21 which includes Chromium 81.0.4044.113. 
+CEF4Delphi uses CEF 81.2.22 which includes Chromium 81.0.4044.113. 
 The CEF binaries used by CEF4Delphi are available for download at spotify :
-* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_81.2.21%2Bge864886%2Bchromium-81.0.4044.113_windows32.tar.bz2)
+* [32 bits](http://opensource.spotify.com/cefbuilds/cef_binary_81.2.22%2Bg23f4473%2Bchromium-81.0.4044.113_windows32.tar.bz2)
-* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_81.2.21%2Bge864886%2Bchromium-81.0.4044.113_windows64.tar.bz2)
+* [64 bits](http://opensource.spotify.com/cefbuilds/cef_binary_81.2.22%2Bg23f4473%2Bchromium-81.0.4044.113_windows64.tar.bz2)
 
 
 CEF4Delphi was developed and tested on Delphi 10.3.3 and it has been tested in Delphi 7, Delphi XE, Delphi 10, Delphi 10.2 and Lazarus 2.0.8/FPC 3.0.4. CEF4Delphi includes VCL, FireMonkey (FMX) and Lazarus components.

packages/cef4delphi_lazarus.lpk

@@ -21,7 +21,7 @@
     </CompilerOptions>
     <Description Value="CEF4Delphi 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="MPL 1.1"/>
-    <Version Major="81" Minor="2" Release="21"/>
+    <Version Major="81" Minor="2" Release="22"/>
     <Files Count="154">
       <Item1>
         <Filename Value="..\source\uCEFAccessibilityHandler.pas"/>

source/uCEFApplicationCore.pas

@@ -62,7 +62,7 @@ uses
 const
   CEF_SUPPORTED_VERSION_MAJOR   = 81;
   CEF_SUPPORTED_VERSION_MINOR   = 2;
-  CEF_SUPPORTED_VERSION_RELEASE = 21;
+  CEF_SUPPORTED_VERSION_RELEASE = 22;
   CEF_SUPPORTED_VERSION_BUILD   = 0;
 
   CEF_CHROMEELF_VERSION_MAJOR   = 81;

source/uCEFMiscFunctions.pas

@@ -199,6 +199,8 @@ procedure CefSetCrashKeyValue(const aKey, aValue : ustring);
 
 procedure CefLog(const aFile : string; aLine, aSeverity : integer; const aMessage : string);
 procedure CefDebugLog(const aMessage : string; aSeverity : integer = CEF_LOG_SEVERITY_ERROR);
+procedure CefKeyEventLog(const aEvent : TCefKeyEvent);
+procedure CefMouseEventLog(const aEvent : TCefMouseEvent);
 procedure OutputDebugMessage(const aMessage : string);
 function  CustomExceptionHandler(const aFunctionName : string; const aException : exception) : boolean;
 
@@ -842,6 +844,49 @@ begin
     end;
 end;
 
+procedure CefKeyEventLog(const aEvent : TCefKeyEvent);
+const
+  DEFAULT_LINE = 1;
+var
+  TempString : string;
+begin
+  if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
+    begin
+      case aEvent.kind of
+        KEYEVENT_RAWKEYDOWN : TempString := 'kind: KEYEVENT_RAWKEYDOWN';
+        KEYEVENT_KEYDOWN    : TempString := 'kind: KEYEVENT_KEYDOWN';
+        KEYEVENT_KEYUP      : TempString := 'kind: KEYEVENT_KEYUP';
+        KEYEVENT_CHAR       : TempString := 'kind: KEYEVENT_CHAR';
+      end;
+
+      TempString := TempString + ', modifiers: $'              + inttohex(aEvent.modifiers, SizeOf(aEvent.modifiers) * 2);
+      TempString := TempString + ', windows_key_code: $'       + inttohex(aEvent.windows_key_code, SizeOf(aEvent.windows_key_code) * 2);
+      TempString := TempString + ', native_key_code: $'        + inttohex(aEvent.native_key_code, SizeOf(aEvent.native_key_code) * 2);
+      TempString := TempString + ', is_system_key: '           + BoolToStr((aEvent.is_system_key <> 0), true);
+      TempString := TempString + ', character: $'              + inttohex(ord(aEvent.character), SizeOf(aEvent.character) * 2);
+      TempString := TempString + ', unmodified_character: $'   + inttohex(ord(aEvent.unmodified_character), SizeOf(aEvent.unmodified_character) * 2);
+      TempString := TempString + ', focus_on_editable_field: ' + BoolToStr((aEvent.focus_on_editable_field <> 0), true);;
+
+      CefLog('CEF4Delphi', DEFAULT_LINE, CEF_LOG_SEVERITY_INFO, TempString);
+    end;
+end;
+
+procedure CefMouseEventLog(const aEvent : TCefMouseEvent);
+const
+  DEFAULT_LINE = 1;
+var
+  TempString : string;
+begin
+  if (GlobalCEFApp <> nil) and GlobalCEFApp.LibLoaded then
+    begin
+      TempString := TempString + ', x: $'         + inttohex(aEvent.x, SizeOf(aEvent.x) * 2);
+      TempString := TempString + ', y: $'         + inttohex(aEvent.y, SizeOf(aEvent.y) * 2);
+      TempString := TempString + ', modifiers: $' + inttohex(aEvent.modifiers, SizeOf(aEvent.modifiers) * 2);
+
+      CefLog('CEF4Delphi', DEFAULT_LINE, CEF_LOG_SEVERITY_INFO, TempString);
+    end;
+end;
+
 procedure OutputDebugMessage(const aMessage : string);
 const
   DEFAULT_LINE = 1;

update_CEF4Delphi.json

@@ -2,9 +2,9 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 122,
+      "InternalVersion" : 123,
       "Name" : "cef4delphi_lazarus.lpk",
-      "Version" : "81.2.21.0"
+      "Version" : "81.2.22.0"
     }
   ],
   "UpdatePackageData" : {