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.
TMenuBar := 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 TMenuoTMenu3 := 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 superioroTMenuBar:AddMenuItem( "Novo Item",oTMenu3 )
Exemplo do método AddMenuItem
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
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() DEFINE DIALOG oDlg TITLE "Exemplo TMenuBar" FROM 180,180 TO 550,700 PIXEL // Monta um Menu Suspenso oTMenuBar := TMenuBar():New(oDlg) oTMenu1 := TMenu():New(0,0,0,0,.T.,,oDlg) oTMenu2 := TMenu():New(0,0,0,0,.T.,,oDlg) oTMenuBar:AddItem('Arquivo' , oTMenu1, .T.) oTMenuBar:AddItem('Relatorio', oTMenu2, .T.) // Cria Itens do Menu oTMenuItem := TMenuItem():New(oDlg,'TMenuItem 01',,,,; {||Alert('TMenuItem 01')},,'AVGLBPAR1',,,,,,,.T.) oTMenu1:Add(oTMenuItem) oTMenu2:Add(oTMenuItem) oTMenuItem := TMenuItem():New(oDlg,'TMenuItem 02',,,,; {||Alert('TMenuItem 02')},,,,,,,,,.T.) oTMenu1:Add(oTMenuItem) oTMenu2:Add(oTMenuItem) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TMenuBar
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