Hi Tore,
Have you tested this ?
- I have doubts re reassigning nKeyCode
- I have doubts re directly applying chr(nkeycode). ie what if nkeycode < 0
>Hi
>
>A better solution for the keypress:
>
>do case
> case chr(nkeycode) <> upper(chr(nkeycode))
> NODEFAULT
> nKeyCode=asc(upper(chr(nkeycode)))
> DODEFAULT()
>endcase
>
>
>
>
>>>Hi everybody.
>>>1. How can I make the text in the edit box ‘Justify’ (like MS Word)?
>>>2. How can force the input in the edit box as upper case (like format ‘!’ for the text box)?
>>>
>>>Thanks and Regards,
>>>Yashodhan.
>>
>>
>>Yashodhan,
>>
>>(1) don;t think that is possible
>>
>>(2) since the ! format does not work, you could trap the char in the keypress event of the edit box. Code below seems to work
>>
>>** EditBox.KeyPress
>>LPARAMETERS nkeycode,nshiftaltctrl
>>
>>do case
>>case between(nkeycode, 0, 255) and inlist(nShiftAltCtrl, 0, 1)
>> do case
>> case chr(nkeycode) <> upper(chr(nkeycode))
>> NODEFAULT
>> keyboard upper(chr(nkeycode)) PLAIN
>> endcase
>>endcase
>>
Gregory