Hi all,

I'm having a problem with a custom class based on editbox. Basically, all properties are set to the VFP defaults. When the user presses Enter, I want the cursor to move to the next line in the box and allow the user to continue typing there. If the user positions the cursor in the middle of a line and presses Enter, I want the part of the line after the cursor to move down to the next line. The editbox works that way when there is no custom keypress method.

However, I have added the following code in the keypress:

LPARAMETERS nKeyCode, nShiftAltCtrl

LOCAL nInsert, cNewText, nStart
nInsert = THIS.SelStart
IF This.SelLength = 0
        nStart = MAX(nInsert,0)
ELSE
        nStart = MAX(nInsert,0)
ENDIF
DO CASE
	CASE nKeyCode = -4   && F5
		cNewText = LEFT(THIS.Value, nStart) + allt(userctrl.f5) + substr(THIS.Value, nStart+1)
		This.Value = cNewText	
		This.SelStart = nStart + Len(allt(userctrl.f5))
		NODEFAULT
	CASE nKeyCode = -5   && F6
		cNewText = LEFT(THIS.Value, nStart) + allt(userctrl.f6) + substr(THIS.Value, nStart+1)
		This.Value = cNewText	
		This.SelStart = nStart + Len(allt(userctrl.f6))
		NODEFAULT
	CASE nKeyCode = -6   && F7
		cNewText = LEFT(THIS.Value, nStart) + allt(userctrl.f7) + substr(THIS.Value, nStart+1)
		This.Value = cNewText	
		This.SelStart = nStart + Len(allt(userctrl.f7))
		NODEFAULT
	CASE nKeyCode = 48 .and. nShiftAltCtrl = 2			&& Cntl+0 pressed 
		* do nothing at all
		NODEFAULT 
	OTHERWISE
		DODEFAULT()
ENDCASE

and now the Enter key won't work properly. If I hit Enter, the cursor goes to the next line, but when I start typing again, the text comes out at the end of the previous line, instead of at the beginning of the new line.

I'm not capturing the Enter key, and I didn't want to change it's behavior. What did I do wrong?

TIA,
Jen