*-- KeyPress Method LPARAMETERS nKeyCode, nShiftAltCtrl If nKeyCode=127 and oEnv.oSettings.BackSpaceBehavior = 0 and ; This.SelLength = 0 And ; This.SelStart = iif(ltrim(This.InputMask) = "(", 1, 0) NoDefault EndIfI couldn't resist modifying the code:) Net result is same (set exact off - default).
> >*-- KeyPress Method >LPARAMETERS nKeyCode, nShiftAltCtrl > >If This.KeyPressNoDefault( nKeyCode, nShiftAltCtrl ) > NoDefault >EndIf > >*-- KeyPressNoDefault Method >LPARAMETERS nKeyCode, nShiftAltCtrl >Local llRet > >llRet = .F. >If oEnv.oSettings.BackSpaceBehavior = 0 > If Vartype(nKeyCode) = "N" And This.SelLength = 0 AND nKeyCode=127 > If Substr(Alltrim(This.InputMask),1,1) = "(" > IF This.SelStart = 1 > llRet = .T. > Endif > Else > IF This.SelStart = 0 > llRet = .T. > Endif > EndIf > EndIf >EndIf > >Return llRet >>
*keypress >>LPARAMETERS nKeyCode, nShiftAltCtrl >>If this.SelStart=0 and nKeyCode=127 >> NoDefault >>endifCetin