#--------------------# FUNCTION LCheckBoxLComboBox()#--------------------#
DEFINE l_dialog_reference VARCHAR(10)
DEFINE l_checkboxcombobox_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.: LCHECKBOXLCOMBOBOX")
CALL _ADVPL_set_property(l_dialog_reference,"BACKGROUND_COLOR",210,210,210)
LET l_checkboxcombobox_reference = _ADVPL_create_component(NULL,"LCHECKBOXLCOMBOBOX",l_dialog_reference)
CALL _ADVPL_set_property(l_checkboxcombobox_reference,"POSITION",05,05)
CALL _ADVPL_set_property(l_checkboxcombobox_reference,"VALUE_CHECKEDADD_ITEM","A","SAtivo")
CALL _ADVPL_set_property(l_checkboxcombobox_reference,"VALUE_NCHECKEDADD_ITEM","B","NBloqueado")
CALL _ADVPL_set_property(l_checkboxcombobox_reference,"ADD_ITEM","TEXTC","Permite valor nulo?Cancelado")
CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE) END FUNCTION |