Visual Lib

[PITERGALDIANO]

Pessoal tenho um menu no meu programa que tem 30 itens e é gerado através da função AddDownItem da visual lib

só qeu ele não cabe verticalmente na tela, tem jeito de limitar esse menu a dez linhas e os demais itens sejam exibidos de forma que o menu role nessas 10 linhas?

Obrigado...

[Antonio]

Voce pode criar subitens de MENU:


mBar := NewBarMenu()
mArq := NewDownMenu()
mMov := NewDownMenu()
mRel := NewDownMenu()
mFer := NewDownMenu()
mHlp := NewDownMenu()
mProt := NewDownMenu()
mProt1 := NewDownMenu() // Subitem
mProt2 := NewDownMenu() / Subitem

AddBarItem ( mBar , hb_ansitooem("&Arquivos " ), hb_ansitooem( "Manutenção das Bases de Dados do Sistema " ), mArq )
AddBarItem ( mBar , hb_ansitooem("&Movimentos " ), hb_ansitooem( "Movimentação de Clientes " ), mMov )
AddBarItem ( mBar , hb_ansitooem("&Relatórios " ), hb_ansitooem( "Sistema de Relatórios e informações " ), mRel )
AddBarItem ( mBar , hb_ansitooem("&Ferramentas" ), hb_ansitooem( "Ferramentos do Sistema" ), mFer )
AddBarItem ( mBar , hb_ansitooem("&Ajuda " ), hb_ansitooem( "Sistema de Ajuda " ), mHlp )
//1
AddDownItem( mArq , hb_ansitooem("&A Ativar Cliente" ), hb_ansitooem( "Ativa um cliente" ), {||AtivaClientes()})
AddDownSep ( mArq )
AddDownItem( mArq , hb_ansitooem("&1 Clientes" ), hb_ansitooem( "Cadastro de Clientes" ), {||BrowseClientes()})
AddDownItem( mArq , hb_ansitooem("&2 Serviços" ), hb_ansitooem( "Cadastro de Serviços" ), {||BrowseServico()})
AddDownItem( mArq, hb_ansitooem("&3 Itens de Protocolo" ), hb_ansitooem( "Itens de Protocolos de Clientes" ), mProt )
AddDownSep ( mArq )
AddDownItem( mArq, hb_ansitooem("&4 Sair", "Encerra o programa" ), hb_ansitooem( "Fecha as Tabelas e Encerra o Programa" ), {||Saida()})
AddDownSep ( mArq )
AddDownItem( mArq , hb_ansitooem("&5 Empresa Usuária" ), hb_ansitooem( "Cadastro empresa usuária do Sistema" ), {||Usuaria()})
//2
AddDownItem( mProt , hb_ansitooem("&1 Livros " ), hb_ansitooem( "Livros Fiscais e Contabeis " ), mProt1) // Subitem
AddDownItem( mProt , hb_ansitooem("&2 Contratos em Geral e Alteracoes " ), hb_ansitooem( "Contratos e Demais " ), {||BrowseItensContratos()})
AddDownItem( mProt , hb_ansitooem("&3 Guias de Recolhimento e Documentos " ), hb_ansitooem( "Guias de Recolhimento de Impostos " ), mProt2 ) //Subitem