Árvore de páginas
Ir para o final dos metadados
Ir para o início dos metadados

Cria um objeto do tipo barra de menu.

Hierarquia

Construtores

Métodos

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

Exemplo 1
  #include "TOTVS.CH"
    User Function TMenuBar()  

    oWindow:= TWindow():New(10, 10, 800, 600, 'Exemplo TWindow',,,,,,,,CLR_BLACK,CLR_WHITE,,,,,,,.T.)

    // Monta um Menu Suspenso    
    oTMenuBar := TMenuBar():New(oWindow)    

    oTMenu1 := TMenu():New(0,0,0,0,.T.,,oWindow)    
    oTMenu2 := TMenu():New(0,0,0,0,.T.,,oWindow)    
    oTMenuBar:AddItem('Arquivo'  , oTMenu1, .T.)    
    oTMenuBar:AddItem('Relatorio', oTMenu2, .T.)
    
    // Cria Itens do Menu    
    oTMenuItem := TMenuItem():New(oWindow,'TMenuItem 01',,,,{||Alert('TMenuItem 01')},,'AVGLBPAR1',,,,,,,.T.)    
    oTMenu1:Add(oTMenuItem)    
    oTMenu2:Add(oTMenuItem)    

    oTMenuItem := TMenuItem():New(oWindow,'TMenuItem 02',,,,{||Alert('TMenuItem 02')},,,,,,,,,.T.)    
    oTMenu1:Add(oTMenuItem)    
    oTMenu2:Add(oTMenuItem)           

    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

 

  • Sem rótulos