#-------------------#
FUNCTION splitter()
#-------------------#
DEFINE l_dialog_reference,
l_panel_reference,
l_splitter_reference,
l_label_reference VARCHAR(10)
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",500,500)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de Utilização: LSPLITTER")
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",240)
LET l_splitter_reference = _ADVPL_create_component(NULL,"LSPLITTER",l_panel_reference)
CALL _ADVPL_set_property(l_splitter_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_splitter_reference,"ORIENTATION","HORIZONTAL")
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_splitter_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Splitter Horizontal | Componente Acima")
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_splitter_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Splitter Horizontal | Componente Abaixo")
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",240)
LET l_splitter_reference = _ADVPL_create_component(NULL,"LSPLITTER",l_panel_reference)
CALL _ADVPL_set_property(l_splitter_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_splitter_reference,"ORIENTATION","VERTICAL")
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_splitter_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Splitter Vertical | Componente à Esquerda")
LET l_label_reference = _ADVPL_create_component(NULL,"LCLABEL",l_splitter_reference)
CALL _ADVPL_set_property(l_label_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(l_label_reference,"TEXT","Splitter Vertical | Componente à Direita")
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION |