Página 1 de 1
HELP no xharbour
Enviado: 29 Jun 2012 00:30
por 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
HELP no xharbour
Enviado: 29 Jun 2012 06:41
por 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
HELP no xharbour
Enviado: 29 Jun 2012 11:44
por sygecom
Bem vindo ao Forum Luiz,
Post um pequeno exemplo e como está usando e qual versão do xharbour.
HELP no xharbour
Enviado: 29 Jun 2012 12:57
por 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,