Page 1 sur 1

Question sur un API ....

Publié : sam. 23/mai/2009 10:38
par jbernard13
Bonjour

je voudrais savoir si l'api suivant :

GetSystemMetrics_(#SM_CXSCREEN)
GetSystemMetrics_(#SM_CYSCREEN)

marche que pour OpenScreen()?
car dans le code suivant j'ai que la barre mais ma fenetre est miniscule ...

Code : Tout sélectionner

Enumeration
  #main
EndEnumeration


Ecranx= GetSystemMetrics_(#SM_CXSCREEN)
Ecrany= GetSystemMetrics_(#SM_CYSCREEN)


If OpenWindow(#main,0,0,#SM_CXSCREEN,#SM_CYSCREEN,"test",#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
  
EndIf



Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      quitter = #True
  EndSelect
Until quitter
End 

Publié : sam. 23/mai/2009 11:22
par Atomo
Tu as fait une erreure dans ton code, il faut remplacer '#SM_CXSCREEN' et '#SM_CYSCREEN' dans ton OpenWindow() par les variables que tu as crée qui sont 'Ecranx' et 'Ecrany', ça donne donc :

Code : Tout sélectionner

Enumeration 
  #main 
EndEnumeration 


Ecranx= GetSystemMetrics_(#SM_CXSCREEN) 
Ecrany= GetSystemMetrics_(#SM_CYSCREEN) 


If OpenWindow(#main,0,0,Ecranx,Ecrany,"test",#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered) 
  
EndIf 



Repeat 
  Select WaitWindowEvent() 
    Case #PB_Event_CloseWindow 
      quitter = #True 
  EndSelect 
Until quitter 
End 

Publié : sam. 23/mai/2009 13:20
par jbernard13
excuse moi de l'erreur ...

Publié : sam. 23/mai/2009 13:22
par Atomo
Pas besoin de s'excuser :lol:

Publié : sam. 23/mai/2009 14:55
par Geo Trouvpatou
Salut.

Voici une autre façon de faire, certes un peu moins claire.

Code : Tout sélectionner

Enumeration 
	#main 
EndEnumeration 

If OpenWindow(#main,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN),"test",#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered) 
	
EndIf 

Repeat 
	Select WaitWindowEvent() 
        Case #PB_Event_CloseWindow 
			quitter = #True 
    EndSelect 
Until quitter 
End

Bye.

Publié : sam. 23/mai/2009 20:50
par Le Soldat Inconnu
mais plutôt que cette API, je conseille d'utiliser la librairie Desktop de PB, voir l'aide.

Publié : dim. 24/mai/2009 9:02
par jbernard13
Merci Soldat

je viens d'essayer la librairie Desktop , c'est encore plus simple ...