Página 1 de 1

VISUAL LIB NAO RESTAURA TELA

Enviado: 21 Mar 2007 06:19
por andrethomazi
Amigos, reparem na estrutura do meu MENU PRINCIPAL (COM VL)
*====>>> PRINCIPAL
clea
do tela with 'MENU PRINCIPAL','MENU ',nomeemp
continua=.t.
do while continua()
aenv=savenv(00,00,24,79)
atalhos() // configura teclas ALT+letra para atalhos
barmenu(mbar,2)
rstenv(aenv)
vejabkp()
enddo

function atalhos()
set key K_ALT_P to sca_0210
set key K_ALT_X to sca_0090...

-------------------------------------------
problemas:
1) ocorre que quando entro numa opcao qualquer do menu, que abre sub-opcoes se eu pressionar F10 (que entra num prg que muda de operador ativo), ao restaurar a tela, desaparece o menu (mensmo com aenv salvando a tela). O programa volta no estado anterior, mas o menu desaparece;
2) nas teclas de atalhos, quando dou um Alt+letra, ele obedece o atalho e executa o programa definido, mas ao sair, também nao restaura a tela. Ele fica na tela do programa, com as funçoes ativas do menu e voce só visualiza o menu, se correr as teclas à esquerda e direita para o programa restituir o menu.

animar

Enviado: 21 Mar 2007 20:46
por andrethomazi
sou um animar mesmo.
o item 1 tá resolvido, mas o 2 tá dando um trabalhão.

Enviado: 22 Mar 2007 08:51
por ederxc
vc esta usando SAVESCREEN e RESTSCREEN ??


Quando vc aperta a tecla para chamar a função coloque como primeiro comandoda função assim:

tela=savescreen(00,00,25,80)

e antes do return vc coloca

restscreen(00,00,25,80,tela)


espero que isso o ajude !