PB 5.2 Beta 5 Dialog

[Andreas21]

Dialog Bug beim verwenden von PB_Any

- "id" is the purebasic #Window id of the created dialog (if missing, it will be #PB_Any). "name" is the name you need to put in OpenXMLDialog().

http://forums.purebasic.com/german/view ... 7c#p314002

Wenn man id weg lest kommt es zum Fehler.
"Ungültiger Speicherzugriff. (Lesefehler an Adresse 4294967295)"

Auch id leer zu lassen bringt nichts.
OpenXMLDialog gibt dann immer 1 zurück genauso wie wenn man z.b. id="0" benutzen würde.

[Andreas21]

Kann keiner den bug bestätigen?

[Chimorin]

Gib uns einen Code und er wird ausgeführt
Von mir nicht, hab grade kein PB aufm PC.

[Andreas21]

Einfach den link im ersten Post benutzen und hoch scrollen^^

In der XML einfach mal id weg lassen.

ui.xml

Code: Alles auswählen

<?xml version="1.0"?>

<!-- Window -->
<window name="hello" text="Window" label="TestDialog" width="320" height="10" flags="#PB_Window_SizeGadget|#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget">
   <splitter width="300" height="500">
     <hbox>
      <checkbox name="checkbox1" text="Run only one Instance" disabled="yes" Flags=""/>
      <progressbar text="Vrey vreyv rye"/>
      <trackbar text="Ole" invisible="no" Flags="#PB_TrackBar_Ticks" width="150"/>
      <option text="option 1" name="option1" onevent="CheckBoxEvent()"/>
      <option text="option 2"/>
     </hbox>
     <vbox>
      <listview text="option 3" height="50"/>
      <button text="Ole 2" name="button"/>
      <listicon text="option 4" height="50"/>
      <string text="string content"/>
      <editor text="editorgadget" height="50"/>
      <text text="Text gadget"/>
     </vbox>     
   </splitter>
</window>

Code: Alles auswählen

Define Dialog, Xml, Button, Window

;<option text="option 1" .... onevent="CheckBoxEvent()"/>
Runtime Procedure CheckBoxEvent() 
  Debug "Option 1 clicked!"
EndProcedure

Xml = LoadXML(#PB_Any, "ui.xml")
If IsXML(Xml)
  If XMLStatus(Xml) = #PB_XML_Success
    Dialog = CreateDialog(#PB_Any)
    
    ;<window .... name="hello"
    Window = OpenXMLDialog(Dialog, Xml, "hello")
    If  IsWindow(Window)
      
      ;<window id="0"
      HideWindow(Window, #False)
      
      ;<button text="Ole 2" name="button"/>
      Button = DialogGadget(Dialog,"button") 
      If IsGadget(Button)
        Repeat
          Event = WaitWindowEvent()
          Select Event
              
            Case #PB_Event_Gadget
              Select EventGadget()
                Case Button
                  Debug "Button Ole 2 clicked!"
              EndSelect
          EndSelect
          
        Until Event = #PB_Event_CloseWindow
      EndIf
    Else
      Debug "Dialog creation error: " + DialogError(Dialog)
    EndIf
  Else
    Debug "XML error on line " + XMLErrorLine(Xml) + ": " + XMLError(Xml)
  EndIf
EndIf