TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user admin

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: binary and image files updated

...

Portuguese

Pagetitle
tWindow
tWindow

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
Image Removed Image Added

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