pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-09-30 21:28:55 +02:00
Code Issues Actions Releases Activity

Update to CEF 83.4.2

Browse Source
This commit is contained in:
Salvador Díaz Fau
2020-07-02 10:50:52 +02:00
parent 59178a54a9
commit 43e0c80431
6 changed files with 66 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
demos/Delphi_VCL/DOMVisitor/uDOMVisitor.pas
View File

@@ -476,7 +476,7 @@ procedure TDOMVisitorFrm.Chromium1ConsoleMessage(Sender: TObject;
begin
// In this event we receive the message with the name and value of a DOM node
// from the render process.
// This event may receive many other messages but we identify out message
// This event may receive many other messages but we identify our message
// thanks to the preamble.
// The we set MsgContents with the rest of the message and send a
// MINIBROWSER_SHOWMESSAGE message to show MsgContents in the main thread safely.
@@ -487,6 +487,12 @@ begin
(copy(message, 1, length(CONSOLE_MSG_PREAMBLE)) = CONSOLE_MSG_PREAMBLE) then
begin
MsgContents := copy(message, succ(length(CONSOLE_MSG_PREAMBLE)), length(message));
if (length(MsgContents) = 0) then
MsgContents := 'The INPUT node has no value'
else
MsgContents := 'INPUT node value : ' + quotedstr(MsgContents);
PostMessage(Handle, MINIBROWSER_SHOWMESSAGE, 0, 0);
end;
end;

2
demos/Delphi_VCL/MDIExternalPumpBrowser/uChildForm.pas
View File

@@ -51,7 +51,7 @@ uses
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Types, ComCtrls, ClipBrd,
{$ENDIF}
uMainForm, uCEFChromium, uCEFWindowParent, uCEFInterfaces, uCEFConstants, uCEFTypes,
uCEFWinControl;
uCEFWinControl, uCEFChromiumCore;
type
TChildForm = class(TForm)