HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2017
1125
Sealメニューバーの色1未解決


Seal

リンク

2017/11/25(Sat) 20:05:52|NO.81906

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

#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
今回はサブメニューの背景色はできましたが
文字の色やメインメニューの背景色はどうすればいいでしょう?



この記事に返信する


いののて

リンク

2017/11/26(Sun) 17:50:26|NO.81912

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

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



ONION software Copyright 1997-2021(c) All rights reserved.