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
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.). |
- ()
- 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] ) -->
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. |
Esse método deve ser chamado apenas uma vez.
oWindow:Activate('MAXIMIZED')
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
- (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
- (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> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
oMenu | Objeto | Indica 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
- (numerico)
- Retorna um número inteiro indicando o estado atual do componente. Sendo: 0=Restaurado, 1=Minimizado e 2=Maximizado.
LOCAL state := oDialog:windowState()
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 |
---|
|
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',,,,,,,,; CLR_BLACK,CLR_WHITE,,,,,,,.T. ) oWindow:Activate() Return