Classe: tDialog
Cria uma janela de diálogo, no programa, para entrada de dados não modal. Desta forma, é permitido que outras janelas recebam dados enquanto esta estiver ativa.
TSrvObject -> tWindow -> tDialog
New
Método construtor da classe.
tDialog(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ uParam6], [ uParam7], [ uParam8], [ uParam9], [ nClrText], [ nClrBack], [ uParam12], [ oWnd], [ lPixel], [ uParam15], [ uParam16], [ uParam17], [ nWidth], [ nHeight] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
nTop | Numérico | Indica a coordenada vertical superior em pixels ou caracteres. | ||
nLeft | Numérico | Indica a coordenada horizontal esquerda em pixels ou caracteres. | ||
nBottom | Numérico | Indica a coordenada vertical inferior em pixels ou caracteres. | ||
nRight | Numérico | Indica a coordenada horizontal direita em pixels ou caracteres. | ||
cCaption | Caracter | Indica o título da janela. | ||
uParam6 | Qualquer | Compatibilidade. | ||
uParam7 | Qualquer | Compatibilidade. | ||
uParam8 | Qualquer | Compatibilidade. | ||
uParam9 | Qualquer | Compatibilidade. | ||
nClrText | Numérico | Indica a cor do texto. | ||
nClrBack | Numérico | Indica a cor de fundo. | ||
uParam12 | Qualquer | Compatibilidade. | ||
oWnd | Objeto | Indica a janela mãe (principal) da janela que será criada. O padrão é a janela principal do programa. | ||
lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
uParam15 | Qualquer | Compatibilidade. | ||
uParam16 | Qualquer | Compatibilidade. | ||
uParam17 | Qualquer | Compatibilidade. | ||
nWidth | Numérico | Indica a largura da janela em pixels. | ||
nHeight | Numérico | Indica a altura da janela em pixels. | ||
lTransparent | Lógico | Se .T. permitira que a Dialog recebe um fundo transparente. |
oObjeto
- ()
- Retorna o objeto criado.
Activate
Apresenta o diálogo.
tDialog(): Activate ( [ uParam1], [ uParam2], [ uParam3], [ lCentered], [ bValid], [ uParam6], [ bInit], [ uParam8], [ uParam9] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
uParam1 | Qualquer | Compatibilidade. | ||
uParam2 | Qualquer | Compatibilidade. | ||
uParam3 | Qualquer | Compatibilidade. | ||
lCentered | Lógico | Indica se a janela será (.T.) ou não (.F.) centralizada. O padrão é falso (.F.). | ||
bValid | Bloco de código | Indica se o conteúdo do diálogo é válido. Se o retorno for falso (.F.), o diálogo não será fechado quando a finalização for solicitada. | ||
uParam6 | Qualquer | Compatibilidade. | ||
bInit | Bloco de código | Indica o bloco de código que será executado quando o diálogo iniciar a exibição. | ||
uParam8 | Qualquer | Compatibilidade. | ||
uParam9 | Qualquer | Compatibilidade. |
oDlg:Activate(,,,.T.,{||msgstop('validou!'),.T.},,{||msgstop('iniciando…')} )
End
Finaliza o diálogo.
tDialog(): End ( ) --> lRet
lRet
- (logico)
- Retorna verdadeiro (.T.) se finalizar o diálogo; caso contrário, retorna falso (.F.).
oDlg:End()
hasFocus
Indica se o componente esta em foco.
tDialog(): hasFocus ( ) --> lFocus
lFocus
- (logico)
- Retorna, verdadeiro (.T.), se o componente está em foco; caso contrário, falso (.F.).
LOCAL focus := oDialog:hasFocus()
Propriedade | Descrição | Tipo |
bFocusChange | Indica se o componente esta ou não em foco. Para mais informações desta propriedade, consulte a área Observações. | Bloco de código |
bWindowState | Indica o estado atual do componente (0 = restaurado, 1 = Minizado e 2 = Maximizado). Para mais informações desta propriedade, consulte a área Observações. | Bloco de código |
nResult | Indica como a classe tDialog foi finalizada. Se 0, foi finalizada pelo método End() ou 2, foi finalizada através do botão fechar. | Numérico |
Importante |
---|
|
Propriedade: windowState
Parâmetro | Descrição |
---|---|
o | Indica a instância do objeto TDialog. |
State | Indica o estado atual do componente. Sendo: 0 = restaurado, 1 = Minimizado e 2 = Maximizado. |
Exemplo:
oDialog:bWindowState := {|o,state| showState(state)}
Propriedade: bFocusChange
Parâmetro | Descrição |
---|---|
o | Indica a instância do objeto TDialog. |
focus | Indica se o componenten está em foco (.T.) ou sem foco (.F.). |
Exemplo:
oDialog:bFocusChange := {|o,focus| showFocus(focus)}
#include "TOTVS.CH"
User Function TDialog()
// cria diálogo
Local oDlg := TDialog():New(180,180,550,700,'Exemplo TDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.)
// ativa diálogo centralizado
oDlg:Activate(,,,.T.,{||msgstop('validou!'),.T.},,{||msgstop('iniciando…')} )
Return
Exemplo da classe tDialog
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas