TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

Classe: TMenuBar

Cria um objeto do tipo barra de menu.


Hierarquia

TSrvObject -> TControl -> TMenuBar


Construtores
New

New

Método construtor da classe.


Sintaxe

TMenuBar(): New ( [ oWnd] ) --> oObjeto


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
Retorno
    oObjeto()
  • Retorna o objeto criado.

Observações
 

Exemplos 
TMenuBar := TMenuBar():New(oDlg)

Métodos
AddItem

AddItem

Inclui um novo item ao menu.


Sintaxe

TMenuBar(): AddItem ( [ cTitulo], [ oMenu], [ lMenu] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cTituloArray of RecordIndica o título do item no menu superior.
oMenuObjetoIndica o objeto do tipo TMenu que será executado na solicitação do menu superior.
lMenuLógicoIndica se, verdadeiro (.T.), o item incluído será um item de menu; caso contrário, falso (.F.)

Observações
 

Exemplos 
oTMenu := TMenu():New(0,0,0,0,.T.,,oDlg)TMenuBar:AddItem('Arquivo', oTMenu, .T.)
Veja Também
TMenu
AddMenuItem

AddMenuItem

Inclui um novo item ao menu da barra superior.


Sintaxe

TMenuBar(): AddMenuItem ( [ cTitulo], [ oMenu] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cTituloCaracterIndica o título do item no menu superior.
oMenuObjetoIndica o objeto do tipo TMenu utilizado para incluir um menu.

Observações
 

Exemplos 
// 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 )

Preview
Exemplo do método AddMenuItem
Reset

Reset

Exclui todas as opções do menu.


Sintaxe

TMenuBar(): Reset ( ) -->


Observações
 

Exemplos 
oTMenuBar:reset()
SetDefaultUp

SetDefaultUp

Direciona o menu para cima.


Sintaxe

TMenuBar(): SetDefaultUp ( [ isDefUp] ) -->


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
isDefUpLógicoIndica se habilita (.T.)/desabilita(.F.) a apresentação do menu para cima.

Observações
 

Exemplos 
oTMenuBar:SetDefaultUp( .T. )

Preview
Exemplo do método SetDefaultUp

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 
#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

Preview
Exemplo da classe TMenuBar

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos