HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2018
1015
ゆうやんフォント選択ダイアログ2解決


ゆうやん

リンク

2018/10/15(Mon) 20:23:21|NO.85590

フォント選択ダイアログについてなんですが、うまくいきません。
どこが悪いのでしょうか?

#include "hsp3utf.as" #uselib "comdlg32.dll" #func ChooseFont "ChooseFontW" int mref bmscr, 67 dim chfont,16 dim logfont,16 sdim fontname,32 chfont.0 = 60 chfont.1 = bmscr.13 chfont.3=varptr(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



この記事に返信する


あらや

リンク

2018/10/15(Mon) 22:44:01|NO.85592

フォント名の文字コードの問題でしょうか。


#include "hsp3utf.as" #uselib "comdlg32.dll" #func ChooseFont "ChooseFontW" int mref bmscr, 67 dim chfont,16 dim logfont,16 sdim fontname,32 chfont.0 = 60 chfont.1 = bmscr.13 chfont.3=varptr(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 fontname2 = ""; fontname2 = cnvwtos(fontname); // Unicode(UTF-16)文字列をUTF-8文字列に変換 font fontname2,size,style; // UTF-8文字列でフォントを設定 mes "ひらがなカタカナ漢字ABCabc" stop



ゆー

リンク

2018/10/18(Thu) 15:59:30|NO.85604

返信が遅くなってすみません!
cnvwtos入れるの忘れてました。
ありがとうございます!



ONION software Copyright 1997-2018(c) All rights reserved.