Peguei uma funcao aqui no CLIPPER ONLINE, para poder usar o Mouse, com a Lib CLIPMOUS, e ficou muito bom.
A pergunta que faço é a seguinte:
Como que devo fazer o .prg para usar simultaneamente o Mouse e o Menu to Prompt ?
Vejam abaixo o meu .prg, e se possivel, me ajudem.
Muito obrigado.
Rosalvo.
Procedure MenuRelat
TelMenRel()
OK = Minit() && mouse initialization
set cursor off
Mshow() && show mouse cursor
nMouse:= 0
opcao:= 0
Do While (.T.)
If My() = 06 .and. Mx() < 20 .and. Mbout() > 3
set cursor on
** relven()
nMouse:= 1
Elseif My() = 07 .and. Mx() < 20 .and. Mbout() > 3
set cursor on
** relmerc()
nMouse:= 1
Elseif My() = 08 .and. Mx() < 20 .and. Mbout() > 3
set cursor on
Exit
EndIf
Menu to opcao
Do Case
Case opcao = 1
** relven()
nMouse:= 1
Case opcao = 2
** relmerc()
nMouse:= 1
Case opcao = 3
** relmerc()
set cursor on
Exit
EndCase
If nMouse = 1
TelMenRel()
Mend() && remove mouse support
OK = Minit() && mouse initialization
set cursor off
Mshow() && show mouse cursor
nMouse:= 0
EndIf
EndDo
Mend() && remove mouse support
Return
***************************************************8
Func TelMenRel()
Clear Screen
Set Color To ("w+/b+, w+/rd+, b, ,n+/w")
@ 1, 1 To 3, 78 Double
@ 2, 3 Say padc(" RELATORIOS DE VENDAS ", 74)
@ 4, 21 To 23, 78 Double
@ 4, 1 To 12, 20 Double
@ 5, 2 Prompt " 1 - VENDAS "
@ 6, 2 Prompt " 2 - MERCADORIAS "
@ 7, 2 Prompt " 3 - RETORNAR "
***************************************************8