PureBasic Forums - English

Code: Select all

;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;

Global Window_0

Global Frame_0, Button_0


Procedure OpenWindow_0(x = 0, y = 0, width = 440, height = 380)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "Window test", #PB_Window_SystemMenu)
  Frame_0 = FrameGadget(#PB_Any, 50, 110, 340, 170, "Test Jimmy")
  Button_0 = ButtonGadget(#PB_Any, 140, 190, 160, 25, "Button")
EndProcedure

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

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure