Teclas SET KEY não funcionam....
Enviado: 01 Dez 2008 12:47
Ola, mudei recentemente para o Clipper5.2e e Blinker 7.0 e estou refazendo ums codigos. Mas as teclas de atalho set key não funcionan...
coloquei assim:
Nenhuma chama uma LIB, são todas funções bem simples, tipo:
Mas o programa necas de chamar, não daeero mas não faz nada também....
coloquei assim:
Código: Selecionar todos
SET KEY K_F11 TO CALENDARIO(PROCNAME())
SET KEY K_ALT_F2 TO PROTG
SET KEY K_ALT_F1 TO bv_po
SET KEY K_ALT_C TO FIN2(PROCNAME())
SET KEY K_F12 TO CALCULADORA
SET KEY K_F5 TO print_fone()Código: Selecionar todos
****************************************
FUNCTION print_fone()
****************************************
IF !cOmprOt
RETURN
END
SET DEVICE TO PRINT
@ PROW()+1,02 SAY REPL('_',30)
@ PROW()+2,12 SAY fIrma
@ PROW()+1,02 SAY cLimt
@ PROW()+2,02 SAY REPL('_',30)
@ PROW() + _eJeTa,01 SAY ' '
SET DEVICE TO SCREEN