TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

Construtor TDialog: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 ], [ lTransparent ] )

Parâmetros

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

caractere

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 receba um fundo transparente.



Retorno

Nome

Tipo

Descrição

oObj

objeto

Nova instância da classe TDialog

Observações

  • Para utilização da propriedade lTransparent é necessário definir a Dialog sem bordas, utilizando a função nOR, conforme exemplo abaixo:

      lTransparent := .T.
  oDlg := TDialog():New(0,0,800,1000,'Janela sem borda',,,,nOr(WS_VISIBLE,WS_POPUP),CLR_BLACK,CLR_WHITE,,,.T.,,,,,,lTransparent)
  • A propeidade lTransparente só funciona para rotinas executadas como programa inicial, fora da interface do ERP.
  • As propriedades "nTop", "nLeft", "nBottom", "nRight", "nWidth", "nHeight" são limitadas a utilização de janelas fora de uma TWorkSpace. Dentro de uma tWorkSpace a posição e tamanho devem ser informadas no "ON INIT" pelo método SetCoors:

Exemplos

   oDlg := TDialog():New(180,180,550,700,'Exemplo TDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.)
  • Sem rótulos