1c3e9b14ca
METHOD ::ParsePict() - The change is because if ::Original it is not
numeric, it would generate an error.
METHOD ::Undo() - Delete assignment to ::buffer because
::VarPut( ::Original, .t. ) makes this assignment.
METHOD ::VarPut() - Delete ::nDispLen := NIL line, because
::Picture() makes this assignment.
- Revert changes of Ignacio Ortiz because the
problem was with ::nDispLen and not with empty cPicture.
METHOD ::Block() - Delete ::nDispLen := NIL line, because
::Picture() makes this assignment.
METHOD ::Picture() - Add ::nDispLen := NIL line, reset the variable.
Only ::ParsePict() can load a value that can differ of
nMaxLen.
METHOD ::KillFocus() - Change position of lines, hasfocus should be
before the call to Putmask.
This makes that in numeric fields, points or comas are not
shown before the numbers.