>local nCancelTop, nCancelHeight, nCancelLeft, nCancelWidth, llReturn, lnMousePosY, lnMousePosX >lnMousePosY = mrow(thisform.name,3) >lnMousePosX = mcol(thisform.name,3) >with thisform.pgPatient.pages(thisform.pgPatient.activepage) > nCancelTop = OBJTOCLIENT(.cmdCancel, 1) > nCancelBottom = m.nCancelTop + OBJTOCLIENT(.cmdCancel, 4) > nCancelLeft = OBJTOCLIENT(.cmdCancel, 2) > nCancelRight = m.nCancelLeft + OBJTOCLIENT(.cmdCancel, 3) >endwith > >llReturn = .f. > >if between(m.lnMousePosY,m.nCancelTop,m.nCancelBottom) and ; > between(m.lnMousePosX,m.nCancelLeft,m.nCancelRight) and ; > mdown() > llReturn = .t. >endif > >return m.llReturn or lastkey()= 46 or thisform.releasetype = 1 && Alt+C (shortcut for Cancel)