PureBasic

Pour l'instant je mets ça dans la boucle , alors ça marche un peu le menu n'apparait que si la souris se trouve en haut de l'écran , mais quand le menu est caché , j'ai une bande grise à la place ,et surtout , j'ai une bande grise qui scrolle verticalement à l'écran !
J'ai testé avec XP.
Remarque j'ai fait ce test en incorporant ces lignes dans le code de Sokoban3D

Code : Tout sélectionner

   If WindowMouseY()  < MenuHeight()  
      HideMenu(0,0)
   Else
      HideMenu(0,1)
   EndIf

Code : Tout sélectionner

Shared menucache.l
   If WindowMouseY()  < MenuHeight() 
      If menucache
        HideMenu(0,0)
        menucache=0
      EndIf
   Else
      If menucache=0
        HideMenu(0,1)
        menucache=1
      EndIf
   EndIf

Ca, c'est pour éviter la bande qui scrolle.

La bande en haut de l'écran, c'est à cause de la position du windowedscreen.
Modifier l'initialisation comme ça:

Code : Tout sélectionner


;/ouvre un écran
HideMenu(0,1)
If OpenWindowedScreen( WindowID(0), 0, 0, ScreenWidth , ScreenHeight-StatBarHeight , 0, 0, 0 ) = 0 
   MessageRequester( "Erreur" , "Impossible d'ouvrir l'écran " , 0 ) 
   End 
EndIf

Merci ça marche très bien

ça sortira avec la version 006

PureBasic

Comment cacher le menu ?

Comment cacher le menu ?