Parse or Print textbox text with wordwrap

[BRENT GARDNER]

My program has a large textbox for user to enter comments, and the
style uses wordwrap. Great for user, but when I try to print, there are
no $CRLF's to use with a Parse$ routine? How does one print on paper
the exact image in textbox without being able to parse?

Thanks

Brent

[Michael Mattias]

Ask the control:
Send EM_GETLINECOUNT and EM_GETLINE messages.

[BRENT GARDNER]

Found in help file:

CONTROL SEND hDlg, %IDT_TEXT, %EM_GETLINECOUNT, 0,0 TO mResult
CONTROL SEND hDlg, %IDT_TEXT, %EM_FMTLINES, %TRUE, 0 TO mResult   'LINE NBR, 0

The first message returns the correct number of lines.
The Second message does NOT insert "$cr+$cr+$lf" like it is
supposed to do? Stumped!

[BRENT GARDNER]

Works Now!
Soft return constant:
$Softret = CHR$(13)+CHR$(13)+CHR$(10)
In Sub Print Routine:

   
  UpdateToDialog hDlg, N
  CONTROL SEND hDlg, %IDT_TEXT, %EM_FMTLINES, %TRUE, 0
  CONTROL GET TEXT hDlg, %IDT_TEXT TO RC6$
     FOR i& = 1 TO 2  
      IF i& = 1 THEN
       RC6A$ =  RTRIM$(PARSE$(RC6$, $Softret, i&))
      ELSEIF i& = 2 THEN
       RC6B$ =  RTRIM$(PARSE$(RC6$, $Softret, i&))
	END IF

OK, now what if user inadvertently presses the <enter> key?
Then routine will not parse correctely?

[BRENT GARDNER]

Seems to work correctly if I remove style %ES_WANTRETURN.
I use this style for textbox control:

 %ES_NOHIDESEL OR %ES_AUTOVSCROLL OR %ES_MULTILINE OR %ES_LEFT _
 OR %ES_WANTRETURN OR %WS_TABSTOP

Instead of removing style %ES_WANTRETURN, use: REPLACE, before printing.
' Allows use of <enter> key so user can start a new line without having to space to end.
$Softret = CHR$(13)+CHR$(13)+CHR$(10)
REPLACE $CR+$LF WITH $SoftRet IN RC6$

[Michael Mattias]

>Seems to work correctly if I remove style %ES_WANTRETURN.

I get that a lot: Things work correctly when you read and obey the documentation.

[Gösta H. Lovgren-2]

Ouch! Boy, I felt that one all the way over here in New Jersey (the real home of the NFL World Champion Giants, by the way).