Sorry Martin to reply late but got bogged down. I gave your suggestions a try but they do not work, unsubstantiated but even the focused textbox will not change format/inputmask after the changes.
Thanks for helping. If you have a new idea please let me know.
>
LOCAL llRetVal
>DO CASE
> CASE "amount"$LOWER(THIS.COMMENT) OR "amt"$LOWER(THIS.COMMENT)
> THIS.INPUTMASK = goApp.GetSetting("General", "Amount Format", "99 99 99 999.99")
> THIS.Format = goApp.GetSetting("General", "Amount Format", "99R99R99R999.99")
>
>...
>ENDCASE
>
>IF THIS.PARENT.BASECLASS = "Column"
> THIS.PARENT.INPUTMASK = THIS.INPUTMASK
> THIS.PARENT.Format = THIS.Format
>ENDIF
>
>
>And:
>You can use: SET SEPARATOR TO ,
> or set Digit grouping symbol of the Windows Regional Options Control Panel (default is empty char, he he ), if you uses SET SYSFORMATS ON.
>
> MartinJ
>
>>I can send you the textbox class, let me know the address. It is based on the codebook so do you have a copy of it?
>>
>>>Can you send me form/classlib with code?
>>>
>>> MartinJ
>>>
>>>>Sorry Martin, it didn't work for me.
>>>>