xBrowse - lFastEdit (not respected by browse)

[nageswaragunupudi]

Any key press should trigger edit of a cell only when oBrw:lFastEdit is set to .T.. When lFastEdit is set to false, only pressing Enter key or Double Click should invoke the edit.

Presently xBrowse ignores lFastEdit data and triggers edit on any keypress.
Also only alphanumeric keys only trigger edit. For numeric columns '-' (minus) also should trigger edit.

Suggested modification is to change the following line in Otherwise clause in KeyPress method:

Code: Select all

OldCode:
         If ::nMarqueeStyle <= MARQSTYLE_HIGHLCELL .and. oCol:nEditType > 0 .and. ;
            ( IsAlpha( cKey ) .or. IsDigit( cKey ) )
            oCol:Edit( nKey )

NewCode:

         If ::lFastEdit .and. ::nMarqueeStyle <= MARQSTYLE_HIGHLCELL .and. oCol:nEditType > 0 .and. ;
            ( IsAlpha( cKey ) .or. IsDigit( cKey ) .or. cKey == '-' )
            oCol:Edit( nKey )

It would be even nicer if the trigger keys are decided on the basis of the valtype of the editvalue. Code would be longer but it is worth.

In addition to Enter and DoubleClick, F2 also may be added to the trigger keys to make xBrowse behave like Excel, which many users are accustomed to.

[Antonio Linares]

> ::lFastEdit ... cKey == '-'

Added. Thanks!