Fullscreen by JavaScript

[Det20]

Hi,

this doesn't work for me:

Chromium1.Browser.MainFrame.ExecuteJavaScript('document.body.webkitRequestFullScreen();', Chromium1.Browser.MainFrame.GetURL, 0);
Chromium1.Browser.MainFrame.ExecuteJavaScript('document.documentElement.webkitRequestFullScreen();', Chromium1.Browser.MainFrame.GetURL, 0);

This always return "requestFullscreen' on 'Element': API can only be initiated by a user gesture". Do you have any ideas if there is a work-around, an option for CEF ...? It seems that there is an "fullscreen-enabled" option (--fullscreen-enabled), but i don't know, how to set this option.

Another idea: Send a double-click message to the browser (SendMessage(Chromium1.WindowHandle,MOUSEEVENTF_LEFTDOWN,0,0)), but this doesn't work, the youtube video isn't maximized (but doing a double click with the mouse, works fine).

Best

[salvadordf]

Hi,

Read this forum thread to simulate keyboard presses and mouse clicks :
https://www.briskbard.com/forum/viewtopic.php?f=8&t=969

[Det20]

[Edit]

Solve it, amazing! Not the finest way, but it works for me.

Code: Select all

Procedure ToggleFullScreen(Browser: TChromium);
  var
    MouseEvent : TCefMouseEvent;
    KeyEvent : TCefKeyEvent;
begin
  if (Browser <> nil) then begin
    MouseEvent.x := 150; // CEFWindowParent1.Width div 2;
    MouseEvent.y := 150; // CEFWindowParent1.Height div 2;
    Browser.Browser.Host.SendFocusEvent(true);
    Browser.Browser.Host.SendMouseClickEvent(PCefMouseEvent(@MouseEvent), MBT_LEFT, false, 2);
    Browser.Browser.Host.SendMouseClickEvent(PCefMouseEvent(@MouseEvent), MBT_LEFT, true, 1);
    Browser.Browser.Host.SendFocusEvent(true);
  end;
end;

[salvadordf]

I've never done that but you can log all the necessary parameters with the SimpleOSRBrowser demo.

[Det20]

Can i "move" the current browser (Chromium1) to another panel without recreate it? An idea is to create a borderless and fullscreen panel, move Chromium browser to this panel by, for example, just set the new parent.

[salvadordf]

Try TChromium.SetNewBrowserParent

[Det20]

Thank you, that works perfekt.

Global Variable:

Code: Select all

ChromiumExtPanel: TPanel;

With Button Click ...

Code: Select all

Procedure TfrmMain.FullScreenChrome(Chrome: TCEFWindowParent; SetFullscreen: Boolean);
begin
  If SetFullScreen then begin
    If Assigned(ChromiumExtPanel) then Exit;

    // Create TempPanel
    ChromiumExtPanel := TPanel.Create(nil);
    ChromiumExtPanel.Left := 0;
    ChromiumExtPanel.Top  := 0;
    ChromiumExtPanel.Width  := Screen.Width;
    ChromiumExtPanel.Height := Screen.Height;
    ChromiumExtPanel.Parent := Self;
    ChromiumExtPanel.ParentBackground := false;
    ChromiumExtPanel.Color := clBlack;
    ChromiumExtPanel.BevelInner := bvNone;
    ChromiumExtPanel.BevelOuter := bvNone;

    // Move TempPanel to outside form
    SetWindowLong(ChromiumExtPanel.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
    Winapi.Windows.SetParent(ChromiumExtPanel.Handle, GetDesktopWindow);
    // Move Chromium to TempPanel
    Winapi.Windows.SetParent(Chrome.Handle, ChromiumExtPanel.Handle);

    frmMain.KeyPreview := true; // Because of ESC Key
    Chrome.Align  := alNone;
    Chrome.Width  := ChromiumExtPanel.Width-5;
    Chrome.Height := ChromiumExtPanel.Height-5;

  End Else begin
    If (not Assigned(ChromiumExtPanel)) then Exit;

    Winapi.Windows.SetParent(Chrome.Handle, ....Handle); // Old Parent
    frmMain.KeyPreview := false; // Because of ESC Key
    Chrome.Align := alClient;
    FreeAndNil(ChromiumExtPanel);
  End;
end;

And at least handle ESC in Form.KeyUp:

Code: Select all

procedure TfrmMain.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If (Key=VK_ESCAPE) and Assigned(ChromiumExtPanel) then FullScreenChrome(...,false);
end;