Unable ti switch from windowed screen to fullscreen

[Nells]

Hi !
I did this code

Code: Select all

Procedure switchScreen()
  CallDebugger
  If screen = 1
    CloseScreen()
    OpenWindow(0, 0, 0, 800, 600, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget, #AppName)
    OpenWindowedScreen(WindowID(), 0, 0, 800, 600, 0, 0, 0)
    screen = 0
  Else
    CloseScreen()
    CloseWindow(0)
    If OpenScreen(#SCRWidth, #SCRHeight, #SCRDepth, #AppName)
      screen = 1
    Else
      MessageRequester(#AppName, "Impossible de passer au mode plein écran")
      OpenWindow(0, 0, 0, 800, 600, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget, #AppName)
      OpenWindowedScreen(WindowID(), 0, 0, 800, 600, 0, 0, 0)
      screen = 0
    EndIf
  EndIf
EndProcedure

Yes, I'm french ^^

So, I got the message "Impossible de passer au mode plein écran" when I switched from fullscreen ^^

and full to windowed doesn't work neither

Could someone explain why it's impossible to switch, or maybe there's an error in the code?

[Nells]

Nobody can help me?

Well, it's not that important, but can be useful

[Shopro]

hi,

you can find an example in the code archives. It contributed by myself

-Shopro

[Kale]

Maybe this will help:
viewtopic.php?t=7772

[Shopro]

ah, yes, that's the one

-Shopro