Page 1 sur 1
probleme avec Resize gadget et ma fenetre .
Publié : ven. 10/juin/2005 15:36
par bernard13
bonjour
j'ai un probleme avec mon code
je veux que ma fenetre puiss etre redimensionner et mon cadre aussi
le probleme c'est que le cadre ne s'adpate pas a la fenetre il est devient trop grand
qui peux m'aider svp ...
Code : Tout sélectionner
Enumeration
#fenetre_0
EndEnumeration
Enumeration
#cadre_0
EndEnumeration
Procedure fenetre()
If OpenWindow(#fenetre_0,0,0,800,600,#pb_window_systemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget| #PB_Window_TitleBar|#PB_Window_ScreenCentered,"test de resize ")
If CreateGadgetList(WindowID())
Frame3DGadget(#cadre_0,25,20,750,530,"")
EndIf
EndIf
EndProcedure
fenetre()
Repeat
Select WaitWindowEvent()
Case #PB_Event_SizeWindow
ResizeGadget(#cadre_0,-1,-1,WindowWidth()-10,WindowHeight()-10)
Case #pb_event_closewindow
fermer_fenetre_0=1
EndSelect
Until fermer_fenetre_0=1
End
merci
Jbernard
Publié : ven. 10/juin/2005 16:55
par nico
...
Publié : ven. 10/juin/2005 17:00
par bernard13
je viens de trouver
Code : Tout sélectionner
Enumeration
#fenetre_0
EndEnumeration
Enumeration
#cadre_0
EndEnumeration
If OpenWindow(#fenetre_0,300,300,300,200,#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget,"test de resize ")
If CreateGadgetList(WindowID(#fenetre_0))
Frame3DGadget(#cadre_0,5,0,290,190,"")
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_SizeWindow
ResizeGadget(#cadre_0,-1,-1,WindowWidth()-10,WindowHeight()-10)
Case #pb_event_closewindow
fermer_fenetre_0=1
EndSelect
Until fermer_fenetre_0=1
End
EndIf
Publié : ven. 10/juin/2005 17:06
par nico
...
Publié : ven. 10/juin/2005 17:07
par bernard13
je rencontre un petit probleme
quand je lance ce programme
la premiere fois il affiche un petit cadre en haut a gauche
mais quand je clique sur agrandir le cadre se redimensionne avec la fenetre et il a plus le meme taille quand je reviens reclique pour reduire la fenetre
si quelqu'un peux m'expliquer si il ya pas un bug ?
merci
Code : Tout sélectionner
Enumeration
#fenetre_0
EndEnumeration
Enumeration
#cadre_0
EndEnumeration
If OpenWindow(#fenetre_0,0,0,800,600,#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget,"test de resize ")
If CreateGadgetList(WindowID(#fenetre_0))
Frame3DGadget(#cadre_0,5,5,90,90,"")
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_SizeWindow
ResizeGadget(#cadre_0,-1,-1,WindowWidth()-10,WindowHeight()-10)
Case #pb_event_closewindow
fermer_fenetre_0=1
EndSelect
Until fermer_fenetre_0=1
End
EndIf
Publié : ven. 10/juin/2005 17:23
par nico
...
Publié : ven. 10/juin/2005 17:27
par bernard13
biens ur QUE j'ai compris la preuve :
Code : Tout sélectionner
Enumeration
#fenetre_0
EndEnumeration
Enumeration
#cadre_0
EndEnumeration
If OpenWindow(#fenetre_0,0,0,800,600,#PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget,"test de resize ")
If CreateGadgetList(WindowID())
Frame3DGadget(#cadre_0,10,10,280,180,"")
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_SizeWindow
ResizeGadget(#cadre_0,-1,1,WindowWidth()-20,WindowHeight()-5)
Case #pb_event_closewindow
fermer_fenetre_0=1
EndSelect
Until fermer_fenetre_0=1
End
EndIf
Publié : ven. 10/juin/2005 18:26
par Backup
Publié : ven. 10/juin/2005 19:52
par Dr. Dri
@Dobro
c'est censé être un coeur tous ces smiley ?
Dri
Publié : ven. 10/juin/2005 21:33
par bernard13
je me debrouille tout seul
j'appris a bien programmer et compendre aussi
grace à vous .
_____