cr/lf in a RichEdit Control

[tbohon]

OK, I am admittedly a bit slow this week - busy, busy, busy at work - but for the life of me I can't get a simple cr/lf inserted into a RE control.

Can someone take pity on a poor confused old man and straighten me out on this? 

Tnx.

Tom

[GWS]

Hello Tom .. 

I don't know if this is what you're after .. of course just pressing the Enter key during user text input does the same thing .. 

Code Select Expand


def w:WINDOW
def wstyle:int
def a:string

wstyle = @SIZE|@MINBOX|@MAXBOX

WINDOW w,50,50,800,600,wstyle,0,"Window Title",main
SETWINDOWCOLOR w,RGB(0,0,90)

CONTROL w,"B,Exit,(800-80)/2, 500, 80, 40, 0, 1"

control w,"RE,,(800-300)/2,100,300,200,@CTEDITMULTI|@CTEDITRETURN,2"
SETCONTROLCOLOR w, 2, 0, rgb(0,160,200)

setcontroltext w,2,"This is a very" + chr$(10) + "long line."

WAITUNTIL w = 0

END

SUB main
SELECT @CLASS
case @IDCLOSEWINDOW
closewindow w
' clicking the Exit button ...
case @IDCONTROL
select @CONTROLID
case 1
closewindow w
endselect
endselect
RETURN



best wishes,

Graham

[tbohon]

The chr$(10) was about the only thing I didn't try ... was looking for a predefined constant, tried chr$(13)+chr$(10) ...

Thanks, Graham - appreciate it.

Tom

"Getting old is not for wimps!"

[LarryMc]

"Getting old is not for wimps!"

My mother's version of that (when she had bypass surgery in her mid 70s) was
"Getting old is not for sissys"

Either way is true!

Larry