GETWINDOWCONFIG

QuickWin 関数：現在のウィンドウ・プロパティを得ます。

モジュール：USE DFLIB

形式

result = GETWINDOWCONFIG (wc)

wc
(出力) 構造型 windowconfig。ウィンドウ・プロパティを含みます。windowconfig 構造型 (\DF98\INCLUDE サブディレクトリの DFLIB.F90 に定義) は，以下のようになります。

TYPE windowconfig
  INTEGER(2) numxpixels    ! Number of pixels on x-axis.
  INTEGER(2) numypixels    ! Number of pixels on y-axis.
  INTEGER(2) numtextcols   ! Number of text columns
                           ! available.
  INTEGER(2) numtextrows   ! Number of text rows
                           ! available.
  INTEGER(2) numcolors     ! Number of color indexes.
  INTEGER(4) fontsize      ! Size of default font. Set
                           ! to QWIN$EXTENDFONT when
                           ! specifying extended attributes,
                           ! in which case extendfontsize
                           ! sets the font size.
  CHARACTER(80) title      ! The window title.
  INTEGER(2) bitsperpixel  ! The number of bits per pixel.
! The next three parameters provide extended font
! attributes.
  CHARACTER(32) extendfontname  ! The name of the desired font.
  INTEGER(4) extendfontsize     ! Takes the same values as
                                ! fontsize, when fontsize is
                                ! set to QWIN$EXTENDFONT.
  INTEGER(4) extendfontattributes   ! Font attributes
                                    ! such as bold and italic.
END TYPE windowconfig

結果

結果の型は LOGICAL(4) です。成功すれば，結果は .TRUE. で，そうでなければ .FALSE. です。

GETWINDOWCONFIG は，活動状態の子ウィンドウに関する情報を返します。SETWINDOWCONFIG でウィンドウ・プロパティを設定していなければ，GETWINDOWCONFIG は基本ウィンドウ値を返します。

基本的な値の組は，1024 x ピクセル，768 y ピクセル，128 テキスト行，48 テキスト列，および 8x16 ピクセルのフォント・サイズです。画面の解像度と 8x16 ピクセルの仮定フォント・サイズは，テキスト行とテキスト列の数を生成します。解像度 (この場合，1024 x ピクセルと 768 y ピクセル) は，仮想ウィンドウの大きさです。画面の可視物理ウィンドウの大きさを得るには，GETWSIZEQQ を使います。この場合，GETWSIZEQQ は次の値を返します。物理ウィンドウの x と y 位置として (0,0)，列数または高さとして 25，行数または幅として 71 が返されます。

返される色数は，ビデオ・ドライブに依存します。基本ウィンドウ・タイトルは，"Graphic1" です。これらの値すべては，SETWINDOWCONFIG で変更することができます。

windowconfig 構造体の bitsperpixel 欄は，出力のみであることに注意してください。他の欄は GETWINDOWCONFIG に出力値を返し，SETWINDOWCONFIG から入力値を受け取ります。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

GETWSIZEQQ，QuickWin の使用，SETACTIVEQQ，SETWINDOWCONFIG

例

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	USE DFLIB
	LOGICAL(4) status
	TYPE (windowconfig) wc
	status = GETWINDOWCONFIG(wc)
	IF(wc%numtextrows .LT. 10) THEN
	  wc%numtextrows = 10
	  status = SETWINDOWCONFIG(wc)
	  IF(.NOT. status ) THEN	! setwindowconfig がエラーであれば，
	    status = SETWINDOWCONFIG(wc)	! 正しい値を持つ setwindowconfig にリセット
	    status = GETWINDOWCONFIG(wc)
	    IF(wc%numtextrows .NE. 10) THEN
	       WRITE(*,*) 'Error: Cannot increase text rows to 10'
	    END IF
	  END IF
	END IF
	END