Dica DICA: Menus Dinâmicos

Bom dia pessoal,

Eu não sei se tem essa dica aqui no fórum, mas vou postar. Se alguém tiver ideias melhores ou mais práticas contribua respondendo o tópico...Não esqueça de curtir.

No "Definitions" da Window adicionar o código:

Bom dia pessoal,

Eu não sei se tem essa dica aqui no fórum, mas vou postar. Se alguém tiver ideias melhores ou mais práticas contribua respondendo o tópico...Não esqueça de curtir.

No "Definitions" da Window adicionar o código:

Código:

/* Conjunto do Menu 1 */
DEFINE SUB-MENU m_Arquivo . /* Definição de cada item de Menu Principal*/
DEFINE SUB-MENU m_Editar .

DEFINE MENU MainMenu1 MENUBAR /* Define os Menus Principais */
       SUB-MENU  m_Arquivo      LABEL "Arquivo"  
       SUB-MENU  m_Editar      LABEL "Editar"   .
/*==============================================================*/

/* Conjunto do Menu 2 */
DEFINE SUB-MENU m_Ferramentas /* Definição de cada item de Menu Principal com Sub-Menu Novo */
          MENU-ITEM m_Novo   LABEL "Novo"          .
   
DEFINE SUB-MENU m_Opcoes  /* Definição de cada item de Menu Principal com Sub-Menu Editar */
       MENU-ITEM m_Editar LABEL "Editar"        .

DEFINE MENU MainMenu2 MENUBAR  /* Define os Menus Principais */
       SUB-MENU  m_Ferramentas  LABEL "Ferramentas"      
       SUB-MENU  m_Opcoes       LABEL "Opções"   .
/*==============================================================*/

Crie 2 botões, btnMenu1 e btnMenu2 com os respectivos códigos:

btnMenu1

Código:

ASSIGN c-Win:MENUBAR    = MENU MainMenu1:HANDLE.    

btnMenu2

Código:

ASSIGN c-Win:MENUBAR    = MENU MainMenu2:HANDLE.    

Pronto, ao Executar o programa e clicar nos botões o Menu irá mudar para o definido.

Agora mude o código a vontade.

Obs.: Para criar evento para o item m_Novo por exemplo, use o código abaixo no MainBlock

Código:

ON 'CHOOSE':U OF MENU-ITEM m_Novo DO:
   MESSAGE "Você clicou no sub-menu m_Novo!!!"
       VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.

Qualquer dúvida é só falar...

Não esqueça de curtir a dica...

Atenciosamente

Rafael

Segue em anexo um programa com o código da dica.

Na verdade não é Menu dinâmico, é menus pré-definidos.
Menus dinâmicos têm nesse tutorial: http://bit.ly/menu-dinamico-progress

Abraço

Segue em anexo abaixo um exemplo de Menu realmente dinâmico gerado através do exemplo mencionado no link http://bit.ly/menu-dinamico-progress.

Abraço

Rafael