Renamed "message" argument to "message_" in TChromiumCore.OnConsoleMessage

Author: salvadordf

demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas

@@ -76,7 +76,7 @@   TDOMVisitorFrm = class(TForm)
     procedure Chromium1ProcessMessageReceived(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; sourceProcess: TCefProcessId; const message: ICefProcessMessage; out Result: Boolean);
     procedure Chromium1BeforePopup(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; popup_id: Integer; const targetUrl, targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean; const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo; var client: ICefClient; var settings: TCefBrowserSettings; var extra_info: ICefDictionaryValue; var noJavascriptAccess: Boolean; var Result: Boolean);
     procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
-    procedure Chromium1ConsoleMessage(Sender: TObject; const browser: ICefBrowser; level: TCefLogSeverity; const message, source: ustring; line: Integer; out Result: Boolean);
+    procedure Chromium1ConsoleMessage(Sender: TObject; const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring; line: Integer; out Result: Boolean);
     procedure Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: Integer; success: Boolean; const result: ICefValue);
 
   protected
@@ -492,7 +492,7 @@ procedure TDOMVisitorFrm.Chromium1BeforePopup(Sender: TObject;
 end;
 
 procedure TDOMVisitorFrm.Chromium1ConsoleMessage(Sender: TObject;
-  const browser: ICefBrowser; level: TCefLogSeverity; const message, source: ustring;
+  const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring;
   line: Integer; out Result: Boolean);
 var
   TempResult : string;
@@ -501,11 +501,11 @@ procedure TDOMVisitorFrm.Chromium1ConsoleMessage(Sender: TObject;
   // from the render process.
   // This event may receive many other messages but we identify our message
   // thanks to the preamble.
-  if (length(message) > 0) and
-     (copy(message, 1, length(CONSOLE_MSG_PREAMBLE)) = CONSOLE_MSG_PREAMBLE) then
+  if (length(message_) > 0) and
+     (copy(message_, 1, length(CONSOLE_MSG_PREAMBLE)) = CONSOLE_MSG_PREAMBLE) then
     begin
       // Remove CONSOLE_MSG_PREAMBLE to get the encoded result
-      TempResult := copy(message, succ(length(CONSOLE_MSG_PREAMBLE)), length(message));
+      TempResult := copy(message_, succ(length(CONSOLE_MSG_PREAMBLE)), length(message_));
       // Decode the result and copy to the clipboard.
       Clipboard.AsText := TNetEncoding.URL.Decode(TempResult);
       // Update the status bar text in the main application thread

demos/Lazarus_Windows/DOMVisitor/uDOMVisitor.pas

@@ -70,7 +70,7 @@   TDOMVisitorFrm = class(TForm)
     procedure Chromium1ProcessMessageReceived(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; sourceProcess: TCefProcessId; const message: ICefProcessMessage; out Result: Boolean);
     procedure Chromium1BeforePopup(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; popup_id: Integer; const targetUrl, targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition; userGesture: Boolean; const popupFeatures: TCefPopupFeatures; var windowInfo: TCefWindowInfo; var client: ICefClient; var settings: TCefBrowserSettings; var extra_info: ICefDictionaryValue; var noJavascriptAccess: Boolean; var Result: Boolean);
     procedure Chromium1BeforeClose(Sender: TObject; const browser: ICefBrowser);
-    procedure Chromium1ConsoleMessage(Sender: TObject; const browser: ICefBrowser; level: TCefLogSeverity; const message, source: ustring; line: Integer; out Result: Boolean);
+    procedure Chromium1ConsoleMessage(Sender: TObject; const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring; line: Integer; out Result: Boolean);
     procedure Chromium1DevToolsMethodResult(Sender: TObject; const browser: ICefBrowser; message_id: integer; success: boolean; const result: ICefValue);
 
   protected
@@ -476,7 +476,7 @@ procedure TDOMVisitorFrm.Chromium1BeforePopup(Sender: TObject;
 end;
 
 procedure TDOMVisitorFrm.Chromium1ConsoleMessage(Sender: TObject;
-  const browser: ICefBrowser; level: TCefLogSeverity; const message, source: ustring;
+  const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring;
   line: Integer; out Result: Boolean);
 begin
   // In this event we receive the message with the name and value of a DOM node
@@ -488,10 +488,10 @@ procedure TDOMVisitorFrm.Chromium1ConsoleMessage(Sender: TObject;
   // This and many other TChromium events are executed in a CEF thread. The VCL
   // should be used only in the main thread and we use a message and a field
   // protected by a synchronization object to call showmessage safely.
-  if (length(message) > 0) and
-     (copy(message, 1, length(CONSOLE_MSG_PREAMBLE)) = CONSOLE_MSG_PREAMBLE) then
+  if (length(message_) > 0) and
+     (copy(message_, 1, length(CONSOLE_MSG_PREAMBLE)) = CONSOLE_MSG_PREAMBLE) then
     begin
-      MsgContents := copy(message, succ(length(CONSOLE_MSG_PREAMBLE)), length(message));
+      MsgContents := copy(message_, succ(length(CONSOLE_MSG_PREAMBLE)), length(message_));
 
       if (length(MsgContents) = 0) then
         MsgContents := 'There was an error reading the search box information'

source/uCEFChromiumEvents.pas

@@ -54,7 +54,7 @@ interface
   TOnFullScreenModeChange         = procedure(Sender: TObject; const browser: ICefBrowser; fullscreen: Boolean) of object;
   TOnTooltip                      = procedure(Sender: TObject; const browser: ICefBrowser; var text: ustring; out Result: Boolean) of object;
   TOnStatusMessage                = procedure(Sender: TObject; const browser: ICefBrowser; const value: ustring) of object;
-  TOnConsoleMessage               = procedure(Sender: TObject; const browser: ICefBrowser; level: TCefLogSeverity; const message, source: ustring; line: Integer; out Result: Boolean) of object;
+  TOnConsoleMessage               = procedure(Sender: TObject; const browser: ICefBrowser; level: TCefLogSeverity; const message_, source: ustring; line: Integer; out Result: Boolean) of object;
   TOnAutoResize                   = procedure(Sender: TObject; const browser: ICefBrowser; const new_size: PCefSize; out Result: Boolean) of object;
   TOnLoadingProgressChange        = procedure(Sender: TObject; const browser: ICefBrowser; const progress: double) of object;
   TOnCursorChange                 = procedure(Sender: TObject; const browser: ICefBrowser; cursor_: TCefCursorHandle; cursorType: TCefCursorType; const customCursorInfo: PCefCursorInfo; var aResult : boolean) of Object;

update_CEF4Delphi.json

@@ -2,7 +2,7 @@
   "UpdateLazPackages" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 823,
+      "InternalVersion" : 824,
       "Name" : "cef4delphi_lazarus.lpk",
       "Version" : "142.0.17"
     }