Página 1 de 1
Ajuda na LLIBG!
Enviado: 12 Jul 2007 09:21
por Paulosoft
Criei um menu (usando o PROMPT) no meu sistema (com a LLIBG), 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?
Código: Selecionar todos
#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
Enviado: 12 Jul 2007 11:19
por Dércio_Luiz_Zanatta
Pode parecer besteira, mas tente usar 27 no lugar de K_ESC..
Enviado: 12 Jul 2007 11:28
por Paulosoft
Já tentei... e não deu. O mais estranho é que a quantidade de Esc que eu pressiono no prompt é acionada logo após eu fecha-lo. Ex: se aperto ESC duas vezes no prompt e escolho uma opção qualquer ele usa ESC duas vezes na opção escolhida.
Enviado: 12 Jul 2007 11:32
por janio
Amigo, faço da maneira abaixo e tem funcionado a contento.
Código: Selecionar todos
mOp = 0
li := 06
ci := 03
lf := 20
cf := 32
JAN(li,ci,lf,cf,'MENU PRINCIPAL')
DO while .t.
set wrap on
@ li+02,ci+01 PROMPT "LANCAMENTO DE VENDAS "
@ li+03,ci+01 PROMPT "CADASTRA PRODUTOS "
@ li+04,ci+01 PROMPT "CADASTRA PRAZO DE VENDA "
@ li+05,ci+01 PROMPT "CADASTRA SUB-GRUPO PRODUTO"
@ li+06,ci+01 PROMPT "CADASTRA CLIENTE "
@ li+07,ci+01 PROMPT "CADASTRA CIDADE "
aMENU_PRI := SAVENV()
menu to mop
DO CASE
CASE LASTKEY() = 27
RSTENV(aSAV_GERAL)
GfntSet(aFonte[1])
RETURN .T.
CASE mop = 1
S03LPED1()
CASE mop = 2
S03CPRD1()
CASE mop = 3
S03CPRZ1()
CASE mop = 4
S03CSGP1()
CASE mop = 5
P16CCLI1()
CASE mop = 6
P16CCID1()
ENDCASE
ENDDO
RETURN .t.
Jânio
Re: Ajuda na LLIBG!
Enviado: 12 Jul 2007 15:39
por sygecom
Paulosoft escreveu:Criei um menu (usando o PROMPT) no meu sistema (com a LLIBG), 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?
Código: Selecionar todos
#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
Tche, em uma olhada rapida percebi que falta um
do while .T.
Veja abaixo um exemplo simples:
Código: Selecionar todos
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
Qualquer coisa prende o grito....
Abraços
Leonardo Machado
Enviado: 15 Jul 2007 11:43
por Stanis Luksys
OLá,
Ao invés de testar a tecla após o prompt, use direto no case...
DO CASE
CASE mp=1
....
CASE mp=2
...
OTHERWHISE
aqui sim os comandos após o ESC
Enviado: 17 Jul 2007 17:41
por Paulosoft
Resolvido. Era um setkey com k_esc no meu fonte principal. Obrigado a todos pela boa vontade.
