Invisible controls

[Edwin Knoppert]

This doesn't work:

Code: Select all

If OpenWindow(0, 0, 0, 220, 200, #PB_Window_SystemMenu|#PB_Window_Screencentered,"CalendarGadget()") 
    If CreateGadgetList(WindowID()) 
      CalendarGadget(0, 10, 10, 200, 180, 0, #PB_WindowInvisible) 
      Repeat: Until WaitWindowEvent() = #PB_Event_CloseWindow 
    EndIf 
  EndIf

Wanted to create an invisible control.
Currently using:

Code: Select all

Global id.l


If OpenWindow(0, 0, 0, 220, 200, #PB_Window_SystemMenu|#PB_Window_Screencentered,"CalendarGadget()") 
    If CreateGadgetList(WindowID()) 

      id = CalendarGadget(#PB_ANY, 10, 10, 200, 180) 
      ShowWindow_( GetDlgItem_( WindowID(), id ), #SW_HIDE )
      
      Repeat: Until WaitWindowEvent() = #PB_Event_CloseWindow 
    EndIf 
  EndIf

[ebs]

Edwin,

Doesn't HideGadget() work with the Calendar Gadget?

Eric

[Karbon]

HideGadget() does work, I use it all over several programs.

[Edwin Knoppert]

O ok, was actually looking for a flag
But this will do.

Thanks,

[Fred]

Just a side note, only #PB_Gadget_xxx flags are valid for gadgets flags.