probleme avec Resize gadget et ma fenetre .

bernard13 · Message par **bernard13** » ven. 10/juin/2005 15:36

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

nico · Message par **nico** » ven. 10/juin/2005 16:55

bernard13 · Message par **bernard13** » ven. 10/juin/2005 17:00

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

nico · Message par **nico** » ven. 10/juin/2005 17:06

bernard13 · Message par **bernard13** » ven. 10/juin/2005 17:07

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

nico · Message par **nico** » ven. 10/juin/2005 17:23

bernard13 · Message par **bernard13** » ven. 10/juin/2005 17:27

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

Backup · Message par **Backup** » ven. 10/juin/2005 18:26

nico a écrit :...

____

_____

__

:lol:
___

:lol:
_____

:lol:
______

:lol:
________

Dr. Dri · Message par **Dr. Dri** » ven. 10/juin/2005 19:52

@Dobro
c'est censé être un coeur tous ces smiley ?

Dri

bernard13 · Message par **bernard13** » ven. 10/juin/2005 21:33

je me debrouille tout seul
j'appris a bien programmer et compendre aussi
grace à vous .