>There is a condition in the txtField class Init():
>
>
>IF TYPE(This.ControlSource)='C'
> This.InputMask='!'+REPLICATE('X',LEN(EVALUATE(This.ControlSource))-1)
>ENDIF
>
>
>What would be the best approach to update this condition to take care of not executing this code if I have overwrited the value of the InputMask?
You could add a flag to the class to AutoSet the Input Mask.
Add a custom property: AutoSetInputMask
set it's value to .t.
Class Init:
IF TYPE(This.ControlSource)='C' and this.AutoSetInputMask
This.InputMask='!'+REPLICATE('X',LEN(EVALUATE(This.ControlSource))-1)
ENDIF
Now just set AutoSetInputMask to false and you can make the InputMask whatever you want.
Roi
'MCP' Visual FoxPro
In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!