#------------------------------------------------------------------------------#
FUNCTION LDIALOG_test()
#------------------------------------------------------------------------------#
    DEFINE l_dialog_reference VARCHAR(10)
 
    IF  LOG_initApp("PADRAO") <> 0 THEN
        RETURN
    END IF

    LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
    CALL _ADVPL_set_property(l_dialog_reference,"SIZE",640,480)
    CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de componente LDIALOG")
    CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
    CALL _ADVPL_set_property(l_dialog_reference,"ENABLE_ESC_CLOSE",FALSE)
    
    CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION