Code: Select all
If Exists("ENVARC:Assist/fullscreen")
ChangeDisplayMode(#DISPMODE_FULLSCREEN, 800, 600)
fullscreen = 1
EndIf
Thanks!
Code: Select all
If Exists("ENVARC:Assist/fullscreen")
ChangeDisplayMode(#DISPMODE_FULLSCREEN, 800, 600)
fullscreen = 1
EndIf
Code: Select all
Function p_PrefsWindow()
If fullscreen = 1
ChangeDisplayMode(#DISPMODE_WINDOWED)
fullscreen = 0
display$ = "window"
If Exists("ENVARC:Assist/display")
DeleteFile("ENVARC:Assist/display")
EndIf
StringToFile(display$, "ENVARC:Assist/display")
If LayerExists("fullscreen")
HideLayer("fullscreen")
ShowLayer("window")
EndIf
HideLayer("quit")
ShowLayer("drawer")
EndIf
EndFunction