HSPTV!掲示板

HSPでUNDERTALEAUを作ろうとしているものですが、タイトルバーの太さが違うことに気づきました。
タイトルバーの太さを変える方法はありますか?
WindowsAPIには疎いもんで...

証拠写真です
https://i.imgur.com/fYPZpMD.png

参考にならないかな？

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

ウィンドウスタイルにWS_THICKFRAMEを指定する、つまりサイズ可変ウィンドウにするとタイトルバーが太くなります。

#include "user32.as"

#define GWL_STYLE $FFFFFFF0
#define WS_THICKFRAME $00040000

#define SWP_NOZORDER     $00000004
#define SWP_NOMOVE       $00000002
#define SWP_NOSIZE       $00000001
#define SWP_FRAMECHANGED $00000020

screen 0

title "サイズ可変ウィンドウ（太いタイトルバー）"
SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) | WS_THICKFRAME
SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_NOZORDER | SWP_NOMOVE | SWP_NOSIZE | SWP_FRAMECHANGED // フレームに関連する変更のあとは SetWindowPos で SWP_FRAMECHANGED する

screen 1, , , 4

title "サイズ固定ウィンドウ（細いタイトルバー）"

stop

サイズ可変ウィンドウだけど固定にしたいとき

#include "user32.as"

#define GWL_STYLE $FFFFFFF0
#define WS_THICKFRAME $00040000

#define SWP_NOZORDER     $00000004
#define SWP_NOMOVE       $00000002
#define SWP_NOSIZE       $00000001
#define SWP_FRAMECHANGED $00000020

#define WM_GETMINMAXINFO $00000024


#define WINW 1280
#define WINH 720

screen 0, WINW, WINH

title "サイズ可変だけど可変じゃないウィンドウ"
SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) | WS_THICKFRAME
SetWindowPos hwnd, 0, 0, 0, WINW, WINH, SWP_NOZORDER | SWP_NOMOVE | SWP_FRAMECHANGED // フレームに関連する変更のあとは SetWindowPos で SWP_FRAMECHANGED する

oncmd gosub *GETMINMAXINFO, WM_GETMINMAXINFO

screen 1, , , 4

title "サイズ固定ウィンドウ"


stop


*GETMINMAXINFO

  dupptr minmaxinfo, lparam, 4 * 10, 4

  minmaxinfo(2) = WINW, WINH
  minmaxinfo(6) = WINW, WINH
  minmaxinfo(8) = WINW, WINH

return 0

書き忘れてしまいましたが、サイズ可変ウィンドウだけど固定にしたいとき（下のスクリプト）はSetWindowPosでもサイズ指定しています。
screen での指定したサイズがWin32APIで指定したときと若干違って、サイズを変えようとしたときサイズが一瞬ガクッと変わるので。

ありがとうございます。

#define WINW 655
#define WINH 520

でUNDERTALE風になるようです。

ちなみに先ほどUNDERTALE DEMOをやってみたのですが
タイトルバーの太さはWindowsAPI不使用時と同じでしたが
これでやっていきます
(※DEMO版なので今のものと仕様が変わっていることもあるのでDELTARUNEで確認します。)