HSPTV!掲示板

いつもお世話になります。

	#uselib "user32.dll"
	#func  global CreateMenu         		"CreateMenu"
	#func  global CreatePopupMenu    		"CreatePopupMenu"
	#func  global AppendMenu         		"AppendMenuA"          		int, int, int, str
	#func  global SetMenu            		"SetMenu"               	int, int
	#func  global DrawMenuBar        		"DrawMenuBar"           	int
	#func  global SetMenuInfo				"SetMenuInfo"				int, int
	#func  global GetMenuInfo				"SetMenuInfo"				int, int

	#uselib "gdi32.dll"
	#cfunc global CreateHatchBrush			"CreateHatchBrush"			int, int

	#define global ctype RGB(%1=0,%2=0,%3=0) (%1 | %2 << 8 | %3 << 16)

	#const global MIM_BACKGROUND		$00000002
	#const global MIM_STYLE				$00000010
	#const global MIM_APPLYTOSUBMENUS	$80000000
	#const global MNS_NOCHECK			$80000000

	CreateMenu
	hMenu.1 = stat
		
		AppendMenu hMenu.1, 0, I11, "テスト(&T)"

	CreateMenu
	hMenu.0 = stat

		AppendMenu hMenu.0, $10, hMenu.1, "テスト(&T)"

	dim MENUINFO, 7
	MENUINFO(0) = 28, MIM_STYLE | MIM_APPLYTOSUBMENUS | MIM_BACKGROUND | MIM_MAXHEIGHT , MNS_NOCHECK
	MENUINFO(4) = CreateHatchBrush (6 , RGB(50, 50, 50))

	SetMenuInfo hMenu, varptr(MENUINFO)
	SetMenu hwnd, hMenu.0
	DrawMenuBar hwnd

今回はサブメニューの背景色はできましたが
文字の色やメインメニューの背景色はどうすればいいでしょう？

●メインメニューの背景色
上のスクリプトでメインメニューの背景色は設定できています。
視覚テーマが有効なので反映できていないだけです。

●文字の色
オーナードローで描画すれば可能です。
下のリンク先を参考にすればできると思います。
https://wiki.hsp.moe/OwnerDraw%EF%BC%8FODMenu.html