Ir para o conteúdo principal
assistive.skiplink.to.breadcrumbs
assistive.skiplink.to.header.menu
assistive.skiplink.to.action.menu
assistive.skiplink.to.quick.search

Árvore de páginas

Histórico da Página

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

TSrvObject
- TWindow

Construtores

Inclusão de trecho

	Classe TWindow - Construtores
	Classe TWindow - Construtores
nopanel	true

Propriedades

Inclusão de trecho

	Classe TWindow - Propriedades
	Classe TWindow - Propriedades
nopanel	true

Métodos

Inclusão de trecho

	Classe TWindow - Métodos
	Classe TWindow - Métodos
nopanel	true

Observações

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

Exemplos

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

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

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

Bloco de código

language	cpp
theme	Eclipse
title	Exemplo 1
linenumbers	true
collapse	false

#include "TOTVS.CH"

user function exemplo()

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

Nome

Tipo

Descrição

Obrigatório

Referência

nTop

Numérico

Indica a coordenada vertical superior em pixels ou caracteres.

nLeft

Numérico

Indica a coordenada horizontal esquerda em pixels ou caracteres.

nBottom

Numérico

Indica a coordenada vertical inferior em pixels ou caracteres.

nRight

Numérico

Indica a coordenada horizontal direita em pixels ou caracteres.

cTitle

Caracter

Indica o título da janela.

uParam6

Qualquer

Compatibilidade.

uParam7

Qualquer

Compatibilidade.

uParam8

Qualquer

Compatibilidade.

uParam9

Qualquer

Compatibilidade.

oParent

Objeto

Indica a janela mãe (principal) da janela corrente.

uParam11

Qualquer

Compatibilidade.

uParam12

Qualquer

Compatibilidade.

nClrFore

Numérico

Indica a cor de fundo da janela.

nClrText

Numérico

Indica a cor do texto da janela.

uParam15

Qualquer

Compatibilidade.

uParam15

Qualquer

Compatibilidade.

uParam16

Qualquer

Compatibilidade.

uParam18

Qualquer

Compatibilidade.

uParam19

Qualquer

Compatibilidade.

uParam20

Qualquer

Compatibilidade.

lPixel

Lógico

Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).

Nome

Tipo

Descrição

Obrigatório

Referência

cShow

Caracter

Indica se a janela será minimizada (Iconized) ou maximizada (Maximized).

uParam2

Qualquer

Compatibilidade.

uParam3

Qualquer

Compatibilidade.

uParam4

Qualquer

Compatibilidade.

uParam5

Qualquer

Compatibilidade.

uParam6

Qualquer

Compatibilidade.

uParam7

Bloco de código

Compatibilidade.

uParam8

Qualquer

Compatibilidade.

uParam9

Qualquer

Compatibilidade.

uParam10

Qualquer

Compatibilidade.

uParam11

Qualquer

Compatibilidade.

uParam12

Qualquer

Compatibilidade.

uParam13

Qualquer

Compatibilidade.

uParam14

Qualquer

Compatibilidade.

uParam15

Qualquer

Compatibilidade.

uParam15

Bloco de código

Compatibilidade.

uParam17

Qualquer

Compatibilidade.

uParam18

Qualquer

Compatibilidade.

Nome

Tipo

Descrição

Obrigatório

Referência

oMenu

Objeto

Indica o objeto do tipo TMenuBar que será criado no controle visual.

X

Propriedade	Descrição	Tipo
bFocusChange	Indica se o componente esta ou não em foco. Para mais informações desta propriedade, consulte a área Observações.	Bloco de código
bStart	Indica o bloco de código que será executado quando a janela estiver em exibição.	Bloco de código
bWindowState	Indica 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
lEscClose	Indica se habilita a tecla cancelar de execução da janela.	Lógico
nResult	Indica 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
oMenu	Indica 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âmetro	Descrição
o	Indica a instância do objeto TWindow.
State	Indica o estado atual do componente. Sendo: 0 = restaurado, 1 = Minimizado e 2 = Maximizado.

Exemplo:

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

Propriedade: bFocusChange

Parâmetro	Descrição
o	Indica a instância do objeto TWindow.
focus	Indica 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

'

", 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

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

TMenuBar