Páginas filhas
  • LGX - LDIALOG

Componente do tipo janela de diálogo não modal (não permite que outras janelas sejam controladas enquanto uma estiver ativa), permitindo movimentação dentro da área de trabalho do usuário e executando em modo maximizado ou normal.


Hierarquia




Sintaxe


LET m_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")


Métodos SET


Métodos acessíveis utilizando a função _ADVPL_set_property que permite alterar e manipular os valores do componente.


Método SET: SIZE

Tamanho (largura e altura) em pixels do componente.

Sintaxe



_ADVPL_set_property(< l_dialog_reference >,"SIZE",< Largura >, < Altura >)

Parâmetros



NomeTipoDescriçãoObrigatório?
 l_dialog_reference CHARReferência do componente.Sim
Largura 
INTEGER
Largura em pixels do componente.Sim
AlturaINTEGERAltura em pixels do componente.Sim

Exemplo



     CALL _ADVPL_set_property(l_dialog_reference,"SIZE",640,480)




Método SET: TITLE

Título do componente.

Sintaxe



_ADVPL_set_property(< l_dialog_reference >,"TITLE",< l_title >)

Parâmetros



NomeTipoDescriçãoObrigatório?
l_dialog_referenceCHARReferência do componente.Sim
l_title
CHAR
Título que será definido para a janela.Sim


Exemplo



CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Teste de Título")




Método SET: MAXIMIZED

Define se a janela abrirá maximizada.

Sintaxe



_ADVPL_set_property(< l_dialog_reference >,"MAXIMIZED",< situação >)

Parâmetros



NomeTipoDescriçãoObrigatório?
l_dialog_reference CHARReferência do componente.Sim
alinhamento
BOOLEAN
Indicador que define se a janela abrirá maximizada.Sim

Exemplo



CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)  




Método SET: ENABLE_ESC_CLOSE

Define se habilita o encerramento da janela com a tecla ESC.

Sintaxe



_ADVPL_set_property(< l_dialog_reference >,"ENABLE_ESC_CLOSE",< situação >)

Parâmetros



NomeTipoDescriçãoObrigatório?
l_dialog_reference CHARReferência do componente.Sim
situação
BOOLEAN
Indicador que define se a janela poderá ser encerrada com a tecla ESC.Sim


Exemplo



CALL _ADVPL_set_property(l_dialog_reference,"ENABLE_ESC_CLOSE",FALSE)    




Exemplo


#------------------------------------------------------------------------------#
FUNCTION LDIALOG_test()
#------------------------------------------------------------------------------#
    DEFINE l_dialog_reference VARCHAR(10)

    LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
    CALL _ADVPL_set_property(l_dialog_reference,"SIZE",640,480)
    CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Exemplo de componente LDIALOG")
    CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
    CALL _ADVPL_set_property(l_dialog_reference,"ENABLE_ESC_CLOSE",FALSE)
    
    CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE)
END FUNCTION

Visualização