HELP no xharbour

[luiz machado]

Estou migrando uma aplicação Clipper para xHarbour, entretanto o HELP (F1 no Clipper) não está funcionando. Alguem tem alguma dica?o

[joaoalpande]

Bom dia ,

Não Sei se entendi bem a dúvida mas para usar as teclas de função usa a função SETKEY e veja os códigos no inkey.ch

SETKEY( K_F1, { || teste() } )
#define K_F1 28 // Está no inkey.ch

melhores cumprimentos

João ALpande

[sygecom]

Bem vindo ao Forum Luiz,

Post um pequeno exemplo e como está usando e qual versão do xharbour.

[Toledo]

Amigos, no Clipper a tecla F1 já vem pré programada para executar uma função chamada HELP. Então se no seu programa existe a função HELP(), não é necessário usar o comando SETKEY para determinar que a tecla F1 execute esta função.

Luiz, fiz um teste aqui com o xHarbour/BCC e também com o Harbour/MingW e a tecla F1 chama mesmo a função HELP().

Meu teste foi bem simples:

Código: Selecionar todos

Proc Main()
cls
vCod:=spac(6)
@ 10,10 say "Codigo..:" get vCod
read
retu

proc help()
@ 20,10 say "Help foi chamado..."
retu

Abraços,