〜 ウィンドウ 〜
ウィンドウを元に戻す

Windowsでは、メッセージのやり取りにより各種コントロールなどのオブジェクトを制御しており、
ウィンドウもまた、メッセージを渡して処理を行わせ、何らかのイベントを起こすとメッセージを返します。
HSPで作成したと言えど、生成されたウィンドウは上記の対象となっているので、
例えば、送信Win32メッセージに「WM_SYSCOMMAND(=0x0112)」を、
送信パラメータに「SC_RESTORE(=0xF120)」を指定すれば、ウィンドウサイズを元に戻せます。
メッセージのやり取りを行うにはobjsend命令(HSP2)、sendmsg命令(HSP3)を使用し、
メッセージの送り先は自ウィンドウとします。HSP3ではシステム変数から簡単に取得できますが、
HSP2ではBMSCR構造体からしか取得ができませんし、
何より、objsend命令はHSP3のsendmsg命令と同じ内容であるものの、
メッセージの送信先対象がコントロール(HSPでのオブジェクト)に限定されており、
パラメータに指定するのは1つ目のオブジェクトを0としたオブジェクトIDとなっています。
コレは表向きなもので、実はオブジェクトIDを指すというより、
BMSCR構造体の要素41(hCld)からの要素番号を指しているので、
ウィンドウハンドルが保持されている要素13(hwnd)を指せば、ウィンドウを指定したことになるのです。
HSP2「objsend 13 - 41, 0x0112, 0xF120, 不使用変数(=0), 0」
HSP3「sendmsg hwnd, 0x0112, 0xF120, 不使用(=0)」
尚、最小化だけでなく最大化からも通常の状態に戻せます。
	

winrestore
[パラメータなし]ウィンドウサイズを元に戻すだけのためパラメータは必要ない。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
#module
#deffunc winrestore
	objsend -28, 0x0112, 0xF120, nonuse, 0
	return
#global

	pos 10, 10 : button "終了", *exit
	gsel 0, 2

*check
	wait 1
	// 非アクティブにはなるが最小化しても復活させる
	ginfo 1
	if prmx = -1 {
		winrestore
	}
	goto *check

*exit
	end

winrestore
[パラメータなし]ウィンドウサイズを元に戻すだけのためパラメータは必要ない。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
#module
#deffunc winrestore
	sendmsg hwnd, 0x0112, 0xF120, 0
	return
#global

	pos 10, 10 : button gosub "終了", *exit
	gsel 0, 2

*check
	wait 1
	// 非アクティブにはなるが最小化しても復活させる
	if ginfo_act = -1 {
		winrestore
	}
	goto *check

*exit
	end