PureBasic Forums - English

Code: Select all

  XIncludeFile "MainWindow.pbf" ; Include the second window definition
  
  OpenMainWindow() ; This procedure name is always 'Open' followed by the window name
  
  
  ; The event procedures, as specified in the 'event procedure' property of each gadget
  Procedure OkButtonEvent(EventType)
    Debug "OkButton event"
  EndProcedure
  
  Procedure CancelButtonEvent(EventType)
    Debug "CancelButton event"
  EndProcedure
  
  Procedure TrainCalendarEvent(EventType)
    Debug "TrainCalendar event"
  EndProcedure
  
  
  
  ; The main event loop as usual, the only change is to call the automatically
  ; generated event procedure for each window.
  Repeat
    Event = WaitWindowEvent(10)
    
    ;Select EventWindow()
     ; Case MainWindow
        MainWindow_Events(Event) ; This procedure name is always window name followed by '_Events'
        
;       Case DateWindow
;         DateWindow_Events(Event)
        
    ;EndSelect
    
  Until Event = #PB_Event_CloseWindow ; Quit on any window close

Code: Select all

Global MainWindow

Enumeration #PB_Compiler_EnumerationValue
  #Button_0
  #Button_1
EndEnumeration

Declare CancelButtonEvent(EventType)
Declare OkButtonEvent(EventType)

Procedure OpenMainWindow()
  MainWindow = OpenWindow(#PB_Any, 0, 0, 330, 280, "MainWindow", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget)
  ButtonGadget(#Button_0, 80, 45, 155, 65, "Cancel")
  ButtonGadget(#Button_1, 80, 130, 155, 65, "Ok")
EndProcedure

Procedure MainWindow_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
        Case #Button_0
          CancelButtonEvent(EventType())          
        Case #Button_1
          OkButtonEvent(EventType())          
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure