Initialiser une valeur dans un DateGadget

nico · Message par **nico** » ven. 27/oct./2006 17:10

Salut,

Je n'arrive pas à initialiser une valeur dans un DateGadget.

Si vous pouviez m'éclairer.

Droopy · Message par **Droopy** » ven. 27/oct./2006 18:21

  If OpenWindow(0, 0, 0, 250, 250,"DateGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    If CreateGadgetList(WindowID(0))
      DateGadget(0, 10, 10, 190, 25, "Date : %dd/%mm/%yyyy Heure : %hh:%ii")
      SetGadgetState(0,Date(2006,9,1,10,12,50))
      Repeat: Until WaitWindowEvent() = #PB_Event_CloseWindow
    EndIf
  EndIf

nico · Message par **nico** » ven. 27/oct./2006 19:52

Merci!

Sinon il est possible de laisser le champ vide?

Droopy · Message par **Droopy** » ven. 27/oct./2006 20:46

Quel champ ?

nico · Message par **nico** » sam. 28/oct./2006 12:06

Le champ DateGadget, est-il possible de le laisser vide ("")?

Je voudrais qu'il n'y ai pas de valeur par défaut!

Backup · Message par **Backup** » sam. 28/oct./2006 12:27

tu met un espace !

If OpenWindow (0, 0, 0, 250, 250, "DateGadget" , #PB_Window_SystemMenu|#PB_Window_ScreenCentered )
     If CreateGadgetList ( WindowID (0))
         DateGadget (0, 10, 10, 190, 25, " " )
         SetGadgetState (0, Date (2006,9,1,10,12,50))
         Repeat : Until WaitWindowEvent () = #PB_Event_CloseWindow
     EndIf
EndIf

RegisLG · Message par **RegisLG** » sam. 28/oct./2006 12:35

Tu peux feinter en mettant un espace dans le masque au départ, puis remettre le masque normal après avoir choisi la date.

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 250, 250,"DateGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
    If CreateGadgetList(WindowID(0))
      DateGadget(0, 10, 10, 190, 25, " ")
      Repeat
       Evenement = WaitWindowEvent() 
       If Evenement = #PB_Event_Gadget
         If EventGadget() = 0
           SetGadgetText(0,"Date : %dd/%mm/%yyyy")
         EndIf
       EndIf
      Until evenement = #PB_Event_CloseWindow
    EndIf
  EndIf

Flype · Message par **Flype** » sam. 28/oct./2006 12:49

oui genre çà :

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 250, 250, "DateGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    DateGadget(0, 10, 10, 200, 21, " Saisir une date...", 0, #PB_Date_CheckBox)
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_Gadget
          Select EventGadget()
            Case 0
              If GetGadgetState(0)
                SetGadgetText(0, "  Le  %dd . %mm . %yyyy  à  %hh h %ii")
              Else
                SetGadgetText(0, " Saisir une date...")
              EndIf
          EndSelect
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
  EndIf
EndIf

nico · Message par **nico** » sam. 28/oct./2006 14:28

Apparemment on pourrait laisser un champ vide à la création du DateGadget, mais après si on remet le champ vide, il est alors impossible de choisir une Date, rien ne s'affiche.

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 250, 250, "DateGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered) 
  If CreateGadgetList(WindowID(0)) 
    DateGadget(0, 10, 10, 200, 21, "%dd/%mm/%yyyy") 
    ButtonGadget(1,10,40,100,20,"Effacer la date")
    Repeat 
      Select WaitWindowEvent() 
        Case #PB_Event_Gadget 
          Select EventGadget() 
            Case 0 
 
          Case 1
              SetGadgetText(0, " ")
              
          EndSelect 
        Case #PB_Event_CloseWindow 
          Break 
      EndSelect 
    ForEver 
  EndIf 
EndIf

Flype · Message par **Flype** » sam. 28/oct./2006 14:32

tu peux facilement résoudre ce probleme :

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 250, 250, "DateGadget", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    DateGadget(0, 10, 10, 200, 21, "%dd/%mm/%yyyy")
    ButtonGadget(1,10,40,100,20,"Effacer la date")
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_Gadget
          Select EventGadget()
            Case 0
              If GetGadgetState(0) ;And (EventType()=0)
                SetGadgetText(0, "%dd/%mm/%yyyy")
              EndIf
            Case 1
              SetGadgetText(0, " ")
          EndSelect
        Case #PB_Event_CloseWindow
          Break
      EndSelect
    ForEver
  EndIf
EndIf

nico · Message par **nico** » sam. 28/oct./2006 16:18

Merci à vous tous!