#--------------------#
FUNCTION statusbar()
#--------------------#
DEFINE l_dialog_reference,
l_statusbar_reference VARCHAR(10)
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"FORM_INFO","Exemplo de utilização do componente LSTATUSBAR.")
CALL _ADVPL_set_property(l_dialog_reference,"FORM_NAME","dlg_statusbar")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",400,400)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de Utilização: LSTATUSBAR")
LET l_statusbar_reference = _ADVPL_create_component(NULL,"LSTATUSBAR",l_dialog_reference)
CALL _ADVPL_set_property(l_statusbar_reference,"INFO_TEXT","Exemplo de mensagem informativa.")
CALL _ADVPL_set_property(l_statusbar_reference,"VISIBLE_HOTKEY",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION |