> DO CASE
> CASE nShiftAltCtrl = 0 ;
> and nKeyCode > 64 ;
> and nKeyCode < 91
> * Allow upper case letters
> CASE nShiftAltCtrl = 0 ;
> and nKeyCode > 96 ;
> and nKeyCode < 128
> * Force letters to uppercase
> * and pipe them back to the
> * above case
> NODEFAULT
> KEYBOARD upper(chr(lastkey()))
> ENDCASE
NHF, I hope, but this is impossible to localize this way. Remember that
there are many letters with ASCII/ANSI codes above 127. Just look at the
names on the UT, or take an example of any company doing business
overseas - you'll have lots of accented characters, and looking between
96 and 127 won't find them. Just try to see if it IsAlpha(), and it will
work for any installed code page.
BTW, this is more a generall remark - I've seen this kind of codepage
blindness other places too (in InGrid, I think). For a foreign user,
sometimes it looks just like a glitch, but it's greatly annoying in most
of the cases. Just couple days ago I wrote some note in OutL... LookOut,
and it let me type è (c caron), and when I've let the (title) field,
it converted it to simple c. Alt+f4, a candidate for deletion. I'll
probably write some organizer for myself in VFP.