FIX: Unexpected Results Display With Input Mask (191503)

MORE INFORMATION

The InputMask property of fields and controls restricts or dictates the format of user input. In Visual FoxPro 5.x, if a text box has a numeric field in a table as a ControlSource and the InputMask property of the text box is set to 999,999.99, entering a number with three or less digits to the left of the decimal causes an additional zero to remain immediately to the left of the decimal point. Entering numbers with four or more digits to the left of the decimal point do not cause the problem with the extra zero.

Steps to Reproduce Behavior

1. Enter the following code into a program file and save the program:

         PUBLIC oform1
         CREATE TABLE xjunkpr FREE (f1 N(10,2))
         oform1=CREATEOBJECT("form1")
         oform1.Show
         RETURN
   
         **************************************************
         *-- Form:         form1
         *-- ParentClass:  form
         *-- BaseClass:    form
         *
         DEFINE CLASS form1 AS form
   
            Top = 0
            Left = 0
            DoCreate = .T.
            Caption = "Form1"
            Name = "Form1"
   
         ADD OBJECT command1 AS commandbutton WITH ;
            Top = 168, ;
            Left = 240, ;
            Height = 73, ;
            Width = 121, ;
            Caption = "Quit", ;
            TabIndex = 5, ;
            Name = "Command1"
   
         ADD OBJECT command2 AS commandbutton WITH ;
            Top = 24, ;
            Left = 240, ;
            Height = 73, ;
            Width = 121, ;
            Caption = "New Record", ;
            TabIndex = 1, ;
            Name = "Command2"
   
         ADD OBJECT text1 AS textbox WITH ;
            ControlSource = "xjunkpr.f1", ;
            Format = "", ;
            Height = 25, ;
            InputMask = "999,999.99", ;
            Left = 24, ;
            TabIndex = 2, ;
            Top = 24, ;
            Width = 168, ;
            Name = "Text1"
   
         ADD OBJECT command3 AS commandbutton WITH ;
            Top = 168, ;
            Left = 24, ;
            Height = 49, ;
            Width = 73, ;
            Caption = "Prior", ;
            TabIndex = 4, ;
            Name = "Command3"
   
         ADD OBJECT command4 AS commandbutton WITH ;
            Top = 168, ;
            Left = 120, ;
            Height = 49, ;
            Width = 73, ;
            Caption = "Next", ;
            TabIndex = 3, ;
            Name = "Command4"
   
         PROCEDURE command1.Click
            Thisform.Release
         ENDPROC
   
         PROCEDURE command2.Click
            APPEND BLANK
            Thisform.Refresh
         ENDPROC
   
         PROCEDURE command3.Click
            SKIP -1
            IF BOF()
               GO TOP
            ENDIF
            Thisform.Refresh
         ENDPROC
   
         PROCEDURE command4.Click
            SKIP 1
            IF EOF()
               GO BOTTOM
            ENDIF
            Thisform.Refresh
         ENDPROC
   
         ENDDEFINE
         *
         *-- EndDefine: form1
         **************************************************
   							

2. Run the program.
3. Click (or press ENTER) the New Record button to add a new record to the table.
4. Press Tab once to move the cursor to the text box.
5. Enter a number with a decimal point, for example, enter "5.25" (without the quotes).
6. Note that once the first digit it entered, 0.00 appears at the right end of the text box. Then when the decimal is entered, the digit and leading zero remain and the insertion point moves to the right of the decimal.