Como manter o comportamento do lastkey no xharbour igual ao clipper, ou seja, quando pressiono ESC num get dentro de um dbedit o Xharbour manda a tecla para o dbedit fechando o mesmo, no clipper isso nao ocorre
segue fonte em clipper e em xharbour:
// clipper
clear
use arquivo
do whil .t.
dbedit(02,2,20,40,campo,"funcao","@!","campo")
if lastkey() = 27
exit
endi
endd
clear
func funcao
parameters sta,nrvt
priva ret_db,lk
a = 0
do whil a = 0
lk = lastkey()
ret_db = iif(lk=27,0,1)
do case
case sta = 1
ret_db = 2
exit
otherwise
if lk = 13
save scre to telget
nada = space(5)
@ 10,20 say "Entrar com dados" get nada
read
rest scre from telget
if lastkey() = 27 .or. lastkey() = 5 .or. lastkey() = 24
exit
endi
endi
endcase
exit
enddo
return ret_db
// Xharbour
func main
clear
use arquivo
do whil .t.
dbedit(02,2,20,40,campo,"funcao","@!","campo")
if lastkey() = 27
exit
endi
endd
clear
return
func funcao
parameters sta,nrvt
priva ret_db,lk
a = 0
do whil a = 0
lk = lastkey()
ret_db = iif(lk=27,0,1)
do case
case sta = 1
ret_db = 2
exit
otherwise
if lk = 13
save scre to telget
nada = space(5)
@ 10,20 say "Entrar com dados" get nada
read
rest scre from telget
if lastkey() = 27 .or. lastkey() = 5 .or. lastkey() = 24
exit
endi
endi
endcase
exit
enddo
return ret_db
problema com lastkey
Moderador: Moderadores
?
