Classe: tDialogCria 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. NewMé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. | | |
oObjeto()- Retorna o objeto criado.
ActivateApresenta 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…')} ) EndFinaliza o diálogo.tDialog(): End ( ) --> lRet lRet(logico)- Retorna verdadeiro (.T.) se finalizar o diálogo; caso contrário, retorna falso (.F.).
hasFocusIndica 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() windowStateIndica 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() 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 |
---|
- 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: windowStateParâ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: bFocusChangeParâ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 |