salut
je cherche un exemple de l'empilage des 2 fonctions
if openwindow(
if openwindedscreen(
avec la boucle des événements et les flipbuffers...
comment ça marche, y'a pas d'exemple dans l'aide...
merci
patrick
openwindow et openwindowedscreen
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
;}