Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
|
|
...
|
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
...
- TWindow
- TDialog
Construtores
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], [lTransparent] ) --> 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. |
Nota |
---|
Para utilização a propriedade lTransparent é necessário definir a Dialog sem bordas, utilizando a função nOR, conforme exemplo abaixo: lTransparent := .T. |
- ()
- 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
- (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
- (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
- ()
- 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 |
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Observações
...
- Recomendamos a utilização da classe MsDialog que é herdada
...
- desta classe.
Exemplos
Bloco de código | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
Propriedade: windowState
oDialog:bWindowState := {|o,state| showState(state)} Propriedade: bFocusChange
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… iniciando ')} ) Return |
Exemplo da classe TDialog
Abrangência
Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.
...
11, Protheus 10, TOTVS Application Server 10,
...
TOTVS Application Server
...
...
11