HSPTV!掲示板

以下のようなスクリプトを書いて、各種オブジェクトの背景色・文字色の変更を使用としています。

しかし、ボタンとコンボボックスがうまくいきません。
また、このスクリプトには長くなるので載せませんでしたが、メニューバーも同様に色を変えたいと思っています。

ボタンについては、下記の通りモジュールにしてくださっているものがあったのでそれを利用していますが、１つ１つ設定せずに済むと楽だなぁと考えています。
http://wiki.hsp.moe/Module%EF%BC%8Fmod_customizebutton_v2.html


　お手数をおかけしますが、ボタン・コンボボックス・メニューバーの色の変更に関して、ご存知の方がいましたらお教えください。



なお、下記スクリプトの政策には下記サイトの開設を参考にさせていただきました。
http://lhsp.s206.xrea.com/hsp_object5.html

<pri>


#define ctype RGB(%1,%2,%3) (%1 | %2 << 8 | %3 << 16)
#include "hsp3util.as"
#uselib "gdi32"
#func global SetBkColor "SetBkColor" sptr,sptr
#func global SetBkMode "SetBkMode" sptr,sptr
#func SetTextColor "SetTextColor" sptr,sptr
#func global CreateSolidBrush "CreateSolidBrush" sptr
#func global DeleteObject "DeleteObject" sptr
#uselib "user32"
#func GetComboBoxInfo "GetComboBoxInfo" sptr, sptr
//カラーブラシ作成
CreateSolidBrush RGB($0,$0,$0) //黒
hBrush_bk=stat
// COMBOBOXINFO構造体用
dim COMBOBOXINFO, 13
COMBOBOXINFO = $34


oncmd gosub *ctlcoloredit, $133 //WM_CTLCOLOREDIT
oncmd gosub *ctlcoloredit, $134 //WM_CTLCOLORLISTBOX

oncmd gosub *ctlcoloredit, $135 //WM_CTLCOLORBTN
oncmd gosub *ctlcoloredit, $138 //WM_CTLCOLORSTATIC
onexit *exit

cls 4
objsize 200,24
str1="サンプル"
str2="サンプル\nサンプル2\nサンプル3"

combox a, 100, str2 //中途半端にしか色が変わらない
hCombox = objinfo (stat, 2)
GetComboBoxInfo hCombox, varptr (COMBOBOXINFO)
hComboxList=COMBOBOXINFO.12

button str1,*exit //色が買わなない
hbutton=objinfo(stat,2)

listbox b,100,str2
hlistbox=objinfo(stat,2)

mesbox str1
hmesbox=objinfo(stat,2)

statictext str1,200,24 //後で書き換えが出来て便利
hstatic=objinfo(stat,2)
stop

*ctlcoloredit
if (lparam=hComboxlist) or (lparam=hCombox) or (lparam=hlistbox) or (lparam=hmesbox) or (lparam=hstatic){
setBkMode wparam,2
SetTextColor wparam, RGB ($FF, $FF, $FF)
SetBkColor wparam, RGB($00,$00,$00)
return hBrush_bk
}
return
*exit
DeleteObject hBrush_bk //メモリ会報
end


</pri>

ほしい情報はここかな？(すべて C言語で書かれていますが)
http://www50.tok2.com/home2/StillGreen/knowledge/program/backcolor.htm

基本的にスクリプトはすべて正常な動作。
ボタンもよくみると、色が設定されている部分とされていない部分があると思いますが、これは仕様ですので正常となります。
(これは、コントロール側がロールオーバーの処理をしていて規定色で描画している為、ロールオーバー処理以外の部分の色は変更されます)

この制限をなくすために、参考にされた「Module/mod_customizebutton_v2」サイトもオーナードローの設定をし自前で描画してるのです。
メニューに関しても、同様でオーナードローで描画しないといけません。ただし、ビットマップが用意できる場合は作成時に登録し表示させることが可能です。
以上の理由により、色変更できる部分がコントロールによって違います。

>> MillkeyStars 三。

　返信ありがとうございます。
　残念ながら、お教えいただいたURLにアクセスできません。お手数ですが再度お教えいただければと思います。

　また、追加で申し訳ないのですが、リストボックスのスクロールバーのハンドルについても、取得方法が分かりましたらお教えください。なくしたいのではなく、色を変えたいです。おそらく、ハンドルが分かればoncommandにWM_CTLCOLORSCROLLBAR($137)を追加することで実現できるかと思っています。


　よろしくお願いします。

リストボックスのスクロールバーは、リストボックスに直接付いているので、
リストボックスのスクロールバーハンドルは、リストボックスのウィンドウハンドルになります。
なので、色設定はフラットスクロールバーに設定してから、
FlatSB_SetScrollPropのWSB_PROP_HBKGCOLORインデックスなどで設定します。

ちなみに、WM_CTLCOLORSCROLLBARはScrollBarクラスで作成したコントロールのみ利用できます。

https://msdn.microsoft.com/en-us/library/windows/desktop/bb775438(v=vs.85).aspx

下のようにすればいいのですが、フラットスクロールバーにならないですね。

#include "comctl32.as"


#define FSB_FLAT_MODE           2
#define FSB_ENCARTA_MODE        1
#define FSB_REGULAR_MODE        0

#define WSB_PROP_CYVSCROLL  0x00000001
#define WSB_PROP_CXHSCROLL  0x00000002
#define WSB_PROP_CYHSCROLL  0x00000004
#define WSB_PROP_CXVSCROLL  0x00000008
#define WSB_PROP_CXHTHUMB   0x00000010
#define WSB_PROP_CYVTHUMB   0x00000020
#define WSB_PROP_VBKGCOLOR  0x00000040
#define WSB_PROP_HBKGCOLOR  0x00000080
#define WSB_PROP_VSTYLE     0x00000100
#define WSB_PROP_HSTYLE     0x00000200
#define WSB_PROP_WINSTYLE   0x00000400
#define WSB_PROP_PALETTE    0x00000800
#define WSB_PROP_MASK       0x00000FFF
sdim s
repeat 100:s+=strf("%03d\n",cnt):loop
listbox n,,s
hListBox=objinfo_hwnd(stat)
InitializeFlatSB hListBox
FlatSB_SetScrollProp hListBox, WSB_PROP_VSTYLE, FSB_FLAT_MODE, 1
FlatSB_SetScrollProp hListBox, WSB_PROP_VBKGCOLOR, 0xFFFF00,1

井上ソフトウェア様、返信ありがとうございます。


残念ながら、英語は全くと言ってよいほどわかりませんで・・・おてあげです。

URLをいじって日本語表示を試みましたが、「選択された言語では表示できません。」とかで、ダメでした。


引き続き、わかる方がいらっしゃいましたらよろしくお願いします。

日本語の資料をMicrosoftは持っていないので、翻訳サービスを使って見てください。

▼下のリンクを押すと、Google翻訳で日本語化した資料を見る事が出来ます。
https://translate.google.co.jp/translate?sl=en&tl=ja&js=y&prev=_t&hl=ja&ie=UTF-8&u=https%3A%2F%2Fmsdn.microsoft.com%2Fen-us%2Flibrary%2Fwindows%2Fdesktop%2Fbb775438.aspx

NO.76870の、
>残念ながら、お教えいただいたURLにアクセスできません。

Wayback Machineでアーカイブを見ることが出来ます。
https://web.archive.org/web/20151029221536/http://www50.tok2.com/home2/StillGreen/knowledge/program/backcolor.htm

なんかいきなりですいません...

Fubuki さん、提示したURL が見れなくてすみません。(tok2 のHP よく見れなくなるんだよねー・・・)
InoueSoftware さん、変わりのページの提示ありがとうございます。

基本的に、自分でサブクラスなどを作成しないで、オーナードローだけを使用するならウインドウメッセージで通知が送られてくるから作成するのも簡単かなーっとURL を提示させていただきました。
(本来はサブクラスを作りたいところですが、なにせHSPにコールバックがないので・・・)

お二方、返信ありがとうございます。

やはり、オーナードローを覚えないとだめなのかなぁと思い始めました。
オーナードローについては少し見ては見ましたが、ほとんど理解できませんでした。

listbox、statictext、mesboxは簡単なのに、chkbox、cmbbox、buttonについてはとても難しいんですね・・・。

少し、参考となるリンク貼っておきます。

http://tu3.jp/0107

過去ログ
http://hsp.tv/play/pforum.php?mode=pastwch&num=49657

千本桜　様

　URLありがとうございます。


　早速試してみましたが、やはり

　　・チェックボックスの背景色は変更できても文字色が黒のまま
　・コンボボックスの色を変更しても、展開して出てくる選択肢部分にしか反映されず、
　　トップにいつも表示され続ける部分に影響しない。


という結果でした。複数のモジュールを試していますが、これはやはり共通のようです。
(モジュール内部での処理内容も、ほぼ同じですし)

　windows Airoの導入された７以降での問題のようで、これはどうにもならないのかもしれません。


　世の中、そろそろ諦めが肝心なのかと思っています。