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

 


TSrvObject -> TWindow


New

Método construtor da janela.


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


 

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

 

oObjeto
    ()
  • Retorna o objeto criado.

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

Active

Apresenta a janela.


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


 

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.  

 


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
    (logico)
  • 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
    (logico)
  • 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> ) -->


 

NomeTipoDescriçãoObrigatórioReferência
oMenuObjetoIndica 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
    (numerico)
  • Retorna um número inteiro indicando o estado atual do componente. Sendo: 0=Restaurado, 1=Minimizado e 2=Maximizado.


LOCAL state := oDialog:windowState()

 

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

 


 

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

 


Exemplo da classe TWindow

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

 

  • Sem rótulos