Classe: TWindowCria a janela principal do programa. Para isso, é necessário ter apenas uma instância deste objeto na execução do programa. NewMé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.). | | |
oObjeto()- Retorna o objeto criado.
oWindow:= TWindow():New( 10, 10, 200, 200, 'Exemplo TWindow',,,,,,,,; CLR_BLACK,CLR_WHITE,,,,,,,.T. ) ActiveApresenta 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') CenterCentraliza a janela.TWindow(): Center ( ) --> CommitControlsForça a atualização de todas as mensagens pendentes entre o TOTVS Application Server o o TOTVS Smart Client.TWindow(): CommitControls ( ) --> CtrlRefreshForça a atualização do objeto.TWindow(): CtrlRefresh ( ) --> EndFinaliza a janela.TWindow(): End ( ) --> lRet lRet(logico)- Retorna verdadeiro (.T.) se finalizar a janela; caso contrário, retorna falso (.F.).
hasFocusIndica 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() SetMenuDefine 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 ) windowStateIndica 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() 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: windowStateParâ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: bFocusChangeParâ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 |
Exemplo da classe TWindow Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |