グラフィックス関数:OUTTEXT 関数のテキスト出力が定義されたテキスト・ウィンドウの端に到達した時,テキスト出力が新しい行に折り返されるか切り捨てられるかを制御します。
モジュール:USE DFLIB
形式
result = WRAPON (option)
option
(入力) INTEGER(2)。折り返しモード。以下のシンボル定数の 1 つです。
$GWRAPOFF - ウィンドウ境界の右端で切り取ります。
$GWRAPON - ウィンドウ境界で折り返し,必要に応じてスクロールします。
結果
結果の型は INTEGER(2) です。結果は,以前の option の値です。
WRAPON は,OUTGTEXT のようなフォントを基本としたルーチンには影響しません。
互換性
STANDARD GRAPHICS QUICKWIN GRAPHICS LIB
関連情報
OUTTEXT,SCROLLTEXTWINDOW,SETTEXTPOSITION,SETTEXTWINDOW
例
! 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