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


HSPTV!掲示板


未解決 解決 停止 削除要請

2006
1018
ミカ押しても反応しないボタン3解決


ミカ

リンク

2006/10/18(Wed) 17:36:47|NO.3009

題名の通り、中の文字が薄くなって、クリックしても反応しなくなるような
ボタンを作るにはどうしたら良いのでしょうか?
既にどこかに解説があったらすいません。



この記事に返信する


Irisawa

リンク

2006/10/18(Wed) 18:30:10|NO.3011

グレイアウトのことでしょうか。
WS_DISABLEDスタイルを追加するかEnableWindowで無効化します。


#uselib "user32.dll" #cfunc GetWindowLong "GetWindowLongA" int, int #func SetWindowLong "SetWindowLongA" int, int, int #func EnableWindow "EnableWindow" int, int #const WS_DISABLED 0x08000000 #const GWL_STYLE -16 button "ボタン1", *on_button id1 = stat button "ボタン2", *on_button id2 = stat btnwnd1 = objinfo(id1, 2) btnwnd2 = objinfo(id2, 2) style = GetWindowLong(btnwnd1, GWL_STYLE) style |= WS_DISABLED SetWindowLong btnwnd1, GWL_STYLE, style stop *on_button push = stat switch push case id1 flg = 0 swbreak case id2 flg = 1 swbreak swend EnableWindow btnwnd1, flg ^ 0 EnableWindow btnwnd2, flg ^ 1 stop



Kpan

リンク

2006/10/18(Wed) 20:16:10|NO.3013

モジュールも用意されてます。
 common\obj.as



ミカ

リンク

2006/10/18(Wed) 22:15:52|NO.3014

なるほど、グレイアウトと言うのですね。
obj.asの方も参考にしてみます。
Irisawaさん、Kpanさん、素早い回答ありがとうございました。

しかし、微妙に知らない命令が混ざってる・・・(^^;)
知らない事を一つずつ覚えていくのも楽しいものですね。
まぁ、私が初心者なだけでしょうけど(汗
それでは乱文失礼しました。



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