Module/描画フォント名の取得

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16

#module
;===========================================================
; GetActiveFontName [p1]
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; p1で指定したウィンドウIDに設定されている描画フォント名を取
; 得します。
; パラメータを省略した場合は現在描画先ウィンドウの描画フォン
; ト名が取得されます。
; 取得されたフォント名はシステム変数 refstr に格納されます。
;===========================================================
#deffunc _GetActiveFontName int p1
    if p1<0: mref bm, 67: else: mref bm, 96+p1
    dupptr typeface, varptr(bm.56), 32, 2
    return typeface
#define global GetActiveFontName(%1=-1) _GetActiveFontName %1
#global

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30

#module
;===========================================================
; GetActiveFontName [p1]
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; p1で指定したウィンドウIDに設定されている描画フォント名を取
; 得します。
; パラメータを省略した場合は現在描画先ウィンドウの描画フォン
; ト名が取得されます。
; 取得されたフォント名はシステム変数 refstr に格納されます。
;===========================================================
#deffunc _GetActiveFontName int p1
    if p1<0: mref bm, 67: else: mref bm, 96+p1
    dupptr typeface, varptr(bm.56), 32, 2
    return typeface
#define global GetActiveFontName(%1=-1) _GetActiveFontName %1
#global
 
    GetActiveFontName: mes refstr
 
    font "ＭＳ ゴシック"
    GetActiveFontName: mes refstr
 
    font "MS UI Gothic", 20, 1
    GetActiveFontName: mes refstr
 
    screen 2
    font "ＭＳ 明朝", 20, 1
    GetActiveFontName: mes refstr
 
    GetActiveFontName 0: mes refstr