Executa funções 4GL a partir de uma nova THREAD de forma assíncrona.
LET m_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG") |
#------------------------------------------------------------------------------#
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 |
logix.threads.max.logix.threads.debug precisa estar definida com o valor 1 (ligado).