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

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