; MessageRequester Demo
; 20. Jan. 2003 by Ingo Turski

If OpenWindow(0, 235, 10, 550, 290, #PB_Window_MinimizeGadget | #PB_Window_TitleBar, "MessageRequester-Demo")

  If CreateGadgetList(WindowID())
    
    Button = ButtonGadget(0, 10, 10, 150, 24, "#MB_ICONSTOP")
    Button = ButtonGadget(1, 200, 10, 150, 24, "#MB_ICONERROR")
    Button = ButtonGadget(2, 10, 40, 150, 24, "#MB_ICONHAND")

    Button = ButtonGadget(3, 10, 100, 150, 24, "#MB_ICONQUESTION")

    Button = ButtonGadget(4, 10, 160, 150, 24, "#MB_ICONASTERISK")
    Button = ButtonGadget(5, 10, 190, 150, 24, "#MB_ICONINFORMATION")

    Button = ButtonGadget(6, 200, 260, 150, 24, "#MB_ICONWARNING")
    Button = ButtonGadget(7, 10, 260, 150, 24, "#MB_ICONEXCLAMATION")

    Button = ButtonGadget(8, 390, 10, 150, 24, "0")
    Button = ButtonGadget(9, 390, 70, 150, 24, "#MB_OKCANCEL")
    Button = ButtonGadget(10, 390, 130, 150, 24, "#MB_YESNO")
    Button = ButtonGadget(11, 390, 160, 150, 24, "#MB_YESNOCANCEL")
    Button = ButtonGadget(12, 390, 220, 150, 24, "#MB_RETRYCANCEL")
    Button = ButtonGadget(13, 390, 260, 150, 24, "#MB_ABORTRETRYIGNORE")

    TextGadget(14, 247, 117, 56, 56, Chr(10)+"Result" , #PB_Text_Center | #PB_Text_Border)

    Repeat
      EventID.l = WaitWindowEvent()
      If EventID = #PB_Event_CloseWindow
        Quit = #TRUE
      ElseIf EventID = #PB_Event_Gadget

        Select EventGadgetID()
        Case 0
          Result = MessageRequester("MessageRequester-Demo", "Icon (X) : Stop", #MB_ICONSTOP)
        Case 1
          Result = MessageRequester("MessageRequester-Demo", "Icon (X) : Stop (ab NT4/95)", #MB_ICONERROR)
        Case 2
          Result = MessageRequester("MessageRequester-Demo", "Icon (X) : Stop", #MB_ICONHAND)
        Case 3
          Result = MessageRequester("MessageRequester-Demo", "Icon (?) : Frage", #MB_ICONQUESTION)
        Case 4
          Result = MessageRequester("MessageRequester-Demo", "Icon (i) : Information", #MB_ICONASTERISK)
        Case 5
          Result = MessageRequester("MessageRequester-Demo", "Icon (i) : Information", #MB_ICONINFORMATION)
        Case 6
          Result = MessageRequester("MessageRequester-Demo", "Warnung (ab NT4/95)", #MB_ICONWARNING)
        Case 7
          Result = MessageRequester("MessageRequester-Demo", "Warnung", #MB_ICONEXCLAMATION)
        Case 8
          Result = MessageRequester("MessageRequester-Demo", "#MB_OK (0 = Standard)", #MB_OK)
        Case 9
          Result = MessageRequester("MessageRequester-Demo", "#MB_OKCANCEL", #MB_OKCANCEL)
        Case 10
          Result = MessageRequester("MessageRequester-Demo", "#MB_YESNO", #MB_YESNO)
        Case 11
          Result = MessageRequester("MessageRequester-Demo", "#MB_YESNOCANCEL", #MB_YESNOCANCEL)
        Case 12
          Result = MessageRequester("MessageRequester-Demo", "#MB_RETRYCANCEL", #MB_RETRYCANCEL)
        Case 13
          Result = MessageRequester("MessageRequester-Demo", "#MB_ABORTRETRYIGNORE", #MB_ABORTRETRYIGNORE)
        EndSelect
        SetGadgetText(14, Chr(10)+"Result" + Chr(10)+" = " + Str(Result))

      EndIf
    Until Quit

  Else
    MessageRequester("MessageRequester-Demo", "schwerwiegender Programmfehler !", #MB_ICONSTOP | #MB_SYSTEMMODAL)
  EndIf

CloseWindow(0)
EndIf

End
; ExecutableFormat = Windows
; EOF