グラフィックス・サブルーチン:グラフィックス・モードで,後ろの空白を含んだ文字列を画面に送ります。
モジュール:USE DFLIB
形式
CALL OUTGTEXT (text)
text
(入力) CHARACTER*(*)。表示する文字列。
テキスト出力は,SETFONT で設定される現在のフォントと SETCOLORRGB または SETCOLOR で設定される現在の色を使って,現在のグラフィックス位置から開始されます。書式化は行われません。テキストを出力した後,OUTGTEXT は現在のグラフィックス位置を更新します。
OUTGTEXT を呼び出す前に,INITIALIZEFONTS を呼び出さなければなりません。
OUTGTEXT はグラフィックス関数であるため,テキスト色は SETTEXTCOLORRGB 関数ではなく SETCOLORRGB 関数に影響されます。
互換性
STANDARD GRAPHICS QUICKWIN GRAPHICS LIB
関連情報
GETFONTINFO,GETGTEXTEXTENT,INITIALIZEFONTS, MOVETO,SETCOLORRGB,SETFONT,SETGTEXTROTATION
例
! QuickWin または Standard Graphics アプリケーションでビルドします。 USE DFLIB INTEGER(2) result INTEGER(4) i TYPE (xycoord) xys result = INITIALIZEFONTS() result = SETFONT('t''Arial''h18w10pvib') do i=1,6 CALL MOVETO(INT2(0),INT2(30*(i-1)),xys) grstat=SETCOLOR(INT2(i)) CALL OUTGTEXT('This should be ') SELECT CASE (i) CASE (1) CALL OUTGTEXT('Blue') CASE (2) CALL OUTGTEXT('Green') CASE (3) CALL OUTGTEXT('Cyan') CASE (4) CALL OUTGTEXT('Red') CASE (5) CALL OUTGTEXT('Magenta') CASE (6) CALL OUTGTEXT('Orange') END SELECT END DO END