Árvore de páginas

Versões comparadas

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.


TSrvObject -> tWindow


New

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

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

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

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