Module/mod_customizebutton_v2

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83

//	mod_customizebutton(Ver 2.00 以降)
//	基本的な機能のサンプル
//	簡易版命令を使用して特定の要素に関する設定のみを行います。
 
    #include "mod_customizebutton.hsp"
 
    randomize
 
    buffer 3 : picload dirinfo( 1 ) + "\\sample\\demo\\logop.bmp" ;360,148
    buffer 4 : picload dirinfo( 1 ) + "\\sample\\demo\\onibtn.gif" ;136,50
    buffer 5 : picload dirinfo( 1 ) + "\\sample\\demo\\sky_bg.jpg" ;640,480
    buffer 2, 640, 480, 0
    pos   0, 0 : gzoom 128,  48, 3, 0, 0, 360, 148, 0
    pos 160, 0 : gzoom 128,  48, 4, 0, 0, 136,  50, 0
    pos 320, 0 : gzoom 128,  48, 5, 0, 0, 640, 480, 0
    pos 480, 0 : gzoom 128, 128, 5, 0, 0, 640, 480, 0
 
    screen 0, 640, 480, 0
    ;screen 1, 640, 480, 0
    redraw 0
    color 127, 127, 127 : boxf
    repeat 120
        c = rnd( 7 ) : color (c / 4) \ 2 * 255, (c / 2) \ 2 * 255, (c) \ 2 * 255
        pos rnd( 600 ), rnd( 460 ) : mes "test"
    loop
    redraw 1
 
    color 255, 255, 255
    pos   0,   0 : mes "基本表示スタイル"
    objsize 128, 48
    pos   0,  20 : button "標準", *pushed
    pos 160,  20 : button "外枠なし", *pushed
    _bc_frame stat, 0, 1
    pos 320,  20 : button "フォーカス枠なし", *pushed
    _bc_frame stat, 1, 0
 
    pos   0,  80 : mes "色変更"
    pos   0, 100 : button "表面色変更", *pushed
    _bc_color stat, 0xFF0000
    pos 160, 100 : button "文字色変更", *pushed
    _bc_color stat, , 0x0000FF
    pos 320, 100 : button "下地を透過", *pushed
    _bc_color stat, -1
    pos 480, 100 : button "文字表示無し", *pushed
    _bc_color stat, , -1
 
    pos   0, 160 : mes "表面に画像を使用"
    pos   0, 180 : button "表面に画像を使用", *pushed
    _bc_image stat, 2, 0, 0
    pos 160, 180 : button "表面に画像を使用", *pushed
    _bc_image stat, 2, 160, 0
    pos 320, 180 : button "表面に画像を使用", *pushed
    _bc_image stat, 2, 320, 0
 
    pos   0, 240 : mes "形を変更"
    pos   0, 260 : button "楕円", *pushed
    _bc_shape stat, -1
    pos 160, 260 : button "三角", *pushed
    _bc_shape stat, -4
    pos 320, 260 : button "星", *pushed
    _bc_shape stat, -8
 
    pos   0, 320 : mes "以上の組み合わせ"
    pos   0, 340 : button "組み合わせ", *pushed
    _bc_color stat, -1, 0xFF0000
    _bc_shape stat, -7
    pos 160, 340 : button "組み合わせ", *pushed
    _bc_frame stat, 0, 0
    _bc_color stat, 0xFFFF00, 0x00FF00
    _bc_shape stat, -8
    objsize 128, 128
    pos 320, 340 : button "組み合わせ", *pushed
    _bc_color stat, , 0x00FFFF
    _bc_image stat, 2, 480, 0
    _bc_shape stat, -1
 
    stop
 
*pushed
    p ++
    title strf( "押した回数 %6d", p ) + strf( " (ID%5d)", stat )
    stop
   

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72

//	mod_customizebutton(Ver 2.00 以降)
//	リンクボタン関連命令のサンプル
//	htmlリンクのようなリンクボタンを作成するための命令を使用します。
 
#include "mod_customizebutton.hsp"
 
    onexit gosub *on_exit
 
    buffer 1, , , 0
    picload dirinfo( 1 ) + "\\sample\\demo\\sky_bg.jpg" ;640,480
    imgsize = ginfo_winx, ginfo_winy, (ginfo_winx + 7) / 8, (ginfo_winy + 7) / 8
 
    screen 2, imgsize(0), imgsize(1), 2
    gcopy 1, 0, 0, imgsize(0), imgsize(1)
 
    buffer 3, imgsize(2), imgsize(3), 0
    gzoom imgsize(2), imgsize(3), 1, 0, 0, imgsize(0), imgsize(1)
 
    gsel 0
    color 0, 0, 255
    repeat 20 : line cnt * 32, 480, cnt * 32, 0 : loop
 
    linkstyle -2
    pos 0, 0
    color 0, 0, 0
    linkbutton gosub "ｌｉｎｋ", *push
    color 255, 0 , 0
    linkbutton gosub "りんく", *push
    color 0, 0, 255
    linkbutton gosub "リンク", *push
 
    pos 0, 100
    color 191, 0, 0
    linkstyle -2,, 4,,, 4,,, 4,,, 4
    linkmes "下線付き", gosub "リンク", "です。", *push
    mes "下線付き" + "リンク" + "です。" + "(比較用文字列)"
    color 0, 191, 0
    linkstyle -2,, 0,,, 0,,, 0, -2,, 4
    linkmes "ポイント時のみ下線付きの", gosub "リンク", "です。", *push
    mes "ポイント時のみ下線付きの" + "リンク" + "です。" + "(比較用文字列)"
 
    pos 0, 200
    color 0, 0, 0
    mes "リンク画像"
    linkimage gosub "", *push2, 3, 0, 0, imgsize(2), imgsize(3)
    mes "クリックで拡大(別ウィンドウで開きます)"
 
*main
    repeat
        isbchot
        wait 3
    loop
    stop
 
*push
    // 訪問済み設定
    bs = stat
    dialog "リンク" + bs + "を選択しました。"
    linkvisit bs, 1
    return
 
*push2
    // ウィンドウを開く
    gsel 2, 1
    gsel 0, 0
    return
 
*on_exit
    // ウィンドウを閉じる
    if ( (wparam == 2) & (lparam == 0) ) { gsel 2, -1 : gsel 0, 0 : return }
    end
   

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
-
|
|
|
!
 
 
 
 
-
|
|
-
|
|
|
|
|
!
|
|
!
 
 
 
 
 
 
 
 
 

//	mod_customizebutton(Ver 2.00 以降)
//	選択肢作成のサンプル
//	モジュールの機能を利用してマウス・カーソルキーで選択・決定できる選択肢を作成します。
 
#include "mod_customizebutton.hsp"
 
    objmode , 0 // TAB キーでのフォーカス移動をしない
    objsize 128, 28
    font msgothic, 22
    pos 0, 0
 
    dim oid_sel, 3
    sdim text_sel, 64, 3
    text_sel = "選択肢　１", "選択肢　２", "選択肢　３"
    repeat 3
        // 選択肢用ボタンの設定
        button gosub text_sel(cnt), *push // ボタン作成
        oid_sel(cnt) = stat
        ;_bc_shape stat, -1
        _bc_frame stat, 0, 0 // フォーカス枠非表示
        _bc_color stat, 0x000000, 0xFF0000 // 基本色(選択されていない状態に対する設定)
        _bc_color stat, 0xFF0000, 0x000000, 1 // フォーカスがあるときの色(選択中の状態に対する設定)
        _bc_color stat, 0xFF0000, 0x000000, 2 // フォーカスがあるときの色(選択中の状態に対する設定)
    loop
 
    sel_c = 0 // 選択中の選択肢番号
 
    // 現在選択されている選択肢番号に対応したボタンにフォーカスがあるようにします。
    objsel oid_sel(sel_c)
*main
    repeat
        // カーソルキーを押したとき
        stick key_st
        if ( key_st & 0x3) {
            sel_c = (sel_c - 1 + 3) \ 3 // 選択肢番号変更 (-1。0より小さくなれば最大値に)
            gsel 0, 0
            objsel oid_sel(sel_c) // 選択肢番号に対応したボタンにフォーカス設定
        } else : if ( key_st & 0xC) {
            sel_c = (sel_c + 1) \ 3 // 選択肢番号変更 (+1。最大値より大きくなれば0に)
            gsel 0, 0
            objsel oid_sel(sel_c) // 選択肢番号に対応したボタンにフォーカス設定
        }
 
        // マウスカーソルを動かしたとき
        mx_c = ginfo(0)
        my_c = ginfo(1)
        if ( (mx_c != mx_o) | (my_c != my_o) ) {
            getbchot wid, oid
            // 選択肢用ボタンの上にマウスカーソルがあるか?
            if ( wid != -1 ) {
                f = -1
                repeat 3 // マウスカーソルが載っているボタンが選択肢用ボタンかを調べる
                    if ( oid_sel(cnt) == oid ) { f = cnt : break }
                loop
                if ( f != -1 ) { sel_c = f : gsel 0, 0 : objsel oid_sel(sel_c) }
            }
            mx_o = mx_c
            my_o = my_c
        }
        wait 3
    loop
    stop
 
*push
    dialog "選択肢" + (sel_c  + 1) + "を選択しました。"
    objsel oid_sel(sel_c)
    return