#------------------#
FUNCTION LFrame()
#------------------#
DEFINE l_frame_reference VARCHAR(10)
DEFINE l_label_reference VARCHAR(10)
LET l_frame_reference = _ADVPL_create_component(NULL,"LFRAME")
CALL _ADVPL_set_property(l_frame_reference,"SIZE",640,480)
CALL _ADVPL_set_property(l_frame_reference,"TITLE","Ex.: LFRAME")
CALL _ADVPL_set_property(l_frame_reference,"BACKGROUND_COLOR",210,210,210)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_frame_reference)
CALL _ADVPL_set_property(l_label_reference,"TEXT","Exemplo de uma janela do tipo LFRAME.")
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_frame_reference,"MAXIMIZED",FALSE)
CALL _ADVPL_set_property(l_frame_reference,"ACTIVATE",TRUE) END FUNCTION