#----------------#
FUNCTION panel()
#----------------#
DEFINE l_dialog_reference,
l_panel_reference,
l_label_reference VARCHAR(10)
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",400,400)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de Utilização: LPANEL")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","TOP")
CALL _ADVPL_set_property(l_panel_reference,"BACKGROUND_COLOR",200,190,230)
CALL _ADVPL_set_property(l_panel_reference,"HEIGHT",50)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_panel_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Painel Superior")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","LEFT")
CALL _ADVPL_set_property(l_panel_reference,"BACKGROUND_COLOR",150,215,235)
CALL _ADVPL_set_property(l_panel_reference,"WIDTH",65)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_panel_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Painel à Esquerda")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","RIGHT")
CALL _ADVPL_set_property(l_panel_reference,"BACKGROUND_COLOR",240,230,175)
CALL _ADVPL_set_property(l_panel_reference,"WIDTH",65)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_panel_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Painel à Direita")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_panel_reference,"BACKGROUND_COLOR",225,225,225)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_panel_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Painel Centralizado/Total")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","BOTTOM")
CALL _ADVPL_set_property(l_panel_reference,"BACKGROUND_COLOR",245,125,130)
CALL _ADVPL_set_property(l_panel_reference,"HEIGHT",50)
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_panel_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Painel Inferior")
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION |