1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Menu

Discussão em 'Progress 4GL' iniciado por sl4v3r, Abril 8, 2009.

  1. sl4v3r

    sl4v3r Membro Participativo

    Exemplo de simples de menu.

    Código:
    DEFINE SUB-MENU Arquivo
  MENU-ITEM Opcao1  LABEL "Opcao1"
  MENU-ITEM Opcao2  LABEL "Opcao2"
  MENU-ITEM Opcao3  LABEL "Opcao3".
DEFINE SUB-MENU Editar
  MENU-ITEM Recortar LABEL "Recortar" ACCELERATOR "PAGE-DOWN"
  MENU-ITEM Copiar   LABEL "Copiar"   ACCELERATOR "PAGE-UP"
  MENU-ITEM Colar    LABEL "Colar".
DEFINE SUB-MENU Fechar
  MENU-ITEM Sair   LABEL "Sair".

DEFINE MENU mbar   MENUBAR
  SUB-MENU Arquivo LABEL "Arquivo"
  SUB-MENU Editar  LABEL "Editar"
  SUB-MENU Fechar  LABEL "Fechar".

ON CHOOSE OF MENU-ITEM Opcao1
  MESSAGE "Opcao1" VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Opcao2
  MESSAGE "Opcao2" VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Opcao3
  MESSAGE "Opcao3" VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Recortar
  message "Recortar" VIEW-AS ALERT-BOX. 

ON CHOOSE OF MENU-ITEM Copiar
  message "Copiar" VIEW-AS ALERT-BOX. 
   
ON CHOOSE OF MENU-ITEM Colar
  message "Colar" VIEW-AS ALERT-BOX.
    
ASSIGN CURRENT-WINDOW:MENUBAR = MENU mbar:HANDLE.
WAIT-FOR CHOOSE OF MENU-ITEM Sair.
    sl4v3r, Abril 8, 2009
    #1

Compartilhe esta Página