【HSP3.x 移植版】『HSPの裏技』リストビューでアイコンを使ってみる | Codetter（こーどったー）

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
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
;【HSP3.x 移植版】
;『HSPの裏技』リストビューでアイコンを使ってみる
; http://chokuto.ifdef.jp/urawaza/lv_icon.html
; ※ファイル iconlist.bmp は上記URLで公開されているものを使用
;
; [参照]『Advanced HSP』ビットマップオブジェクト
; http://chokuto.ifdef.jp/advanced/bitmapobject.html
#module ;###### ビットマップオブジェクト作成モジュール #########
#uselib "gdi32.dll"
#cfunc CreateCompatibleDC "CreateCompatibleDC" int
#cfunc CreateCompatibleBitmap "CreateCompatibleBitmap" int, int, int
#func  SelectObject "SelectObject" int, int
#func  BitBlt "BitBlt" int, int, int, int, int, int, int, int, int
#func  DeleteDC "DeleteDC" int
#func  DeleteObject "DeleteObject" int
#define SRCCOPY     0x00CC0020
; DIBセクションオブジェクト作成
#defcfunc CreateDIB int px, int py, int sx, int sy
    ; DIBセクションオブジェクト作成
    hBitmap = CreateCompatibleBitmap(hdc, sx, sy)
    ; メモリデバイスコンテキスト作成
    hdcMemory = CreateCompatibleDC(hdc)
    ; ビットマップをデバイスコンテキストに選択
    SelectObject hdcMemory, hBitmap
    hOldBitmap = stat
    ; HSPウィンドウからビットマップにイメージをコピー
    BitBlt hdcMemory, 0, 0, sx, sy, hdc, px, py, SRCCOPY
    ; デバイスコンテキストの選択ビットマップを戻す
    SelectObject hdcMemory, hOldBitmap
    ; デバイスコンテキストを削除
    DeleteDC hdcMemory
    ; ビットマップオブジェクト(DIBセクション)のハンドルを返す
    return hBitmap
; DIBオブジェクト削除
#deffunc DeleteDIB int hbmp
    ; ビットマップオブジェクトを削除
    DeleteObject hbmp
    return
#global ;############# モジュール終わり ########################
#module ;########### イメージリスト操作モジュール ##############
#uselib "comctl32.dll"
#cfunc ImageList_Create "ImageList_Create" int,int,int,int,int
#func ImageList_Destroy "ImageList_Destroy" int
#func ImageList_AddMasked "ImageList_AddMasked" int,int,int
#func ImageList_Draw "ImageList_Draw" int,int,int,int,int,int
#define global ILC_COLOR    0x0000
#define global ILC_COLOR4   0x0004
#define global ILC_COLOR8   0x0018
#define global ILC_COLOR16  0x0010
#define global ILC_COLOR24  0x0018
#define global ILC_COLOR32  0x0020
#define global ILC_COLORDDB 0x00FE
#define global ILC_MASK     0x0001
#define ILD_TRANSPARENT 0x0001
; イメージリスト作成
#defcfunc CreateImageList int sx, int sy, int type, int num
    return ImageList_Create(sx, sy, type, num, 0)
; メージリスト破棄
#deffunc DestroyImageList int handle
    ImageList_Destroy handle
    return
; イメージリストに描画中ウィンドウのイメージ追加
#deffunc AddImageListItem int handle, int cx, int cy, int sx, int sy, int maskColor
    ; DIB作成
    hDIB = CreateDIB(cx, cy, sx, sy)
    ; ビットマップをイメージリストに追加
    ImageList_AddMasked handle, hDIB, maskColor
    firstItemIndex = stat
    ; DIB削除
    DeleteDIB hDIB
    return firstItemIndex
; イメージリストのイメージ描画
#deffunc DrawImageListItem int handle, int index, int cx, int cy
    ImageList_Draw handle, index, hdc, cx, cy, ILD_TRANSPARENT
    return
#global ;############# モジュール終わり ########################
#module ;############ リストビュー操作モジュール ###############
#uselib "comctl32.dll"
#func InitCommonControlsEx "InitCommonControlsEx" int
#uselib "user32.dll"
#func SetWindowLong "SetWindowLongA" int,int,int
#cfunc GetWindowLong "GetWindowLongA" int,int
; 各種定数定義
#define ICC_LISTVIEW_CLASSES    4
#define WS_CHILD    0x40000000
#define WS_VISIBLE  0x10000000
#define global LVS_ICON        0x0000
#define global LVS_REPORT      0x0001
#define global LVS_SMALLICON   0x0002
#define global LVS_LIST        0x0003
#define LVS_TYPEMASK    0x0003
#define LVM_SETIMAGELIST    0x1003
#define LVM_SETITEM         0x1006
#define LVM_INSERTITEM      0x1007
#define LVM_DELETEITEM      0x1008
#define LVM_INSERTCOLUMN    0x101B
#define LVM_GETNEXTITEM     0x100C
#define LVM_GETITEMTEXT     0x102D
#define LVCF_FMT        0x0001
#define LVCF_WIDTH      0x0002
#define LVCF_TEXT       0x0004
#define LVCF_SUBITEM    0x0008
#define LVIF_TEXT       0x0001
#define LVIF_IMAGE      0x0002
#define LVNI_SELECTED   0x0002
#define LVSIL_NORMAL    0x0000
#define LVSIL_SMALL     0x0001
#define GWL_STYLE       (-16)
; (外部から参照できるように global 指定)
#define global LVCFMT_LEFT      0x0000
#define global LVCFMT_RIGHT     0x0001
#define global LVCFMT_CENTER    0x0002
; リストビュー作成
#deffunc CreateListView int sx, int sy, int type, int hLargeImgList, int hSmallImgList
    ; コモンコントロールライブラリの初期化
    initinfo = 8, ICC_LISTVIEW_CLASSES
    InitCommonControlsEx varptr(initinfo)
    ; リストビューの作成
    styleFlags = WS_CHILD | WS_VISIBLE | type
    winobj "SysListView32", "", 0, styleFlags, sx, sy
    newObjID = stat
    ; イメージリスト(大きいアイコン)の追加
    if hLargeImgList {
        ; LVM_SETIMAGELIST メッセージ送信
        sendmsg objinfo_hwnd(newObjID), LVM_SETIMAGELIST, LVSIL_NORMAL, hLargeImgList
        logmes "LVM_SETIMAGELIST, LVSIL_NORMAL : " + stat
    }
    ; イメージリスト(小さいアイコン)の追加
    if hSmallImgList {
        ; LVM_SETIMAGELIST メッセージ送信
        sendmsg objinfo_hwnd(newObjID), LVM_SETIMAGELIST, LVSIL_SMALL, hSmallImgList
        logmes "LVM_SETIMAGELIST, LVSIL_SMALL : " + stat
    }
    return newObjID
; リストビューに列を追加
#deffunc InsertListViewColumn int objID, int index, str text, int align, int pixels
    textbuf = text
    ; LVCOLUMN 構造体をセット
    dim lvcolumn, 8
    lvcolumn(0) = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM
    lvcolumn(1) = align
    lvcolumn(2) = pixels
    lvcolumn(3) = varptr(textbuf)
    ; LVM_INSERTCOLUMN メッセージ送信
    sendmsg objinfo_hwnd(objID), LVM_INSERTCOLUMN, index, varptr(lvcolumn)
    return
; リストビューに項目追加
#deffunc InsertListViewItem int objID, int index, str text, int image
    textbuf = text
    ; LVITEM 構造体をセット
    dim lvitem, 13
    lvitem(0) = LVIF_TEXT | LVIF_IMAGE
    lvitem(1) = index
    lvitem(5) = varptr(textbuf)
    lvitem(7) = image
    ; LVM_INSERTITEM メッセージ送信
    sendmsg objinfo_hwnd(objID), LVM_INSERTITEM, 0, varptr(lvitem)
    return
; リストビューの項目またはサブ項目テキスト設定
#deffunc SetListViewItemText int objID, int index, int subitem, str text
    textbuf = text
    ; LVITEM 構造体をセット
    dim lvitem, 13
    lvitem(0) = LVIF_TEXT
    lvitem(1) = index
    lvitem(2) = subitem
    lvitem(5) = varptr(textbuf)
    ; LVM_SETITEM メッセージ送信
    sendmsg objinfo_hwnd(objID), LVM_SETITEM, 0, varptr(lvitem)
    return
; リストビューの項目またはサブ項目テキスト取得
#defcfunc GetListViewItemText int objID, int index, int subitem
    ; LVITEM 構造体をセット
    dim lvitem, 13
    lvitem(2) = subitem
    textbufsize = 256
    ; 取得できるまでバッファサイズを拡張
    repeat
        sdim textbuf, textbufsize
        lvitem(5) = varptr(textbuf)
        lvitem(6) = textbufsize
        ; LVM_GETITEMTEXT メッセージ送信
        sendmsg objinfo_hwnd(objID), LVM_GETITEMTEXT, index, varptr(lvitem)
        if stat < textbufsize - 1 : break
        textbufsize *= 2
    loop
    return textbuf
; リストビューの項目削除
#deffunc DeleteListViewItem int objID, int index
    ; LVM_DELETEITEM メッセージ送信
    sendmsg objinfo_hwnd(objID), LVM_DELETEITEM, index, 0
    return
; リストビューの選択項目のインデックス取得
#defcfunc GetSelectedListViewItem int objID, int startIndex
    ; LVM_GETNEXTITEM メッセージ送信
    sendmsg objinfo_hwnd(objID), LVM_GETNEXTITEM, startIndex, LVNI_SELECTED
    return stat
; リストビューの種別を変更
#deffunc SetListViewType int objID, int type
    ; 現在のウィンドウスタイルを取得
    style = GetWindowLong(objinfo_hwnd(objID), GWL_STYLE)
    ; リストビューの表示形式を変更
    style = (style & (-1 ^ LVS_TYPEMASK)) | type
    ; 新しいウィンドウスタイルを設定
    SetWindowLong objinfo_hwnd(objID), GWL_STYLE, style
    return
#global ;############# モジュール終わり ########################
    ; ビットマップファイルの読み込み
    buffer 2,,, 0           ; フルカラーモード
    picload "iconlist.bmp"
    ; 大きいアイコン(32×32)イメージリスト作成
    hLargeImgList = CreateImageList(32, 32, ILC_COLOR24 | ILC_MASK, 4)
    AddImageListItem hLargeImgList, 0, 0, 32*4, 32, 0xF0CAA6
    ; 小さいアイコン用にイメージを縮小
    pos 0, 0
    gzoom 16*4, 16, 2, 0, 0, 32*4, 32
    ; 小さいアイコン(16×16)イメージリスト作成
    hSmallImgList = CreateImageList(16, 16, ILC_COLOR24 | ILC_MASK, 4)
    AddImageListItem hSmallImgList, 0, 0, 16*4, 16, 0xF0CAA6
    gsel 0
    objsize ginfo_winx, 25
    button gosub "リスト種別変更", *OnChangeListTypeButtonClicked
    ; リストビュー作成
    pos 0, 25
    CreateListView ginfo_winx, ginfo_winy, LVS_ICON, hLargeImgList, hSmallImgList
    listviewID = stat
    ; 列を追加
    InsertListViewColumn listviewID, 0, "名前", LVCFMT_LEFT, 100
    InsertListViewColumn listviewID, 1, "読み", LVCFMT_LEFT, 200
    ; 項目追加・サブ項目設定
    InsertListViewItem listviewID, 0, "在原業平", 0
    SetListViewItemText listviewID, 0, 1, "ありわらのなりひら"
    InsertListViewItem listviewID, 1, "僧正遍昭", 1
    SetListViewItemText listviewID, 1, 1, "そうじょうへんじょう"
    InsertListViewItem listviewID, 2, "喜撰法師", 2
    SetListViewItemText listviewID, 2, 1, "きせんほうし"
    InsertListViewItem listviewID, 3, "大伴黒主", 3
    SetListViewItemText listviewID, 3, 1, "おおとものくろぬし"
    InsertListViewItem listviewID, 4, "文屋康秀", 0
    SetListViewItemText listviewID, 4, 1, "ふんやのやすひで"
    InsertListViewItem listviewID, 5, "小野小町", 1
    SetListViewItemText listviewID, 5, 1, "おののこまち"
    stop
*OnChangeListTypeButtonClicked
    ; リストビューのタイプを変更
    type = (type + 1) \ 4
    SetListViewType listviewID, type
    return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX