PureBasic Forums - English

Code: Select all

  Enumeration
    #Window_Popup
    #Text_Q
    #Frame3D_3
    #String_Q_A
    #String_Q_B
    #String_Q_C
    #String_Q_D
    #Button_A
    #Button_B
    #Button_C
    #Button_D
EndEnumeration
  
  If OpenWindow(#Window_Popup, 222, 73, 739, 609, "Question", #PB_Window_ScreenCentered)
    If CreateGadgetList(WindowID(#Window_Popup))
      TextGadget(#Text_Q, 135, 55, 490, 130, "For 500 Dollars...", #PB_Text_Center|#PB_Text_Border )
      TextGadget(#String_Q_C, 215, 375, 395, 55, "Test C", #PB_Text_Border )
      TextGadget(#String_Q_B, 215, 285, 395, 55, "Test B", #PB_Text_Border )
      TextGadget(#String_Q_A, 215, 205, 395, 55, "Test A", #PB_Text_Border )
      TextGadget(#String_Q_D, 215, 465, 395, 55, "Test D", #PB_Text_Border )
      ButtonGadget(#Button_A, 150, 205, 45, 55, "A")
      ButtonGadget(#Button_B, 150, 285, 45, 55, "B")
      ButtonGadget(#Button_C, 150, 375, 45, 55, "C")
      ButtonGadget(#Button_D, 150, 465, 45, 55, "D")
      Frame3DGadget(#Frame3D_3, 25, 15, 685, 570, "Question", #PB_Frame3D_Flat)
      
    EndIf
  EndIf
   
  Repeat
    EventID.l = WaitWindowEvent()

    If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1