WRAPON

Graphics Function: Controls whether text output with the OUTTEXT function wraps to a new line or is truncated when the text output reaches the edge of the defined text window.

Module: USE DFLIB

Syntax

result = WRAPON (option)

option
(Input) INTEGER(2). Wrap mode. One of the following symbolic constants:

• $GWRAPOFF - Truncates lines at right edge of window border.
• $GWRAPON - Wraps lines at window border, scrolling if necessary.

Results:

The result is of type INTEGER(2). The result is the previous value of option.

WRAPON does not affect font routines such as OUTGTEXT.

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

See Also: OUTTEXT, SCROLLTEXTWINDOW, SETTEXTPOSITION, SETTEXTWINDOW

Example

 USE DFLIB
 INTEGER(2) row, status2
 INTEGER(4) status4
 TYPE ( rccoord ) curpos
 TYPE ( windowconfig ) wc
 LOGICAL status

 status = GETWINDOWCONFIG( wc )
 wc%numtextcols = 80
 wc%numxpixels  = -1
 wc%numypixels  = -1
 wc%numtextrows = -1
 wc%numcolors   = -1
 wc%fontsize    = -1
 wc%title = "This is a test"C
 wc%bitsperpixel = -1
 status = SETWINDOWCONFIG( wc )
 status4= SETBKCOLORRGB(#FF0000 )
 CALL CLEARSCREEN( $GCLEARSCREEN )

 !  Display wrapped and unwrapped text in text windows.
 CALL SETTEXTWINDOW( INT2(1),INT2(1),INT2(5),INT2(25))
 CALL SETTEXTPOSITION(INT2(1),INT2(1), curpos )
 status2 = WRAPON( $GWRAPON )
 status4 = SETTEXTCOLORRGB(#00FF00)
 DO i = 1, 5
    CALL OUTTEXT( 'Here text does wrap. ')
 END DO
 CALL SETTEXTWINDOW(INT2(7),INT2(10),INT2(11),INT2(40))
 CALL SETTEXTPOSITION(INT2(1),INT2(1),curpos)
 status2 = WRAPON( $GWRAPOFF )
 status4 = SETTEXTCOLORRGB(#008080)
 DO row = 1, 5
    CALL SETTEXTPOSITION(INT2(row), INT2(1), curpos )
    CALL OUTTEXT('Here text does not wrap. ')
    CALL OUTTEXT('Here text does not wrap.')
 END DO
 READ (*,*) ! Wait for ENTER to be pressed
 END