FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for CA-Clipper monitoring key stroke inside tget object.
Posts: 100
Joined: Wed Oct 04, 2006 04:50 PM
monitoring key stroke inside tget object.
Posted: Tue Jan 30, 2007 12:13 AM

hi all,

Is there a way to monitor a keytroke in a tget object? Similar to bkeydown in dialogs.

Thanks!

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
monitoring key stroke inside tget object.
Posted: Tue Jan 30, 2007 08:21 AM

You can do it exactly in the same way:

oGet:bKeyDown := { | nKey, nFlags | ... }

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 100
Joined: Wed Oct 04, 2006 04:50 PM
monitoring key stroke inside tget object.
Posted: Tue Jan 30, 2007 04:05 PM

Hi antonio,

I tried the following, but my function is not called.

oCtrl := CGet():New(edRowREDUCE13

Ctrl:oGet:bKeyDown :={|nkey,nflags,oCtrl|ls_keyd2(nkey,nflags,octrl)} // jdd

Thanks.

Posts: 100
Joined: Wed Oct 04, 2006 04:50 PM
monitoring key stroke inside tget object.
Posted: Tue Jan 30, 2007 04:58 PM

Hi antonio,

oCtrl := tGet():New(.....)
oCtrl:oGet:Name="some name"
msginfo(oCtrl:oGet:Name) <---- it is okay to this code

oCtrl:oGet:bKeyDown :={|nkey,nflags|ls_keyd2(nkey,nflags)} <-- getting an no method get: _bkeydown

Thank you very much.

Jose

Here's actual code:
oCtrl := tGet():New(edRowREDUCE13,;
((if(edCol==1,1,40)+nMaxLen-1)*4)-nWidth,;
bField,oDlg,nWidth,10,edPic,;
if(edVal==NIL,NIL, &( "{|self|" +edVal +"}" ) ),;
,,oFont,.f.,,.t.,edFld,.t.,if(edPmt=" ",{||.f.},{||.t.}),;
.f.,valtype(eval(bField))="N",,.f.,lEncrypted)

              oCtrl:oGet:Name := edFld

***** // jdd
oCtrl:oGet:reader :={|oGet|ls_trapKey(oGet)}

              *aadd(memvar-&gt;xoctrl,oCtrl)
                      *msginfo(valtype(memvar-&gt;xoctrl)) 
                                msginfo(oCtrl:oGet:Name)

                        oCtrl:oGet:bKeyDown :={|nkey,nflags|ls_keyd2(nkey,nflags)} // jdd
                        msginfo(valtype(oCtrl:oGet:bKeyDown))

*** // jdd

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
monitoring key stroke inside tget object.
Posted: Tue Jan 30, 2007 05:06 PM

Jose,

Use oCtrl:bKeyDown (not oCtrl:oGet:bKeyDown)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion