tWindow

tWindow(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cTitle], [ uParam6], [ uParam7], [ uParam8], [ uParam9], [ oParent], [ uParam11], [ uParam12], [ nClrFore], [ nClrText], [ uParam15], [ uParam15], [ uParam16], [ uParam18], [ uParam19], [ uParam20], [ lPixel] ) --> oObjeto

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.
cTitle	Caracter	Indica o título da janela.
uParam6	Qualquer	Compatibilidade.
uParam7	Qualquer	Compatibilidade.
uParam8	Qualquer	Compatibilidade.
uParam9	Qualquer	Compatibilidade.
oParent	Objeto	Indica a janela mãe (principal) da janela corrente.
uParam11	Qualquer	Compatibilidade.
uParam12	Qualquer	Compatibilidade.
nClrFore	Numérico	Indica a cor de fundo da janela.
nClrText	Numérico	Indica a cor do texto da janela.
uParam15	Qualquer	Compatibilidade.
uParam15	Qualquer	Compatibilidade.
uParam16	Qualquer	Compatibilidade.
uParam18	Qualquer	Compatibilidade.
uParam19	Qualquer	Compatibilidade.
uParam20	Qualquer	Compatibilidade.
lPixel	Lógico	Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).

oObjeto

Retorna o objeto criado.

oWindow:= TWindow():New( 10, 10, 200, 200, 'Exemplo TWindow',,,,,,,,;           CLR_BLACK,CLR_WHITE,,,,,,,.T. )

Métodos

Active

Apresenta a janela.

tWindow(): Active ( [ cShow], [ uParam2], [ uParam3], [ uParam4], [ uParam5], [ uParam6], [ uParam7], [ uParam8], [ uParam9], [ uParam10], [ uParam11], [ uParam12], [ uParam13], [ uParam14], [ uParam15], [ uParam15], [ uParam17], [ uParam18] ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cShow	Caracter	Indica se a janela será minimizada (Iconized) ou maximizada (Maximized).
uParam2	Qualquer	Compatibilidade.
uParam3	Qualquer	Compatibilidade.
uParam4	Qualquer	Compatibilidade.
uParam5	Qualquer	Compatibilidade.
uParam6	Qualquer	Compatibilidade.
uParam7	Bloco de código	Compatibilidade.
uParam8	Qualquer	Compatibilidade.
uParam9	Qualquer	Compatibilidade.
uParam10	Qualquer	Compatibilidade.
uParam11	Qualquer	Compatibilidade.
uParam12	Qualquer	Compatibilidade.
uParam13	Qualquer	Compatibilidade.
uParam14	Qualquer	Compatibilidade.
uParam15	Qualquer	Compatibilidade.
uParam15	Bloco de código	Compatibilidade.
uParam17	Qualquer	Compatibilidade.
uParam18	Qualquer	Compatibilidade.

Esse método deve ser chamado apenas uma vez.

oWindow:Activate('MAXIMIZED')

Center

Centraliza a janela.

tWindow(): Center ( ) -->

oWindow:Center()

CommitControls

Força a atualização de todas as mensagens pendentes entre o TOTVS Application Server o o TOTVS Smart Client.

tWindow(): CommitControls ( ) -->

oWindow:CommitControls()

CtrlRefresh

Força a atualização do objeto.

tWindow(): CtrlRefresh ( ) -->

oWindow:CtrlRefresh()

End

Finaliza a janela.

tWindow(): End ( ) --> lRet

lRet

Retorna verdadeiro (.T.) se finalizar a janela; caso contrário, retorna falso (.F.).

oWindow:End()

hasFocus

Indica se o componente esta em foco.

tWindow(): hasFocus ( ) --> lFocus

lFocus

Retorna, verdadeiro (.T.), se o componente está em foco; caso contrário, falso (.F.).

LOCAL focus := oDialog:hasFocus()

SetMenu

Define o menu para a janela.

tWindow(): SetMenu ( < oMenu> ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oMenu	Objeto	Indica o objeto do tipo TMenuBar que será criado no controle visual.	X

TMenuBar := TMenuBar():New(oWindow)TMenuBar:nClrPane := RGB(183,208,248) // Cor de fundo do MenuoTMenu1 := TMenu():New(0,0,0,0,.T.,,oWindow)oTMenu2 := TMenu():New(0,0,0,0,.T.,,oWindow)TMenuBar:AddItem("Arquivo"  , oTMenu1, .T.)TMenuBar:AddItem("Relatorio", oTMenu2, .T.)// Cria Itens do MenuoTMenuItem := TMenuItem():New(oWindow,"TMenuItem 01",,,,;    {||Alert("TMenuItem 01")},,"AVGLBPAR1",,,,,,,.T.)oTMenu1:Add(oTMenuItem)oTMenu2:Add(oTMenuItem)oTMenuItem := TMenuItem():New(oWindow,"TMenuItem 02",,,,;   {||Alert("TMenuItem 02")},,,,,,,,,.T.)oTMenu1:Add(oTMenuItem)oTMenu2:Add(oTMenuItem)oWindow:SetMenu( TMenuBar )

windowState

Indica o estado atual do componente.

tWindow(): windowState ( ) --> nState

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

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
bStart	Indica o bloco de código que será executado quando a janela estiver em exibição.	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
lEscClose	Indica se habilita a tecla cancelar de execução da janela.	Lógico
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
oMenu	Indica o objeto do tipo TMenuBar que será criado no controle visual.	Objeto

Importante
Esse objeto somente pode ser criado uma única vez no sistema. Os métodos windowState() e hasFocus() estarão disponíveis após a build 7.00.101202A. As propriedades bWindowState e bfocusChange estarão disponíveis após a build 7.00.101202A.

Propriedade: windowState

Parâmetro	Descrição
o	Indica a instância do objeto TWindow.
State	Indica o estado atual do componente. Sendo: 0 = restaurado, 1 = Minimizado e 2 = Maximizado.

Exemplo:

oWindow:bWindowState := {|o,state| showState(state)}

Propriedade: bFocusChange

Parâmetro	Descrição
o	Indica a instância do objeto TWindow.
focus	Indica se o componenten está em foco (.T.) ou sem foco (.F.).

Exemplo:

oWindow:bFocusChange := {|o,focus| showFocus(focus)}