GETFONTINFO

グラフィックス関数：現在のフォント特性を得ます。

モジュール：USE DFLIB

形式

result = GETFONTINFO (font)

font
(出力) 構造型 FONTINFO。現在のフォントの特性を設定します。FONTINFO 構造型 (\DF98\INCLUDE サブディレクトリの DFLIB.F90 に定義) は，以下のようになります。

TYPE FONTINFO
  INTEGER(4) type        ! 1 = truetype, 0 = bit map
  INTEGER(4) ascent      ! Pixel distance from top to
                         !   baseline
  INTEGER(4) pixwidth    ! Character width in pixels,
                         !   0=proportional
  INTEGER(4) pixheight   ! Character height in pixels
  INTEGER(4) avgwidth    ! Average character width in
                         !   pixels
  CHARACTER(32)xfacename ! Font name
  LOGICAL(1) italic      ! .TRUE. if current font
                         !   formatted italic
  LOGICAL(1) emphasized  ! .TRUE. if current font
                         !   formatted bold
  LOGICAL(1) underline   ! .TRUE. if current font
                         !   formatted underlined
END TYPE FONTINFO

結果

結果の型は INTEGER(2) です。成功すれば，結果はゼロで，そうでなければ -1 です。

GETFONTINFO を含むどのフォントに関連した関数を呼び出す前に，INITIALIZEFONTS でフォントを初期化しなければなりません。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

GETGTEXTEXTENT，GETGTEXTROTATION，GRSTATUS，INITIALIZEFONTS，OUTGTEXT，SETFONT，グラフィックス・ライブラリーからのフォントの使用

例

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	USE DFLIB
	TYPE (FONTINFO) info
	INTEGER(2)      numfonts, return, line_spacing
	numfonts = INITIALIZEFONTS ( )
	return = GETFONTINFO(info)
	line_spacing = info%pixheight + 2
	END