PureBasic

Code : Tout sélectionner

;{-Init + OpenWindow + OpenScreen
#WPrincipale = 0
#MenuBarre = 0
#Menu_Quitter = 0
#WindowTailleX = 500
#WindowTailleZ = 400
#EcranTailleX = 300
#EcranTailleZ = 300
#MargeEcranX = 10
#MargeEcranZ = 30 
ScreenWidth = GetSystemMetrics_(#SM_CXSCREEN) 
ScreenHeight = GetSystemMetrics_(#SM_CYSCREEN) 
FlagWindow = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If InitSprite() = 0 Or InitKeyboard() = 0 
  MessageRequester( "Erreur" , "Impossible d'initialiser DirectX 7 Ou plus" , 0 ) 
  End 
ElseIf OpenWindow(#WPrincipale,0,0,#WindowTailleX,#WindowTailleZ,FlagWindow,"TEST") = 0 
  MessageRequester( "Erreur", "Impossible d'ouvrir la fenêtre") 
  End 
EndIf 
If OpenWindowedScreen( WindowID(#WPrincipale), #MargeEcranX,#MargeEcranZ,#EcranTailleX,#EcranTailleZ, 0, 0, 0 ) = 0 
  MessageRequester( "Erreur" , "Impossible d'ouvrir l'écran " , 0 ) 
  End 
EndIf
;} 
;{-Menu
If CreateMenu(#MenuBarre, WindowID())
  MenuTitle("Fichier")
  MenuItem(#Menu_Quitter,"Quitter") 
EndIf
Procedure GestionWindow()
   Select WindowEvent()
     ;/Window
    Case #PB_Event_CloseWindow : Quit = 1 
      ;/Menu
    Case #PB_Event_Menu
      Select EventMenuID()
        Case #Menu_Quitter
          Quit = 1 
      EndSelect
      ;/Gadgets
    Case #PB_Event_Gadget
      Select EventGadgetID()
      EndSelect 
  EndSelect 
  ProcedureReturn Quit
EndProcedure
;{/ Boucle principale
Repeat
  ClearScreen(100,100,200) 
  FlipBuffers() 
  Delay(1) ; <<< Si je ne mets pas ça , j'ai le FPS qui s'emballe 
  Quit = GestionWindow()
Until Quit
End
;}