For numbers less than 1,
when user press point key, as FIRST keystroke,
subsequent digit key doesn't have any effect.
For example, if user press FIRST point, and than 1 and 2,
TEXTBOX display ".2" no "0.12"
No problem, if user press FIRST zero, than point and than digits.
This problem like appeared first in HMG 3.00 XII, in HMG 3.00 XI is OK.
Code: Select all
#include <minigui.ch>
PROC Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 380 HEIGHT 250 ;
TITLE 'Numeric masked TEXTBOX test' ;
MAIN
ON KEY ESCAPE ACTION Form_1.Release
DEFINE TEXTBOX Text_1
ROW 50
COL 80
WIDTH 120
HEIGHT 24
ONENTER Form_1.Text_2.SetFocus
INPUTMASK "999.9"
NUMERIC .T.
END TEXTBOX
DEFINE TEXTBOX Text_2
ROW 100
COL 80
WIDTH 120
HEIGHT 24
ONENTER Form_1.Text_3.SetFocus
INPUTMASK "999.99"
NUMERIC .T.
END TEXTBOX
DEFINE TEXTBOX Text_3
ROW 150
COL 80
WIDTH 120
HEIGHT 24
ONENTER Form_1.Text_1.SetFocus
INPUTMASK "999.999"
NUMERIC .T.
END TEXTBOX
END WINDOW
Form_1.Center
Form_1.Activate
RETU
--
Esgici