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入れるの忘れてました。
ありがとうございます!



記事削除

記事NO.パスワード
(質問が解決したスレッドは他の利用者に活用してもらうため、削除しないようお願いします)

NO.85590への返信

マスコット

好きなマスコットを選んでください。

名前

e-mail
HOME
  1. 初めて利用する方は、HSP3掲示板の使い方をお読みください。
  2. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
  3. 書き込みは自動改行されません。適度に改行を入れてください。
  4. スクリプトは小文字の<pre>〜</pre>で囲むと見やすく表示できます。

削除用パスワード

解決したら質問者本人がここをチェックしてください。

エラー発生時、再送信すると二重送信になることがあります。
回答が得られたら、お礼書き込み時に[解決]チェックしてください。
SPAM防止のためURLから始まる文章は投稿できません。
SPAM防止のため英文字のみの本文を投稿することはできません。

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