Possible to make CRLF of multiline gets visible ?

[ukoenig]

Hello,

is it possible to make the CRLF's of MULTILINE gets visible ?
Because I need structured gets for printing, I'm looking for a solution the user can
control the linefeeds. Maybe a color or < for the end of line.



best regards
Uwe

[anserkk]

What about using StrReplace(YourText,CRLF, "<LineFeed>") before displaying the content to the user and convert back to StrReplace(YourText, "<LineFeed>", CRLF) before saving to file

Just an idea.

Regards
Anser

[Carles]

Hi,

StrReplace(YourText,CRLF, "<LineFeed>" + CRLF )

[ukoenig]

Thank You very much for the info

my working solution :



Reading the multiline GET

aDat[90] := STRTRAN(("PATIENT")->MEDIKAM1, CRLF, "|")
aDat[91] := STRTRAN(("PATIENT")->MEDIKAM2, CRLF, "|")

Edit

REDEFINE GET oDat[90] VAR aDat[90] ID 610 ;
OF oFld:aDialogs[ 1 ] FONT oFontsys MULTILINE UPDATE
REDEFINE GET oDat[91] VAR aDat[91] ID 620 ;
OF oFld:aDialogs[ 1 ] FONT oFontsys MULTILINE UPDATE

saving the multiline GET
( force a CRLF at the end )

LOCAL cMedik1 := STRTRAN(aDat[90], "|", CRLF )
LOCAL cMedik2 := STRTRAN(aDat[91], "|", CRLF )
....
....
a missing CRLF at the end :

IF SUBSTR( aDat[90], LEN( TRIM( aDat[90] ) ) - 1, 1 ) <> CRLF
cMedik1 := TRIM( STRTRAN(aDat[90], "|", CRLF ) ) + CRLF
ELSEIF SUBSTR( aDat[91], LEN( TRIM( aDat[91] ) ) - 1, 1 ) <> CRLF
cMedik2 := TRIM( STRTRAN(aDat[91], "|", CRLF ) ) + CRLF
ENDIF
("PATIENT")->MEDIKAM1 := cMedik1
("PATIENT")->MEDIKAM2 := cMedik2

regards
Uwe

[James Bott]

Uwe,

In your resource editor have you checked both "Want Return" and "Multiline" for these fields? If you do this, then I don't think you need to do anything else--it will work like a wordprocessor so the user can see where the line ends.

In your code it looks like you are checking one character to see if it is CRLF, but CRLF is two characters.

James

[ukoenig]

James,

thank You

Yes it is the way I'm doing it.
There is only one situation : the user keeps on writing
and gets a auto-linebreak because of the get-width.
At the end, there is just one line, like the section of the printpreview shows.
But I think to cover every possible situaton is to much work.



best regards
Uwe

[James Bott]

Ewe,

I'm not sure I understand exactly what you are trying to accomplish.

If you are just concerned with the printer output, couldn't you just wordwrap the lines during printing?

I may have some old code to help with that, if that is what you need.

James