BriskBard, CEF4Delphi, WebView4Delphi, WebUI4Delphi and WebUI4CSharp

Code: Select all

...
  if event^.kind = KEYEVENT_RAWKEYDOWN then
  begin
    //Ctrl + Shift + L
    if ((event^.modifiers and EVENTFLAG_CONTROL_DOWN) <> 0) and
       ((event^.modifiers and EVENTFLAG_SHIFT_DOWN) <> 0) and
       (event^.windows_key_code = Ord('L')) then
    begin
      Result := True;
      PanelEditVisibleChange; //Everything freezes when resizing — the only option is to kill the process.
    end;
  end;
...
 
procedure TWebForm.PanelEditVisibleChange;
var
  vis: Boolean;
begin
  CEFWindowParent.Visible := False;
  Application.ProcessMessages;

  //if Assigned(Chromium.Browser) then
  // Chromium.Browser.Host.NotifyMoveOrResizeStarted;

  vis := not(pnlEdit.Visible);

  if vis then begin
    //FOrigWidth := Self.Width;
    Self.Width := FOrigWidth + pnlEdit.Width + spHaupt.Width;
    pnlEdit.Visible := vis;
    spHaupt.Visible := vis;
    spHaupt.Left := pnlEdit.Left - spHaupt.Width - 10;
  end
    else
  begin
    spHaupt.Visible := vis;
    pnlEdit.Visible := vis;
    //FOrigWidth := Self.Width;
    Self.Width := FOrigWidth;
  end;
  CEFWindowParent.Visible := True;
end;

Code: Select all

GlobalCEFApp.SingleProcess := True;

Code: Select all

...
  USER_CEF_DOFORMRESIZE = {$IFDEF MSWINDOWS}WM_APP +{$ENDIF} $B00;
...
  procedure BrowserFormResize(var aMessage: TMessage); message USER_CEF_DOFORMRESIZE;
...
  PostMessage(Handle, USER_CEF_DOFORMRESIZE, 0, 0);
...