HSPTV!掲示板

Segoe UI Symbol や Segoe MDL2 Assets といったフォントの特殊文字 (記号文字)
を描画するにはどうしたらよろしいでしょうか？

mesで表示するとなぜか文字化けしますね。

font "Segoe UI Symbol",20
objmode 2
sdim a,64
a="???";IMEパッドから入力する
;でも掲示板に投稿すると文字化けするから今回は一文字ずつwpokeで入力
wpoke a,0,0x98F1
wpoke a,2,0x99F1
wpoke a,4,0x9AF1
mesbox a,640,300
mes a

その二つのフォントは特殊なフォントでふつうのフォントと同じようには使えないそうです。
hspで使う方法としては、
無理やりフォントハンドルを突っ込むか（これでできるか未実証）
画像フォントとして、準備するかしないと無理だと思います。
https://msdn.microsoft.com/ja-jp/library/windows/apps/jj841126.aspx
に一覧があり、画像で表示してるので、右クリックから、
ありがたく使わせてもらえばいいと思います。
（ライセンスや著作権の問題は考えてません。）

もう見ていないとは思いますが

#module

	#uselib "user32.dll"
	#func DrawText "DrawTextW" sptr,wptr,int,var,int

	#define DT_CALCRECT        $00000400

	#deffunc _unimesketup str buf, local rect, local statbak, local statbak2, local bmscr
		statbak2=stat
		mref bmscr,67
		dim rect,4
		rect=ginfo_cx,ginfo_cy,0,0
		DrawText hdc,buf,-1,rect,DT_CALCRECT
		DrawText hdc,buf,-1,rect
		redraw wpeek(bmscr.19,2)
		pos rect.0,rect.3
		mref statbak,64
		statbak=statbak2
		return
#global
#define unimes(%1) _unimesketupval=""+%1 : _unimesketup _unimesketupval : dim _unimesketupval,1

cls
sdim buf
redraw 1//redrawの変更に対応

font "Segoe UI Symbol",20
buf="あ"//フォントに文字が含まれていない場合の代替表示
poke buf,2,'I'
wpoke buf,3,$96F2
wpoke buf,5,$99F1
poke buf,7,"み"
wpoke buf,9,$A0F1
wpoke buf,11,$A0F2

mref i,64:i=9999
unimes "みそ\n"+buf
mes "aaaa"
unimes 123//数字もだいじょうぶ
mes stat
//redraw 1

シーゴUIシンボルで使われている文字(ARIB外字)のShift JISの外字はcnvstowでは変換してくれませんがwptrでは対応するUnicodeの文字に変換してくれるので
cnvstowで変換するのではなくwptrを使っています

もし解釈に間違いがあればすみません。

ありがとうございます。おかげで何とかなりそうです。
Windows 8 や Windows 10 などのデザインを実装するときにも役に立ちそうですね。