Á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

« Anterior Versão 6 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.

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


 

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.  
lTransparentLógicoSe .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] ) -->


 

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.  

 


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

windowState

Indica o estado atual do componente.


tDialog(): windowState ( ) --> nState

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

LOCAL state := oDialog:windowState()

 

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

 


 

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âmetroDescrição
oIndica a instância do objeto TDialog.
StateIndica o estado atual do componente. Sendo: 0 = restaurado, 1 = Minimizado e 2 = Maximizado.



Exemplo:

oDialog:bWindowState := {|o,state| showState(state)}


 

Propriedade: bFocusChange

ParâmetroDescrição
oIndica a instância do objeto TDialog.
focusIndica 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

 

  • Sem rótulos