[fpc-pascal] Free Vision PPXPictureValidator - Runtime Error 216

[Kevin Monceaux]

Pascal Fans,

With a Free Vision validator such as:

    Field^.SetValidator(New(PPXPictureValidator,
        Init('&&&-####', True)));

I'm getting a runtime error 216 when attempting to validate the field if it
contains invalid data.  I also get a runtime error 216 if I tab into the
field and type an invalid character for the first position while the
previous contents of the field is selected.  If I delete the previous value
in the field before typing an invalid first character, the runtime error
doesn't occur.

This is an example from Chapter 5 - Creating a data-entry screen in the
Turbo Vision Version 2.0 Programming Guide.  Example source code is
attached.


-- 

Kevin
http://www.RawFedDogs.net
http://www.Lassie.xyz
http://www.WacoAgilityGroup.org
Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Tutor08c.pas
Type: text/x-pascal
Size: 16723 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20200213/8054e7bb/attachment-0002.pas>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: TutConst.pas
Type: text/x-pascal
Size: 449 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20200213/8054e7bb/attachment-0003.pas>