Class: | tstextbox |
*-- (c) Microsoft Corporation 1995 *- don;t overwrite specific inputmasks IF TYPE(this.ControlSource) = "C" AND EMPTY(this.InputMask) this.InputMask = REPLICATE("X", ; FSIZE(SUBSTR(this.ControlSource, AT(".", this.ControlSource) + 1))) ENDIF