【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
;【HSP3.x 移植版】
;『HSPの裏技』イメージリストを使ってみる
; http://chokuto.ifdef.jp/urawaza/imagelist.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 ;############# モジュール終わり ########################
    ; ビットマップファイルの読み込み
    buffer 2,,, 0           ; フルカラーモード
    picload "iconlist.bmp"
    ; 24bit DIB イメージリスト作成(マスクなし)
    hImgList1 = CreateImageList(32, 32, ILC_COLOR24, 4)
    AddImageListItem hImgList1, 0, 0, 32*4, 32
    ; 24bit DIB イメージリスト作成(マスクあり)
    hImgList2 = CreateImageList(32, 32, ILC_COLOR24 | ILC_MASK, 4)
    AddImageListItem hImgList2, 0, 0, 32*4, 32, 0xF0CAA6
    gsel 0
    cls 3                   ; いったん塗りつぶし
    pos 20, 10 : mes "マスクなし"
    repeat 4
        DrawImageListItem hImgList1, cnt, 40*cnt+30, 30
    loop
    pos 20, 80 : mes "マスクあり"
    repeat 4
        DrawImageListItem hImgList2, cnt, 40*cnt+30, 100
    loop
    redraw                  ; redraw は必須
    onexit goto *OnExitApp
    stop
*OnExitApp
    ; 終了時の処理（イメージリスト破棄）
    DestroyImageList hImgList1
    DestroyImageList hImgList2
    end
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX