Mervyn Bick <firstname.lastname@example.org>
||Mon, 1 Oct 2018 07:37:58 +0200
On 2018-09-30 4:48 PM, Mustansir Ghor wrote:
> Dear Mervyn
> There was issue with error that resulted from ENTRYFIELD, I am now
> realising importance of question asked below by you. It can be the problem.
> The error comes when first digit is entered. Later even after emptying
> the entryfield and re entering first the digit the error does not
> appear. If I enter first time a character the error does not appear
> although the character is not accepted due to picture function
> The ENTRYFIELD is
> 1. Entry field is on its own
> 2. It value property is assign as character
> 3. Enryfield expects digits
> 4. The error arises on entering the first character which happens to be
> a digit.
> 5. Entryfield is not custom control
> 6. Entry fields is not datalinked
> 7. Entry field picture propery is set "99999"
> 8. Event handlers associated with this object were put in this thread
I've used the constructor code you posted previously for the entryfield
and its onKey event handler in a little test form.
I'm afraid I can't duplicate this problem using dBASE PLUS 12.30 b2585
(09/07/2018-EN180907) with Windows 10 Pro, 64-bit, version 1803.
Please try the little test form attached and see what it does.
** END HEADER -- do not remove this line
// Generated on 2018-10-01
f = new test_ef_pictureForm()
f.mdi = false // ensure not MDI
class test_ef_pictureForm of FORM
height = 16.0
left = 105.0
top = 0.0
width = 40.0
text = ""
this.ENTRYFIELD1 = new ENTRYFIELD(this)
onLostFocus = class::ENTRYFIELD1_ONLOSTFOCUS
onKey = class::ENTRYFIELD1_ONKEY
height = 1.3182
left = 12.0
top = 2.0
width = 11.0
picture = "999999"
fontSize = 14.0
value = " "
pageno = 0
this.ENTRYFIELD2 = new ENTRYFIELD(this)
height = 1.0
left = 13.0
top = 8.5
width = 8.0
value = "Entryfield2"
function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
if len(ltrim(this.value)) == 6