TEXT
Truncate text in an Edit Field
You need to disable word-wrapping in that edit field. Here's how:-
WINDOW 1
EDIT FIELD 1,"", (20,20)-(170,200), _statFramed
editFieldHandle& = TEHANDLE(1)
editFieldHandle&..teCROnly%=-1 ' line break only at CR
s$="Line 1 plus a lot of invisible stuff" + CHR$(13) + "Line 2"
EDIT$(1)=s$
DO
HANDLEEVENTS
UNTIL FN BUTTON
|