GETTEXTWINDOW

グラフィックス・サブルーチン:現在のテキスト・ウィンドウの境界を返します。

モジュールUSE DFLIB

形式

CALL GETTEXTWINDOW (r1, c1, r2, c2)

r1, c1
(出力) INTEGER(2)。テキスト・ウィンドウの左上隅の行座標と列座標。

r2, c2
(出力) INTEGER(2)。テキスト・ウィンドウの右下隅の行座標と列座標。

OUTTEXTWRITE からの出力は,テキスト・ウィンドウに限定されています。基本設定では,テキスト・ウィンドウが SETTEXTWINDOW で再定義されていない限りは,これは画面全体です。

SETTEXTWINDOW で定義されるウィンドウは,OUTGTEXT からの出力に影響しません。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

GETTEXTPOSITIONOUTTEXTSCROLLTEXTWINDOWSETTEXTPOSITIONSETTEXTWINDOWWRAPONWRITE

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	USE DFLIB
	INTEGER(2) top, left, bottom, right
	DO i = 1, 10
	  WRITE(*,*) "Hello, world"
	END DO
	! テキスト・ウィンドウ位置を保存します。
	CALL GETTEXTWINDOW (top, left, bottom, right)
	! テキスト・ウィンドウを 7 行下にスクロールします。
	CALL SCROLLTEXTWINDOW (INT2(-7))
	! テキスト・ウィンドウを元に戻します。
	CALL SETTEXTWINDOW (top, left, bottom, right)
	WRITE(*,*) "At beginning again"
	END