PanelGadget fait disparaitre un bouton

cirederff · Message par **cirederff** » ven. 26/juin/2009 13:15

Bonjour.

je viens de rajouter l'exemple de l'aide de PanelGadget() dans le prog de mon dernier poste http://www.purebasic.fr/french/viewtopic.php?t=9524 mais mon premier bouton disparait quand je reviens à la page principale.

D ou ça vient

Code : Tout sélectionner

;********PURE 4.31**************** 
;*********FRED********************* 
Declare fenetre_petite_fille()
Declare fenetre_fille()
Enumeration 
#prn
#barre_luminosite	
#fenetre 
#fenetre_fille 
#fenetre_petite_fille 
#bouton_vers_fille
#bouton_vers_petite_fille 
#bouton_quitter_fille 
#bouton_quitter3 
#fenetre_largeur = 1024 
#fenetre_hauteur = 600 
EndEnumeration 


	
OpenWindow(#fenetre ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"GUIDAGE",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget) 
Fenetre_une = WindowID(#fenetre ) 
couleur = RGB(0,150,0) ;on met la fenetre en bleu foncé 
SetWindowColor(#fenetre,couleur) 
ButtonGadget(#fenetre_fille, 900, 10, 100, 30, "vers fille" ) 
luminositee =TrackBarGadget(#barre_luminosite, 0, 0, 20, 200, 0, 255, #PB_TrackBar_Vertical)
SetGadgetState(#barre_luminosite, 150)

Repeat 
		Event1 = WaitWindowEvent()  
			
			If Event1 = #PB_Event_Gadget

				Select EventGadget()
				
				
					Case #fenetre_fille
					fenetre_fille() 
							
							
					Case #barre_luminosite
					luminositee = GetGadgetState(#barre_luminosite)
					couleur = RGB(0,luminositee ,0) ;on met la fenetre en vert
  	 				SetWindowColor(#fenetre,couleur)
  	 				
  	 				
					Case #PB_Event_CloseWindow
					CloseWindow(#fenetre) 
					
					
					
					Break
					EndSelect
					
					
				EndIf 
Until event1=#PB_Event_CloseWindow
End    
		

Procedure fenetre_petite_fille() 
	
	
	If	OpenWindow(#fenetre_petite_fille ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"fenetre2" ,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget) 
		StickyWindow(#fenetre_petite_fille,1) 
		ButtonGadget(#bouton_quitter3, 100,  570, 300, 20, "quitter")
		
		 
		    	PanelGadget     (0, 0, 0, 1025, 550)
		    	AddGadgetItem (0, -1, "Onglet 1")
		    	
		    	
        			PanelGadget (1, 5, 5, 290, 166)
        			AddGadgetItem(1, -1, "Sous-onglet 1")
          		AddGadgetItem(1, -1, "Sous-onglet 2")
          		AddGadgetItem(1, -1, "Sous-onglet 3")
        			CloseGadgetList()
        			
        			
      			AddGadgetItem (0, -1,"Onglet 2")
        			ButtonGadget(2, 10, 15, 80, 24,"Bouton 1")
       			ButtonGadget(3, 95, 15, 80, 24,"Bouton 2")
    			CloseGadgetList()

     	EndIf   
        
      

					
		Repeat 
			Event3 = WaitWindowEvent() 
			If Event3 = #PB_Event_Gadget

				Select EventGadget()
				
				Case  #bouton_quitter3
				CloseWindow(#fenetre_petite_fille)  
						
					
				Break
				
				EndSelect
				
				EndIf 
			ForEver 
					
		
					
EndProcedure


	Procedure fenetre_fille()   
		OpenWindow(#fenetre_fille ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"fenetre2" ,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget) 
		StickyWindow(#fenetre_fille,1) 
		ButtonGadget(#bouton_quitter_fille, 10,  500, 200, 20, "quitter fille") 
		ButtonGadget(#bouton_vers_petite_fille, 10,  400, 200, 20, "vers petite fille") 
	
		Repeat 
				Event2= WaitWindowEvent()  
					
				If Event2 = #PB_Event_Gadget  
					Select EventGadget()

						Case #bouton_vers_petite_fille  
						fenetre_petite_fille() 
						
						
						Case #bouton_quitter_fille   
						CloseWindow(#fenetre_fille)   
						
						Break
					EndSelect
				EndIf
			ForEver 
			
EndProcedure

poshu · Message par **poshu** » ven. 26/juin/2009 13:28

Code : Tout sélectionner

;********PURE 4.31****************
;*********FRED*********************
Declare fenetre_petite_fille()
Declare fenetre_fille()
Enumeration
	#prn
	#fenetre
	#fenetre_fille
	#fenetre_petite_fille
	#bouton_vers_fille
	#bouton_vers_petite_fille
	#bouton_quitter_fille
	#bouton_quitter3
	#bouton_fille
	#barre_luminosite   = 127
	#fenetre_largeur = 1024
	#fenetre_hauteur = 600
EndEnumeration



OpenWindow(#fenetre ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"GUIDAGE",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget)
Fenetre_une = WindowID(#fenetre )
couleur = RGB(0,150,0) ;on met la fenetre en bleu foncé
SetWindowColor(#fenetre,couleur)
ButtonGadget(#bouton_fille, 900, 10, 100, 30, "vers fille" )
luminositee =TrackBarGadget(#barre_luminosite, 0, 0, 20, 200, 0, 255, #PB_TrackBar_Vertical)
SetGadgetState(#barre_luminosite, 150)

Repeat
	Event1 = WaitWindowEvent()
	
	If Event1 = #PB_Event_Gadget
		
		Select EventGadget()
				
				
			Case #bouton_fille
				fenetre_fille()
				
				
			Case #barre_luminosite
				luminositee = GetGadgetState(#barre_luminosite)
				couleur = RGB(0,luminositee ,0) ;on met la fenetre en vert
				SetWindowColor(#fenetre,couleur)
				
				
			Case #PB_Event_CloseWindow
				CloseWindow(#fenetre)
				
				
				
				Break
		EndSelect
		
		
	EndIf
Until event1=#PB_Event_CloseWindow
End


Procedure fenetre_petite_fille()
	
	
	If   OpenWindow(#fenetre_petite_fille ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"fenetre2" ,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget)
		StickyWindow(#fenetre_petite_fille,1)
		ButtonGadget(#bouton_quitter3, 100,  570, 300, 20, "quitter")
		
		
		PanelGadget     (0, 0, 0, 1025, 550)
		AddGadgetItem (0, -1, "Onglet 1")
		
		
		PanelGadget (1, 5, 5, 290, 166)
		AddGadgetItem(1, -1, "Sous-onglet 1")
		AddGadgetItem(1, -1, "Sous-onglet 2")
		AddGadgetItem(1, -1, "Sous-onglet 3")
		CloseGadgetList()
		
		
		AddGadgetItem (0, -1,"Onglet 2")
		ButtonGadget(2, 10, 15, 80, 24,"Bouton 1")
		ButtonGadget(3, 95, 15, 80, 24,"Bouton 2")
		CloseGadgetList()
		
	EndIf
	
	
	
	
	Repeat
		Event3 = WaitWindowEvent()
		If Event3 = #PB_Event_Gadget
			
			Select EventGadget()
					
				Case  #bouton_quitter3
					CloseWindow(#fenetre_petite_fille)
					
					
					Break
					
			EndSelect
			
		EndIf
	ForEver
	
	
	
EndProcedure


Procedure fenetre_fille()
	OpenWindow(#fenetre_fille ,0,0,#fenetre_largeur ,#fenetre_hauteur ,"fenetre2" ,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget| #PB_Window_MaximizeGadget)
	StickyWindow(#fenetre_fille,1)
	ButtonGadget(#bouton_quitter_fille, 10,  500, 200, 20, "quitter fille")
	ButtonGadget(#bouton_vers_petite_fille, 10,  400, 200, 20, "vers petite fille")
	
	Repeat
		Event2= WaitWindowEvent()
		
		If Event2 = #PB_Event_Gadget
			Select EventGadget()
					
				Case #bouton_vers_petite_fille
					fenetre_petite_fille()
					
					
				Case #bouton_quitter_fille
					CloseWindow(#fenetre_fille)
					
					Break
			EndSelect
		EndIf
	ForEver
	
EndProcedure

cirederff · Message par **cirederff** » ven. 26/juin/2009 17:31

Merci.

Je suis vert.

Je faisais pas mal de fautes d'étourderies à l'école et voila que ça me rattrape ..... je suis mal barré

cirederff · Message par **cirederff** » ven. 26/juin/2009 19:46

Je viens de remarquer que le fait de ne pas avoir mis de valeur à la constante #barre_luminosite me fait disparaitre mes boutons

poshu · Message par **poshu** » sam. 27/juin/2009 13:23

va vraiment falloir que tu te mette à relire ton code toi :p

jbernard13 · Message par **jbernard13** » sam. 27/juin/2009 13:35

cirederff , c'est quel sorte d'application que tu crée?

cirederff · Message par **cirederff** » sam. 27/juin/2009 14:07

poshu a écrit :va vraiment falloir que tu te mette à relire ton code toi :p

ail ail ail

je veux me faire un système de guidage embarqué sur un eeepc, avec enregistrement du parcours.
Mais comme le dit poshu mon gros problème est l'inattention et je sens que je vais galérer