| たゆーさん、毎日暑いですね。 マウスポインタをコピーしなくてもいいやり方があるので、参考までにアップしときます。 実際にはソースが配列変数のテキストボックスでしょうけど、見本は単純にコマンドボタンを並べだだけです。ファミリの左クリックイベントだけで、色の選択と配置を処理します。
・クリックで色を選ぶボタン:b1,b2,b3 計3個 ・クリックで色を配置するボタン: b18〜b26 計9個(3列X3段)
やり方としては、今村さんとONnojiさんが書いているように、ファミリを使っています。 ボタンのマウスポインタの種類はすべて標準のままで、それをオブジェクト操作で変更します。
下記のイベントは次のような意味です。 if( 色を選ぶボタンだったら ) object @ファミリ_1.マウスポインタの種類 をボタンの色にする else if( 色を配置するボタンだったら ) object &this.ピクチャ名 を選んでおいた色にする end
名札 メイン &STR = "" * 手続き定義開始 ファミリ_1::マウス左クリック(・・ if( #sstr(&this,1,1)="b" .and #set(秒,#num(#s(&this,"b","")))<4 ) object @ファミリ_1.マウスポインタの種類 = #set(STR,#str(&秒))+".cur" else if( #sstr(&this,1,1)="b" .and 17<#num(#s(&this,"b",""))<27 ) object &this.ピクチャ名 = &STR+".gif" end 手続き定義終了 アックン(=^・^=)
|