Code: Select all
Enumeration Window
#Form
EndEnumeration
Enumeration Xml
#Xml
EndEnumeration
Enumeration Dialog
#Dialog
EndEnumeration
Define Xml.s
Xml + "<window id='#PB_Any' name='dialog1' text='Dialog example' flags='#PB_Window_BorderLess'>" +
Xml + " <vbox>" +
Xml + " <option name='option1' text='Enter your credit card:' group='1'/>" +
Xml + " <string name='string'/>" +
Xml + " <option name='option2' text='Use paypal account' group='1'/>" +
Xml + " <option name='option3' text='Use wiretransfert' group='1'/>" +
Xml + " <hbox>" +
Xml + " <button name='ok' text='Continue'/>" +
Xml + " <button name='cancel' text='Cancel'/>" +
Xml + " </hbox>" +
Xml + " </vbox>" +
Xml + "</window>"
Procedure SizeHandler()
Select EventWindow()
Case #Form
If IsDialog(#Dialog)
ResizeWindow(DialogWindow(#Dialog), #PB_Ignore, #PB_Ignore, WindowWidth(#Form), WindowHeight(#Form))
EndIf
EndSelect
EndProcedure
If OpenWindow(#Form, 0, 0, 0, 0, "Demo", #PB_Window_Background)
BindEvent(#PB_Event_SizeWindow, @SizeHandler())
If ParseXML(#Xml, Xml)
If (XMLStatus(#Xml) = #PB_XML_Success)
If CreateDialog(#Dialog)
If OpenXMLDialog(#Dialog, #Xml, "dialog1", 0, 0, 0, 0, WindowID(#Form))
Option3 = DialogGadget(#Dialog, "option3")
SetGadgetState(Option3, #True)
EndIf
EndIf
EndIf
EndIf
EndIf