WRAPON

グラフィックス関数OUTTEXT 関数のテキスト出力が定義されたテキスト・ウィンドウの端に到達した時,テキスト出力が新しい行に折り返されるか切り捨てられるかを制御します。

モジュールUSE DFLIB

形式

result = WRAPON (option)

option
(入力) INTEGER(2)。折り返しモード。以下のシンボル定数の 1 つです。

結果

結果の型は INTEGER(2) です。結果は,以前の option の値です。

WRAPON は,OUTGTEXT のようなフォントを基本としたルーチンには影響しません。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

OUTTEXTSCROLLTEXTWINDOWSETTEXTPOSITIONSETTEXTWINDOW

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	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 )

	! テキストに折り返したテキストと切り捨てたテキストを表示します。
	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 (*,*) ! ENTER が押されるまで待ちます。
	END