Á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.


TSrvObject -> TControl -> TMenuBar


New

New

Método construtor da classe.


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


NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica 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] ) -->


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.)

 

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] ) -->


NomeTipoDescriçãoObrigatórioReferência
cTituloCaracterIndica o título do item no menu superior.
oMenuObjetoIndica 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] ) -->


NomeTipoDescriçãoObrigatórioReferência
isDefUpLógicoIndica 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

  • Sem rótulos