Code: Select all
ExamineDesktops()
Debug DesktopHeight(0)
Debug DesktopWidth(0)
Global XML$ = "<window id='#PB_Any' name='d1' text='Dialog example' minwidth='"+Str(DesktopWidth(0))+"' minheight='"+Str(DesktopHeight(0))+"' flags='#PB_Window_ScreenCentered | #PB_Window_SystemMenu'>" +
" <vbox>" +
" <option name='option1' text='Enter your credit card:' group='1'/>" +
" <string name='string' width='50' height='30'/>" +
" <option name='option2' text='Use paypal account' group='1'/>" +
" <option name='option3' text='Use wiretransfert' group='1'/>" +
" <hbox>" +
" <button name='ok' text='Continue' height='35'/>" +
" <button name='cancel' text='Cancel'/>" +
" </hbox>" +
" </vbox>" +
" </window>"
If ParseXML(0,XML$)
If CreateDialog(0) And OpenXMLDialog(0,0,"d1")
EndIf
EndIf