Histórico da Página
...
| Bloco de código | ||
|---|---|---|
| ||
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:
Bloco de código language cpp theme Eclipse linenumbers false collapse false lTransparent := .T. oDlg := TDialog():New(0,0,800,1000,'Janela sem borda',,,,nOr(WS_VISIBLE,WS_POPUP),CLR_BLACK,CLR_WHITE,,,.T.,,,,,,lTransparent)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:
Bloco de código language cpp theme Eclipse linenumbers false collapse false oRect := TRect():New(100,10,550,700) oDlg:Activate(,,,.F.,,,{|| oDlg:SetCoors(oRect) } )Exemplos
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
oDlg := TDialog():New(180,180,550,700,'Exemplo TDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.) |