DEFINE m_listbox_reference VARCHAR(10)
DEFINE m_form_reference VARCHAR(10)
DEFINE mr_value RECORD
item_value CHAR(1)
END RECORD
#------------------------#
FUNCTION LListBox_test()
#------------------------#
DEFINE l_panel_button VARCHAR(10)
DEFINE l_button_reference VARCHAR(10)
#Instancia uma janela de diálogo
LET m_form_reference = _ADVPL_create_form(NULL, "LDIALOG")
CALL _ADVPL_set_property(m_form_reference, "TITLE", "Exemplo LLISTBOX")
CALL _ADVPL_set_property(m_form_reference, "SIZE", 240, 180)
#Instancia um componente listbox na janela de diálogo
LET m_listbox_reference = _ADVPL_create_component(NULL, "LLISTBOX", m_form_reference)
CALL _ADVPL_set_property(m_listbox_reference,"ALIGN","CENTER")
CALL _ADVPL_set_property(m_listbox_reference,"ADD_ITEM","Português","P")
CALL _ADVPL_set_property(m_listbox_reference,"ADD_ITEM","English","E")
CALL _ADVPL_set_property(m_listbox_reference,"ADD_ITEM","Español","S")
CALL _ADVPL_set_property(m_listbox_reference,"VARIABLE",mr_value,"item_value")
LET l_panel_button = _ADVPL_create_component(NULL, "LPANEL",m_form_reference)
CALL _ADVPL_set_property(l_panel_button,"ALIGN","BOTTOM")
CALL _ADVPL_set_property(l_panel_button,"SIZE",180,30)
#Instancia um botão SAIR alinhado a direita no rodapé da janela de diálogo
#Ao pressionar esse botão irá registrar no LOG do AppServer algumas informações do componente LISTBOX da tela e depois irá encerrar a janela de diálogo
LET l_button_reference = _ADVPL_create_component(NULL,"LBUTTON",l_panel_button)
CALL _ADVPL_set_property(l_button_reference,"SIZE",180,30)
CALL _ADVPL_set_property(l_button_reference,"TEXT","Sair")
CALL _ADVPL_set_property(l_button_reference,"ALIGN","RIGHT")
CALL _ADVPL_set_property(l_button_reference,"ENABLE",TRUE)
CALL _ADVPL_set_property(l_button_reference,"CLICK_EVENT","LListbox_exit")
#Aponta o 2o item do LISTBOX como item corrente selecionado
CALL _ADVPL_set_property(m_listbox_reference,"SELECT_ITEM",1)
#Ativa a tela
CALL _ADVPL_set_property(m_form_reference, "ACTIVATE", TRUE)
END FUNCTION
#--------------------------#
FUNCTION listbox_exit()
#--------------------------#
#Mostra o valor atual selecionado para o LISTBOX
CALL CONOUT("Valor item atual LISTBOX = "||_ADVPL_get_property(m_listbox_reference,"VALUE"))
#Mostra o valor do texto do 3o item do LISTBOX
CALL CONOUT("Texto do item 3 LISTBOX = "||_ADVPL_get_property(m_listbox_reference,"ITEM_AT",3))
CALL _ADVPL_set_property(m_form_reference, "ACTIVATE", FALSE)
END FUNCTION |