******************************************************************** * Description.......: NumericTextBox.GotFocus * Calling Samples...: * Parameter List....: * Created by........: Marcia Akins * Modified by.......: ******************************************************************** with this *** Save the original input mask if .parent.class = 'column' .InGrid = .t. .cOldInputMask = .parent.inputmask *** Remove separators from input mask .parent.inputmask = strtran( .cOldInputMask, ',', '' ) else .cOldInputMask = .inputmask *** Remove separators from input mask .inputmask = strtran( .cOldInputMask, ',', '' ) endif if .selectonentry textbox::gotfocus() .selstart = 0 .sellength = 999 nodefault endif endwith
******************************************************************** * Description.......: NumericTextBox.LostFocus * Calling Samples...: * Parameter List....: * Created by........: Marcia Akins * Modified by.......: ******************************************************************** if this.InGrid this.parent.InputMask = this.cOldInputMask else this.InputMask = this.cOldInputMask endif