dcget mouse only

[bwolfsohn]

I have a dcget checkbox in the middle of a getlist. How do i restrict access to this get to the mouse only.. i.e. enter, tab, up and down arrows should skip this get...

TIA
Brian

[rdonnay]

I'll see if I can find a workaround for you and write a sample.

[rdonnay]

The best way to handle this is to add a new feature to eXpress++.
All eXpress++ GUI classes inherit from DC_XbaseParts(). This class now includes a new iVar: isNoEditNavKey

Assigning a .T. to this iVar will give you the behavior you want.
Changes were required to _DCGETBX.PRG and _DCCLASS.PRG (attached)

Code: Select all

#INCLUDE "dcdialog.CH"
#INCLUDE "appevent.CH"

FUNCTION Main()

LOCAL GetList[0], cGet, lGet, GetOptions

cGet := Space(10)
lGet := .f.

@ 0,0 DCGET cGet

@ 1,0 DCGET cGet

@ 2,0 DCGET lGet EVAL {|o|o:isNoEditNavKey := .t.}

@ 3,0 DCGET cGet

@ 4,0 DCGET cGet

DCGETOPTIONS CHECKGET

DCREAD GUI FIT TITLE 'Navigation Test' OPTIONS GetOptions ;

RETURN nil

* ---------

PROC appsys ; return