グラフィックス関数：最後に使ったグラフィックス・ルーチンの状態を返します。
モジュール：USE DFLIB
形式
result = GRSTATUS ( )
結果
結果の型は INTEGER(2) です。結果は最後に使用したグラフィックス関数の状態です。
エラーまたは警告が発生したかどうかを判断するために，グラフィックス・ルーチンの呼び出しの直後で GRSTATUS を使用します。返し値が 0 より小さければエラーで，0 より大きければ警告です。
GRSTATUS で使用するための以下のシンボル定数は，DFLIB.F90 (\DF98\INCLUDE サブディレクトリ) に定義されています。
| 定数 | 意味 |
|---|---|
| $GRFILEWRITEERROR | ビットマップ・ファイルの書き込みエラー |
| $GRFILEOPENERROR | ビットマップ・ファイルのオープン・エラー |
| $GRIMAGEREADERROR | イメージの読み取りエラー |
| $GRBITMAPDISPLAYERROR | ビットマップの表示エラー |
| $GRBITMAPTOOLARGE | ビットマップが大きすぎます |
| $GRIMPROPERBITMAPFORMAT | ビットマップ・ファイルの不正な書式 |
| $GRFILEREADERROR | ファイルの読み取りエラー |
| $GRNOBITMAPFILE | ビットマップ・ファイルなし |
| $GRINVALIDIMAGEBUFFER | イメージ・バッファ・データの不一致 |
| $GRINSUFFICIENTMEMORY | バッファを割り当てるまたは塗り潰し操作を完了するためのメモリーが不足 |
| $GRINVALIDPARAMETER | 1 つ以上のパラメタが不正 |
| $GRMODENOTSUPPORTED | 要求したビデオ・モードがサポートされていない |
| $GRERROR | グラフィックス・エラー |
| $GROK | 成功 |
| $GRNOOUTPUT | 取る動作がない |
| $GRCLIPPED | 出力がビューポートにクリップされた |
| $GRPARAMETERALTERED | 1 つ以上の入力パラメタが範囲内で変更されたまたはパラメタの組が適切な順で交換された |
エラーが発生したかどうかを決定するには，グラフィックス呼び出しの後，GRSTATUS の返し値を $GROK と比較します。たとえば，以下のようにします。
IF ( GRSTATUS .LT. $GROK ) THEN ! グラフィックス・エラーを処理するプログラムをここに書きます ENDIF
以下のルーチンはエラーを発生せず，すべて GRSTATUS を $GROK に設定します。
| DISPLAYCURSOR | GETTEXTCOLORRGB |
| GETBKCOLOR | GETTEXTPOSITION |
| GETBKCOLORRGB | GETTEXTWINDOW |
| GETCOLOR | OUTTEXT |
| GETCOLORRGB | WRAPON |
| GETTEXTCOLOR |
以下の表は，GRSTATUS に対してエラーや警告メッセージを生成する他のルーチンの一覧です。
| 関数 | GRSTATUS エラー・コード | GRSTATUS 警告コード |
|---|---|---|
| ARC, ARC_W |
$GRINVALIDPARAMETER | $GRNOOUTPUT |
| CLEARSCREEN | $GRINVALIDPARAMETER | |
| ELLIPSE, ELLIPSE_W |
$GRINVALIDPARAMETER, $GRINSUFFICIENTMEMORY |
$GRNOOUTPUT |
| FLOODFILLRGB | $GRINVALIDPARAMETER, $GRINSUFFICIENTMEMORY |
$GRNOOUTPUT |
| GETARCINFO | $GRERROR | |
| GETFILLMASK | $GRERROR, $GRINVALIDPARAMETER |
|
| GETFONTINFO | $GRERROR | |
| GETGTEXTEXTENT | $GRERROR | |
| GETIMAGE | $GRINSUFFICIENTMEMORY | $GRPARAMETERALTERED |
| GETPIXEL | $GRBITMAPTOOLARGE | |
| GETPIXELRGB | $GRBITMAPTOOLARGE | |
| LINETO, LINETO_W |
$GRNOOUTPUT, $GRCLIPPED |
|
| LOADIMAGE | $GRFILEOPENERROR, $GRNOBITMAPFILE, $GRALEREADERROR, $GRIMPROPERBITMAPFORMAT, $GRBITMAPTOOLARGE, $GRIMAGEREADERROR |
|
| OUTGTEXT | $GRNOOUTPUT, $GRCLIPPED |
|
| PIE, PIE_W |
$GRINVALIDPARAMETER, $GRINSUFFICIENTMEMORY |
$GRNOOUTPUT |
| POLYGON, POLYGON_W |
$GRINVALIDPARAMETER, $GRINSUFFICIENTMEMORY |
$GRNOOUTPUT, $GRCLIPPED |
| PUTIMAGE, PUTIMAGE_W |
$GRERROR, $GRINVALIDPARAMETER, $GRINVALIDIMAGEBUFFER $GRBITMAPDISPLAYERROR |
$GRPARAMETERALTERED, $GRNOOUTPUT |
| RECTANGLE, RECTANGLE_W |
$GRINVALIDPARAMETER, $GRINSUFFICIENTMEMORY |
$GRNOOUTPUT, $GRCLIPPED |
| REMAPPALETTERGB | $GRERROR, $GRINVALIDPARAMETER |
|
| REMAPALLPALETTERGB | $GRERROR, $GRINVALIDPARAMETER |
|
| SAVEIMAGE | $GRFILEOPENERROR | |
| SCROLLTEXTWINDOW | $GRNOOUTPUT | |
| SETBKCOLOR | $GRINVALIDPARAMETER | $GRPARAMETERALTERED |
| SETBKCOLORRGB | $GRINVALIDPARAMETER | $GRPARAMETERALTERED |
| SETCLIPRGN | $GRPARAMETERALTERED | |
| SETCOLOR | $GRPARAMETERALTERED | |
| SETCOLORRGB | $GRPARAMETERALTERED | |
| SETFONT | $GRERROR, $GRINSUFFICIENTMEMORY |
$GRPARAMETERALTERED |
| SETPIXEL, SETPIXEL_W |
$GRNOOUTPUT | |
| SETPIXELRGB, SETPIXELRGB_W |
$GRNOOUTPUT | |
| SETTEXTCOLOR | $GRPARAMETERALTERED | |
| SETTEXTCOLORRGB | $GRPARAMETERALTERED | |
| SETTEXTPOSITION | $GRPARAMETERALTERED | |
| SETTEXTWINDOW | $GRPARAMETERALTERED | |
| SETVIEWPORT | $GRPARAMETERALTERED | |
| SETWINDOW | $GRINVALIDPARAMETER | $GRPARAMETERALTERED |
| SETWRITEMODE | $GRINVALIDPARAMETER |
互換性
STANDARD GRAPHICS QUICKWIN GRAPHICS LIB
関連情報
ARC，ELLIPSE，FLOODFILLRGB，LINETO，PIE，POLYGON，REMAPALLPALETTERGB，SETBKCOLORRGB，SETCOLORRGB，SETPIXELRGB，SETTEXTCOLORRGB，SETWINDOW，SETWRITEMODE