HSPTV!掲示板

穴あきウィンドウを作ってみたのですが、
タイトルバーアイコンがおかしくなってしまいました。
アイコンに黒を使わなければいいのでしょうか？

#uselib "user32.dll"

#func SetLayeredWindowAttributes "SetLayeredWindowAttributes" sptr,sptr,sptr,sptr
#func SetWindowLong "SetWindowLongA" sptr,int,int
#define WS_EX_LAYERED 0x00080000

	screen 0,500,400
	SetWindowLong hwnd,-20,0|WS_EX_LAYERED
	SetLayeredWindowAttributes hwnd,0,255,1
	color 0,0,255
	boxf:color
	boxf 50,50,440,340

家はXPhomeだが、特にアイコンはおかしくならないが。

> タイトルバーアイコンがおかしくなってしまいました。

どんなふうにおかしいのか書いたほうがよいかと。
私の環境では、閉じるボタンや最小化のボタンの黒い部分が透明になってしまっています。
OSはWin2k。

XPhomeです。
タイトルバーのスープのアイコンの黒い部分が白になってます。
このことを仰っているのでしょうか？

D.Kさんが言っているようにスープのアイコンの黒い部分が透明になってしまいます。
ちなみにXPhomeです。

#uselib "user32.dll"
#func SetLayeredWindowAttributes "SetLayeredWindowAttributes" int,int,int,int
#func SetWindowLong "SetWindowLongA" int,int,int

	screen ,500,400

	i=$0000ff;透明にしたい色$BBGGRR

	SetWindowLong hwnd,-20,$80100
	SetLayeredWindowAttributes hwnd,i,,1

	color ,,255
	boxf

	color 255
	boxf 50,50,440,340

	stop

Aさんありがとうございます。助かりました。