#-----------------#
FUNCTION Labels()
#-----------------#
DEFINE l_dialog_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",160,120)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Ex.: Labels")
CALL _ADVPL_set_property(l_dialog_reference,"BACKGROUND_COLOR",210,210,210)
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_dialog_reference)
CALL _ADVPL_set_property(l_label_reference,"POSITION",05,05)
CALL _ADVPL_set_property(l_label_reference,"TEXT","Esquerda:")
CALL _ADVPL_set_property(l_label_reference,"WIDTH",100)
CALL _ADVPL_set_property(l_label_reference,"TRANSPARENT",FALSE)
LET l_label_reference = _ADVPL_create_component(NULL,"LRLABEL",l_dialog_reference)
CALL _ADVPL_set_property(l_label_reference,"POSITION",05,25)
CALL _ADVPL_set_property(l_label_reference,"TEXT","Direita:")
CALL _ADVPL_set_property(l_label_reference,"WIDTH",100)
CALL _ADVPL_set_property(l_label_reference,"TRANSPARENT",FALSE)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_dialog_reference)
CALL _ADVPL_set_property(l_label_reference,"POSITION",05,45)
CALL _ADVPL_set_property(l_label_reference,"TEXT","Centro:")
CALL _ADVPL_set_property(l_label_reference,"WIDTH",100)
CALL _ADVPL_set_property(l_label_reference,"TRANSPARENT",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION