Init Method
Class: tstextbox
Expand/Collapse source code of procedure Init Source Code
*-- (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