Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

...

Classe TWindow
Classe

...

TWindow

Cria

...

a

...

janela

...

principal

...

do

...

programa.

...

Hierarquia

Construtores

Inclusão de trecho
Classe TWindow - Construtores
Classe TWindow - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TWindow - Propriedades
Classe TWindow - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TWindow - Métodos
Classe TWindow - Métodos
nopaneltrue

Observações

  • Esse objeto somente pode ser criado uma única vez no sistema.

Exemplos

#include "TOTVS.CH"

User
user 
Function
function 
TWindow
exemplo()

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

    oWindow:Activate()
Return

 

Exemplo da classe TWindow

Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
-> 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)}

 

Bloco de código
themeEclipse
languagecpp
titleExemplos
linenumberstrue

Resultado do Exemplo

Image Modified

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

...