TOTVSTEC

Á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

« Anterior Versão 6 Atual »

Classe: TWindow

Cria a janela principal do programa.
Para isso, é necessário ter apenas uma instância deste objeto na execução do programa.

 


Hierarquia

TSrvObject -> TWindow


Construtores
New

New

Método construtor da janela.


Sintaxe

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

 

NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical superior em pixels ou caracteres.  
nLeftNuméricoIndica a coordenada horizontal esquerda em pixels ou caracteres.  
nBottomNuméricoIndica a coordenada vertical inferior em pixels ou caracteres.  
nRightNuméricoIndica a coordenada horizontal direita em pixels ou caracteres.  
cTitleCaracterIndica o título da janela.  
uParam6QualquerCompatibilidade.  
uParam7QualquerCompatibilidade.  
uParam8QualquerCompatibilidade.  
uParam9QualquerCompatibilidade.  
oParentObjetoIndica a janela mãe (principal) da janela corrente.  
uParam11QualquerCompatibilidade.  
uParam12QualquerCompatibilidade.  
nClrForeNuméricoIndica a cor de fundo da janela.  
nClrTextNuméricoIndica a cor do texto da janela.  
uParam15QualquerCompatibilidade.  
uParam15QualquerCompatibilidade.  
uParam16QualquerCompatibilidade.  
uParam18QualquerCompatibilidade.  
uParam19QualquerCompatibilidade.  
uParam20QualquerCompatibilidade.  
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).  

 

Retorno
oObjeto
    ()
  • Retorna o objeto criado.

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

Métodos
Active

Active

Apresenta a janela.


Sintaxe

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


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cShowCaracterIndica se a janela será minimizada (Iconized) ou maximizada (Maximized).  
uParam2QualquerCompatibilidade.  
uParam3QualquerCompatibilidade.  
uParam4QualquerCompatibilidade.  
uParam5QualquerCompatibilidade.  
uParam6QualquerCompatibilidade.  
uParam7Bloco de códigoCompatibilidade.  
uParam8QualquerCompatibilidade.  
uParam9QualquerCompatibilidade.  
uParam10QualquerCompatibilidade.  
uParam11QualquerCompatibilidade.  
uParam12QualquerCompatibilidade.  
uParam13QualquerCompatibilidade.  
uParam14QualquerCompatibilidade.  
uParam15QualquerCompatibilidade.  
uParam15Bloco de códigoCompatibilidade.  
uParam17QualquerCompatibilidade.  
uParam18QualquerCompatibilidade.  

 


Observações

Esse método deve ser chamado apenas uma vez.


Exemplos
oWindow:Activate('MAXIMIZED')
Center

Center

Centraliza a janela.


Sintaxe

TWindow(): Center ( ) -->


Exemplos
oWindow:Center()
CommitControls

CommitControls

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


Sintaxe

TWindow(): CommitControls ( ) -->


Exemplos
oWindow:CommitControls()
CtrlRefresh

CtrlRefresh

Força a atualização do objeto.


Sintaxe

TWindow(): CtrlRefresh ( ) -->


Exemplos
oWindow:CtrlRefresh()
End

End

Finaliza a janela.


Sintaxe

TWindow(): End ( ) --> lRet

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

Exemplos
oWindow:End()
hasFocus

hasFocus

Indica se o componente esta em foco.


Sintaxe

TWindow(): hasFocus ( ) --> lFocus

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

Observações

Exemplos
LOCAL focus := oDialog:hasFocus()
SetMenu

SetMenu

Define o menu para a janela.


Sintaxe

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


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
oMenuObjetoIndica o objeto do tipo TMenuBar que será criado no controle visual.X 

 


Exemplos
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

windowState

Indica o estado atual do componente.


Sintaxe

TWindow(): windowState ( ) --> nState

Retorno
nState
    (numerico)
  • Retorna um número inteiro indicando o estado atual do componente. Sendo: 0=Restaurado, 1=Minimizado e 2=Maximizado.

Observações

Exemplos
LOCAL state := oDialog:windowState()

Propriedade

 

PropriedadeDescriçãoTipo
bFocusChangeIndica se o componente esta ou não em foco. Para mais informações desta propriedade, consulte a área Observações.Bloco de código
bStartIndica o bloco de código que será executado quando a janela estiver em exibição.Bloco de código
bWindowStateIndica 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
lEscCloseIndica se habilita a tecla cancelar de execução da janela.Lógico
nResultIndica 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
oMenuIndica o objeto do tipo TMenuBar que será criado no controle visual.Objeto

 


Observações

 

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âmetroDescrição
oIndica a instância do objeto TWindow.
StateIndica o estado atual do componente. Sendo: 0 = restaurado, 1 = Minimizado e 2 = Maximizado.


Exemplo:

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

Propriedade: bFocusChange

ParâmetroDescrição
oIndica a instância do objeto TWindow.
focusIndica se o componenten está em foco  (.T.) ou sem foco (.F.).


Exemplo:

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

 

Exemplos
#include "TOTVS.CH"


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

 


Preview
Exemplo da classe TWindow

Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Veja Também
TMenuBar

 

  • Sem rótulos