Classe: TMenuBar
Cria um objeto do tipo barra de menu.
TSrvObject -> TControl -> TMenuBar
New
Método construtor da classe.
TMenuBar(): New ( [ oWnd] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. |
oObjeto
- ()
- Retorna o objeto criado.
oTMenuBar := TMenuBar():New(oDlg)
AddItem
Inclui um novo item ao menu.
TMenuBar(): AddItem ( [ cTitulo], [ oMenu], [ lMenu] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cTitulo | Array of Record | Indica o título do item no menu superior. | ||
oMenu | Objeto | Indica o objeto do tipo TMenu que será executado na solicitação do menu superior. | ||
lMenu | Lógico | Indica se, verdadeiro (.T.), o item incluído será um item de menu; caso contrário, falso (.F.) |
oTMenu := TMenu():New(0,0,0,0,.T.,,oDlg)
TMenuBar:AddItem('Arquivo', oTMenu, .T.)
AddMenuItem
Inclui um novo item ao menu da barra superior.
TMenuBar(): AddMenuItem ( [ cTitulo], [ oMenu] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cTitulo | Caracter | Indica o título do item no menu superior. | ||
oMenu | Objeto | Indica o objeto do tipo TMenu utilizado para incluir um menu. |
// Cria objeto TMenu
oTMenu3 := TMenu():New(0,0,0,0,.T.,,oDlg)
oTMenuItem3 := TMenuItem():New(oDlg,'TMenuItem 03',,,, {||Alert('TMenuItem 03')},,,,,,,,,.T.)
oTMenu3:Add(oTMenuItem3)
// Adiciona menu na barra superior
oTMenuBar:AddMenuItem( "Novo Item",oTMenu3 )
Exemplo do método AddMenuItem
![](https://tdn.totvs.com/download/attachments/6063252/Mon+May+21+15%3A39%3A13+BRT+2012AddMenuItem?version=1&modificationDate=1337625553831)
Reset
Exclui todas as opções do menu.
TMenuBar(): Reset ( ) -->
oTMenuBar:reset()
SetDefaultUp
Direciona o menu para cima.
TMenuBar(): SetDefaultUp ( [ isDefUp] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
isDefUp | Lógico | Indica se habilita (.T.)/desabilita(.F.) a apresentação do menu para cima. |
oTMenuBar:SetDefaultUp( .T. )
Exemplo do método SetDefaultUp
![](https://tdn.totvs.com/download/attachments/6063252/Mon+May+21+15%3A39%3A13+BRT+2012TMenuBar%2B-%2BSetDefaultUp.jpg?version=1&modificationDate=1337625553865)
![](https://tdn.totvs.com/download/attachments/6063252/Mon+May+21+15%3A39%3A13+BRT+2012TMenuBar%2B-%2BSetDefaultUp.jpg?version=1&modificationDate=1337625553865)
A classe "TMenuBar" já é criada com o alinhamento "CONTROL_ALIGN_TOP". Quando utilizada com a classe "TWindow" a redundacia deste alinhamento retira o Objeto da area de Menu (Será apresentada uma area em branco acima do menu).
#include "TOTVS.CH"
User Function TMenuBar()
oWindow:= TWindow():New(10, 10, 800, 600, 'Exemplo TWindow',,,,,,,,;
CLR_BLACK,CLR_WHITE,,,,,,,.T. )
// Monta um Menu Suspenso
oTMenuBar := TMenuBar():New(oWindow)
oTMenu1 := TMenu():New(0,0,0,0,.T.,,oWindow)
oTMenu2 := TMenu():New(0,0,0,0,.T.,,oWindow)
oTMenuBar:AddItem('Arquivo' , oTMenu1, .T.)
oTMenuBar:AddItem('Relatorio', oTMenu2, .T.)
// Cria Itens do Menu
oTMenuItem := 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:Activate('MAXIMIZED')
Return
Exemplo da classe TMenuBar
![](https://tdn.totvs.com/download/attachments/6063252/Mon+May+21+15%3A39%3A13+BRT+2012exemplo_tmenubar.jpeg?version=1&modificationDate=1337625553901)
![](https://tdn.totvs.com/download/attachments/6063252/Mon+May+21+15%3A39%3A13+BRT+2012exemplo_tmenubar.jpeg?version=1&modificationDate=1337625553901)
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas