紹介してくださったページで勉強させていただきました。
多少ましになったと思います。
#uselib "comdlg32.dll"
#func ChooseFont "ChooseFontA" int
mref bmscr, 67 ; HSPウィンドウのBMSCR構造体取得
dim chfont,16
dim logfont,16
sdim fontname,32
; CHOOSEFONT 構造体
chfont.0 = 60 ; 構造体サイズ(=60)
chfont.1 = bmscr.13 ; ウィンドウハンドル
chfont.3=varptr(logfont) ; LOGFONT 構造体アドレス
chfont.5 = 0x01000141
pm=varptr(chfont)
ChooseFont pm
if stat == 0 : stop
style=0
if (chfont.12 & 0x0100):style=style+1
if (chfont.12 & 0x0200):style=style+2
if (logfont.5 & 0x0000FF00):style=style+4
if (logfont.5 & 0x00FF0000):style=style+8
size=chfont.4/10
memcpy fontname,logfont,32,0,28
font fontname,size,style
mes "ひらがな漢字ABCabc"
stop
hspで
font "MS UI Gothic",10,1
(標準設定のタイトルバーと同じフォント・サイズ・スタイル)
としても実際それより小さくなってるのですが何が原因でしょうか?