BUG: Can't Enter Period in a Text Box with Scientific Notation (138607)

MORE INFORMATION

Numbers displayed in scientific notation are treated as text. If you place a picture clause on the text box that displays numbers in scientific notation, a conflict between the two formats is created. You may enter numeric data but as soon as you enter a period, focus is removed from the text box.

Steps to Reproduce Problem

Run the following program, which demonstrates the behavior described in the SYMPTOMS section:

   Sample Code
   -----------
				

   *-- Create an array from which to load records in a table.
   LOCAL ARRAY aBunchONums[3,1]
   *-- Create a table
   CREATE TABLE testtube FREE (number n(14,4))
   *-- Load three records in the table with random numbers.
   =RAND(-1)
   FOR i = 1 to 3
        aBunchONums[i] = RAND()*SECONDS()*VAL(sys(11, date()))/100
   ENDFOR
   APPEND FROM ARRAY aBunchONums
   GO TOP
   *-- Instantiate a form based on custom form class, TestForm.
   frmMyForm = CREATEOBJECT("TestForm")
   *-- Add a textbox to the form with format and picture clause.
        frmMyForm.addobject("txbFooBox", "TEXTBOX")
             WITH frmMyForm.txbFooBox
                  .ControlSource = "testtube.number"
                  .Format        = "KZ^"
                  .InputMask     = "999999999.9999"
                  .Top           = 10
                  .Left          = 10
                  .Visible       = .T.
                  .Width         = 120
             ENDWITH
   *-- Display the form.
   frmMyForm.show

   READ EVENTS

   *-- Define a custom class based on the FORM baseclass.
   DEFINE CLASS TestForm AS FORM
     CAPTION     = "Period Test"
     AUTOCENTER  = .T.
     HEIGHT      = 120
     WIDTH       = 140
   *-- Add command button to move between records.
        ADD OBJECT cmdNext AS COMMANDBUTTON ;
            WITH ;
            TOP            = 50, ;
            LEFT           = 20, ;
            HEIGHT         = 24, ;
           CAPTION        = "Next"
   *-- Add command button to exit the program (form).
       ADD OBJECT cmdQuit AS COMMANDBUTTON ;
            WITH ;
            TOP            = 80, ;
            LEFT           = 20, ;
            HEIGHT         = 24, ;
            CAPTION        = "Quit"
   *-- Add custom code to the Click event of cmdNext.
       PROCEDURE cmdNext.click
            SKIP
            IF EOF()
               GO TOP
            ENDIF
            THISFORM.REFRESH
       ENDPROC
   *-- Add custom code to the Click event of cmdQuit.
        PROCEDURE cmdQuit.click
            THISFORM.Release
            CLEAR EVENTS
       ENDPROC

  ENDDEFINE

  *-- End custom class definition.
   *-- End program.
				

When you run this program, press the TAB key to move to the text box and enter numbers. If you attempt to enter a period in the text box at any time, the focus is moved immediately to another object on the form.