PureBasic Forums - English

Code: Select all

OpenWindow(0,0,0,300,300,"Main Window",#PB_Window_ScreenCentered|#PB_Window_SystemMenu) 
ButtonGadget(0,10,10,65,20,"Options") 
Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1      
      
    Case #PB_Event_Gadget 
      Select EventGadget() 
        Case 0 
          OpenWindow(1,0,0,200,200,"Modal Window",#PB_Window_WindowCentered,WindowID(0))
          UseGadgetList(WindowID(1))
          TextGadget(1,10,10,120,20,"Pick your Mode :")
          SpinGadget(2,135,10,45,20,1,10,#PB_Spin_Numeric)
          SetGadgetState(2,4)
          TextGadget(3,10,40,120,20,"Are you sure ?")
          OptionGadget(4,135,40,50,20,"YES")
          OptionGadget(5,135,65,50,20,"NO")
          SetGadgetState(4,1) 
          ButtonGadget(100,10,175,60,20,"OK") 
          DisableWindow(0,#True) 
        Case 100 
          CloseWindow(1) 
          DisableWindow(0,#False) 
          SetActiveWindow(0) 
      EndSelect
    Case #PB_Event_CloseWindow
      Select EventWindow() 
        Case 0
          Break
      EndSelect
  EndSelect 
Until Quit = 1

Code: Select all

Procedure Options(gh)
  OpenWindow(1,0,0,200,200,"Modal Window",#PB_Window_WindowCentered,WindowID(0))
  UseGadgetList(WindowID(1))
  TextGadget(1,10,10,120,gh,"Pick your Mode :")
  SpinGadget(2,135,10,45,gh,1,10,#PB_Spin_Numeric)
  SetGadgetState(2,4)
  TextGadget(3,10,40,120,gh,"Are you sure ?")
  OptionGadget(4,135,40,50,gh,"YES")
  OptionGadget(5,135,65,50,gh,"NO")
  SetGadgetState(4,1) 
  ButtonGadget(100,10,170,60,gh,"OK") 
  DisableWindow(0,#True) 
EndProcedure

LoadFont(0,"Tahoma",12)
SetGadgetFont(#PB_Default,FontID(0))

OpenWindow(0,0,0,300,300,"Main Window",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
dummy = TextGadget(#PB_Any,-80,0,80,30,"Test")
gh = GadgetHeight(dummy,#PB_Gadget_RequiredSize)+4
FreeGadget(dummy)
ButtonGadget(0,10,10,70,gh,"Options") 
Repeat 
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1      
      
    Case #PB_Event_Gadget 
      Select EventGadget() 
        Case 0 
          Options(gh)
          
        Case 100 
          CloseWindow(1) 
          DisableWindow(0,#False) 
          SetActiveWindow(0)
          
      EndSelect
    Case #PB_Event_CloseWindow
      Select EventWindow() 
        Case 0
          Break
      EndSelect
  EndSelect 
Until Quit = 1