Numeric masked TEXTBOX problem

Moderator: Rathinagiri

Post Reply
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Numeric masked TEXTBOX problem

Post by esgici »

Hello

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 
Regards and sorry for delayed report :(

--

Esgici
Viva INTERNATIONAL HMG :D
User avatar
Roberto Lopez
HMG Founder
Posts: 4004
Joined: Wed Jul 30, 2008 6:43 pm

Re: Numeric masked TEXTBOX problem

Post by Roberto Lopez »

esgici wrote:Hello

For numbers less than 1,

when user press point key, as FIRST keystroke,

subsequent digit key doesn't have any effect.
I'll review it ASAP.

Thanks for the report.
Regards/Saludos,

Roberto


(Veritas Filia Temporis)
Post Reply