>>******************************************************************** >>* Description.......: CancelValidation >>* Calling Samples...: >>* Parameter List....: >>* Created by........: John Koziol >>* Modified by.......: >>******************************************************************** >>local nCancelTop,nCancelHeight,nCancelLeft,nCancelWidth, llReturn >>nCancelTop=thisform.cmdCancel.top >>nCancelBottom=m.nCancelTop+thisform.cmdCancel.height >>nCancelLeft=thisform.cmdCancel.left >>nCancelRight=m.nCancelLeft+thisform.cmdCancel.width >>llReturn = .f. >>if between(mrow(thisform.name,3),m.nCancelTop,m.nCancelBottom) and ; >> between(mcol(thisform.name,3),m.nCancelLeft,m.nCancelRight) and ; >> mdown() >> llReturn = .t. >>endif >>return m.llReturn or lastkey()= 46 && Alt+C (shortcut for Cancel)>>