Code: Select all
;
; FullScreen.sb
;
; by Danilo
;
; http://forums.spiderbasic.com/viewtopic.php?f=9&t=55
;
; SpiderBasic 1.00 Alpha 4
;
Procedure Fullscreen()
!function _RequestFullScreen() {
;!var elem = document.getElementById("SpiderBody");
!var elem = document.documentElement;
!if (elem.requestFullscreen) {
! elem.requestFullscreen();
!} else if (elem.requestFullScreen) {
! elem.requestFullScreen();
!} else if (elem.msRequestFullscreen) {
! elem.msRequestFullscreen();
!} else if (elem.msRequestFullScreen) {
! elem.msRequestFullScreen();
!} else if (elem.mozRequestFullScreen) {
! elem.mozRequestFullScreen();
!} else if (elem.mozRequestFullscreen) {
! elem.mozRequestFullscreen();
!} else if (elem.webkitRequestFullscreen) {
! elem.webkitRequestFullscreen();
!} else if (elem.webkitRequestFullScreen) {
! elem.webkitRequestFullScreen();
!} else if (elem.oRequestFullscreen) {
! elem.oRequestFullscreen();
!} else if (elem.oRequestFullScreen) {
! elem.oRequestFullScreen();
!}
!}
!_RequestFullScreen();
EndProcedure
Procedure GadgetEvents()
Select EventGadget()
Case 1
Fullscreen()
EndSelect
EndProcedure
If OpenWindow(0, 20, 20, 400, 100, "Fullscreen Demonstration")
ButtonGadget(1, 10, 10, 380, 25, "Request FullScreen (ESC to exit fullscreen mode)")
BindEvent(#PB_Event_Gadget, @GadgetEvents())
EndIf
Please note:
Browsers have a check nowadays to prevent this fullscreen requests right after
the page is loaded. It would be annoying for the user when websites go
fullscreen randomly/automatically, without asking the user first.
So most browsers have a built-in check to prevent this. Make a button for
the user to switch to fullscreen, and it should work after this user action.