#---------------------#
FUNCTION radiogroup()
#---------------------#
DEFINE l_dialog_reference,
l_panel_reference,
l_layout_reference,
l_radio_reference VARCHAR(10)
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",300,300)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de Utilização: LRADIOGROUP")
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_radio_reference = _ADVPL_create_component(NULL,"LRADIOGROUP",l_layout_reference)
CALL _ADVPL_set_property(l_radio_reference,"ADD_ITEM",1,"Opção 1")
CALL _ADVPL_set_property(l_radio_reference,"ADD_ITEM",2,"Opção 2")
CALL _ADVPL_set_property(l_radio_reference,"ADD_ITEM",3,"Opção 3")
CALL _ADVPL_set_property(l_radio_reference,"ADD_ITEM",4,"Opção 4")
CALL _ADVPL_set_property(l_radio_reference,"ENABLE_ITEM",2,FALSE)
CALL _ADVPL_set_property(l_radio_reference,"SELECT_ITEM",3)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION |