グラフィックス・サブルーチン:現在のテキスト・ウィンドウの境界を返します。
モジュール:USE DFLIB
形式
CALL GETTEXTWINDOW (r1, c1, r2, c2)
r1, c1
(出力) INTEGER(2)。テキスト・ウィンドウの左上隅の行座標と列座標。
r2, c2
(出力) INTEGER(2)。テキスト・ウィンドウの右下隅の行座標と列座標。
OUTTEXT と WRITE からの出力は,テキスト・ウィンドウに限定されています。基本設定では,テキスト・ウィンドウが SETTEXTWINDOW で再定義されていない限りは,これは画面全体です。
SETTEXTWINDOW で定義されるウィンドウは,OUTGTEXT からの出力に影響しません。
互換性
STANDARD GRAPHICS QUICKWIN GRAPHICS LIB
関連情報
GETTEXTPOSITION,OUTTEXT,SCROLLTEXTWINDOW,SETTEXTPOSITION,SETTEXTWINDOW,WRAPON,WRITE
例
! 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