Vi o manual, mas naum vi nada que pudesse me ajudar m meu problema.
Criei um menu (usando o PROMPT) no meu sistema (com a visual Lib), mas o ESC não abandona o prompt (vide fonte abaixo). Ja coloquei Set Escape ON e tb não deu certo. Uso Clipper 5.3 com Exospace. Alguem ja passou por isso?
#include 'llibg.ch'
#include 'llibgtoo.ch'
#include 'inkey.ch'
Local lMouseVisible, PgtGetList := GetList, xtelpgt:=SAVESCREEN(,,,),;
oLLPgt:= Nil, vpodesair:=.t.
If sUtl <> "S"
Alert ("USUARIO SEM LIBERACAO PRA UTILITARIOS")
Close All
Return .T.
Endif
oLLPgt := LLWindow():New( 6, 3, 28, 76,'', "Utilitarios")
oLLPgt:Open()
gframe(32,109,608,130,7,15,8,3,3,3,3,LLG_MODE_SET,LLG_FRAME) // frame da Quantidade
lMouseVisible := mSetCursor(.T.)
@ 07,10 PROMPT " Manutencao "
@ 07,60 PROMPT " FIM "
Set Escape ON
MENU TO mp
If Lastkey()=K_ESC
///Aqui não esta entrando...
RESTSCREEN(,,,,xTelpgt)
Return .T.
Endif
DO CASE
CASE mp=1
oLLSen := LLWindow():New( 07,03,13,35,'', "MANUTENCAO")
oLLSen:Open()
SetCursor(1)
OP=1
@ 08,04 PROMPT "1.Gera Backup Geral dos Dados"
@ 09,04 PROMPT "2.Restaura Backup de Dados "
@ 10,04 PROMPT "3.Manuten‡Æo De Senha "
@ 11,04 PROMPT "4.Rotina de Cria‡Æo Empresas "
@ 12,04 PROMPT "5.Cria/Atualiza Indices Geral"
TELA04 = SAVESCREEN (00,00,23,79)
MENU TO OP
If Lastkey() = K_ESC
RESTSCREEN(,,,,xTelpgt)
Return .T.
Endif
DO CASE
CASE OP=1
CASE OP=2
CASE OP=3
CASE OP=4
CASE OP=5
ENDCASE
CASE mp=2
RESTSCREEN(,,,,xTelpgt)
Return .T.
ENDCASE
RESTSCREEN(,,,,xTelpgt)
RETU