HSPTV!掲示板

インストールされていないフォントを利用する方法は、一応調べました

http://hsp.tv/play/pforum.php?mode=pastwch&num=12372

しかし、font命令をalfontに置き換えて実行すると、文字が表示されません。

以下、実行した際のソースです。

#include"a2d.hsp"
// ------------- モジュール -------------
#module 
	#uselib "gdi32.dll"
	#func AddFontResourceEx "AddFontResourceExA" sptr, int, nullptr
	#func RemoveFontResourceEx "RemoveFontResourceExA" sptr, int, nullptr

	#deffunc addFont str fontFileName
		AddFontResourceEx fontFileName, 0x10
		sendmsg 0xffff, 0x001D, 0, 0
	return

	#deffunc removeFont str fontFileName
		RemoveFontResourceEx fontFileName, 0x10
		sendmsg 0xffff, 0x001D, 0, 0
	return
#global
// ここまでコピーしてください。

// ------------- サンプル -------------
dialog"",16,""
if stat==0 :end
fontFile=refstr
addFont fontFile // フォントを追加

alcreateimage 0,640,480
alcolor 0,0,0:alfont"Noto Sans CJK JP Regular",20
aldrawtext"あいうえお",0,0,640,480,1,1
alcopyimagetoscreen 0,0
redraw 1

removeFont fontFile // 終了前に実行してください。