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
>