Rotina de Menus em Clipper5.2 ?

[J_Evandro28]

Olá colegas,

Recentemente migrei do clipper summer 87 p/ o clipper5.2, e gostaria de saber se alguém tem uma rotina de menu com sub-menus simples ou onde posso encontrar uma?
Obrigado!
Evandro.

[sygecom]

Tche, De uma pesquisada no Forum com MENU e vc vai achar varios exemplos....eu particularmente uso a Visual LIB 2.0...se vc usa posso postar um exemplo de como usar.....

Abraços
Leonardo Machado

[J_Evandro28]

Leonardo,

Ficaria agradecido se vc me enviasse uma bem simples p/ versão clipper5.2, pois estou aprendendo a utilizá-lo agora.
Obrigado!
Evandro

[sygecom]

Tche, como vc não disse que iria ou não usar a VL....vou postar os dois:

Abaixo em CLIPPER Puro....sem a VL.

Código: Selecionar todos

LOCAL opc,tela_ant
#include "inkey.ch"
msetcursor(.T.)

do while .T.
    Menu1(02,02,16,18,) // MONTA TELA
    set color to gn/w
    @ 02,02   say  "   ENTRADAS    "
    set color to
    set color to gr+/nw,w+/b
    @ 04,02 prompt " 1 - Expedicao  "
    @ 05,02 prompt " 2 - Impressao  "
    @ 06,02 prompt " 3 - Exclusao   "
    menu to opc

    if lastkey() = K_ESC
       exit
    endif

    tela_ant=SaveScreen(00,00,24,79)
    do case
       case opc = 1
          do exp()     // CHAMA A FUNCAO
       case opc = 2
          do sis3()     // CHAMA A FUNCAO
       case opc = 3
          do sis4()     // CHAMA A FUNCAO
       endcase
    endif

    RestScreen(00,00,24,79,tela_ant)
enddo
set color to
cls
RETURN

Abaixo usando a Visual Lib 2.0:

Código: Selecionar todos

#Include "visual2.ch"
#include "inkey.ch"

FUNC MENU
******************************************************************************
mBar := NewBarMenu()             // PROJETO MENU DE BARRAS
******************************************************************************
* Menu CADASTRO
mCad  := NewDownMenu()
* Menu FERRAMENTAS
mFER := NewDownMenu()
*****************************************************************************
AddDownItem( mCAD ,"Exemplos 001", "Exemplo de Teste 001", { || FUNCAO1() } )
AddDownItem( mCAD ) //cria uma linha que separa os menu
AddDownItem( mCAD ,"Exemplos 002", "Exemplo de Teste 002", { || FUNCAO2() } )
AddDownItem( mCAD ) //cria uma linha que separa os menu
AddDownItem( mCAD ,"Exemplos 003", "Exemplo de Teste 003", { || FUNCAO3() } )

*******************************************************************************
* MENUS PRINCIPAL
*******************************************************************************
AddBarItem( mBar, "C&adastro","Sistema de Cadastros", mCad ) // principal
AddBarItem( mBar, " &Util",            "Manutencao do Sistema" )   //principal
BarMenu( mBar )

Tche, qualquer duvida posta ai..

Abraços
Leonardo Machado