[Résolu] Probleme de HideGadget ON/OFF

[SPH]

Salut a tous,

J'ai superposé plusieurs gadgets et je joue avec HideGadget pour faire apparaitre la premiere serie et cacher les autres. Mais ca ne marche pas et je n'ai pas la moindre idée du pkoi du comment

Code : Tout sélectionner

OpenWindow(0, 0, 0, 749, 596+40, "erreur hidegadget", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)


;#############
ButtonGadget(19, 30,528,689,20, "Ecraser")
TextGadget(20, 30, 567,90,20,"Renommer :")
StringGadget(21, 96,  564, 400, 20, "")
ButtonGadget(22, 505,564,214,20, "Renommer")
ButtonGadget(23, 30,594,689,20, "Annuler")
HideGadget(19, 1)
HideGadget(20, 1)
HideGadget(21, 1)
HideGadget(22, 1)
HideGadget(23, 1)
;#############
ButtonGadget(8, 12, 534, 260, 80,"Swap de 1 seconde avec les autres gadgets")
ButtonGadget(9, 376,  534, 260, 80,"")
HideGadget(8, 0)
HideGadget(9, 0)
;#############


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      End
      
    Case #PB_Event_Gadget
      Select EventGadget()
          
        Case 8
          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          HideGadget(19, 0)
          HideGadget(20, 0)
          HideGadget(21, 0)
          HideGadget(22, 0)
          HideGadget(23, 0)
          HideGadget(8, 1)
          HideGadget(9, 1)
          ;;;;;;
          
          Delay(1000)
          
          HideGadget(19, 1)
          HideGadget(20, 1)
          HideGadget(21, 1)
          HideGadget(22, 1)
          HideGadget(23, 1)
          HideGadget(8, 0)
          HideGadget(9, 0)
          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      EndSelect     
      
  EndSelect
  
Until Evenement = #PB_Event_CloseWindow
End

;;;;;;;;;;;;;;;;;;;;;;;;

Quelqu'un pour eclairer ma lanterne

[Ollivier]

M'en veux pas si ça ne marche pas :

Remplace

Code : Tout sélectionner

Delay(1000)

par

Code : Tout sélectionner

Repeat

Delay(1000)
WindowEvent()

Forever

(ça met toutes tes infos de l'OS à la trappe)

[Ollivier]

En remplaçant Delay(1000) par Delayed(1000), ça devrait fonctionner correctement (insérez ci-dessous)

Code : Tout sélectionner

Procedure Delayed(Duration)
LapD = ElapsedMilliseconds() + Duration
Repeat
WindowEvent()
Delay(16)
Until ElapsedMilliseconds() > LapD
EndProcedure

[Ar-S]

Tu n'as pas une autre façon que de mettre des delay pour cacher/afficher des gadgets ?
Sinon pour ne pas t'embêter à utiliser 15 hides, tu mes tes gadgets dans des ContainerGadget, ça sert à ça.
Cont1 : gadget1, gadget2, gadget3, gadget4
Cont2 : gadget 5, gadget6, gadget7
Ainsi quand tu caches cont1 ça cache tout le groupe 1 et vice versa.
C'est pour faire quoi au juste, parce que ça me parait vraiment sale.

[SPH]

Tu n'as pas une autre façon que de mettre des delay pour cacher/afficher des gadgets ?
Sinon pour ne pas t'embêter à utiliser 15 hides, tu mes tes gadgets dans des ContainerGadget, ça sert à ça.
Cont1 : gadget1, gadget2, gadget3, gadget4
Cont2 : gadget 5, gadget6, gadget7
Ainsi quand tu caches cont1 ça cache tout le groupe 1 et vice versa.
C'est pour faire quoi au juste, parce que ça me parait vraiment sale.

Bin, je découvre
Je me hazarde la où jamais je n'ai été. Je suis newbies en gadgets

ContainerGadget ? (Ok, je regarde ca)


Merci

[kernadec]

bjr
rien compris

Cordialement

Code : Tout sélectionner

OpenWindow(0, 0, 0, 749, 596+40, "erreur hidegadget", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)


;#############
ButtonGadget(19, 30,528,689,20, "Ecraser")
TextGadget(20, 30, 567,90,20,"Renommer :")
StringGadget(21, 96,  564, 400, 20, "")
ButtonGadget(22, 505,564,214,20, "Renommer")
ButtonGadget(23, 30,594,689,20, "Annuler")
HideGadget(19, 1)
HideGadget(20, 1)
HideGadget(21, 1)
HideGadget(22, 1)
HideGadget(23, 1)
;#############
ButtonGadget(8, 12, 434, 260, 80,"Swap de 1 seconde avec les autres gadgets")
ButtonGadget(9, 376,  434, 260, 80,"")
HideGadget(8, 0)
HideGadget(9, 0)
;#############


Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      End
     
    Case #PB_Event_Gadget
      Select EventGadget()
         
        Case 8
          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          HideGadget(19, 0)
          HideGadget(20, 0)
          HideGadget(21, 0)
          HideGadget(22, 0)
          HideGadget(23, 0)
          HideGadget(8, 1)
          HideGadget(9, 0)
          ;;;;;;
         Case 9
         ; Delay(10)
         
          HideGadget(19, 1)
          HideGadget(20, 1)
          HideGadget(21, 1)
          HideGadget(22, 1)
          HideGadget(23, 1)
          HideGadget(8, 0)
          HideGadget(9, 1)
          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      EndSelect     
     
  EndSelect
 
Until Evenement = #PB_Event_CloseWindow
End

;;;;;;;;;;;;;;;;;;;;;;;;

[SPH]

Merci a tous et a toi kernadec,

J'ai contourné le probleme et je continue mais je sais que cela peut etre résumé avec les ContainerGadget

Wait&See