KEYBOARD NOT WORK WITH DBEDIT()

I try this to convert from Clipper 5.3 in Xharbour

set key 22 to opr1()
set key 7 to opr2()
set key 294 to opr3()
den1={"Nr Aviz","Beneficiar","Scoala","Grad","Total","Valoare"}
cimp={"nraviz","den","scoala","grad","total","valoare"}
pict={'Z 9999999999','@! XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX','@ZE
9,999','@ZE
9,999','@ZE 9,999','@ZE 99,999'}
@25,1 say padr("Ins-Adauga Enter-Modifica Del-Sterge
Alt+L-Listare",78) color "w+/n"
set color to w+/b,n/w,,,r+/b,w+/r
dbedit(4,1,24,78,cimp,,pict,den1)
set key 22 to
set key 7 to
set key 294 to

function opr1()
optn=1
?1
keyboard chr(13)
or
HB_KeyPut(13)
return nil

function opr2()
?2
optn=3
keyboard(chr(13))
return nil

function opr3()
optn=4
keyboard(chr(13))
return nil

but dbedit() not detect the keyboard(chr(13)) -Enter - Press
CLEAR TYPEHEAD not work

What it is the problem, in Clipper work perfect

Pavel,

>I try this to convert from Clipper 5.3 in Xharbour
> ...

Please do NOT use hard coded numeric values, instead please try using
inkey.ch CONSTANT ids. xHarbour extends Clipper KB interface to support more
keys and key combinitaions.

Ron

I try inkey.ch but dbedit() not work with ENTER key send from

KEYBOARD K_enter

"Ron Pinkas" <Ron_remove_this_@xHarbour.com> wrote in message
news:461aef96$0$21946$834e42db@reader.greatnowhere.com...
> Pavel,
>
>>I try this to convert from Clipper 5.3 in Xharbour
>> ...
>
> Please do NOT use hard coded numeric values, instead please try using
> inkey.ch CONSTANT ids. xHarbour extends Clipper KB interface to support
> more keys and key combinitaions.
>
> Ron
>

If I'm not wrong the correct line is
Keyboard Chr( K_ENTER )
Regards,
Marco

"Pavel Bogdan" <Infosoft@easynet.ro> ha scritto nel messaggio
news:461b8340$1$21946$834e42db@reader.greatnowhere.com...
> I try inkey.ch but dbedit() not work with ENTER key send from
>
> KEYBOARD K_enter
>
>
>
>
>
>
> "Ron Pinkas" <Ron_remove_this_@xHarbour.com> wrote in message
> news:461aef96$0$21946$834e42db@reader.greatnowhere.com...
> > Pavel,
> >
> >>I try this to convert from Clipper 5.3 in Xharbour
> >> ...
> >
> > Please do NOT use hard coded numeric values, instead please try using
> > inkey.ch CONSTANT ids. xHarbour extends Clipper KB interface to support
> > more keys and key combinitaions.
> >
> > Ron
> >
>
>

I try but don't work
Dbedit() not interact with set key XX to func()

"Marco" <boerig@libero.it> wrote in message
news:461b914c$0$21946$834e42db@reader.greatnowhere.com...
> If I'm not wrong the correct line is
> Keyboard Chr( K_ENTER )
> Regards,
> Marco
>
> "Pavel Bogdan" <Infosoft@easynet.ro> ha scritto nel messaggio
> news:461b8340$1$21946$834e42db@reader.greatnowhere.com...
>> I try inkey.ch but dbedit() not work with ENTER key send from
>>
>> KEYBOARD K_enter
>>
>>
>>
>>
>>
>>
>> "Ron Pinkas" <Ron_remove_this_@xHarbour.com> wrote in message
>> news:461aef96$0$21946$834e42db@reader.greatnowhere.com...
>> > Pavel,
>> >
>> >>I try this to convert from Clipper 5.3 in Xharbour
>> >> ...
>> >
>> > Please do NOT use hard coded numeric values, instead please try using
>> > inkey.ch CONSTANT ids. xHarbour extends Clipper KB interface to support
>> > more keys and key combinitaions.
>> >
>> > Ron
>> >
>>
>>
>
>

Pavel,

This works well for us... whenever we have a loop controlled
by an InKey() wait state.

*************************
FUNCTION KeyWait( nSecs )
*
* KeyWait( <nSecs> ) --> nInkeyCode
*
* Similar to INKEY(), except services SET KEYs
*

LOCAL nKey // INKEY() value to return
LOCAL bKeyBlock // Code block retrieved and performed
for nKey, if any

nKey := IIF(!ISNIL(nSecs), INKEY( nSecs ), INKEY() )

IF ( bKeyBlock := SETKEY( nKey ) ) != NIL
EVAL( bKeyBlock, PROCNAME( 2 ), PROCLINE( 2 ) )
ENDIF

RETURN( nKey )
*

Pavel Bogdan wrote:
> I try but don't work
> Dbedit() not interact with set key XX to func()
>
>
>
> "Marco" <boerig@libero.it> wrote in message
> news:461b914c$0$21946$834e42db@reader.greatnowhere.com...
>> If I'm not wrong the correct line is
>> Keyboard Chr( K_ENTER )
>> Regards,
>> Marco
>>
>> "Pavel Bogdan" <Infosoft@easynet.ro> ha scritto nel messaggio
>> news:461b8340$1$21946$834e42db@reader.greatnowhere.com...
>>> I try inkey.ch but dbedit() not work with ENTER key send from
>>>
>>> KEYBOARD K_enter
>>>
>>>
>>>
>>>
>>>
>>>
>>> "Ron Pinkas" <Ron_remove_this_@xHarbour.com> wrote in message
>>> news:461aef96$0$21946$834e42db@reader.greatnowhere.com...
>>>> Pavel,
>>>>
>>>>> I try this to convert from Clipper 5.3 in Xharbour
>>>>> ...
>>>> Please do NOT use hard coded numeric values, instead please try using
>>>> inkey.ch CONSTANT ids. xHarbour extends Clipper KB interface to support
>>>> more keys and key combinitaions.
>>>>
>>>> Ron
>>>>
>>>
>>
>
>

KEYBOARD NOT WORK WITH DBEDIT() - xharbour