anchor.diff:    const browser: ICefBrowser; level: Cardinal; const message, source: ustring;
     line: Integer; out Result: Boolean);
   var
  -  id: string;
  -  I: Integer;
  -begin
  -  AssertVclThread;
  -  id := LowerCase(ExtractFileName(ParamStr(0)))+'_'+GetVersionString+'_script_';
  -  if Assigned(Owner)
  -    then id := id + Owner.ClassName
  -    else id := id + 'unknown';
  -
  -  I := string(source).LastDelimiter('/');
  -  id := id + '_' + string(source).SubString(I + 1) + '_' + IntToStr(line);
  -
  -  LogExceptionToExternalHandler(id, 'Error occurred at line '+IntToStr(line)+' of '+source, message, '');
  +  p: PCEFConsoleMessageEventData;
  +begin
  +  AssertVclThread;
  +
  +  p := AllocMem(SizeOf(TCEFConsoleMessageEventData));
  +  p.browserid := browser.Identifier;
  +  p.level := level;
  +  p.message := message;
  +  p.source := source;
  +  p.line := line;
   
     Result := True;
  +
  +  PostMessage(FCallbackWnd, CEF_CONSOLEMESSAGE, WORD(Result), LPARAM(p));
   end;
   
   procedure TframeCEFHost.Handle_CEF_DESTROY(var Message: TMessage);
  
positive.code:   params.Free;
  end;
  
  procedure TframeCEFHost.cefBeforeBrowse(Sender: TObject;
    const browser: ICefBrowser; const frame: ICefFrame;
    const request: ICefRequest; user_gesture, isRedirect: Boolean;
  
negative.code:   CEF_SETFOCUS = WM_USER + 305;
    CEF_KEYEVENT = WM_USER + 306;
    CEF_BEFOREBROWSE = WM_USER + 307;
    CEF_CONSOLEMESSAGE = WM_USER + 308;
  
  type
    TCEFHostKeyEventData = record
      browserid: Integer;
      event: TCefKeyEvent;
      osEvent: TMsg;
    end;
  
    PCEFHostKeyEventData = ^TCEFHostKeyEventData;
  
    TCEFConsoleMessageEventData = record
      browserid: Integer;
      level: Cardinal;
      message, source: ustring;
      line: Integer;
    end;
  
    PCEFConsoleMessageEventData = ^TCEFConsoleMessageEventData;
  
    TCEFHostBeforeBrowseSyncEvent = procedure(Sender: TObject; const Url: string; out Handled: Boolean) of object;
    TCEFHostBeforeBrowseEvent = procedure(Sender: TObject; const Url: string; params: TStringList; wasHandled: Boolean) of object;
  