Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
| Pagetitle |
|---|
...
|
|
...
|
Cria
...
um
...
objeto
...
do
...
tipo
...
barra
...
de
...
menu.
Hierarquia
...
...
- TMenuBar
Construtores
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.)
| Inclusão de trecho | ||||||
|---|---|---|---|---|---|---|
|
Métodos
| Inclusão de trecho | ||||||
|---|---|---|---|---|---|---|
|
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
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. )...
Observações
- 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).
Exemplos
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "TOTVS.CH" User Function TMenuBar() DEFINE DIALOG oDlg TITLE "Exemplo TMenuBar" FROM 180,180 TO 550,700 PIXEL oWindow:= TWindow():New(10, 10, 800, 600, 'Exemplo TWindow',,,,,,,,CLR_BLACK,CLR_WHITE,,,,,,,.T.) // Monta um Menu Suspenso oTMenuBar := TMenuBar():New(oDlg oWindow) oTMenu1 := TMenu():New(0,0,0,0,.T.,,oDlgoWindow) oTMenu2 := TMenu():New(0,0,0,0,.T.,,oDlgoWindow) oTMenuBar:AddItem('Arquivo' , oTMenu1, .T.) oTMenuBar:AddItem('Relatorio', oTMenu2, .T.) // Cria Itens do Menu oTMenuItem := TMenuItem():New(oDlgoWindow,'TMenuItem 01',,,,{||Alert('TMenuItem 01')},,'AVGLBPAR1',,,,,,,.T.) oTMenu1:Add(oTMenuItem) oTMenu2:Add(oTMenuItem) oTMenuItem := TMenuItem():New(oDlg oWindow,'TMenuItem 02',,,,{||Alert('TMenuItem 02')},,,,,,,,,.T.) oTMenu1:Add(oTMenuItem) oTMenu2:Add(oTMenuItem) ACTIVATE DIALOG oDlg CENTERED ReturnExemplo da classe TMenuBar oWindow:Activate('MAXIMIZED')
Return
|
Resultado do Exemplo
Abrangência
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