#--------------------#
FUNCTION spinedit()
#--------------------#
DEFINE l_dialog_reference,
l_panel_reference,
l_layout_reference,
l_label_reference,
l_spinedit_reference VARCHAR(10)
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",300,100)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de Utilização: LSPINEDIT")
LET l_panel_reference = _ADVPL_create_component(NULL,"LPANEL",l_dialog_reference)
CALL _ADVPL_set_property(l_panel_reference,"ALIGN","CENTER")
LET l_layout_reference = _ADVPL_create_component(NULL,"LLAYOUTMANAGER",l_panel_reference)
CALL _ADVPL_set_property(l_layout_reference,"COLUMNS_COUNT",2)
CALL _ADVPL_set_property(l_layout_reference,"MARGIN",TRUE)
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property(l_label_reference,"TEXT","LSPINEDIT sem WRAP:")
LET l_spinedit_reference = _ADVPL_create_component(NULL,"LSPINEDIT",l_layout_reference)
CALL _ADVPL_set_property(l_spinedit_reference,"LENGHT",2)
CALL _ADVPL_set_property(l_spinedit_reference,"RANGE",-10,10)
CALL _ADVPL_set_property(l_spinedit_reference,"STEP",2)
CALL _ADVPL_set_property(l_spinedit_reference,"WRAP",FALSE)
LET l_label_reference = _ADVPL_create_component(NULL,"LLABEL",l_layout_reference)
CALL _ADVPL_set_property(l_label_reference,"TEXT","LSPINEDIT com WRAP:")
LET l_spinedit_reference = _ADVPL_create_component(NULL,"LSPINEDIT",l_layout_reference)
CALL _ADVPL_set_property(l_spinedit_reference,"LENGHT",2)
CALL _ADVPL_set_property(l_spinedit_reference,"RANGE",-50,50)
CALL _ADVPL_set_property(l_spinedit_reference,"STEP",5)
CALL _ADVPL_set_property(l_spinedit_reference,"WRAP",TRUE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION