;
; ------------------------------------------------------------
;
;   PureBasic - Dialog example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

#Xml = 0
#Dialog = 0

; Этот обратный вызов устанавливается непосредственно в xml
;
Runtime Procedure EnableAlphaBlendingEvent() 
  Debug "Флажок "Включить альфа-смешение" изменен !"
EndProcedure


If LoadXML(#Xml, #PB_Compiler_Home + "examples/sources/Data/ui.xml") And XMLStatus(#Xml) = #PB_XML_Success
  CreateDialog(#Dialog)
 
  If OpenXMLDialog(#Dialog, #Xml, "Привет", 200, 200)
    
    OneInstanceCheckbox = DialogGadget(#Dialog, "OneInstanceCheckbox")
    SetGadgetText(OneInstanceCheckbox, "Текст экземпляра изменен")
    
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
    
  Else
    Debug "Ошибка создания диалога: " + DialogError(#Dialog)
  EndIf
  
Else
  Debug "Ошибка XML в строке " + XMLErrorLine(#Xml) + ": " + XMLError(#Xml)
EndIf