HSPTV!掲示板

HSP側の命令(button, listbox, mesbox等)で作成したコントロールにWM_SETFONTでフォントを変更するようにしても受け付けてくれません。

fontとobjmodeを使えば変更できることは知っているのですが、CreateFontで作成したフォントを使いたいので、フォントハンドルを指定してHSP命令で作成したコントロールのフォントを変更する方法が知りたいです。

#include "user32.as"
#include "gdi32.as"

#define global NULL       $00000000
#define global TRUE       $00000001
#define global FALSE      $00000000
#define global WS_CHILD   $40000000
#define global WS_VISIBLE $10000000
#define global WM_SETFONT $00000030

#define global FW_BOLD             $000002BC
#define global DEFAULT_CHARSET     $00000001
#define global OUT_DEFAULT_PRECIS  $00000000
#define global CLIP_DEFAULT_PRECIS $00000000
#define global DEFAULT_QUALITY     $00000000
#define global DEFAULT_PITCH       $00000000
#define global FF_DONTCARE         $00000000

screen 0

onexit goto *exit

// HSPのボタン
objsize 100, 25
button gosub "Button", *btn
hBtnHSP = objinfo_hwnd(stat)

// WinObjのボタン
winobj "BUTTON", "Button", 0, WS_CHILD | WS_VISIBLE, 100, 25, NULL, NULL
hBtnWin = objinfo_hwnd(stat)


hFont = CreateFont(16, 0, 0, 0, FW_BOLD, FALSE, TRUE, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, "Meiryo UI")

SendMessage hBtnHSP, WM_SETFONT, hFont, TRUE
SendMessage hBtnWin, WM_SETFONT, hFont, TRUE


stop


*btn


return

*exit

  if (hFont) : DeleteObject hFont

end

こちらにあるモジュールがおご希望に沿えるかと思います

https://wiki.hsp.moe/%E3%82%AA%E3%83%96%E3%82%B8%E3%82%A7%E3%82%AF%E3%83%88%E3%81%AE%E3%83%95%E3%82%A9%E3%83%B3%E3%83%88%E5%A4%89%E6%9B%B4.html

>fontとobjmodeを使えば変更できることは知っているのですが

objmode 0

であれば、HSPのボタンコントロールでもWM_SETFONTは反応していませんか？

>>Xささん

こちらのモジュールはwinobjでボタンを作成してるので、HSP側の命令(Button)で作成できるものとは違いますね…

>>TOMATO
試してみたところ正常にWM_SETFONTを処理してくれました。

なぜobjmode 0で反応してくれるのか… (1や2じゃ反応しない)
内部的にどのような処理をしているのか分からないですが、こういった裏技(？)があるのですね。

無事 目的の動作になりました。ありがとうございます。