Question sur un API ....

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
jbernard13
Messages : 1501
Inscription : dim. 18/avr./2004 15:04
Localisation : sud de la france

Question sur un API ....

Message 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 
Atomo
Messages : 207
Inscription : lun. 17/sept./2007 12:27

Message 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 
jbernard13
Messages : 1501
Inscription : dim. 18/avr./2004 15:04
Localisation : sud de la france

Message par jbernard13 »

excuse moi de l'erreur ...
Atomo
Messages : 207
Inscription : lun. 17/sept./2007 12:27

Message par Atomo »

Pas besoin de s'excuser :lol:
Geo Trouvpatou
Messages : 471
Inscription : dim. 23/déc./2007 18:10

Message 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.
Le Soldat Inconnu
Messages : 4312
Inscription : mer. 28/janv./2004 20:58
Localisation : Clermont ferrand OU Olsztyn
Contact :

Message par Le Soldat Inconnu »

mais plutôt que cette API, je conseille d'utiliser la librairie Desktop de PB, voir l'aide.
Je ne suis pas à moitié Polonais mais ma moitié est polonaise ... Vous avez suivi ?

[Intel quad core Q9400 2.66mhz, ATI 4870, 4Go Ram, XP (x86) / 7 (x64)]
jbernard13
Messages : 1501
Inscription : dim. 18/avr./2004 15:04
Localisation : sud de la france

Message par jbernard13 »

Merci Soldat

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