アイテム選択欄

  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
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191

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

 
;-------------------------------------------------------------------------
;お手軽アイテム選択欄操作モジュール
;使い方の流れはこんな感じです。
;	ListSetでアイテム一覧を登録。
;	ListSelectで選択。
;	ListGetで選択した項目の情報取得。
;ListAddItemとListDelItemで項目の追加と削除ができます。
;
;項目番号と項目IDについて
;	項目番号：リスト内での上から数えたときの順番（0〜）
;	項目ID：項目それぞれに振り分けられるID番号（順番が移動しても変わらない）
#module
 
;リスト登録
;ListSet _strlist, _lmaxnum
;	_strlist：項目が入った配列変数
;	_intItemid：項目IDが入った配列変数
;	_lmaxnum：項目の個数
#deffunc ListSet array _strlist, array _intItemid, int _lmaxnum
    sdim strlist, 128, 256    ;リストは最大256まで項目をふやせる。これ以上はエラー。
    dim intItemid, 256
    lmaxnum = _lmaxnum    ;項目の個数
    lsctnum = 0            ;選択中の項目
    if lmaxnum <= 0 : lsctnum = -1
    i = lmaxnum
    if lmaxnum<0 : i = length(_strlist)
    repeat i
        strlist.cnt = _strlist.cnt
        intItemid.cnt = _intItemid.cnt
    loop
    return
 
 
;選択移動
;ListSelect p1
;	p1：選択肢を移動する移動量
;		現在選択している項目番号が5のとき
;			ListSelect -2
;		とすると項目番号3が選択される。
#defcfunc ListSelect int p1
    if (lsctnum>=0)&(lsctnum<lmaxnum) : lsctnum+=p1
    if (lmaxnum>0)&(lsctnum<0) : lsctnum = 0
    if lsctnum >= lmaxnum : lsctnum = lmaxnum-1
    return lsctnum    ;現在選択されている項目番号
 
 
;リストの情報取得
;ListGet(p1, p2)
;	p1：種類（0:項目の個数、1:現在選択されている項目番号、2:現在選択されている項目id、3:指定された番号の項目の内容、4:指定された番号の項目のid）
;	p2：項目番号（p1で2か3が選択されたときのみ有効。）
;	返り値：種類によってことなる。
;		0：(int)項目の個数
;		1：(int)現在選択されている項目番号
;		2：(int)現在選択されている項目id
;		3：(str)指定された番号の項目の内容
;		4：(int)指定された番号の項目のid
#defcfunc ListGet int p1, int p2
    if p1=0 : return lmaxnum    ;項目の個数
    if p1=1 : return lsctnum    ;現在選択されている項目番号
    if p1=2 {
        if (lsctnum>=0)&(lsctnum<lmaxnum) {
            return intItemid.lsctnum    ;現在選択されている項目のid
        } else {
            return 0
        }
    }
    if p1=3 {
        if (p2>=0)&(p2<lmaxnum) {
            k = ""+strlist.p2
            return k    ;指定された番号の項目の内容
        } else {
            return ""
        }
    }
    if p1=4 {
        if (p2>=0)&(p2<lmaxnum) {
            return intItemid.p2    ;指定された番号の項目のid
        } else {
            return 0
        }
    }
    return 0
 
;新しい項目を任意の場所に追加
;ListAddItem strls, p1
;	strls：項目の内容
;	_innum：項目番号
#deffunc ListAddItem str strls, int intls, int _innum
    innum = _innum
    if innum<0 : return 1
    if innum>lmaxnum : innum = lmaxnum    ;指定した場所が存在しないときは一番最後に追加
    strlist1 = strlist.innum
    intItemid1 = intItemid.innum
    repeat lmaxnum-innum, innum+1
        strlist0 = strlist1
        strlist1 = strlist.cnt
        strlist.cnt = strlist0
 
        intItemid0 = intItemid1
        intItemid1 = intItemid.cnt
        intItemid.cnt = intItemid0
    loop
    strlist.innum = strls
    intItemid.innum = intls
        lmaxnum++
    if lsctnum >= innum : lsctnum++
    if lsctnum = -1 : lsctnum = 0
    return
 
;項目の指定番号を削除
;ListDelItem p1
;	p1:項目番号
#deffunc ListDelItem int p1
    if (p1>=lmaxnum)|(p1<0): return 1
    if lmaxnum>0 {
        repeat lmaxnum-p1, p1
            i = cnt +1
            strlist.cnt = strlist.i
            intItemid.cnt = intItemid.i
        loop
        lmaxnum--
        strlist.lmaxnum = ""
        intItemid.lmaxnum = 0
        if lsctnum >= lmaxnum : lsctnum = lmaxnum-1
    } else {
        return 1
    }
    return 0
 
 
#global
;-------------------------------------------------------------------------
;モジュールここまで
 
 
;----------------------------
;実行結果サンプル
 
button "追加", *tuika
button "削除", *kesu
bangou = 2
input bangou
 
sdim li,64,10
li = "0:しりとり","1:りんご","2:ごりら","3:らっぱ","4:パンダ","5:ダチョウ","6:うなぎ","7:ぎんやんま","8:マッスルタッグマッチ","9:稚鮎"
liid = 100,11,22,33,44,55,66,77,88,99
lsctnum = 0    ;選択番号
ListSet li, liid, length( li )
tuikanum = length( li )
 
;----------------------------
;メイン
*main
    redraw 1 : await 33 : redraw 0 : color 255,255,255 : boxf : color
    pos 100,30
 
    ;キー入力
    stick key
    if key&2 : lsctnum = ListSelect(-1)
    if key&8 : lsctnum = ListSelect(1)
 
    ;一覧表示
    mes "個数："+ListGet(0)
    mes "選択："+ListGet(1)
    repeat ListGet(0)
        mes "[ID_"+ListGet(4, cnt)+"] "+ListGet(3, cnt)
    loop
 
    ;現在選択されているアイテム
    pos 100, 0
    if ListGet(1)>=0 : mes "選択("+ ListGet(1) +")：[ID_"+ListGet(2)+"] "+ListGet(3,ListGet(1))
goto *main
 
;----------------------------
;サブルーチン
 
*tuika
    ;追加
    ListAddItem ""+tuikanum+":追加", tuikanum*10, bangou
    tuikanum++
    goto *main
 
 
*kesu
    ;削除
    ListDelItem bangou
    goto *main
 
 

  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

 
sdim li,64,10
li = "0:しりとり","1:りんご","2:ごりら","3:らっぱ","4:パンダ","5:ダチョウ","6:うなぎ","7:ぎんやんま","8:マッスルタッグマッチ","9:稚鮎"
 
 
;動作内容可視化　初期化
px = 100 : py = 100    ;表示座標
 
;擬似リストボックス　初期化
lbox_kosu = 4    ;表示する数
lbox_kosu--
 
*main
    redraw 0
    color 255,255,255 : boxf : color 0,0,0
    pos 0,0 : mes "キーボードの↑↓キーで操作します。\nスペースキーで決定。"
    stick k
 
    ;擬似リストボックスを表示
    pos 300, 80 : mes "表示"
    ptwa = ptw
    repeat lbox_kosu+1
        pos 300,100+(cnt*20) : mes li.ptwa
        if pt = ptwa : pos 280,100+(cnt*20) : mes "→"
        ptwa++
    loop
 
 
    ;動作内容を視覚化----------------------------------
    ;配列を表示
    pos px-20, py-20 : mes "動作内容"
    repeat 10
        pos px, py + (cnt*20)
        mes li.cnt
    loop
 
    ;選択している配列　pt
    pos px-20, py + (pt*20)
    mes "→"
    if k&2 : if pt>0 : pt--    ;pt選択しているアイテム
    if k&8 : if pt<9 : pt++
 
    ;ウィンドウ範囲のポインタ　ptw〜ptwe
    ;ptwウィンドウ範囲を設定
    if k&2 : if (ptw>=pt) : ptw=pt
    if k&8 : if (ptwe<=pt) : ptw=pt-lbox_kosu
    ;ウィンドウ範囲を描画
    color 255,0,0
    ptwe=ptw+lbox_kosu
    pos px-40, py + (ptw*20)-1  : mes "ws→"
    pos px-40, py + (ptwe*20)-1 : mes "we→"
    color 0,0,0
 
    ;選択決定
    if k&16 : dialog "リストから "+li.pt+" が選択されました。"
 
    await 5
    redraw 1
goto *main
 
stop