eseobj/imgbtn

ウィンドウメッセージを利用した画像ボタン †

[編集]

ウィンドウメッセージを利用して画像をボタンとして動作します。

↑

スクリプトファイル †

[編集]

#module mod_imgbtn
 
#uselib "gdi32"
#func GetTextExtentPoint32A "GetTextExtentPoint32A" int,str,int,sptr
#uselib "user32"
#func SetCapture "SetCapture" int
#func ReleaseCapture "ReleaseCapture"
 
#enum global IB_NOMAL
#enum global IB_SELECT
#enum global IB_CLICK
 
 
#enum WINID = 0
#enum PX
#enum PY
#enum WX
#enum WY
 
 
//ボタンデータのセット
//	ボタンデータID,
//	登録する画像のタイプ	IB_NOMAL  IB_SELECT  IB_DOWN,
//	ウィンドウのID,
//	位置 X,Y
//	大きさ X,Y
#deffunc imgbtn_setbtn int _btndataid, int _type, int _winid, int _x, int _y, int _w, int _h
if length(data)<=1:dim data,64,4,5            //配列変数に初期化
data(_btndataid,_type,WINID)=_winid
data(_btndataid,_type,PX)=_x
data(_btndataid,_type,PY)=_y
data(_btndataid,_type,WX)=_w
data(_btndataid,_type,WY)=_h
 
 
return
 
 
//新しいボタンの登録
//	ボタンに表示される文字列,
//	識別メッセージID,
//	使用されるボタンID
#deffunc imgbtn str _title, str _flagID, int _btnid
 
    if length(btn_int)=1:dim btn_int, 64, 256, 3
    if length(btn_str)=1:sdim btn_str,32, 64, 256, 2
    if length(btnmax)=1:dim btnmax,64
    
    if count=256:dialog "これ以上オブジェクトを登録できません":end
    btn_int(ginfo_sel,count,0)=ginfo_cx
    btn_int(ginfo_sel,count,1)=ginfo_cy
    btn_int(ginfo_sel,count,2)=_btnid
    btn_str(ginfo_sel,count,0)=_title
    btn_str(ginfo_sel,count,1)=_flagID
    btnmax(ginfo_sel)=count+1
 
    
    dim textsize,2
    GetTextExtentPoint32A hdc, btn_str(ginfo_sel,count,0), strlen(btn_str(ginfo_sel,count,0)),varptr(textsize)
    tx(count)=btn_int(ginfo_sel,count,0)+(data(btn_int(ginfo_sel,count,2),IB_NOMAL,WX)-textsize(0)>>1)
    ty(count)=btn_int(ginfo_sel,count,1)+(data(btn_int(ginfo_sel,count,2),IB_NOMAL,WY)-textsize(1)>>1)
count+
return
 
 
 
//ボタンとして新規に登録する(カレントウィンドウ別)
//	ボタンスクリプト
//	→ 位置X	位置Y	表示する文字列	ID	使用するボタンデータID
//	※区切りコードはTABです。
#deffunc imgbtn_input var _var
notesel _var
    dim btn_int,256,notemax,2
    sdim btn_str,64,256,notemax,2
repeat notemax
    noteget s5,cnt
    s1=0
    repeat
        getstr s2,s5,s1,'	' : s1+=strsize
        if s2=""{continue}else{break}
    loop
 
 
    repeat
        getstr s3,s5,s1,'	' : s1+=strsize
    
        if s3=""{continue}else{break}
        
    loop
 
 
    repeat
        getstr s4,s5,s1,'	' : s1+=strsize
        if s4="\"\"":s4="":break
        if s4=""{continue}else{break}
    loop
    
    repeat
        getstr s6,s5,s1,'	' : s1+=strsize
        if s6=""{continue}else{break}
    loop
 
    repeat 5
        getstr s7,s5,s1,'	' : s1+=strsize
        if s7=""{continue}else{break}
    loop
 
    
    btn_int(ginfo_sel,cnt,0)=int(s2)    //X
    
    
    btn_int(ginfo_sel,cnt,1)=int(s3)    //Y
    btn_int(ginfo_sel,cnt,2)=int(s7)    //ボタンデータID
    
    btn_str(ginfo_sel,cnt,0)=s4            //文字列
    btn_str(ginfo_sel,cnt,1)=s6            //ボタン識別ID
 
    dim textsize,2
    GetTextExtentPoint32A hdc, btn_str(ginfo_sel,cnt,0), strlen(btn_str(ginfo_sel,cnt,0)),varptr(textsize)
    tx(cnt)=btn_int(ginfo_sel,cnt,0)+(data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WX)-textsize(0)>>1)
    ty(cnt)=btn_int(ginfo_sel,cnt,1)+(data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WY)-textsize(1)>>1)
    
    
loop
    btnmax(ginfo_sel)=notemax
    dim movelock,5,btnmax(ginfo_sel)
    dim im_red,btnmax(ginfo_sel)
 
return
 
 
 
 
 
 
 
//ボタンが描画されるかどうか調べる
#defcfunc imgbtn_check int _iparam, int _lparam
 
 
    if imgbtn_start=0{
        dim movelock,5,btnmax(ginfo_sel)
        dim im_red,btnmax(ginfo_sel)
        imgbtn_start=1
        return 1
    }
 
    //マウス位置の取得
    if (_iparam=512)|(_iparam=513)|(_iparam=514){
        mx=(_lparam & 0xFFFF)
        my=((_lparam >> 16 ) & 0xFFFF)
    }
 
 
    imgbtn_redraw=0
    dim im_red,btnmax(ginfo_sel)
        
    repeat btnmax(ginfo_sel)
 
    
        if (_iparam=513)|(_iparam=514){
            if (btn_int(ginfo_sel,cnt,0)<mx) & (btn_int(ginfo_sel,cnt,1)<my) & (btn_int(ginfo_sel,cnt,0)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WX)>mx) & (btn_int(ginfo_sel,cnt,1)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WY)>my){
                imgbtn_redraw=1
            }
        }
    
        //mousemove
        if _iparam=512{
    
    
    
 
                        
                //マウスがボタン上にあったら選択状態にする
                if (btn_int(ginfo_sel,cnt,0)<mx) & (btn_int(ginfo_sel,cnt,1)<my) & (btn_int(ginfo_sel,cnt,0)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WX)>mx) & (btn_int(ginfo_sel,cnt,1)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WY)>my){
                    movelock(0,cnt)=0        //ボタンの描画が変更された
                    if selected=0{
                        //一度だけ描画
                        if movelock(1,cnt)=0{
                            
                            imgbtn_redraw=1            //再描画フラグ
                            im_red(cnt)=IB_SELECT    //描画するボタン
                            movelock(1,cnt)=1
                        }
                
                    
        
                    }else{
                        
                        if imgbtnsel=cnt{
                            if movelock(2,cnt)=0{
                                imgbtn_redraw=1            //再描画フラグ
                                im_red(cnt)=IB_CLICK    //描画するボタン
                                movelock(2,cnt)=1
                            }
                                
                        }
                        
                    }
                }else{
        
                    if movelock(0,cnt)=0{
                    //なかった場合通常表示
                        imgbtn_redraw=1            //再描画フラグ
                        im_red(cnt)=IB_NOMAL    //描画するボタン
                        
                            
                        movelock(0,cnt)=1                //一度だけ描画
                        
                    }
                    if movelock(2,cnt)=1:movelock(2,cnt)=0
                    if movelock(1,cnt)=1:movelock(1,cnt)=0
                }
        
        }
 
 
 
 
    //mousedown
    if _iparam=513{
        if (selected=0) & (btn_int(ginfo_sel,cnt,0)<mx) & (btn_int(ginfo_sel,cnt,1)<my) & (btn_int(ginfo_sel,cnt,0)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WX)>mx) & (btn_int(ginfo_sel,cnt,1)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WY)>my){
            im_red(cnt)=IB_CLICK
            selected=1
            SetCapture hwnd
            imgbtnsel=cnt
        }
    }
 
    //mouseup
    if _iparam=514{
 
 
        //マウスがボタン上にあったら選択状態にする
        if (btn_int(ginfo_sel,cnt,0)<mx) & (btn_int(ginfo_sel,cnt,1)<my) & (btn_int(ginfo_sel,cnt,0)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WX)>mx) & (btn_int(ginfo_sel,cnt,1)+data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WY)>my){
                im_red(cnt)=IB_SELECT
            if (selected=1)&(imgbtnsel=cnt){
                hit=1
                hitid=cnt
            }
        }else{
            //なかった場合通常表示
            im_red(cnt)=IB_NOMAL
        }
 
        
    }
 
 
 
        
    loop
 
 
    if selected=1{
        if _iparam=512{
            getkey key,1
            if key=0:selected=0
        }
    }
 
    if _iparam=514{
        selected=0
        ReleaseCapture
    }
 
 
 
    
return imgbtn_redraw
 
 
 
//ボタンの描画
#deffunc imgbtn_draw
redraw 0
repeat btnmax(ginfo_sel)
 
 
    switch im_red(cnt)
        case IB_NOMAL
 
            pos btn_int(ginfo_sel,cnt,0), btn_int(ginfo_sel,cnt,1)
            gcopy data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WINID), data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,PX), data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,PY), data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WX), data(btn_int(ginfo_sel,cnt,2),IB_NOMAL,WY)
            pos tx(cnt),ty(cnt):mes btn_str(ginfo_sel,cnt,0)
 
            
        swbreak
            
        case IB_CLICK
            pos btn_int(ginfo_sel,cnt,0), btn_int(ginfo_sel,cnt,1)
            gcopy data(btn_int(ginfo_sel,cnt,2),IB_CLICK,WINID), data(btn_int(ginfo_sel,cnt,2),IB_CLICK,PX), data(btn_int(ginfo_sel,cnt,2),IB_CLICK,PY), data(btn_int(ginfo_sel,cnt,2),IB_CLICK,WX), data(btn_int(ginfo_sel,cnt,2),IB_CLICK,WY)
            pos tx(cnt)+1,ty(cnt)+1:mes btn_str(ginfo_sel,cnt,0)
        swbreak
 
        case IB_SELECT
            pos btn_int(ginfo_sel,cnt,0), btn_int(ginfo_sel,cnt,1)
            gcopy data(btn_int(ginfo_sel,cnt,2),IB_SELECT,WINID), data(btn_int(ginfo_sel,cnt,2),IB_SELECT,PX), data(btn_int(ginfo_sel,cnt,2),IB_SELECT,PY), data(btn_int(ginfo_sel,cnt,2),IB_SELECT,WX), data(btn_int(ginfo_sel,cnt,2),IB_SELECT,WY)
            pos tx(cnt),ty(cnt):mes btn_str(ginfo_sel,cnt,0)
        swbreak
    swend
 
 
 
loop
 
 
if hit=1{
    hit=0
    hitidstr=btn_str(ginfo_sel,hitid,1)
    redraw 1
    return 1
}else{
    hitidstr=""
    redraw 1
    return 0
}
 
//直後にクリックされたボタンの識別IDが戻ります。
#defcfunc ibjump
return hitidstr
 
 
 
    btn_int(ginfo_sel,cnt,0)=int(s2)
    
    
    btn_int(ginfo_sel,cnt,1)=int(s3)
    btn_str(ginfo_sel,cnt,0)=s4            //文字列
    btn_str(ginfo_sel,cnt,1)=s6            //ボタン識別ID
 
 
//識別IDからボタンIDを取得(若干CPUを浪費してしまうため、変数に代入したものをibposなどに使用してください)
//ibid("識別ID")
#defcfunc ibid str _str
repeat btnmax(ginfo_sel)
    s1=0
    if btn_str(ginfo_sel,cnt,1)=_str{
        s1=cnt
        break
    }
loop
if s1=0:return -1
return s1
    
//ボタンの位置の変更
//ibpos ID, X, Y
#deffunc ibpos int _id, int _x, int _y
btn_int(ginfo_sel,_id,0)=_x
btn_int(ginfo_sel,_id,1)=_y
GetTextExtentPoint32A hdc, btn_str(ginfo_sel,_id,0), strlen(btn_str(ginfo_sel,_id,0)),varptr(textsize)
tx(_id)=btn_int(ginfo_sel,_id,0)+(data(btn_int(ginfo_sel,_id,2),IB_NOMAL,WX)-textsize(0)>>1)
ty(_id)=btn_int(ginfo_sel,_id,1)+(data(btn_int(ginfo_sel,_id,2),IB_NOMAL,WY)-textsize(1)>>1)
return
 
//ボタンの文字列の変更
//ibtitle ID, Title
#deffunc ibtitle int _id, str _str
btn_str(ginfo_sel,_id,0)=_str        //文字列
dim textsize,2
GetTextExtentPoint32A hdc, _str, strlen(_str),varptr(textsize)
tx(_id)=btn_int(ginfo_sel,_id,0)+(data(btn_int(ginfo_sel,_id,2),IB_NOMAL,WX)-textsize(0)>>1)
ty(_id)=btn_int(ginfo_sel,_id,1)+(data(btn_int(ginfo_sel,_id,2),IB_NOMAL,WY)-textsize(1)>>1)
return
 
//ボタンを押したときに文字列を下げる
#deffunc imgbtn_titleoption int _flag
if _flag=1{
    downsize=1
}else{
    downsize=0
}
return
#global
 
 
 
 
 
 
 
//---------------------------------------------------------------------------------------
//サンプル
 
#if 1
 
//ボタンイメージ
buffer 2
color
boxf 0,0,99,20
color 210,210,210
boxf 0,0,98,19
 
color
boxf 0,21,99,41
color 180,180,180
boxf 0,21,98,40
 
color
boxf 0,42,99,62
color 180,180,180
boxf 1,43,99,62
 
 
screen 0
sysfont 17
 
 
//ボタンイメージのセット
imgbtn_setbtn 0,IB_NOMAL, 2, 0, 0, 100, 21            //通常表示
imgbtn_setbtn 0,IB_SELECT, 2, 0, 21, 100, 21            //選択
imgbtn_setbtn 0,IB_CLICK, 2, 0, 42, 100, 21            //クリック
 
imgbtn_setbtn 1,IB_SELECT, 2, 0, 0, 100, 21            //通常表示
imgbtn_setbtn 1,IB_CLICK, 2, 0, 21, 100, 21            //選択
imgbtn_setbtn 1,IB_NOMAL, 2, 0, 42, 100, 21            //クリック
 
 
 
 
//ボタン情報の登録
s1={"
20	20	HSP		hsp
100	100	ボタン	test
23	300	Click	click	1
"}
imgbtn_input s1        //登録
 
 
//メッセージ
#define WM_MOUSEMOVE    $00000200
#define WM_LBUTTONDOWN    $00000201
#define WM_LBUTTONUP    $00000202
oncmd gosub *ON_WM_MOUSEMOVE,WM_MOUSEMOVE
oncmd gosub *ON_WM_LBUTTONDOWN,WM_LBUTTONDOWN
oncmd gosub *ON_WM_LBUTTONUP,WM_LBUTTONUP
gosub *draw        //描画
 
 
 
 
 
 
 
gsel 0,1
stop
 
*ON_WM_MOUSEMOVE
    gosub *draw
    return
 
*ON_WM_LBUTTONDOWN
    gosub *draw
    return
 
*ON_WM_LBUTTONUP
    gosub *draw
    return
 
 
*draw
     redraw 0
    gsel 0
    //ボタンが描画されるかどうか調べる(CPUを無駄に消費しないため)
    if imgbtn_check(iparam,lparam)=1{
        color 223,234,111 : boxf : color    //背景の描画
        imgbtn_draw                            //ボタンの描画
        //ボタンがクリックされた場合1を返す
        if stat=1{
            if ibjump()="hsp":ibtitle 0,""+cc:cc+:imgbtn_draw    //文字列の変更・ボタンの再描画
            if ibjump()="test":ibpos 1,233,23        //位置の変更
            if ibjump()="click":dialog "ボタンデータのIDを変更するとボタンイメージを変えることができます。"
        }
    }
    redraw 1
 
 
    
 
    return    
 
 
 
#endif

gmode 7によるアルファブレンドのボタンも使用することができます。 CPUを極力占有しないようにしました。内部ではボタンの再描画要求があると一度に全部のボタンが再描画されるようになっていますが＾＾；これはアルファブレンドボタンの場合重ね描画をすると半透明部分が濃くなってしまうため一度背景を再描画してから全部のボタンを描画しているからです。マウスをランダムに動かしてもCPU占有率はほとんど変わりません。

↑

コメント †

[編集]

OFFICIAL/関連

TUTORIAL

TOPICS

ETC

EDIT

REFERENCE

LOG

お知らせ

HSP Web-Ring

最新の40件

ウィンドウメッセージを利用した画像ボタン †

スクリプトファイル †

関連 †

コメント †