PureBoard

Code: Alles auswählen

...
xml + "<hbox expand='item:2'>" + #CRLF$
xml + "  <string name='" + key + "' width='180' text='" + key + "' flags='" + flags + "'/>" + #CRLF$
xml + "  <string name='" + value + "' text='" + value + "'/>" + #CRLF$
xml + "</hbox>" + #CRLF$
...

Code: Alles auswählen

EnableExplicit

Runtime Enumeration Gadget
    #XML
    #Dialog
    #MainWindow
    #button_run
    #button_quit
EndEnumeration


CompilerIf #PB_Compiler_Unicode
    #XmlEncoding = #PB_UTF8
CompilerElse 
    #XmlEncoding = #PB_Ascii
CompilerEndIf

Global.s XML
Define.l event


Procedure.s CreatePrefsXML()
    Protected.l count
    Protected.s key, value, xml = ""
    Protected.s flags = "#PB_String_BorderLess|#PB_String_UpperCase|#PB_String_ReadOnly"
    
    NewMap conf.s()
    
    For count = 1 To Random(10,3)
        conf(Str(Random(10,3))) = Str(Random(1400,3))
    Next
    
    ForEach conf()
        key = MapKey(conf())
        value = conf()
        
        xml + "<hbox expand='item:2'>" + #CRLF$
        xml + "  <string name='" + key + "' width='180' text='" + key + "' flags='" + flags + "'/>" + #CRLF$
        xml + "  <string name='" + value + "' text='" + value + "'/>" + #CRLF$
        xml + "</hbox>" + #CRLF$
    Next
    
    FreeMap(conf())
    
    ProcedureReturn xml
EndProcedure


Procedure CreateDialogFormXML(XML.s)
    If CatchXML(#Xml, @XML, StringByteLength(XML), 0, #XmlEncoding) And XMLStatus(#Xml) = #PB_XML_Success
        If CreateDialog(#Dialog) And OpenXMLDialog(#Dialog, #Xml, "test")
            ProcedureReturn #True
        Else  
            MessageRequester("XML ERROR", DialogError(#Dialog))
            ProcedureReturn #False
        EndIf
    Else
        MessageRequester("XML ERROR","XML error: " + XMLError(#Xml) + " (Line: " + XMLErrorLine(#Xml) + ")")
        ProcedureReturn #False
    EndIf
EndProcedure


Procedure RecreateUIfromXML()
    FreeDialog(#Dialog)
    CreateDialogFormXML(ReplaceString(XML, "<SettingsPlaceHolder/>", CreatePrefsXML(), #PB_String_NoCase))
    RefreshDialog(#Dialog)
EndProcedure

Runtime Procedure Quit()
    End 
EndProcedure

Runtime Procedure RunMe()
    RecreateUIfromXML()
EndProcedure
  
  
XML = "<window id='#PB_Any' name='test' text='test' minwidth='400' minheight='auto' flags='#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget'>" +
      "      <vbox expand='item:3'>" +
      "        <hbox>" +
      "          <button id='#button_run' text='Run Command' onevent='RunMe()'/>" +
      "          <button id='#button_quit' text='Quit' onevent='Quit()'/>" +
      "        </hbox>" +
      
      "       <SettingsPlaceHolder/>" +

     "        <editor text='content' height='150'/>" +
     "      </vbox>" +
     "</window>"

If CreateDialogFormXML(XML)
    Repeat
        Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow 
    
    End
EndIf