Menu (Define Menu / Create Menu)

Olá Pessoal,

Sou novo aqui no fórum.

Gostaria de saber se é possível habilitar/desabilitar dinamicamente um menu/submenu que foi criado através de "Define Menu"/"Define Sub-Menu" ?

Em um help encontrei algo sobre "CREATE Widget Statement" e vi que é possível a criação do Menu/Sub-Menu desta forma. Alguém teria algum exemplo?

Abraços!

Godek.

Caro Godek:

Verifique se o exemplo abaixo lhe ajuda.

Código:

DEFINE SUB-MENU m_Arquivo 
       MENU-ITEM m_Incluir      LABEL "&Incluir"                    DISABLED
       MENU-ITEM m_Alterar      LABEL "&Alterar"                    DISABLED
       MENU-ITEM m_Excluir      LABEL "&Excluir"                    DISABLED
       MENU-ITEM m_Duplicar     LABEL "&Duplicar"                   DISABLED
       MENU-ITEM m_Consultar    LABEL "Consu&ltar"                  DISABLED
       RULE
       MENU-ITEM m_Salvar       LABEL "&Salvar"                     DISABLED
       RULE
       MENU-ITEM m_Sair         LABEL "Fe&char".

DEFINE SUB-MENU m_Navegacao 
       MENU-ITEM m_Primeiro     LABEL "Pri&meiro"                   DISABLED
       MENU-ITEM m_Anterior     LABEL "A&nterior"                   DISABLED
       MENU-ITEM m_Proximo      LABEL "Pro&ximo"                    DISABLED
       MENU-ITEM m_Ultimo       LABEL "U&ltimo"                     DISABLED.

DEFINE MENU menu-bar MENUBAR
       SUB-MENU  m_Arquivo      LABEL "&Arquivo"      
       SUB-MENU  m_Navegacao    LABEL "&Navegacao"    .

ASSIGN MENU-ITEM m_incluir:SENSITIVE   IN MENU m_arquivo   = TRUE
       MENU-ITEM m_alterar:SENSITIVE   IN MENU m_arquivo   = TRUE
       MENU-ITEM m_excluir:SENSITIVE   IN MENU m_arquivo   = TRUE
       MENU-ITEM m_duplicar:SENSITIVE  IN MENU m_arquivo   = TRUE
       MENU-ITEM m_consultar:SENSITIVE IN MENU m_arquivo   = TRUE
       MENU-ITEM m_primeiro:SENSITIVE  IN MENU m_navegacao = TRUE
       MENU-ITEM m_anterior:SENSITIVE  IN MENU m_navegacao = TRUE
       MENU-ITEM m_proximo:SENSITIVE   IN MENU m_navegacao = TRUE
       MENU-ITEM m_ultimo:SENSITIVE    IN MENU m_navegacao = TRUE
       MENU-ITEM m_salvar:SENSITIVE    IN MENU m_arquivo   = FALSE
       MENU-ITEM m_sair:SENSITIVE      IN MENU m_arquivo   = TRUE.

Qualquer dúvida entre em contato.

Abraços

__________________________
Attiware Informática Ltda.
Atila C. Mizerkówski
atila.cm@hotmail.com