Without subsystem qt it works as expected.
Code: Select all
Procedure.s GetXMLString()
Protected XML$
XML$ + "<?xml version='1.0' encoding='UTF-16'?>"
XML$ + ""
XML$ + "<dialogs>"
XML$ + " <window name='window_1' flags='#PB_Window_SystemMenu' text='test' minwidth='300' minheight='250'>"
XML$ + " <editor name='editor_1' width='300' height='250'/>"
XML$ + " </window>"
XML$ + "</dialogs><!--DDesign0R Definition: PureBasic|1|1|0-->"
XML$ + ""
ProcedureReturn XML$
EndProcedure
a$ = GetXMLString()
CatchXML(0, @a$, StringByteLength(a$), 0, #PB_Unicode)
CreateDialog(0)
OpenXMLDialog(0, 0, "window_1")
ResizeWindow(DialogWindow(0), #PB_Ignore, #PB_Ignore, 600, 400)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
