Subject: | Re: Move to to Library
| Date: | Mon, 3 Dec 2018 11:34:30 +1000
| From: | Leslie <"ViaThe List"@NOSPAM.com>
| Newsgroups: | pnews.paradox-programming
|
Hi Kevin,
Assuming I am reading this correctly, then it appears you are limiting
the input to: 0 to 9 - space and ().
If I have got that wrong then ignore the rest of this reply, but if not.....
can I ask why you are not allowing a value such as 1300-TAXI in the
phone number field. These sorts of phone numbers are very common in
Australia and it is simple to convert a valid character to a number
should you ever need to dial-out.
Either way, forgive any ignorance as I am very weak in Paradox coding
nowadays.
Leslie.
On 1/12/2018 8:38 PM, Kevin Baker wrote:
> Hi Everyone,
>
> In a phone field I have the following code:
>
> =====================================================
> method keyChar(var eventInfo KeyEvent)
>
> var
> curChar string
> endvar
>
> curChar = eventInfo.char()
>
> switch
> case curChar >="0" and curChar <="9" :
> case curChar = "-" or curChar = " " :
> case curChar = "(" or curChar = ")" :
> case curChar = "VK_RETURN" :
> case curChar = "VK_TAB" :
> otherwise :
> disableDefault return
> endSwitch
> endMethod
> =====================================================
>
> This works PERFECT, however, I'd like to move this code to a existing
> library (and a library I already open on init or the form). Here's the
> updated code on the form:
>
> =====================================================
> method keyChar(var eventInfo KeyEvent)
>
> lib.ckPhone(eventInfo.char())
> endMethod
> =====================================================
>
> And this is the code in the library
> =====================================================
> method ckPhone(x string)
>
> switch
> case x >="0" and x <="9" :
> case x = "-" or x = " " :
> case x = "(" or x = ")" :
> case x = "VK_RETURN" :
> case x = "VK_TAB" :
> otherwise : disableDefault return
> endSwitch
> =====================================================
>
> I'm getting a error on the disableDefault (message in status bar reads:
> Error: Cannot use EVENT statement in this context)
>
> Any ideals of how to work around this? In a nutshell, when the code is
> on the field if the user presses any key not listed, nothing happens, no
> beeps, no error messages, which is what I need. I'm just trying to move
> this code into a library so I can reuse on other forms.
>
> Thanks,
> Kevin
---
This email has been checked for viruses by AVG.
https://www.avg.com
|