TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

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.


Hierarquia

TSrvObject -> tWindow -> tDialog


Construtores
New

New

Método construtor da classe.


Sintaxe

tDialog(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ uParam6], [ uParam7], [ uParam8], [ uParam9], [ nClrText], [ nClrBack], [ uParam12], [ oWnd], [ lPixel], [ uParam15], [ uParam16], [ uParam17], [ nWidth], [ nHeight] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical superior em pixels ou caracteres.
nLeftNuméricoIndica a coordenada horizontal esquerda em pixels ou caracteres.
nBottomNuméricoIndica a coordenada vertical inferior em pixels ou caracteres.
nRightNuméricoIndica a coordenada horizontal direita em pixels ou caracteres.
cCaptionCaracterIndica o título da janela.
uParam6QualquerCompatibilidade.
uParam7QualquerCompatibilidade.
uParam8QualquerCompatibilidade.
uParam9QualquerCompatibilidade.
nClrTextNuméricoIndica a cor do texto.
nClrBackNuméricoIndica a cor de fundo.
uParam12QualquerCompatibilidade.
oWndObjetoIndica a janela mãe (principal) da janela que será criada. O padrão é a janela principal do programa.
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
uParam15QualquerCompatibilidade.
uParam16QualquerCompatibilidade.
uParam17QualquerCompatibilidade.
nWidthNuméricoIndica a largura da janela em pixels.
nHeightNuméricoIndica a altura da janela em pixels.
Retorno
    oObjeto()
  • Retorna o objeto criado.

Métodos
Activate

Activate

Apresenta o diálogo.


Sintaxe

tDialog(): Activate ( [ uParam1], [ uParam2], [ uParam3], [ lCentered], [ bValid], [ uParam6], [ bInit], [ uParam8], [ uParam9] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
uParam1QualquerCompatibilidade.
uParam2QualquerCompatibilidade.
uParam3QualquerCompatibilidade.
lCenteredLógicoIndica se a janela será (.T.) ou não (.F.) centralizada. O padrão é falso (.F.).
bValidBloco de códigoIndica 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.
uParam6QualquerCompatibilidade.
bInitBloco de códigoIndica o bloco de código que será executado quando o diálogo iniciar a exibição.
uParam8QualquerCompatibilidade.
uParam9QualquerCompatibilidade.

Exemplos 
oDlg:Activate(,,,.T.,{||msgstop('validou!'),.T.},,{||msgstop('iniciando…')} )
End

End

Finaliza o diálogo.


Sintaxe

tDialog(): End ( ) --> lRet

Retorno
    lRet(logico)
  • Retorna verdadeiro (.T.) se finalizar o diálogo; caso contrário, retorna falso (.F.).

Exemplos 
oDlg:End()
hasFocus

hasFocus

Indica se o componente esta em foco.


Sintaxe

tDialog(): hasFocus ( ) --> lFocus

Retorno
    lFocus(logico)
  • Retorna, verdadeiro (.T.), se o componente está em foco; caso contrário, falso (.F.).

Exemplos 
LOCAL focus := oDialog:hasFocus()
windowState

windowState

Indica o estado atual do componente.


Sintaxe

tDialog(): windowState ( ) --> nState

Retorno
    nState()
  • Retorna um número inteiro indicando o estado atual do componente. Sendo: 0=Restaurado, 1=Minimizado e 2=Maximizado.

Exemplos 
LOCAL state := oDialog:windowState()

Propriedade
PropriedadeDescriçãoTipo
bFocusChangeIndica se o componente esta ou não em foco. Para mais informações desta propriedade, consulte a área Observações.Bloco de código
bWindowStateIndica 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
nResultIndica 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

Observações
Importante
  • Recomendamos a utilização da classe MsDialog que é herdada dessa classe.
  • Os métodos windowState() e hasFocus() estarão disponíveis após a build 7.00.101202A.
  • As propriedades bWindowState e bfocusChange estarão disponíveis após a build 7.00.101202A.

 

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

Exemplos 
#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

Preview
Exemplo da classe tDialog

Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja Também
MsDialog

  • Sem rótulos