OwnerDraw/ODMenu

  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

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

;#############################################################################
;	メニュー作成に使う
#include "user32.as"
;=============================================================================
#ifndef __OWNERDRAW_MENU__
#define global __OWNERDRAW_MENU__
;-----------------------------------------------------------------------------
#module _OD_MENU_
;-----------------------------------------------------------------------------
#define WND_OD_BUFFER    1
;-----------------------------------------------------------------------------
;#define WM_DRAWITEM	$2B
;#define WM_MEASUREITEM	$2C
 
#define global MF_BYCOMMAND        $0000
#define global MF_BYPOSITION    $0400
#define global MF_UNCHECKED        $0000
#define global MF_HILITE        $0080
#define global MF_UNHILITE        $0000
 
#define global MF_BITMAP        $0004
#define global MF_CHECKED        $0008
#define global MF_DISABLED        $0002
#define global MF_ENABLED        $0000
#define global MF_GRAYED        $0001
#define global MF_MENUBARBREAK    $0020
#define global MF_MENUBREAK        $0040
#define global MF_OWNERDRAW        $0100
#define global MF_POPUP            $0010
#define global MF_SEPARATOR        $0800
#define global MF_STRING        $0000
#define global MF_DEFAULT        $1000
#define global MF_SYSMENU        $2000
#define global MF_HELP            $4000
#define global MF_END            $0080
#define global MF_RIGHTJUSTIFY    $4000
#define global MF_MOUSESELECT    $8000
 
#define global MFT_RADIOCHECK    $0200
#define global MFT_RIGHTORDER    $2000
 
#define ODA_DRAWENTIRE    1
#define ODA_SELECT        2
#define ODA_FOCUS        4
 
#define ODS_SELECTED    1
#define ODS_GRAYED        2
#define ODS_DISABLED    4
#define ODS_CHECKED        8
#define ODS_FOCUS        16
#define ODS_DEFAULT        32
; WINVER >= 0x0500
#define ODS_HOTLIGHT    $0040
#define ODS_INACTIVE    $0080
#define ODS_NOACCEL        $0100
#define ODS_NOFOCUSRECT    $0200
 
#uselib "gdi32.dll"
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int
 
#define SRCCOPY    0xCC0020
 
#define ICON_SIZE    16
#define ITEM_MARGIN    2
#define ICON_MARGIN    4
#define RIGHT_SPACE    16
 
;-----------------------------------------------------------------------------
#deffunc init_odmenu
    oncmd gosub *msg_wmdrawitem@_OD_MESSAGE_, 0x002B;WM_DRAWITEM
    oncmd gosub *msg_wmmeasureitem@_OD_MESSAGE_, 0x002C;WM_MEASUREITEM
    sel = ginfo_sel
;	bgscr WND_OD_BUFFER
    buffer WND_OD_BUFFER
    sysfont 17
    gsel sel, 0
    dim rect, 4
    sdim item_str,128,1
    dim  item_menubar,1
    dim  item_flag,1
    dim  item_text_h,1
    dim  item_text_h2,1
    dim  item_text_v,1
    item_count = 0
    return
;-----------------------------------------------------------------------------
#deffunc drawitem_odmenu int _p1, int _p2
;	DRAWITEMSTRUCT {
    #enum DIS_CtlType =0;	UINT CtlType
    #enum DIS_CtlID        ;	UINT CtlID;
    #enum DIS_itemID    ;	UINT itemID;
    #enum DIS_itemAction;	UINT itemAction;
    #enum DIS_itemState ;	UINT itemState;
    #enum DIS_hwndItem    ;	HWND hwndItem;
    #enum DIS_hDC        ;	HDC hDC;
    #enum DIS_rcItem0    ;	RECT rcItem;
    #enum DIS_rcItem1    ;
    #enum DIS_rcItem2    ;
    #enum DIS_rcItem3    ;
    #enum DIS_itemData    ;	ULONG_PTR itemData;
;	}
    wp=_p1
    lp=_p2
    rp=0
    dupptr DIS, lp, 48, 4
    n = DIS.DIS_itemData
    s=""
 
    rect(0)=DIS.DIS_rcItem0
    rect(1)=DIS.DIS_rcItem1
    rect(2)=DIS.DIS_rcItem2
    rect(3)=DIS.DIS_rcItem3
    rect(4)=rect(3) - rect(1) + 1 ; 合成用描画位置
    sel = ginfo_sel
    gsel WND_OD_BUFFER, 0
    mref BMSCR, 67
;	hdcOld=BMSCR(4) ; 半透明コピーがうまくいかなかった
;	BMSCR(4)=DIS.DIS_hDC
 
    if item_menubar(n) : syscolor 15 : else : syscolor 4
    boxf rect(0), rect(1), rect(2), rect(3)
 
    if 0 = item_menubar(n) {
        syscolor 22
        boxf rect(0), rect(1), rect(0)+ICON_SIZE+ITEM_MARGIN+1, rect(3)
    }
 
    if item_flag(n) & MF_SEPARATOR {
        ; セパレータ
        rect(4) = rect(1) + (rect(3) - rect(1)) / 2
        syscolor 16
        line rect(0)+ICON_SIZE+ITEM_MARGIN*2+ICON_MARGIN/2, rect(4), rect(2), rect(4)
    } else {
        ; 選択表示
        if item_menubar(n) {
            if(DIS.DIS_itemState & ODS_HOTLIGHT) {
                DIS.DIS_itemState |= ODS_SELECTED
            } else : if(DIS.DIS_itemState & ODS_SELECTED) {
                DIS.DIS_itemState &= 0xFFFF ^ ODS_SELECTED
                syscolor 16
                boxf rect(0), rect(1), rect(2), rect(3)
                syscolor 4
                boxf rect(0) + 1, rect(1) + 1, rect(2) - 2, rect(3) - 2
            }
        }
        if DIS.DIS_itemState & ODS_SELECTED {
            syscolor 13
            boxf rect(0), rect(4) + rect(1), rect(2), rect(4) + rect(3)
            ; 枠
            if DIS.DIS_itemState & ODS_GRAYED : gmode 3, 0, 0, 96 : else : gmode 3, 0, 0, 240
            pos rect(0),   rect(1)   : gcopy WND_OD_BUFFER, rect(0),   rect(4) + rect(1),   rect(2) - rect(0),     rect(3) - rect(1)
            ; 内塗り
            syscolor 4
            boxf rect(0)+1, rect(1)+1, rect(2)-2, rect(3)-2
            if DIS.DIS_itemState & ODS_GRAYED : gmode 3, 0, 0, 32 : else : gmode 3, 0, 0, 64
            pos rect(0)+1, rect(1)+1 : gcopy WND_OD_BUFFER, rect(0)+1, rect(4) + rect(1)+1, rect(2) - rect(0) - 2, rect(3) - rect(1) - 2
        }
        ; 灰色表示
        if DIS.DIS_itemState & ODS_GRAYED {
            syscolor 17
        } else {
            syscolor 7
        }
 
        ; 文字
        if item_menubar(n) {
            pos rect(0)+(rect(2) - rect(0) - item_text_h(n)) / 2, rect(1)+(rect(3) - rect(1) - item_text_v(n)) / 2
            mes item_str(n)
        } else {
            pos rect(0)+ICON_SIZE+ITEM_MARGIN*2+ICON_MARGIN, rect(1)+(rect(3) - rect(1) - item_text_v(n)) / 2
            getstr s, item_str(n), 0, '\t'
            mes s
            pos rect(2)-item_text_h2(n) - RIGHT_SPACE, rect(1)+(rect(3) - rect(1) - item_text_v(n)) / 2
            mes strmid(item_str(n), strlen(s) + 1, 0xFFFF)
        }
 
        ; アイコン・チェック
        if 0 = item_menubar(n) {    ; チェック
            if DIS.DIS_itemState & ODS_CHECKED {
                syscolor 13
                boxf rect(0), rect(4) + rect(1), rect(0) + 1 + ICON_SIZE, rect(4) + rect(1) + 1 + ICON_SIZE
                ; 枠
                if DIS.DIS_itemState & ODS_GRAYED : gmode 3, 0, 0, 96 : else : gmode 3, 0, 0, 240
                pos rect(0)+ITEM_MARGIN-1, rect(1)+ITEM_MARGIN-1 : gcopy WND_OD_BUFFER, rect(0),     rect(4) + rect(1),     ICON_SIZE + 2, ICON_SIZE + 2
                ; 内塗り
                if item_menubar(n) : syscolor 15 : else : syscolor 4
                boxf rect(0)+ITEM_MARGIN,  rect(1)+ITEM_MARGIN, rect(0)+ITEM_MARGIN+ICON_SIZE-1, rect(1)+ITEM_MARGIN+ICON_SIZE-1
                if DIS.DIS_itemState & ODS_GRAYED : gmode 3, 0, 0, 32 : else : gmode 3, 0, 0, 96
                pos rect(0)+ITEM_MARGIN,   rect(1)+ITEM_MARGIN   : gcopy WND_OD_BUFFER, rect(0) + 2, rect(4) + rect(1) + 2, ICON_SIZE,     ICON_SIZE
                ; 丸・チェック
                if item_flag(n) & MFT_RADIOCHECK {    ; 丸
                    syscolor 18
                    circle rect(0)+ITEM_MARGIN+ICON_SIZE/4, rect(1)+ITEM_MARGIN+ICON_SIZE/4, rect(0)+ITEM_MARGIN+ICON_SIZE/4+ICON_SIZE/2-1, rect(1)+ITEM_MARGIN+ICON_SIZE/4+ICON_SIZE/2-1
                } else {    ; チェック
                    ; とりあえず
                    syscolor 18
                    font "Wingdings", 14
                    pos rect(0)+ITEM_MARGIN+2, rect(1)+ITEM_MARGIN+2 : mes strf("%c", 0xFC)
                    sysfont 17
                }
            } else {    ; アイコン
            }
        }
    }
 
    BitBlt DIS.DIS_hDC, rect(0), rect(1), rect(2) - rect(0), rect(3) - rect(1), BMSCR(4), rect(0), rect(1), SRCCOPY
;	BMSCR(4)=hdcOld
    gsel sel, 0
    rp=1
    return rp
;-----------------------------------------------------------------------------
#deffunc measureitem_odmenu int _p1, int _p2
;typedef struct tagMEASUREITEMSTRUCT {
    #enum MIS_CtlType =0;  UINT		  CtlType;
    #enum MIS_CtlID        ;  UINT		  CtlID;
    #enum MIS_itemID    ;  UINT		  itemID;
    #enum MIS_itemWidth ;  UINT		  itemWidth;
    #enum MIS_itemHeight;  UINT		  itemHeight;
    #enum MIS_itemData    ;  ULONG_PTR  itemData;
;} MEASUREITEMSTRUCT, NEAR PMEASUREITEMSTRUCT, FAR LPMEASUREITEMSTRUCT;
    wp=_p1
    lp=_p2
    rp=0
    dupptr MIS, lp, 24, 4
    n = MIS.MIS_itemData
    s = ""
 
    if 0 <= n && n < item_count {
        if item_flag(n) & MF_SEPARATOR {
            ; セパレータ
            MIS.MIS_itemWidth=0
            MIS.MIS_itemHeight=3
            item_text_v(n) = 0
            item_text_h(n) = 0
            item_text_h2(n)= 0
        } else {
            sel = ginfo_sel
            gsel WND_OD_BUFFER, 0
            getstr s, item_str(n), 0, '\t'
            mes s
            item_text_h(n) = ginfo_mesx
            item_text_v(n) = ginfo_mesy
            mes strmid(item_str(n), strlen(s) + 1, 0xFFFF)
            item_text_h2(n)= ginfo_mesx
            gsel sel, 0
            MIS.MIS_itemWidth = item_text_h(n) + item_text_h2(n)
            MIS.MIS_itemHeight= ICON_SIZE + ITEM_MARGIN * 2
            if 0 = item_menubar(n) {
                MIS.MIS_itemWidth += ICON_SIZE + ITEM_MARGIN * 2 + ICON_MARGIN + RIGHT_SPACE
            }
        }
        rp=1
    }
 
    return rp
;-----------------------------------------------------------------------------
#deffunc InsertMenuOD int _p1, int _p2, int _p3, int _p4, str _p5
    GetMenu hwnd
    item_str(item_count)    = _p5 ; // menu item content
    item_flag(item_count)    = _p3
    item_text_h(item_count)    = 16
    item_text_h2(item_count)= 16
    item_text_v(item_count)    = 16
    item_menubar(item_count)= _p1 == stat
    InsertMenu _p1, _p2, _p3|0x100, _p4, item_count
    item_count++
    return
;-----------------------------------------------------------------------------
#global
;-----------------------------------------------------------------------------
;	init_odmenu
;=============================================================================
#endif
;#############################################################################

  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

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

;#############################################################################
;=============================================================================
#module "_OD_MESSAGE_"
;	oncmd gosub *msg_wmdrawitem@_OD_MESSAGE_, 0x002B
;	oncmd gosub *msg_wmmeasureitem@_OD_MESSAGE_, 0x002C
;-----------------------------------------------------------------------------
*msg_wmdrawitem
;	DRAWITEMSTRUCT {
    #enum DIS_CtlType =0;	UINT CtlType
;	#enum DIS_CtlID     ;	UINT CtlID;
;	#enum DIS_itemID    ;	UINT itemID;
;	#enum DIS_itemAction;	UINT itemAction;
;	#enum DIS_itemState ;	UINT itemState;
;	#enum DIS_hwndItem  ;	HWND hwndItem;
;	#enum DIS_hDC       ;	HDC hDC;
;	#enum DIS_rcItem0   ;	RECT rcItem;
;	#enum DIS_rcItem1   ;
;	#enum DIS_rcItem2   ;
;	#enum DIS_rcItem3   ;
;	#enum DIS_itemData  ;	ULONG_PTR itemData;
;	}
    wp=wparam
    lp=lparam
    dupptr DIS, lp, 48, 4
 
#ifdef __OWNERDRAW_MENU__
    if DIS.DIS_CtlType=0x01 {;	ODT_MENU
        drawitem_odmenu wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_LISTBOX__
    if DIS.DIS_CtlType=0x02 {;	ODT_LISTBOX
        drawitem_odlistbox wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_COMBOBOX__
    if DIS.DIS_CtlType=0x03 {;	ODT_COMBOBOX
        drawitem_odcombobox wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_BUTTON__
    if DIS.DIS_CtlType=0x04 {;	ODT_BUTTON
        drawitem_odbutton wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_STATIC__
    if DIS.DIS_CtlType=0x05 {;	ODT_STATIC
        drawitem_odstatic wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_HEADER__
    if DIS.DIS_CtlType=0x64 {;	ODT_HEADER
        drawitem_odheader wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_TAB__
    if DIS.DIS_CtlType=0x65 {;	ODT_TAB
        drawitem_odtab wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_LISTVIEW__
    if DIS.DIS_CtlType=0x66 {;	ODT_LISTVIEW
        drawitem_odlistview wp, lp
        return stat
    }
#endif
 
    return 0
;-----------------------------------------------------------------------------
*msg_wmmeasureitem
;typedef struct tagMEASUREITEMSTRUCT {
    #enum MIS_CtlType =0;  UINT       CtlType;
;	#enum MIS_CtlID     ;  UINT       CtlID;
;	#enum MIS_itemID    ;  UINT       itemID;
;	#enum MIS_itemWidth ;  UINT       itemWidth;
;	#enum MIS_itemHeight;  UINT       itemHeight;
;	#enum MIS_itemData  ;  ULONG_PTR  itemData;
;} MEASUREITEMSTRUCT, NEAR *PMEASUREITEMSTRUCT, FAR *LPMEASUREITEMSTRUCT;
    wp=wparam
    lp=lparam
    dupptr MIS, lp, 24, 4
 
#ifdef __OWNERDRAW_MENU__
    if MIS.MIS_CtlType=0x01 {;	ODT_MENU
        measureitem_odmenu wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_LISTBOX__
    if MIS.MIS_CtlType=0x02 {;	ODT_LISTBOX
        measureitem_odlistbox wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_COMBOBOX__
    if MIS.MIS_CtlType=0x03 {;	ODT_COMBOBOX
        measureitem_odcombobox wp, lp
        return stat
    }
#endif
 
#ifdef __OWNERDRAW_LISTVIEW__
    if MIS.MIS_CtlType=0x66 {;	ODT_LISTVIEW
        measureitem_odlistview wp, lp
        return stat
    }
#endif
 
    return 0
;-----------------------------------------------------------------------------
#global
;=============================================================================
;#############################################################################

  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
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903

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

;
;	customizebutton
;	HSP3 専用
;
;	by naznyark
;
/*
%type
カスタムボタン拡張マクロ
;%ver
;3.0
;%note
%date
2006/01/06
%author
naznyark
%dll
mod_customizebutton_odtemplate
;%url
*/;
 
#ifdef __hsp30__
#ifndef __OWNERDRAW_BUTTON__
#define global __OWNERDRAW_BUTTON__
 
;=============================================================================
#module "_OD_BUTTON_"
    #uselib "gdi32.dll"
    #func _BitBlt    "BitBlt"    int, int, int, int, int, int, int, int, int;	hdcDest, nXDest, nYDest, nWidth, nHeight, hdcSrc, nXSrc, nYSrc, dwRop
    #func _CombineRgn    "CombineRgn"    int, int, int, int;	hRgnDest, hRgnSrc1, hRgnSrc2, fnCombineMode
    #cfunc _CreateCompatibleBitmap    "CreateCompatibleBitmap"    int, int, int;	hdc, nWidth, nHeight
    #cfunc _CreateCompatibleDC    "CreateCompatibleDC"    int;	HDC
    #cfunc _CreateEllipticRgn    "CreateEllipticRgn"    int, int, int, int;	nLeftRect, nTopRect, nRightRect, nBottomRect
    #cfunc _CreateFontIndirect    "CreateFontIndirectA"    int;	lpLogfont
    #cfunc _CreatePatternBrush    "CreatePatternBrush"    int;	hBitmap
    #cfunc _CreatePen    "CreatePen" int, int, int;	fnPenstyle, nWidth, crColor
    #cfunc _CreatePolygonRgn    "CreatePolygonRgn"    int, int, int;	lpPoint, cpoints, fnPolyFillMode
    #cfunc _CreateRectRgn    "CreateRectRgn"    int, int, int, int;	nLeftRect, nTopRect, nRightRect, nBottomRect
    #cfunc _CreateSolidBrush    "CreateSolidBrush"    int;	crColor
    #func _DeleteDC    "DeleteDC"    int;	hdc
    #func _DeleteObject    "DeleteObject"    int;	hObject
;	#func _Ellipse	"Ellipse"	int, int, int, int, int;	hdc, nLeftRect, nTopRect, nRightRect, nBottomRect
    #cfunc _ExtCreateRegion    "ExtCreateRegion"    int, int, int;	lpXform, nCount, lpRgnData
    #func _FillRgn    "FillRgn"    int, int, int;	hdc, hRgn, hBrush
    #func _FrameRgn    "FrameRgn"    int, int, int, int, int;	hdc, hRgn, hBrush, nwidth, nheight
    #cfunc _GetCurrentObject "GetCurrentObject"    int, int;	hdc, int
    #func _GetObject "GetObjectA"    int, int, int;	hDC, cbBuffer, lpvObject
    #func _GetRegionData "GetRegionData"    int, int, int;	hRgn, dwCount, lpRgnData
    #func _GetRgnBox "GetRgnBox"    int, int;	hRgn, lpRect
    #cfunc _GetStockObject "GetStockObject"    int;
    #func _SelectObject    "SelectObject"    int, int;	hDC, hgdiobj
    #func _SetBkMode    "SetBkMode"    int, int;	hDc, iBkMode
    #func _SetPixelV    "SetPixelV"    int, int, int, int;	hdc, X, Y, crColor
    #func _SetROP2    "SetROP2"    int, int;	HDC, fnDrawMode
    #func _SetTextColor    "SetTextColor"    int, int;	hDc, COLORREF
 
;	#func _TextOut	"TextOutA"	int, int, int, int, int;	hdc, nXstart, nYstart, lpString, cbString
;	#func _GetTextExtentPoint	"GetTextExtentPointA"	int, int, int, int;	hdc, lpString, cbSrting, lpSize
 
    #uselib "user32.dll"
    #func _CharUpper    "CharUpperA"    int;	lpsz
    #func _ClientToScreen    "ClientToScreen"    int, int;	hWnd, lpPoint
    #func _CreateWindowEx    "CreateWindowExA"    int, int, int, int, int, int, int, int, int, int, int, int
    #func _DestroyWindow    "DestroyWindow"    int;	hWnd
    #func _DrawEdge    "DrawEdge"    int, int, int, int;	hDc, lpRect, edge, grfFlags
    #func _DrawFocusRect    "DrawFocusRect"    int, int;	hDc, lpRect
;	#func _DrawFrameControl	"DrawFrameControl"	int, int, int, int;	hDC, lpRect, uFlag, uState
    #func _DrawText    "DrawTextA"    int, int, int, int, int;	hDc, lpString, nCount, lpRect, uFormat
    #func _FillRect    "FillRect"    int, int, int;	hDc, lpRect, hBrush
    #func _GetClassInfoEx    "GetClassInfoExA"    int, int, int;	hinstance, lpcStr, lpWndclassex
    #func _GetClassName    "GetClassNameA"    int, int, int
    #cfunc _GetDC    "GetDC"    int;	hWnd
;	#cfunc _GetSysColor	"GetSysColor"	int;	nIndex
    #cfunc _GetSysColorBrush    "GetSysColorBrush"    int;	nIndex
    #func _GetWindowLong    "GetWindowLongA"    int, int;	hWnd, nIndex
    #func _GetWindowRect    "GetWindowRect"    int, int;	hWnd, lpRect
    #func _GetWindowText    "GetWindowTextA"    int, int, int;	hWnd, lpString, nMaxCount
    #func _GetWindowTextLength    "GetWindowTextLengthA"    int;	hWnd
    #func _InvalidateRect    "InvalidateRect"    int, int, int;	hWnd, lpRect, bErase
;	#func _InvalidateRgn	"InvalidateRgn"	int, int, int;	hWnd, hRgn, bErase
    #func _MoveWindow    "MoveWindow"    int, int, int, int, int, int;	hWnd, X, Y, nWidth, nHeight, bRepaint
    #func _RegisterClassEx    "RegisterClassExA"    int;	lpWndclassex
    #func _ReleaseDC    "ReleaseDC"    int, int;	hWnd, hDC
    #func _ScreenToClient    "ScreenToClient"    int, int;	hWnd, lpPoint
    #func _SetWindowLong    "SetWindowLongA"    int, int, int
    #func _SetWindowRgn    "SetWindowRgn"    int, int, int;	hWnd, hRgn, bRedraw
    #func _SetWindowText    "SetWindowTextA"    int, int;	hWnd, lpString
    #func _ShowWindow    "ShowWindow"    int, int;	hWnd, nCmdShow
;	#func _UpdateWindow	"UpdateWindow"	int;	hWnd
 
;#func _DrawCaption	"DrawCaption"	int, int, int, int;	hWnd, hDC, lpRect, uFlag
;#func _DrawTextEx	"DrawTextExA"	int, int, int, int, int, int;	hDC, lpString, nCount, lpRect, uFormat, lpDrawTextParams
 
;=============================================================================
#defcfunc dbl2sng@_OD_BUTTON_ double _p1
    dbl=_p1
    sng=0
    sgnf=(peek(dbl, 7)>>7) & 0x01
    dexp=(((peek(dbl, 7)<<4) & 0x7F0) | (((peek(dbl, 6)>>4) & 0x00F)))
 
    if (dexp=0) & ((lpeek(dbl,1) & 0x000FFFFF)=0) & ((lpeek(dbl,0) & 0xE0000000)=0) {
        sng=0
    } else {
        if (dexp-0x3FF)>=128 {
            sng=(sgnf<<31) | (0xFF<<23)
        } else {
            sexp=(((dexp-0x3FF) & 0xFF)+0x7F) & 0xFF
            poke sng, 3, (sgnf<<7) | ((sexp>>1) & 0x7F)
            poke sng, 2, ((sexp<<7) & 0x80) | ((peek(dbl, 6)<<3) & 0x78) | ((peek(dbl, 5)>>5) & 0x07)
            poke sng, 1, ((peek(dbl, 5)<<3) & 0xF8) | ((peek(dbl, 4)>>5) & 0x07)
            poke sng, 0, ((peek(dbl, 4)<<3) & 0xF8) | ((peek(dbl, 3)>>5) & 0x07)
            if (dexp-0x3FF)<=-127 {
                lpoke sng, 0, (sgnf<<31) | (((lpeek(sng, 0) & 0x007FFFFF) | 0x00800000)>>abs(dexp-0x3FF+126))
            }
        }
    }
    return sng
;-----------------------------------------------------------------------------
#deffunc setobjinfo@_OD_BUTTON_ int _p1, int _p2, int _p3
    mref BMSCRtmp, 67
    if BMSCRtmp(72)=0 : return -1;	エラー
    dupptr OBJINFOtmp, BMSCRtmp(71)+12*4*(_p1 & 0xFFFF), 48, 4;	そのウィンドウ上のオブジェクトのOBJINFO構造体のポインタ
    if OBJINFOtmp(2)=0 : return -1;	エラー
    OBJINFOtmp(_p2)=_p3 
    return 0
;-----------------------------------------------------------------------------
;=============================================================================
#define global custombutton(%1=0, %2=-1, %3=0, %4=0, %5=0x17, %6=-16, %7=0, %8=0, %9=0x17, %10=0) \
               _customizebutton@_OD_BUTTON_ %1, %2, %3, %4, %5, %6, %7, %8, %9, 0x2000, %10
/*
%index
custombutton
ボタンの表示設定を変更
%group
カスタムボタン拡張マクロ命令
%prm
int p1, int p2, int p3, int p4, int p5, int p6, int p7, int p8, int p9, int p10
p1(0)   : ボタンのオブジェクトID
p2(-1)  : 非プッシュ時のソース画像のウィンドウID (-2=指定色 / -1=灰色)
p3(0)   : 非プッシュ時のソース画像の左上 X 座標 (p2=-2 の場合は : ($rrggbb)=描画色 / -1=透過)
p4(0)   : 非プッシュ時のソース画像の左上 Y 座標
p5(23)  : 非プッシュ時の表示スタイル指定スイッチ
p6(-16) : プッシュ時のソース画像のウィンドウID (-16=非プッシュ時と共通設定 / -2=指定色 / -1=灰色)
p7(0)   : プッシュ時のソース画像の左上 X 座標 (p6=-2 の場合は : ($rrggbb)=描画色 / -1=透過)
p8(0)   : プッシュ時のソース画像の左上 Y 座標
p9(23)  : プッシュ時の表示スタイル指定スイッチ
p10(0)  : ボタン形状のリージョンハンドル
%inst
button 命令で作成したボタンの背景色・背景画像 / 表示スタイル / 文字色 / 形状を変更します。
 
p1 に表示を変更するボタンのオブジェクトIDを指定します。
すでに設定済みのボタンを指定すると新しい設定に変更されます。
 
p2(p6) に非プッシュ時(プッシュ時)に使用する画像の描かれたウィンドウID、
p3(p7),p4(p8) に使用する画像の左上の座標を指定します。
表示される画像の大きさはボタンの大きさと同じになります。
あらかじめボタンと同じ大きさの画像を用意しておいてください。
 
p2(p6) に -1 を指定した場合は画像を使用せず灰色で描画します。(標準のボタンと同じ)
p2(p6) に -2 を指定した場合は画像を使用せず p3(p7) で指定した色($rrggbb)で描画します。
p2(p6) に -2 を指定しさらに p3(p7) で -1 を指定した場合は
ボタンの下に隠されるウィンドウの画像を透過して描画します。
(注意) 表示されるのはボタン描画時点でのウィンドウの画像です。
       常に最新のウィンドウ画像を表示したい場合は他の命令でボタンの透過処理を行うか、
       cbtnredraw 命令などでボタンを再描画してください。
 
p6 に -16 を指定した場合はプッシュ時でも非プッシュ時と共通の画像・表示スタイル設定を使用します。
 
p5(p9) で表示スタイルを指定します。次の値の合計で指定します。
 
         1         | プッシュ時の画像・文字列を右下にずらして表示します。
         2         | ボタンの外枠を表示します。
         4         | ボタンにフォーカスがあるときに点線で内枠を表示します。
    --------------------------------------------------------------------------------
        16 ($0010) | ボタン文字列を表示します。
                   | 標準のボタンと同じく objmode の設定によるフォントで描画します。
        32 ($0020) | ボタン文字列を表示する際に
                   | 表示スタイルが設定されたときの描画色で描画します。
    --------------------------------------------------------------------------------
                   | (以下の値はどれか一つを使用してください)
                   | (p5 に設定したときのみ有効になります)
      4096 ($1000) | ボタンの形状を楕円形にします。
     16384 ($4000) | ボタンの形状を上三角形にします。
     20480 ($5000) | ボタンの形状を下三角形にします。
     24576 ($6000) | ボタンの形状を左三角形にします。
     28672 ($7000) | ボタンの形状を右三角形にします。
     32768 ($8000) | ボタンの形状を星形にします。
     61440 ($F000) | ボタンの形状を p10 で指定したリージョンの形にします。(※)
 
    (※) p10 に指定したリージョンハンドルはシステムに占有されます。
        命令実行以降はそのハンドルに対して削除・重複利用を含む一切の操作を行わないで下さい。
 
標準のボタンに戻すとき、またはボタンを削除する前には
removecustom 命令を実行するようにしてください。
 
 
この命令を使う際には以下の点に注意してください。
 
(注意 1) 描画のタイミング
ボタンはこの命令実行後に wait,await,stop 命令などが実行されたときに描画されます。
命令実行時点では表示の変更は行われません。
また他のウィンドウの後ろに隠れていたボタンが前面に出てきた、などの
ボタンの再描画が行われる状況になっても
上記の命令が実行されるまでは完全には表示されません。
 
(注意 2) custombutton 命令と custombuttonBG 命令の違い。
ボタンの描画方法が異なります。
  custombutton   : ボタンそのものの表示を書き換えます。
  custombuttonBG : ボタンを透明にして、ボタンの後ろのウィンドウに描画します。
基本的には同じように動作しますが、
  ・clrobj 命令でボタンを削除後の状態
  ・gcopy などのウィンドウ画像を扱う命令の結果
  ・WS_CLIPCHILDREN スタイルを 'もたない' ウィンドウでの動作
など動作が変わる状況も存在します。
問題が生じた場合使う命令を変えることで解決する場合があります。
また custombuttonBG 命令で透過指定を行った場合、
動作スタイル設定によっては期待した通りの結果が得られない場合があります。
 
(注意 3) このモジュールを使ったプログラム作成時の注意
この命令は内部で { oncmd gosub *drawitem,0x002B } を記述し
モジュール内にその跳び先である *drawitem サブルーチンを含んでいます。
モジュール外で oncmd 命令を使用する時や他のモジュールを併用する場合は注意してください。
 
(注意 4) 設定できるボタンの数
標準ではプログラム全体で 32 個までのボタンに対してしか設定できません。
足りない場合はモジュールのソースを変更してください。{ #define CustomBtnidlimit 32 }
%href
button
clrobj
objmode
custombutton
custombuttonBG
removecustom
cbtnredraw
*/;
;-----------------------------------------------------------------------------
#define global custombuttonBG(%1=0, %2=-1, %3=0, %4=0, %5=0x17, %6=-16, %7=0, %8=0, %9=0x17, %10=0) \
               _customizebutton@_OD_BUTTON_ %1, %2, %3, %4, %5, %6, %7, %8, %9, 0x1800, %10
/*
%index
custombuttonBG
ボタンの表示設定を変更
%group
カスタムボタン拡張マクロ命令
%prm
int p1, int p2, int p3, int p4, int p5, int p6, int p7, int p8, int p9, int p10
p1(0)   : ボタンのオブジェクトID
p2(-1)  : 非プッシュ時のソース画像のウィンドウID (-2=指定色 / -1=灰色)
p3(0)   : 非プッシュ時のソース画像の左上 X 座標 (p2=-2 の場合は描画色 $rrggbb)
p4(0)   : 非プッシュ時のソース画像の左上 Y 座標
p5(23)  : 非プッシュ時の表示スタイル指定スイッチ
p6(-16) : プッシュ時のソース画像のウィンドウID (-16=非プッシュ時と共通設定 / -2=指定色 / -1=灰色)
p7(0)   : プッシュ時のソース画像の左上 X 座標 (p6=-2 の場合は描画色 $rrggbb)
p8(0)   : プッシュ時のソース画像の左上 Y 座標
p9(23)  : プッシュ時の表示スタイル指定スイッチ
p10(0)  : ボタン形状のリージョンハンドル
%inst
button 命令で作成したボタンの背景色・背景画像 / 表示スタイル / 文字色 / 形状を変更します。
 
基本的な動作は custombutton 命令と同じです。
詳しい説明や custombutton 命令との違いは、custombutton 命令の説明を参照してください。
%href
button
clrobj
objmode
custombutton
custombuttonBG
removecustom
cbtnredraw
*/;
#define global custombuttonBG2(%1=0, %2=-1, %3=0, %4=0, %5=0x17, %6=-16, %7=0, %8=0, %9=0x17, %10=0) \
               _customizebutton@_OD_BUTTON_ %1, %2, %3, %4, %5, %6, %7, %8, %9, 0x1000, %10
;-----------------------------------------------------------------------------
#define global picturebutton(%1=0, %2=-1, %3=0, %4=0, %5=0x17, %6=-16, %7=0, %8=0, %9=0x17, %10=0) \
               _customizebutton@_OD_BUTTON_ %1, %2, %3, %4, %5, %6, %7, %8, %9, 0x1800, %10
/*
%index
picturebutton
ボタンの表示設定を変更
%group
カスタムボタン拡張マクロ命令
%prm
int p1, int p2, int p3, int p4, int p5, int p6, int p7, int p8, int p9, int p10
p1(0)   : ボタンのオブジェクトID
p2(-1)  : 非プッシュ時のソース画像のウィンドウID (-2=指定色 / -1=灰色)
p3(0)   : 非プッシュ時のソース画像の左上 X 座標 (p2=-2 の場合は描画色 $rrggbb)
p4(0)   : 非プッシュ時のソース画像の左上 Y 座標
p5(23)  : 非プッシュ時の表示スタイル指定スイッチ
p6(-16) : プッシュ時のソース画像のウィンドウID (-16=非プッシュ時と共通設定 / -2=指定色 / -1=灰色)
p7(0)   : プッシュ時のソース画像の左上 X 座標 (p6=-2 の場合は描画色 $rrggbb)
p8(0)   : プッシュ時のソース画像の左上 Y 座標
p9(23)  : プッシュ時の表示スタイル指定スイッチ
p10(0)  : ボタン形状のリージョンハンドル
%inst
button 命令で作成したボタンの背景色・背景画像 / 表示スタイル / 文字色 / 形状を変更します。
 
custombuttonBG 命令の別名です。
詳しい説明は custombutton 命令の説明を参照してください。
%href
button
clrobj
objmode
custombutton
custombuttonBG
removecustom
cbtnredraw
*/; 
;-----------------------------------------------------------------------------
#define CustomBtnidlimit 32
 
#deffunc _customizebutton@_OD_BUTTON_ \
         int _p1, int _p2, int _p3,int _p4, int _p5, int _p6, int _p7, int _p8, int _p9, int _p10, int _p11
    if initcustomizebutton=0 {
        initcustomizebutton=1
        dim CustomBtnInfo, 20, CustomBtnidlimit
        dim CustomBtnInfoTmp, 4
        dim syscrFrame, 4;	syscolorインデックス
        dim rectTmp, 4
        dim hRgnTmp, 4
        dim XFORM, 6
        dim LOGFONT, 15
        sdim classname, 64
        sdim newclassname, 64
        sdim textBtn, 256
        ;	フォーカス枠用ビットマップ
        mref BMSCR, 96
        hdcFrame=_CreateCompatibleDC(BMSCR(4))
        hbmFrame=_CreateCompatibleBitmap(BMSCR(4), 8, 8)
        _SelectObject hdcFrame, hbmFrame
        rectTmp=0, 0, 8, 8
        _FillRect hdcFrame, varptr(rectTmp), _GetStockObject(4)
        repeat 4
            i=cnt
            repeat 4
                _setPixelV hdcFrame, cnt*2,   i*2,   0xFFFFFF
                _setPixelV hdcFrame, cnt*2+1, i*2+1, 0xFFFFFF
            loop
        loop
        _DeleteDC hdcFrame
        ;	windowclass 登録
        dim WNDCLASSEX, 12
        classname="Button"
        _GetClassInfoEx hinstance, varptr(classname), varptr(WNDCLASSEX)
        newclassname="HSP3_CustomButton"
        WNDCLASSEX(0)=48
        WNDCLASSEX(1)=WNDCLASSEX(1) & 0xFFFFFFF7;	~CS_DBLCLKS
        WNDCLASSEX(10)=varptr(newclassname)
        _RegisterClassEx varptr(WNDCLASSEX)
    }
 
    CustomBtnid=-1
    repeat CustomBtnidlimit
        if CustomBtnInfo(0, cnt) ! 0 {
            if CustomBtnInfo(0, cnt)=objInfo(_p1, 2) {;	すでに設定済みのボタンか?
                CustomBtnid=cnt
                break
            }
        }
    loop
    if CustomBtnid=-1 {;	設定済みボタンでなければ空き設定を探す
        repeat CustomBtnidlimit
            if CustomBtnInfo(0, cnt)=0 {
                CustomBtnid=cnt
                break
            }
        loop
    }
    if CustomBtnid=-1 : return -1
 
    CustomBtnInfo(0, CustomBtnid)=objInfo(_p1,2)
 
    _GetClassName  CustomBtnInfo(0, CustomBtnid), varptr(classname), 63
    _CharUpper varptr(classname)
    if classname!"BUTTON" & classname!"HSP3_CUSTOMBUTTON" : CustomBtnInfo(0, CustomBtnid)=0 : return -1
    _GetWindowLong CustomBtnInfo(0, CustomBtnid), -16
    if ((stat & 0x000F) ! 0x0000) & ((stat & 0x000F) ! 0x000B) : CustomBtnInfo(0, CustomBtnid)=0 : return -1
 
    CustomBtnInfo(1, CustomBtnid)=_p1
    CustomBtnInfo(2, CustomBtnid)=_p2
    CustomBtnInfo(3, CustomBtnid)=_p3
    CustomBtnInfo(4, CustomBtnid)=_p4
    CustomBtnInfo(5, CustomBtnid)=_p5
    if _p6=-16 {
        CustomBtnInfo(6, CustomBtnid)=_p2
        CustomBtnInfo(7, CustomBtnid)=_p3
        CustomBtnInfo(8, CustomBtnid)=_p4
        CustomBtnInfo(9, CustomBtnid)=_p5
    } else {
        CustomBtnInfo(6, CustomBtnid)=_p6
        CustomBtnInfo(7, CustomBtnid)=_p7
        CustomBtnInfo(8, CustomBtnid)=_p8
        CustomBtnInfo(9, CustomBtnid)=_p9
        if (_p5 & 0x0000F000) ! (_p9 & 0x0000F000) {
            CustomBtnInfo(9, CustomBtnid)=(CustomBtnInfo(9, CustomBtnid) & 0xFFFF0FFF) | (_p5 & 0x0000F000)
        }
    }
    CustomBtnInfo(10, CustomBtnid)=ginfo(3);	ボタンの置かれたウィンドウID
    CustomBtnInfo(11, CustomBtnid)=_p10;	ベーススタイル
    CustomBtnInfo(12, CustomBtnid)=(ginfo(18)<<16) | (ginfo(17)<<8) | ginfo(16);	描画色
 
    ;	表示 window 変更
    ;	13: hFont(create), 14: originalhWnd
    if CustomBtnInfo(14, CustomBtnid)=0 {
        oldhWnd=CustomBtnInfo(0, CustomBtnid)
        _ShowWindow oldhWnd, 0
        _GetWindowLong oldhWnd, -12
        oldChildid=stat
        _SetWindowLong oldhWnd, -12, (oldChildid<<16)
        _GetWindowRect oldhwnd, varptr(rectTmp)
        _ScreenToClient hwnd, varptr(rectTmp(0))
        _ScreenToClient hwnd, varptr(rectTmp(2))
        textBtn=""
        _GetWindowTextLength oldhwnd
        if stat ! 0 : _GetWindowText oldhwnd, varptr(textBtn), limit(stat+1, 0, 255)
        _CreateWindowEx 0, varptr(newclassname), varptr(textBtn), 0x50000000, rectTmp(0), rectTmp(1), rectTmp(2)-rectTmp(0), rectTmp(3)-rectTmp(1), hwnd, oldChildid, hinstance, 0
        CustomBtnInfo( 0, CustomBtnid)=stat
 
        mref BMSCR, 67
        if BMSCR(48)=2 {;	objmode
            _GetObject BMSCR(38), 60, varptr(LOGFONT)
            hFont=_CreateFontIndirect(varptr(LOGFONT))
            CustomBtnInfo(13, CustomBtnid)=hFont
        } else : if BMSCR(48)=1 {
            CustomBtnInfo(13, CustomBtnid)=0
            hFont=_GetStockObject(17)
        } else {;: if BMSCR(48)=0 {
            CustomBtnInfo(13, CustomBtnid)=0
            hFont=_GetStockObject(13)
        }
        sendmsg CustomBtnInfo(0, CustomBtnid), 0x30, hFont, 1
        setobjinfo CustomBtnInfo(1, CustomBtnid), 2, CustomBtnInfo(0, CustomBtnid)
        CustomBtnInfo(14, CustomBtnid)=oldhWnd
    }
 
    ;	region 設定
    ;	15: windowRgn, 16: (=windowRgn), 17: outerframeRgn, 18: innerframeRgn, 19: focusRgn
    if CustomBtnInfo(15, CustomBtnid) ! 0 {;	すでにリージョンが設定されていたら削除
        _SetWindowRgn CustomBtnInfo(0,  CustomBtnid), 0, 0
;		_DeleteObject CustomBtnInfo(15, CustomBtnid)
        if CustomBtnInfo(16, CustomBtnid) ! 0 : _DeleteObject CustomBtnInfo(16, CustomBtnid)
        if CustomBtnInfo(17, CustomBtnid) ! 0 : _DeleteObject CustomBtnInfo(17, CustomBtnid)
        if CustomBtnInfo(18, CustomBtnid) ! 0 : _DeleteObject CustomBtnInfo(18, CustomBtnid)
        if CustomBtnInfo(19, CustomBtnid) ! 0 : _DeleteObject CustomBtnInfo(19, CustomBtnid)
    }
    CustomBtnInfo(15, CustomBtnid)=0, 0, 0, 0, 0
 
    _GetWindowRect CustomBtnInfo(0, CustomBtnid), varptr(rectTmp)
    if ((_p5>>12) & 0xF)=15 {;	ユーザー設定
        CustomBtnInfo(15, CustomBtnid)=_p11
    } else : if ((_p5>>12) & 0xF)=1 {;	楕円
        CustomBtnInfo(15, CustomBtnid)=_CreateEllipticRgn(0, 0, rectTmp(2)-rectTmp(0),   rectTmp(3)-rectTmp(1))
    } else : if ((_p5>>12) & 0xF)=4 {;	上三角
        dim point, 2, 3
        point(0, 0)=(rectTmp(2)-rectTmp(0))/2, 0
        point(0, 1)=0, rectTmp(3)-rectTmp(1)
        point(0, 2)=rectTmp(2)-rectTmp(0), rectTmp(3)-rectTmp(1)
        CustomBtnInfo(15, CustomBtnid)=_CreatePolygonRgn(varptr(point), 3, 2);	WINDING
    } else : if ((_p5>>12) & 0xF)=5 {;	下三角
        dim point, 2, 3
        point(0, 0)=0, 0
        point(0, 1)=rectTmp(2)-rectTmp(0), 0
        point(0, 2)=(rectTmp(2)-rectTmp(0))/2, rectTmp(3)-rectTmp(1)
        CustomBtnInfo(15, CustomBtnid)=_CreatePolygonRgn(varptr(point), 3, 2);	WINDING
    } else : if ((_p5>>12) & 0xF)=6 {;	左三角
        dim point, 2, 3
        point(0, 0)=0, (rectTmp(3)-rectTmp(1))/2
        point(0, 1)=rectTmp(2)-rectTmp(0), 0
        point(0, 2)=rectTmp(2)-rectTmp(0), rectTmp(3)-rectTmp(1)
        CustomBtnInfo(15, CustomBtnid)=_CreatePolygonRgn(varptr(point), 3, 2);	WINDING
    } else : if ((_p5>>12) & 0xF)=7 {;	右三角
        dim point, 2, 3
        point(0, 0)=0, 0
        point(0, 1)=rectTmp(2)-rectTmp(0), (rectTmp(3)-rectTmp(1))/2
        point(0, 2)=0, rectTmp(3)-rectTmp(1)
        CustomBtnInfo(15, CustomBtnid)=_CreatePolygonRgn(varptr(point), 3, 2);	WINDING
    } else : if ((_p5>>12) & 0xF)=8 {;	星
        dim point, 2, 5
        point(0, 0)=(rectTmp(2)-rectTmp(0))/2, 0
        point(0, 1)=int(0.8632712640026804*(rectTmp(2)-rectTmp(0))), rectTmp(3)-rectTmp(1)
        point(0, 2)=0, int(0.3375401518835469*(rectTmp(3)-rectTmp(1)))
        point(0, 3)=rectTmp(2)-rectTmp(0), int(0.3375401518835469*(rectTmp(3)-rectTmp(1)))
        point(0, 4)=int(0.1367287359973196*(rectTmp(2)-rectTmp(0))), rectTmp(3)-rectTmp(1)
        CustomBtnInfo(15, CustomBtnid)=_CreatePolygonRgn(varptr(point), 5, 2);	WINDING
;		CustomBtnInfo(16, CustomBtnid)=_CreatePolygonRgn(varptr(point), 5, 2);	WINDING
;		point(0, 0)+=0 : point(1, 0)+=1
;		point(0, 1)-=1 : point(1, 1)-=1
;		point(0, 2)+=1 : point(1, 2)+=1
;		point(0, 3)-=1 : point(1, 3)+=1
;		point(0, 4)+=1 : point(1, 4)-=1
;		CustomBtnInfo(17, CustomBtnid)=_CreatePolygonRgn(varptr(point), 5, 2);	WINDING
;		point(0, 0)+=0 : point(1, 0)+=2
;		point(0, 1)-=2 : point(1, 1)-=2
;		point(0, 2)+=2 : point(1, 2)+=2
;		point(0, 3)-=2 : point(1, 3)+=2
;		point(0, 4)+=2 : point(1, 4)-=2
;		CustomBtnInfo(18, CustomBtnid)=_CreatePolygonRgn(varptr(point), 5, 2);	WINDING
    } else {;if ((_p5>>12) & 0xF) = 0 {;	矩形
        CustomBtnInfo(15, CustomBtnid)=0;_CreateRectRgn(0, 0, rectTmp(2)-rectTmp(0), rectTmp(3)-rectTmp(1))
    }
    if CustomBtnInfo(15, CustomBtnid) ! 0 {
        CustomBtnInfo(16, CustomBtnid)=_CreateRectRgn(0, 0, 0, 0)
        _CombineRgn CustomBtnInfo(16, CustomBtnid), CustomBtnInfo(15, CustomBtnid), CustomBtnInfo(15, CustomBtnid), 0x00000005;	RGN_COPY
;		_GetRgnBox CustomBtnInfo(16, CustomBtnid), varptr(rectTmp)
        _GetRegionData CustomBtnInfo(16, CustomBtnid), 0, 0
        i=stat
        if i ! 0 {
            sdim RGNDATA, i
            _GetRegionData CustomBtnInfo(16, CustomBtnid), i, varptr(RGNDATA)
            repeat 4
                j=cnt+1
                XFORM(0)=dbl2sng(double(rectTmp(2)-rectTmp(0)-j*2)/double(rectTmp(2)-rectTmp(0)))
                XFORM(1)=0
                XFORM(2)=0
                XFORM(3)=dbl2sng(double(rectTmp(3)-rectTmp(1)-j*2)/double(rectTmp(3)-rectTmp(1)))
                XFORM(4)=dbl2sng(double(j))
                XFORM(5)=dbl2sng(double(j))
                hRgnTmp(cnt)=_ExtCreateRegion(varptr(XFORM), i, varptr(RGNDATA))
            loop
            CustomBtnInfo(17, CustomBtnid)=_CreateRectRgn(0, 0, 0, 0)
            _CombineRgn CustomBtnInfo(17, CustomBtnid), CustomBtnInfo(16, CustomBtnid), hRgnTmp(1), 4;	RGN_DIFF
            CustomBtnInfo(18, CustomBtnid)=_CreateRectRgn(0, 0, 0, 0)
            _CombineRgn CustomBtnInfo(18, CustomBtnid), hRgnTmp(0), hRgnTmp(1), 4;	RGN_DIFF
            CustomBtnInfo(19, CustomBtnid)=_CreateRectRgn(0, 0, 0, 0)
            _CombineRgn CustomBtnInfo(19, CustomBtnid), hRgnTmp(2), hRgnTmp(3), 4;	RGN_DIFF
            repeat 4
                _DeleteObject hRgnTmp(cnt)
            loop
;			CustomBtnInfo(18, CustomBtnid)=_ExtCreateRegion(varptr(XFORM), i, varptr(RGNDATA))
        }
    }
    _SetWindowRgn CustomBtnInfo(0, CustomBtnid), CustomBtnInfo(15, CustomBtnid), 0
 
    #define WM_DRAWITEM    0x0000002B
    oncmd gosub *msg_wmdrawitem@_OD_MESSAGE_, WM_DRAWITEM
 
    sendmsg CustomBtnInfo(0, CustomBtnid), 0x00F4, 0x000B, 1;  ボタンスタイルを BS_OWNERDRAW にする
 
    return CustomBtnid
 
;-----------------------------------------------------------------------------
 
#deffunc drawitem_odbutton int _p1, int _p2
;	DRAWITEMSTRUCT {
    #enum DIS_CtlType =0;	UINT CtlType
    #enum DIS_CtlID     ;	UINT CtlID;
    #enum DIS_itemID    ;	UINT itemID;
    #enum DIS_itemAction;	UINT itemAction;
    #enum DIS_itemState ;	UINT itemState;
    #enum DIS_hwndItem  ;	HWND hwndItem;
    #enum DIS_hDC       ;	HDC hDC;
    #enum DIS_rcItem0   ;	RECT rcItem;
    #enum DIS_rcItem1   ;
    #enum DIS_rcItem2   ;
    #enum DIS_rcItem3   ;
    #enum DIS_itemData  ;	ULONG_PTR itemData;
;	}
    wp=_p1
    lp=_p2
    rp=0
    dupptr DIS, lp, 48, 4
    if DIS.DIS_CtlType=4 {;	ODT_BUTTON
        repeat CustomBtnidlimit
            if DIS.DIS_hwndItem=CustomBtnInfo(0, cnt) {
                CustomBtnId=cnt
                if (DIS.DIS_itemState & 0x0001)=0 {;	非プッシュ時
                    CustomBtnInfoTmp(0)=CustomBtnInfo(2, CustomBtnid)
                    CustomBtnInfoTmp(1)=CustomBtnInfo(3, CustomBtnid)
                    CustomBtnInfoTmp(2)=CustomBtnInfo(4, CustomBtnid)
                    CustomBtnInfoTmp(3)=CustomBtnInfo(5, CustomBtnid)
                    stateDE=0x0005;	EDGE_RAISED
                    syscrFrame(0)=20
                    syscrFrame(2)=22
                    offsetDraw=0
                } else {
                    CustomBtnInfoTmp(0)=CustomBtnInfo(6, CustomBtnid)
                    CustomBtnInfoTmp(1)=CustomBtnInfo(7, CustomBtnid)
                    CustomBtnInfoTmp(2)=CustomBtnInfo(8, CustomBtnid)
                    CustomBtnInfoTmp(3)=CustomBtnInfo(9, CustomBtnid)
                    stateDE=0x000A;	EDGE_SUNKEN
                    syscrFrame(0)=21
                    syscrFrame(2)=16
                    if (CustomBtnInfoTmp(3) & 0x0001) ! 0 {
                        offsetDraw=1
                    } else {
                        offsetDraw=0
                    }
                }
 
                hdcButton=_CreateCompatibleDC(DIS.DIS_hDC)
                hbmButton=_CreateCompatibleBitmap(DIS.DIS_hDC, DIS.DIS_rcItem2, DIS.DIS_rcItem3)
                _SelectObject hdcButton, hbmButton
 
                mref BMSCR, 96+CustomBtnInfo(10, CustomBtnid)
                _GetWindowRect DIS.DIS_hwndItem, varptr(rectTmp)
                _ScreenToClient BMSCR(13), varptr(rectTmp(0))
;				_ScreenToClient BMSCR(13), varptr(rectTmp(2))
                if (CustomBtnInfo(11, CustomBtnid) & 0x1000) ! 0 {;	BG
                    ;	ボタン下地に親ウィンドウの画像をコピー
                    _Bitblt hdcButton, 0, 0, DIS.DIS_rcItem2, DIS.DIS_rcItem3, BMSCR(4), rectTmp(0), rectTmp(1), 0x00CC0020
                } else : if (CustomBtnInfo(11, CustomBtnid) & 0x2000) ! 0 {;	EX
                    ;	親ウィンドウを再描画
                    _GetWindowLong BMSCR(13), -16
                    oldStyle=stat
                    _SetWindowLong BMSCR(13), -16, oldStyle | 0x02000000
                    hdcParent=_GetDC(BMSCR(13))
                    _Bitblt hdcParent, rectTmp(0), rectTmp(1), DIS.DIS_rcItem2, DIS.DIS_rcItem3, BMSCR(4), rectTmp(0), rectTmp(1), 0x00CC0020
                    _ReleaseDC BMSCR(13), hdcParent
                    _SetWindowLong BMSCR(13), -16, oldStyle
                    if CustomBtnInfoTmp(0)=-2 & CustomBtnInfoTmp(1)=-1 {;	透過ボタン
                        _Bitblt hdcButton, 0, 0, DIS.DIS_rcItem2, DIS.DIS_rcItem3, BMSCR(4), rectTmp(0), rectTmp(1), 0x00CC0020
                    }
                }
 
                ;	ボタンのリージョン設定
                if CustomBtnInfo(16, CustomBtnid) ! 0 : _SelectObject hdcButton, CustomBtnInfo(16, CustomBtnid)
 
                ;	基本画像描画
                if CustomBtnInfoTmp(0)>=0 {;	画像使用
                    mref BMSCR, 96+CustomBtnInfoTmp(0)
                    _BitBlt hdcButton, DIS.DIS_rcItem0+offsetDraw, DIS.DIS_rcItem1+offsetDraw, DIS.DIS_rcItem2-DIS.DIS_rcItem0-offsetDraw, DIS.DIS_rcItem3-DIS.DIS_rcItem1-offsetDraw, BMSCR(4), CustomBtnInfoTmp(1), CustomBtnInfoTmp(2), 0x00CC0020
                } else : if CustomBtnInfoTmp(0)=-2 {;	選択色
                    if CustomBtnInfoTmp(1)=-1 {
                    } else {
                        hBrush=_CreateSolidBrush( ((CustomBtnInfoTmp(1)<<16) & 0xFF0000) | (CustomBtnInfoTmp(1) & 0x00FF00) | ((CustomBtnInfoTmp(1)>>16) & 0x0000FF) )
                        _FillRect hdcButton, varptr(DIS.DIS_rcItem0), hBrush
                        _DeleteObject hBrush
                    }
                } else {;: if CustomBtnInfoTmp(0)=-1 {;	灰色一色
                    _FillRect hdcButton, varptr(DIS.DIS_rcItem0), _GetSysColorBrush(15)
                }
 
                ;	文字描画
                if (CustomBtnInfoTmp(3) & 0x0010) ! 0 {
                    textBtn=""
                    _GetWindowTextLength DIS.DIS_hwndItem
                    if stat ! 0 : _GetWindowText DIS.DIS_hwndItem, varptr(textBtn), limit(stat+1, 0, 255)
                    rectTmp(0)=DIS.DIS_rcItem0+offsetDraw*2
                    rectTmp(1)=DIS.DIS_rcItem1+offsetDraw*2
                    rectTmp(2)=DIS.DIS_rcItem2
                    rectTmp(3)=DIS.DIS_rcItem3-1
                    if (CustomBtnInfoTmp(3) & 0x0020) ! 0 {
                        _SetTextColor hdcButton, CustomBtnInfo(12, CustomBtnId)
                        oldTextColor=stat
                    }
                    _SetBkMode hdcButton, 1;	TRANSPARENT
                    oldBkMode=stat
                    hFont=_GetCurrentObject(DIS.DIS_hDC, 6);	OBJ_FONT
                    _SelectObject hdcButton, hFont
                    oldFont=stat
                    _DrawText hdcButton, varptr(textBtn), strlen(textBtn), varptr(rectTmp), 0x0025;	DT_CENTER | DT_VSENTER | DT_SINGLELINE
                    _SelectObject hdcButton, oldFont
                    _SetBkMode hdcButton, oldBkMode
                    if (CustomBtnInfoTmp(3) & 0x0020) ! 0 {
                        _SetTextColor hdcButton, oldTextColor
                    }
                }
 
                ;	フォーカス枠
                if (CustomBtnInfoTmp(3) & 0x0004) ! 0 {
                    if (DIS.DIS_itemState & 0x0010) ! 0 {;	フォーカスあり
                        if CustomBtnInfo(16, CustomBtnid) ! 0 {
                            _SetROP2 hdcButton, 7;	R2_XORPEN
                            oldROP2=stat
                            hBrush=_CreatePatternBrush(hbmFrame)
;							_FrameRgn hdcButton, CustomBtnInfo(19, CustomBtnid), hBrush, 1, 1
                            _FillRgn hdcButton, CustomBtnInfo(19, CustomBtnid), hBrush
                            _SetROP2 hdcButton, oldROP2
                            _DeleteObject hBrush
                        } else {
                            rectTmp=3, 3, DIS.DIS_rcItem2-3, DIS.DIS_rcItem3-3
                            _DrawFocusRect hdcButton, varptr(rectTmp)
                        }
                    }
                }
 
                ;	ボタン外枠
                if (CustomBtnInfoTmp(3) & 0x0002) ! 0 {
                    if CustomBtnInfo(16, CustomBtnid) ! 0 {
;						_FrameRgn hdcButton, CustomBtnInfo(17, CustomBtnid), _GetSysColorBrush(syscrFrame(0)), 1, 1
;						_FrameRgn hdcButton, CustomBtnInfo(18, CustomBtnid), _GetSysColorBrush(syscrFrame(2)), 1, 1
                        _FillRgn hdcButton, CustomBtnInfo(17, CustomBtnid), _GetSysColorBrush(syscrFrame(0))
                        _FillRgn hdcButton, CustomBtnInfo(18, CustomBtnid), _GetSysColorBrush(syscrFrame(2))
                    } else {
                        _DrawEdge hdcButton, varptr(DIS.DIS_rcItem0), stateDE, 0x100F
                    }
                }
 
                ;	ウィンドウにコピー
                if (CustomBtnInfo(11, CustomBtnid) & 0x1000) ! 0 {;	BG / BG2
                    mref BMSCR, 96+CustomBtnInfo(10, CustomBtnid)
                    _GetWindowRect DIS.DIS_hwndItem, varptr(rectTmp)
                    _ScreenToClient BMSCR(13), varptr(rectTmp(0))
;					_ScreenToClient BMSCR(13), varptr(rectTmp(2))
                    _GetWindowLong BMSCR(13), -16
                    oldStyle=stat
                    _SetWindowLong BMSCR(13), -16, oldStyle & 0xFDFFFFFF
                    hdcParent=_GetDC(BMSCR(13))
                    if (CustomBtnInfo(11, CustomBtnid) & 0x0800) ! 0 {;	BG
                        _Bitblt BMSCR(4),  rectTmp(0), rectTmp(1), DIS.DIS_rcItem2, DIS.DIS_rcItem3, hdcButton, 0, 0, 0x00CC0020
                    }
                    _Bitblt hdcParent, rectTmp(0), rectTmp(1), DIS.DIS_rcItem2, DIS.DIS_rcItem3, hdcButton, 0, 0, 0x00CC0020
                    _ReleaseDC BMSCR(13), hdcParent
                    _SetWindowLong BMSCR(13), -16, oldStyle
                } else : if (CustomBtnInfo(11, CustomBtnid) & 0x2000) ! 0 {;	EX
                    if CustomBtnInfo(16, CustomBtnid) ! 0 : _SelectObject DIS.DIS_hDC, CustomBtnInfo(16, CustomBtnid)
                    _Bitblt DIS.DIS_hDC, 0, 0, DIS.DIS_rcItem2, DIS.DIS_rcItem3, hdcButton, 0, 0, 0x00CC0020
                }
 
                _DeleteDC     hdcButton
                _DeleteObject hbmButton
                rp=1
                break
            }
        loop
    }
    return rp
 
;-----------------------------------------------------------------------------
#define global removecustom(%1=-1) _removecustomsetting@_OD_BUTTON_ %1
/*
%index
removecustom
カスタムボタンの設定を破棄
%group
カスタムボタン拡張マクロ命令
%prm
int p1
p1(-1) : ボタンのオブジェクトID (-2=全ボタン(プログラム内) / -1=全ボタン(ウィンドウ内))
%inst
custombutton,custombuttonBG 命令で設定した内容を破棄して標準のボタンに戻します。
 
p1 に設定を破棄するボタンのオブジェクトIDを指定します。
p1 に -1 を指定した場合は操作対象ウィンドウ内の全ての設定済みボタンの設定を破棄します。
p1 に -2 を指定した場合は全ての設定済みボタンの設定を破棄します。
%href
button
clrobj
objmode
custombutton
custombuttonBG
removecustom
cbtnredraw
*/;
#deffunc _removecustomsetting@_OD_BUTTON_ int _p1
    rp=0
    if initcustomizebutton ! 0 {
        repeat CustomBtnidlimit
            i=0
            if _p1=-2 {
                i=10
            } else : if _p1=-1 {
                if ginfo(3)=CustomBtnInfo(10, cnt) : i=10
            } else {
                if objInfo(_p1, 2)=CustomBtnInfo(0, cnt) : i=1
            }
            if i>0 {
                if CustomBtnInfo(0, cnt) ! 0 {
                    if CustomBtnInfo(13, cnt) ! 0 : _DeleteObject CustomBtnInfo(13, cnt)
                    if CustomBtnInfo(15, cnt) ! 0 {
                        _SetWindowRgn CustomBtnInfo(0,  cnt), 0, 0
    ;					_DeleteObject CustomBtnInfo(15, cnt)
                        if CustomBtnInfo(16, cnt) ! 0 : _DeleteObject CustomBtnInfo(16, cnt)
                        if CustomBtnInfo(17, cnt) ! 0 : _DeleteObject CustomBtnInfo(17, cnt)
                        if CustomBtnInfo(18, cnt) ! 0 : _DeleteObject CustomBtnInfo(18, cnt)
                        if CustomBtnInfo(19, cnt) ! 0 : _DeleteObject CustomBtnInfo(19, cnt)
                    }
;					sendmsg CustomBtnInfo(0, cnt), 0x00F4, 0x0000, 1;  ボタンスタイル
                    _GetWindowLong CustomBtnInfo( 0, cnt), -12
                    _SetWindowLong CustomBtnInfo(14, cnt), -12, stat
                    oldgsel=ginfo(3)
                    gsel CustomBtnInfo(10, cnt), 0
                    ;	設定後のボタンへの変更を標準のボタンに反映
                    _GetWindowRect CustomBtnInfo( 0, cnt), varptr(rectTmp)
                    _ScreenToClient hwnd, varptr(rectTmp(0))
                    _ScreenToClient hwnd, varptr(rectTmp(2))
                    _MoveWindow CustomBtnInfo(14, cnt), rectTmp(0), rectTmp(1), rectTmp(2)-rectTmp(0), rectTmp(3)-rectTmp(1), 0
                    textBtn=""
                    _GetWindowTextLength CustomBtnInfo( 0, cnt)
                    if stat ! 0 : _GetWindowText CustomBtnInfo( 0, cnt), varptr(textBtn), limit(stat+1, 0, 255)
                    _SetWindowText CustomBtnInfo(14, cnt), varptr(textBtn)
                    setobjinfo CustomBtnInfo(1, cnt), 2, CustomBtnInfo(14, cnt)
                    gsel oldgsel, 0
                    _DestroyWindow CustomBtnInfo(0, cnt)
                    _ShowWindow CustomBtnInfo(14, cnt), 8
                    j=cnt
                    repeat 20
                        CustomBtnInfo(cnt, j)=0
                    loop
                    rp=1
                    if i=1 : break
                }
            }
        loop
    }
    return rp
 
;-----------------------------------------------------------------------------
#define global cbtnredraw(%1=-1) _custombuttonredraw@_OD_BUTTON_ %1
/*
%index
cbtnredraw
カスタムボタンの再描画
%group
カスタムボタン拡張マクロ命令
%prm
int p1
p1(-1) : ボタンのオブジェクトID (-2=全ボタン(プログラム内) / -1=全ボタン(ウィンドウ内))
%inst
カスタムボタンとして設定されているボタンを再描画します。
 
p1 に再描画するボタンのオブジェクトIDを指定します。
p1 に -1 を指定した場合は操作対象ウィンドウ内の全てのカスタムボタンを再描画します。
p1 に -2 を指定した場合は全てのカスタムボタンを再描画します。
 
(注意) この命令は描画のためシステムに負荷をかけます。
       できるだけ再描画の必要があるボタンのみを指定するようにしてください。
%href
button
clrobj
objmode
custombutton
custombuttonBG
removecustom
cbtnredraw
*/;
#deffunc _custombuttonredraw@_OD_BUTTON_ int _p1
    rp=0
    if initcustomizebutton ! 0 {
        repeat CustomBtnidlimit
            i=0
            if _p1=-2 {
                i=10
            } else : if _p1=-1 {
                if ginfo(3)=CustomBtnInfo(10, cnt) : i=10
            } else {
                if objInfo(_p1, 2)=CustomBtnInfo(0, cnt) : i=1
            }
            if i>0 {
                if CustomBtnInfo(0, cnt) ! 0 {
                    _InvalidateRect CustomBtnInfo(0, cnt), 0, 0
                    rp=1
                    if i=1 : break
                }
            }
        loop
    }
    return rp
 
;-----------------------------------------------------------------------------
 
#deffunc destroycustombutton onexit
/*
%index
destroycustombutton
カスタムボタンシステム設定を破棄
%group
カスタムボタン拡張マクロ命令
%prm
%inst
カスタムボタンシステム設定、およびすべてのカスタムボタン設定を破棄します。
アプリケーション終了時に自動で呼び出されます。
%href
button
clrobj
objmode
custombutton
custombuttonBG
removecustom
cbtnredraw
*/;
    if initcustomizebutton ! 0 {
        removecustom -2
        _DeleteObject hbmFrame
        initcustomizebutton=0
    }
    return
 
;-----------------------------------------------------------------------------
#deffunc objredraw int _p1
/*
%index
objredraw
オブジェクトを再描画
%group
オブジェクト制御拡張マクロ命令
%prm
int p1
p1 : ボタンのオブジェクトID
%inst
オブジェクトを強制的に再描画します。
 
p1 に再描画するオブジェクトのIDを指定します。
;%href
*/;
    if objInfo(_p1, 2) ! 0 : _InvalidateRect objInfo(_p1, 2), 0, 0
    return
;-----------------------------------------------------------------------------
#global
;=============================================================================
#endif
 
#endif
;=============================================================================

  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

    #cmpopt optcode 0
    ;	オーナードローモジュール 1
    #include "sample_odtemplate_menu_01.hsp" ; 上のモジュールを保存したファイルの名前を指定してください
    ;	オーナードローモジュール 2
    #include "mod_customizebutton_odtemplate.hsp"
    ;	オーナードローメッセージ処理モジュール
    #include "mod_odmsg.hsp"
 
;	buffer 1
 
#if 0
    screen 2, 300, 300
    init_odmsg
    CreateMenu : hM=stat
    CreatePopupMenu : hMs=stat
    InsertMenu hM, 0, 0x0400|0x0010, hMs, "Test"
    InsertMenu hMs, 0, 0x0400|0x0000, 0x1100, "Dummy1"
    InsertMenu hMs, 1, 0x0400|0x0000, 0x1101, "Dummy2"
    InsertMenu hMs, 2, 0x0400|0x0100, 0x1102, "Dummy3"
    SetMenu hwnd, hM
    DrawMenubar hwnd
#endif
    gsel 0, 1
    title "＊終了できません＊"
 
    init_odmenu
;	init_odmsg
 
    CreateMenu : hM=stat
    SetMenu hwnd, hM
        CreatePopupMenu : hMs=stat
        InsertMenuOD hM,  0, MF_BYPOSITION|MF_POPUP, hMs, "Test"
            InsertMenuOD hMs, 0, MF_BYPOSITION|MF_DISABLED, 0x1100, "Dummy1"
            InsertMenuOD hMs, 1, MF_BYPOSITION|MF_GRAYED, 0x1101, "Dummy2"
            InsertMenuOD hMs, 2, MF_BYPOSITION|MF_SEPARATOR, 0x1102, "Dummy2"
            InsertMenuOD hMs, 3, MF_BYPOSITION, 0x1102, "Dummy3"
        CreatePopupMenu : hMs=stat
        InsertMenuOD hM,  1, MF_BYPOSITION|MF_POPUP, hMs, "Test2"
            InsertMenuOD hMs, 0, MF_BYPOSITION, 0x1100, "Dummy4"
            InsertMenuOD hMs, 1, MF_BYPOSITION, 0x1101, "Dummy5"
            InsertMenuOD hMs, 2, MF_BYPOSITION, 0x1102, "Dummy6"
    SetMenu hwnd, hM
    DrawMenubar hwnd
 
    pos 240, 180
    objsize 160,120
    button gosub "標準ボタン", *push
    oncmd gosub *command, 0x0111
    onexit gosub *exit
    stop
;-----------------------------------------------------------------------------
*push
    c+
    title strf("ボタン押した  %01d回",c)
    return
;-----------------------------------------------------------------------------
*command
    switch (wparam & 0xFFFF)
        case 0x1100
            color 0, 255, 255
            objprm 0, "Dummyって書いてあったのに・・・"
            custombutton 0, -2, 0xFF0000, 0, 0x1037
        swbreak
        case 0x1101
            objprm 0, "Dummyって書いてあったよな?"
            removecustom 0
        swbreak
        case 0x1102
            end
        swbreak
    swend
    return
;-----------------------------------------------------------------------------
*exit
    if c>9 : end
    return