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
...
- oObjeto()
- Retorna o objeto criado.
TMenuBar := TMenuBar():New(oDlg)AddItem
Inclui um novo item ao menu.
TMenuBar(): AddItem ( [ cTitulo], [ oMenu], [ lMenu] ) -->
...
| Inclusão de trecho | ||||||
|---|---|---|---|---|---|---|
|
Métodos
| Inclusão de trecho | ||||||
|---|---|---|---|---|---|---|
|
Observações
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] ) -->
...
// 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] ) -->
...
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).
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.,,oDlg oWindow) oTMenu2 := TMenu():New(0,0,0,0,.T.,,oDlg oWindow) oTMenuBar:AddItem('Arquivo' , oTMenu1, .T.) oTMenuBar:AddItem('Relatorio', oTMenu2, .T.) // Cria Itens do Menu oTMenuItem := TMenuItem():New(oDlg oWindow,'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
Tarefas