...

Para utilizar um componente Freeform no Logix são utilizadas são utilizadas três funções AdvPL simples: create_component, set_property e get_property.

Criando um componente

A função AdvPL create_component permite criar uma instância do componente Freeform em memória e retorna o código de referência do componente criado. Esta função recebe por parâmetro o código de referência do componente que será criado, o nome do componente Freeform e o código de referência do componente pai (quando existir).

Exemplo

FUNCTION vdp20000()
    DEFINE l_dlg_ref VARCHAR(10)
    DEFINE l_pnl_ref VARCHAR(10)
 
    # Componente sem componente pai.
    LET l_dlg_ref = _ADVPL_create_componente(NULL,"LDIALOG")
    
    # Componente com componente pai.
LET l_pnl_ref = _ADVPL_create_componente(NULL,"LPANEL",l_dlg_ref)

Manipulando um componente

A função AdvPL set_property permite executar e manipular métodos e propriedades do componente informado. A função recebe por parâmetro o código da referência do componente que será manipulado, o nome do método que será executado e os valores (limitando-se a 6) para a execução do método.

Exemplo

DEFINE l_dlg_ref VARCHAR(10)
 
LET l_pnldlg_ref = _ADVPL_create_componente(NULL,"LPANEL",LDIALOG")

# Define o título da janela.
CALL _ADVPL_set_property(l_dlg_ref,"TITLE","VDP20000 – Manutenção de Pedidos")
END FUNCTION

# Ativa a janela criada acima.
CALL _ADVPL_set_property(l_dlg_ref,"ACTIVATE",TRUE)