PB 6.20 : Possible bug avec OpenScreen

[falsam]

Le code de test fonctionne avec PB 5.73 mais génère une erreur avec PB 6.20.

Code : Tout sélectionner

EnableExplicit

#ScreenWidth = 800
#ScreenHeight = 600

InitSprite()
InitKeyboard()

OpenScreen(#ScreenWidth, #ScreenHeight, 32, "Test")

Repeat
  ExamineKeyboard()
  
  ClearScreen(RGB(264, 264, 264))
  FlipBuffers()
  
Until KeyboardPushed(#PB_Key_Escape)

CloseScreen()
End

Erreur générée

[19 :14 :28] Attente du démarrage du programme...
[19 :14 :28] Type d'exécutable: Windows - x64 (64bit, Unicode)
[19 :14 :28] Exécutable démarré.
[19 :14 :28] [ERREUR] Ligne: 12
[19 :14 :28] [ERREUR] OpenScreen() ou OpenWindowedScreen() doit être appelée avant l'utilisation des commandes Keyboard.
[19 :14 :38] L'exécutable de débogage se ferme de façon inattendue.

Pouvez vous me confirmer (ou pas) avec PB 6.20 ce souci s'il vous plait ? merci.

PS : Si ça se trouve j'ai peut être fait une erreur dans ce petit code

[Ar-S]

Pas de soucis ici en 6.20 x64

Peut être ta profondeur ? tu as essayé en 24 au lieu de 32 ?

Moi en 32 ça passe mais pas en 24 par exemple.

Code : Tout sélectionner

EnableExplicit

#ScreenWidth = 800
#ScreenHeight = 600

InitSprite()
InitKeyboard()

If OpenScreen(#ScreenWidth, #ScreenHeight, 32, "Test")

Repeat
  ExamineKeyboard()
  
  ClearScreen(RGB(264, 264, 264))
  FlipBuffers()
  
Until KeyboardPushed(#PB_Key_Escape)

CloseScreen()

Else
Debug "Impossible d'ouvrir le screen"  
EndIf

End