Code: Alles auswählen
#Dialog = 0
#Xml = 0
XML$ = " <window name='test' flags='#PB_Window_SystemMenu|#PB_Window_ScreenCentered'>"
XML$ + " <statusbar id='0'>"
XML$ + " <field/>"
XML$ + " <field/>"
XML$ + " <field/>"
XML$ + " </statusbar>"
XML$ + " <editor name='editor_1' height='100'/>"
XML$ + " </window>"
If ParseXML(#Xml, XML$) And XMLStatus(#Xml) = #PB_XML_Success
If CreateDialog(#Dialog) And OpenXMLDialog(#Dialog, #Xml, "test")
Repeat
Event = WaitWindowEvent()
Until (Event=#PB_Event_CloseWindow)
Else
Debug "Dialog error: " + DialogError(#Dialog)
EndIf
Else
Debug "XML error: " + XMLError(#Xml) + " (Line: " + XMLErrorLine(#Xml) + ")"
EndIf