...

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 (create_component)

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).

...

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

...

(set_property e get_property)

As funções A função AdvPL set_property permite  e get_property permitem executar e manipular métodos e propriedades do componente informado. A diferença entre uma função e outra é que com a get_property é possível recuperar o valor da propriedade ou da execução do método informado, porém a set_property só permite alterar estas propriedades ou métodos.

Ambas as função recebem 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.

...

DEFINE l_dlg_ref VARCHAR(10)
DEFINE l_title   CHAR(50)
 
LET l_dlg_ref = _ADVPL_create_componente(NULL,"LDIALOG")

# Define o título da janela.
CALL _ADVPL_set_property(l_dlg_ref,"TITLE","VDP20000 – Manutenção de Pedidos")
 
# Recupera o título definido acima.
LET l_title = _ADVPL_set_property(l_dlg_ref,"TITLE","VDP20000 – Manutenção de Pedidos")

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