#-------------------#
FUNCTION
LMenuBar()
#-------------------#
DEFINE l_dialog_reference VARCHAR(10)
DEFINE l_menubar_reference VARCHAR(10)
DEFINE l_label_reference VARCHAR(10)
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","Ex.: LMENUBAR")
CALL _ADVPL_set_property(l_dialog_reference,"BACKGROUND_COLOR",210,210,210)
LET l_menubar_reference = _ADVPL_create_component(NULL,"LMENUBAR",l_dialog_reference)
CALL _ADVPL_set_property(l_menubar_reference,"HELP_VISIBLE",FALSE)
CALL _ADVPL_create_component(NULL,"LQUITBUTTON",l_menubar_reference)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_dialog_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Exemplo de uma aplicação com menu.")
CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE) END FUNCTION