PureBoard

Code: Alles auswählen

Procedure Fenster(dyffr.l)
If OpenWindow(4, 216, 0, 483, 98, "test",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
      TextGadget(1, 10, 15, 90, 20, "test:")
      EndIf 
       Repeat
        EventIDD = WaitWindowEvent(1)
        If EventIDD = #PB_Event_Gadget
         Select EventGadget()
         EndSelect
        EndIf 
       Until EventIDD = #PB_Event_CloseWindow
EndProcedure

#WindowWidth  = 390
#WindowHeight = 350

If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight, "PureBasic - Gadget Demonstration", #PB_Window_MinimizeGadget)
  ButtonGadget(1, 223, 6,  72, 20, "Play")
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()  
        Case 1 
          CodeThread = CreateThread(@Fenster(), 77)
     EndSelect 
  EndIf 
  Until EventID = #PB_Event_CloseWindow
EndIf