Á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

Versão 1 Atual »

Construtor MsDialog:New

Método construtor da classe.

Sintaxe

MsDialog():New( [ nTop ], [ nLeft ], [ nBottom ], [ nRight ], [ cCaption ], [ uParam6 ], [ uParam7 ], [ uParam8 ], [ uParam9 ], [ nClrText ], [ nClrBack ], [ uParam12 ], [ oWnd ], [ lPixel ], [ uParam15 ], [ uParam16 ], [ uParam17 ], [ 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

caractere

Compatibilidade.

 

 

uParam7

numérico

Compatibilidade.

 

 

uParam8

lógico

Compatibilidade.

 

 

uParam9

Q

Compatibilidade.

 

 

nClrText

numérico

Indica a cor do texto.

 

 

nClrBack

numérico

Indica a cor de fundo.

 

 

uParam12

objeto

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

Q

Compatibilidade.

 

 

uParam16

Q

Compatibilidade.

 

 

uParam17

Q

Compatibilidade.

 

 

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 MsDialog

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.    
      oMsDialog := MSDialog():New(0,0,800, 1000,'Janela sem borda',,,,nOr(WS_VISIBLE,WS_POPUP),CLR_BLACK,CLR_WHITE,,,.T.,,,,lTransparent)
    

Exemplos

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