HSPTV!掲示板

コンボボックスの縦サイズが　きれいに収まりません
リストボックスのLBS_NOINTEGRALHEIGHTのようなスタイル指定ができないものでしょうか…？

W = 100
H = 200
objsize W, H
winobj "ComboBox", "", , $50000003, W, H

縦サイズが反映されない…

W = 100
H = 200
objsize W, H
winobj "ComboBox", "", , $50000003, W, H

MyObj = stat
MyWhd = objinfo( MyObj , 2 )
mref BMSCR , 67
font "", H
sendmsg MyWhd, $0030 , BMSCR(38) , 0

line 0, H, 700, H

サイズがぴったりにならない…

自分でいろいろ試したところ
どうやらコンボボックスのサイズは　フォントサイズ+8ピクセル　になるようです。
これはおそらく　コンボボックスの枠の太さが上下ともに4ピクセルであるということなのでしょう
しかし　どの環境においても　枠の太さが同じかどうか不安です。
ウィンドウの枠と同じサイズなら　ginfoでもとめられるのですが
コンボボックス固有のものかもしれないので　やはり不安は消えません。

本当は　コンボボックスのサイズに応じてフォントサイズを変えてくれるような拡張スタイルああれば良いのですが、
そんな都合の良いものは見つけられなかったので　とりあえずフォントサイズによって強制的に高さを変えようと思います。
なので　このコンボボックスの枠サイズを取得する方法があったら教えていただけないでしょうか。

　ログを検索しましょう

以前　どこかで、「文字入力ができるコンボボックス」みたいな記事があって
そこで　コンボボックスのサイズを指定できるスクリプトが紹介されていた記憶があったので
探してきましたが、これは僕が最初に書いた２番目の　フォントサイズによってオブジェクトサイズを変える方法と同じようです。

#uselib "gdi32"
#func GetStockObject "GetStockObject" int
#define CBS_DROPDOWN          0x0002
#define CB_ADDSTRING		  0x0143

	font "ＭＳ ゴシック", 30, 2;←フォントサイズ３０
	mref BMSCR, 67
	hFont = BMSCR.38

	winobj "ComboBox","",0, $50000000|CBS_DROPDOWN,300,12,hwnd,0
	combhnd=objinfo(stat,2)
	GetStockObject 17
	sendmsg combhnd, $30,hFont

	sendmsg combhnd,CB_ADDSTRING,0,"HSP"
	sendmsg combhnd,CB_ADDSTRING,0,"Windows"
	sendmsg combhnd,CB_ADDSTRING,0,"Microsoft"
//ここから追記
line -1,30,700,30;←Y座標３０の位置に線を引く

フォントサイズを指定するだけでは　ぴったりのサイズになりません。
「フォントサイズ＋コンボボックスの枠」のサイズになるのです。

　私が記憶していたのは環境による問題だったようです。
失礼しました。
レスがつかないということは、解決は難しいということなのでしょう。
コンボボックス自体を自分でつくるという解決法はありますが……

　全記事にスレッドへのリンクがついたので、とても調べやすかったです。
おにたまさん、ありがとう。

コンボボックスのサイズを問題にする人が少ないのもあって
解決方法を知っている人も少ないのでしょうか。

たしかに　ボタンと、子ウィンドウに表示したリストボックスで
擬似コンボボックスのようなものは作れますが（以前作ったことがある）
やはりオリジナルのコンボボックスにも　なにか方法があると思うので
一応この記事は未解決のままにしておきます。

解決方法を知っている方がいらっしゃれば
どれだけ後からでもレスをいただけるとありがたいです。
ANTARESさん　いろいろ情報をありがとうございました。


あとメインコンテンツボタン便利すぎです。おにたまさん　無言で実装するとこが粋ですね。