Setwindowfullscreen (window, state)
Posted: Tue Aug 08, 2017 6:19 pm
A system to set a window to full screen and going back to normal state. Currently we can have fullscreen using borderless style but we can't go back.
http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
SetWindowState(Window,#PB_Window_Maximize)
SetWindowState(Window,#PB_Window_Normal)
Code: Select all
If OpenWindow(#Null,#Null,#Null,#Null,#Null,#Null$,#PB_Window_BorderLess)
SetWindowState(#Null,#PB_Window_Maximize)
StickyWindow(#Null,#True)
If ButtonGadget(1,10,10,30,30,"X")
Repeat:Until WaitWindowEvent() = #PB_Event_Gadget
EndIf
EndIf
Code: Select all
Procedure FullScreen(Window.i,Toggle.b)
StickyWindow(Window,Toggle)
If Toggle
SetWindowState(Window,#PB_Window_Maximize)
Else
SetWindowState(Window,#PB_Window_Normal)
EndIf
EndProcedure
Flag = #True
If OpenWindow(#Null,#Null,#Null,400,400,#Null$,#PB_Window_BorderLess)
SetWindowState(#Null,#PB_Window_Maximize)
StickyWindow(#Null,#True)
If ButtonGadget(1,10,10,30,30,"X") And ButtonGadget(2,10,50,80,30,"TOGGLE")
Repeat
If WaitWindowEvent() = #PB_Event_Gadget
Select EventGadget()
Case 2
If Flag
Flag = #False
Else
flag = #True
EndIf
FullScreen(#Null,Flag)
Case 1
Break
EndSelect
EndIf
ForEver
EndIf
EndIf