source: branch/egtra-stream-without-en_dec/api_commctrl.sbp@ 673

Last change on this file since 673 was 561, checked in by イグトランス (egtra), 16 years ago

EditBox, TaskMsgの追加。

File size: 35.3 KB
Line 
1' api_commctrl.sbp
2#ifndef _INC_COMMCTRL
3#define _INC_COMMCTRL
4
5#ifdef UNICODE
6Const _FuncName_CreateStatusWindow = "CreateStatusWindowW"
7#else
8Const _FuncName_CreateStatusWindow = "CreateStatusWindowA"
9#endif
10
11
12
13'---------------------
14' Initialize commands
15'---------------------
16
17Const ICC_LISTVIEW_CLASSES = &H00000001
18Const ICC_TREEVIEW_CLASSES = &H00000002
19Const ICC_BAR_CLASSES = &H00000004
20Const ICC_TAB_CLASSES = &H00000008
21Const ICC_UPDOWN_CLASS = &H00000010
22Const ICC_PROGRESS_CLASS = &H00000020
23Const ICC_HOTKEY_CLASS = &H00000040
24Const ICC_ANIMATE_CLASS = &H00000080
25Const ICC_WIN95_CLASSES = &H000000FF
26Const ICC_DATE_CLASSES = &H00000100
27Const ICC_USEREX_CLASSES = &H00000200
28Const ICC_COOL_CLASSES = &H00000400
29Const ICC_INTERNET_CLASSES = &H00000800
30Const ICC_PAGESCROLLER_CLASS = &H00001000
31Const ICC_NATIVEFNTCTL_CLASS = &H00002000
32Type INITCOMMONCONTROLSEX
33 dwSize As DWord
34 dwICC As DWord
35End Type
36Declare Function InitCommonControlsEx Lib "comctl32" (ByRef InitCtrls As INITCOMMONCONTROLSEX) As BOOL
37
38Declare Sub InitCommonControls Lib "comctl32" ()
39
40
41'----------------------------
42' Common control shared item
43'----------------------------
44
45Const CCS_TOP = &H00000001
46Const CCS_NOMOVEY = &H00000002
47Const CCS_BOTTOM = &H00000003
48Const CCS_NORESIZE = &H00000004
49Const CCS_NOPARENTALIGN = &H00000008
50Const CCS_ADJUSTABLE = &H00000020
51Const CCS_NODIVIDER = &H00000040
52Const CCS_VERT = &H00000080
53Const CCS_LEFT = CCS_VERT or CCS_TOP
54Const CCS_RIGHT = CCS_VERT or CCS_BOTTOM
55Const CCS_NOMOVEX = CCS_VERT or CCS_NOMOVEY
56
57Const CCM_FIRST = &H2000
58Const CCM_SETBKCOLOR = CCM_FIRST+1
59Const CCM_SETCOLORSCHEME = CCM_FIRST+2
60Const CCM_GETCOLORSCHEME = CCM_FIRST+3
61Const CCM_GETDROPTARGET = CCM_FIRST+4
62Const CCM_SETUNICODEFORMAT = CCM_FIRST+5
63Const CCM_GETUNICODEFORMAT = CCM_FIRST+6
64
65Type NMHDR
66 hwndFrom As HWND
67 idFrom As ULONG_PTR
68 code As DWord
69End Type
70
71Const NM_FIRST = 0
72Const NM_OUTOFMEMORY = NM_FIRST-1
73Const NM_CLICK = NM_FIRST-2
74Const NM_DBLCLK = NM_FIRST-3
75Const NM_RETURN = NM_FIRST-4
76Const NM_RCLICK = NM_FIRST-5
77Const NM_RDBLCLK = NM_FIRST-6
78Const NM_SETFOCUS = NM_FIRST-7
79Const NM_KILLFOCUS = NM_FIRST-8
80Const NM_CUSTOMDRAW = NM_FIRST-12
81Const NM_HOVER = NM_FIRST-13
82Const NM_NCHITTEST = NM_FIRST-14
83Const NM_KEYDOWN = NM_FIRST-15
84Const NM_RELEASEDCAPTURE = NM_FIRST-16
85Const NM_SETCURSOR = NM_FIRST-17
86Const NM_CHAR = NM_FIRST-18
87
88
89'-----------
90' ImageList
91'-----------
92
93Type _System_DeclareHandle_HIMAGELIST:unused As DWord:End Type
94TypeDef HIMAGELIST = *_System_DeclareHandle_HIMAGELIST
95
96Declare Function ImageList_AddIcon Lib "comctl32" (himl As HIMAGELIST, hIcon As HICON) As Long
97
98Const ILC_MASK = &H0001
99Const ILC_COLOR = &H0000
100Const ILC_COLORDDB = &H00FE
101Const ILC_COLOR4 = &H0004
102Const ILC_COLOR8 = &H0008
103Const ILC_COLOR16 = &H0010
104Const ILC_COLOR24 = &H0018
105Const ILC_COLOR32 = &H0020
106Declare Function ImageList_Create Lib "comctl32" (cx As Long, cy As Long, flags As DWord, cInitial As Long, cGrow As Long) As HIMAGELIST
107
108Declare Function ImageList_Destroy Lib "comctl32" (himl As HIMAGELIST) As BOOL
109Declare Function ImageList_GetIcon Lib "comctl32" (himl As HIMAGELIST, index As Long, flags As DWord) As HICON
110Declare Function ImageList_GetImageCount Lib "comctl32" (himl As HIMAGELIST) As Long
111Declare Function ImageList_LoadImage Lib "comctl32" (hi As HINSTANCE, lpbmp As BytePtr, cx As Long, cGrow As Long, crMask As DWord, uType As DWord, uFlags As DWord) As HIMAGELIST
112
113
114'-----------
115' ListView
116'-----------
117
118'Column
119Const LVCF_FMT = &H0001
120Const LVCF_WIDTH = &H0002
121Const LVCF_TEXT = &H0004
122Const LVCF_SUBITEM = &H0008
123Const LVCF_IMAGE = &H0010
124Const LVCF_ORDER = &H0020
125Const LVCFMT_LEFT = &H0000
126Const LVCFMT_RIGHT = &H0001
127Const LVCFMT_CENTER = &H0002
128Const LVCFMT_JUSTIFYMASK = &H0003
129Const LVCFMT_IMAGE = &H0800
130Const LVCFMT_BITMAP_ON_RIGHT = &H1000
131Const LVCFMT_COL_HAS_IMAGES = &H8000
132Type LVCOLUMN
133 mask As DWord
134 fmt As Long
135 cx As Long
136 pszText As LPSTR
137 cchTextMax As Long
138 iSubItem As Long
139 iImage As Long
140 iOrder As Long
141End Type
142TypeDef LPLVCOLUMN = *LVCOLUMN
143
144'Find item
145Const LVFI_PARAM = &H0001
146Const LVFI_STRING = &H0002
147Const LVFI_PARTIAL = &H0008
148Const LVFI_WRAP = &H0020
149Const LVFI_NEARESTXY = &H0040
150Type LVFINDINFO
151 flags As DWord
152 psz As LPSTR
153 lParam As LPARAM
154 pt As POINTAPI
155 vkDirection As DWord
156End Type
157TypeDef LPLVFINDINFO = *LVFINDINFO
158
159'Item
160Const LVIF_TEXT = &H0001
161Const LVIF_IMAGE = &H0002
162Const LVIF_PARAM = &H0004
163Const LVIF_STATE = &H0008
164Const LVIF_INDENT = &H0010
165Const LVIF_NORECOMPUTE = &H0800
166Const LVIF_DI_SETITEM = &H1000
167Type LVITEM
168 mask As DWord
169 iItem As Long
170 iSubItem As Long
171 state As DWord
172 stateMask As DWord
173 pszText As LPSTR
174 cchTextMax As Long
175 iImage As Long
176 lParam As LPARAM
177 iIndent As Long
178End Type
179TypeDef LPLVITEM = *LVITEM
180
181
182Const LVM_FIRST = &H1000 'ListView messages
183Const LVM_GETBKCOLOR = LVM_FIRST+0
184Const LVM_SETBKCOLOR = LVM_FIRST+1
185
186Const LVSIL_NORMAL = 0
187Const LVSIL_SMALL = 1
188Const LVSIL_STATE = 2
189Const LVM_GETIMAGELIST = LVM_FIRST+2
190Const LVM_SETIMAGELIST = LVM_FIRST+3
191
192Const LVM_GETITEMCOUNT = LVM_FIRST+4
193Function ListView_GetItemCount(hwnd As HWND) As Long
194 ListView_GetItemCount=SendMessage(hwnd,LVM_GETITEMCOUNT,0,0) As Long
195End Function
196Const LVM_GETITEM = LVM_FIRST+5
197Const LVM_SETITEM = LVM_FIRST+6
198Function ListView_SetItem(hwnd As HWND, ByRef ref_lvItem As LVITEM) As Long
199 ListView_SetItem=SendMessage(hwnd,LVM_SETITEM,0,VarPtr(ref_lvItem) As LPARAM) As Long
200End Function
201Const LVM_INSERTITEM = LVM_FIRST+7
202Function ListView_InsertItem(hwnd As HWND, ByRef ref_lvItem As LVITEM) As Long
203 ListView_InsertItem=SendMessage(hwnd,LVM_INSERTITEM,0,VarPtr(ref_lvItem) As LPARAM) As Long
204End Function
205Const LVM_DELETEITEM = LVM_FIRST+8
206Function ListView_DeleteItem(hwnd As HWND, iItem As Long) As BOOL
207 ListView_DeleteItem=SendMessage(hwnd,LVM_DELETEITEM,iItem,0) As BOOL
208End Function
209Const LVM_DELETEALLITEMS = LVM_FIRST+9
210Function ListView_DeleteAllItems(hwndLV As HWND) As BOOL
211 ListView_DeleteAllItems=SendMessage(hwndLV,LVM_DELETEALLITEMS,0,0) As BOOL
212End Function
213Const LVM_GETCALLBACKMASK = LVM_FIRST+10
214Const LVM_SETCALLBACKMASK = LVM_FIRST+11
215
216Const LVNI_ALL = &H0000
217Const LVNI_FOCUSED = &H0001
218Const LVNI_SELECTED = &H0002
219Const LVNI_CUT = &H0004
220Const LVNI_DROPHILITED = &H0008
221Const LVNI_ABOVE = &H0100
222Const LVNI_BELOW = &H0200
223Const LVNI_TOLEFT = &H0400
224Const LVNI_TORIGHT = &H0800
225Const LVM_GETNEXTITEM = LVM_FIRST+12
226
227Const LVM_FINDITEM = LVM_FIRST+13
228Function ListView_FindItem(hwnd As HWND, iStart As Long, ByRef ref_lvfi As LVFINDINFO) As Long
229 ListView_FindItem=SendMessage(hwnd,LVM_FINDITEM,iStart As WPARAM,VarPtr(ref_lvfi) As LPARAM) As Long
230End Function
231
232Const LVM_GETITEMRECT = LVM_FIRST+14
233Const LVM_SETITEMPOSITION = LVM_FIRST+15
234Const LVM_GETITEMPOSITION = LVM_FIRST+16
235Const LVM_GETSTRINGWIDTH = LVM_FIRST+17
236Const LVM_HITTEST = LVM_FIRST+18
237Const LVM_ENSUREVISIBLE = LVM_FIRST+19
238Const LVM_SCROLL = LVM_FIRST+20
239Function ListView_Scroll(hwnd As HWND, dx As Long, dy As Long) As BOOL
240 ListView_Scroll=SendMessage(hwnd,LVM_SCROLL,dx,dy) As BOOL
241End Function
242Const LVM_REDRAWITEMS = LVM_FIRST+21
243Const LVM_ARRANGE = LVM_FIRST+22
244Const LVM_EDITLABEL = LVM_FIRST+23
245Const LVM_GETEDITCONTROL = LVM_FIRST+24
246Const LVM_GETCOLUMN = LVM_FIRST+25
247Function ListView_GetColumn(hwnd As HWND, iCol As Long, ByRef ref_col As LVCOLUMN) As BOOL
248 ListView_GetColumn=SendMessage(hwnd,LVM_GETCOLUMN,iCol,VarPtr(ref_col) As LPARAM) As BOOL
249End Function
250Const LVM_SETCOLUMN = LVM_FIRST+26
251Function ListView_SetColumn(hwnd As HWND, iCol As Long, ByRef ref_col As LVCOLUMN) As BOOL
252 ListView_SetColumn=SendMessage(hwnd,LVM_SETCOLUMN,iCol,VarPtr(ref_col) As LPARAM) As BOOL
253End Function
254Const LVM_INSERTCOLUMN = LVM_FIRST+27
255Function ListView_InsertColumn(hWnd As HWND, iCol As Long, ByRef ref_lvColumn As LVCOLUMN) As Long
256 ListView_InsertColumn=SendMessage(hWnd,LVM_INSERTCOLUMN ,iCol As WPARAM,VarPtr(ref_lvColumn) As LPARAM) As Long
257End Function
258Const LVM_DELETECOLUMN = LVM_FIRST+28
259Function ListView_DeleteColumn(hwnd As HWND, iCol As Long) As BOOL
260 ListView_DeleteColumn=SendMessage(hwnd,LVM_DELETECOLUMN,iCol,0) As BOOL
261End Function
262Const LVM_GETCOLUMNWIDTH = LVM_FIRST+29
263Const LVM_SETCOLUMNWIDTH = LVM_FIRST+30
264Function ListView_SetColumnWidth(hwnd As HWND, iCol As Long, cx As Long) As BOOL
265 ListView_SetColumnWidth=SendMessage(hwnd,LVM_SETCOLUMNWIDTH,iCol,MAKELONG(cx,0) As LPARAM) As BOOL
266End Function
267Const LVM_GETHEADER = LVM_FIRST+31
268Const LVM_CREATEDRAGIMAGE = LVM_FIRST+33
269Const LVM_GETVIEWRECT = LVM_FIRST+34
270Const LVM_GETTEXTCOLOR = LVM_FIRST+35
271Const LVM_SETTEXTCOLOR = LVM_FIRST+36
272Const LVM_GETTEXTBKCOLOR = LVM_FIRST+37
273Const LVM_SETTEXTBKCOLOR = LVM_FIRST+38
274Const LVM_GETTOPINDEX = LVM_FIRST+39
275Const LVM_GETCOUNTPERPAGE = LVM_FIRST+40
276Const LVM_GETORIGIN = LVM_FIRST+41
277Const LVM_UPDATE = LVM_FIRST+42
278
279Const LVIS_FOCUSED = &H0001
280Const LVIS_SELECTED = &H0002
281Const LVIS_CUT = &H0004
282Const LVIS_DROPHILITED = &H0008
283Const LVIS_GLOW = &H0010
284Const LVIS_ACTIVATING = &H0020
285Const LVIS_OVERLAYMASK = &H0F00
286Const LVIS_STATEIMAGEMASK = &HF000
287Const LVM_SETITEMSTATE = LVM_FIRST+43
288Function ListView_SetItemState(hwnd As HWND, i As Long, state As DWord, mask As DWord) As BOOL
289 Dim lvItem As LVITEM
290 lvItem.stateMask=mask
291 lvItem.state=state
292 ListView_SetItemState=SendMessage(hwnd,LVM_SETITEMSTATE,i,VarPtr(lvItem) As LPARAM) As DWord
293End Function
294Const LVM_GETITEMSTATE = LVM_FIRST+44
295Function ListView_GetItemState(hwnd As HWND, i As Long, mask As DWord) As DWord
296 ListView_GetItemState=SendMessage(hwnd,LVM_GETITEMSTATE,i,mask As LPARAM) As DWord
297End Function
298Function ListView_GetCheckState(hwnd As HWND, iIndex As Long) As BOOL
299 ListView_GetCheckState=((SendMessage(hwnd,LVM_GETITEMSTATE,iIndex,LVIS_STATEIMAGEMASK) As DWord)>>12)-1
300End Function
301
302Const LVM_GETITEMTEXT = LVM_FIRST+45
303Sub ListView_GetItemText(hwnd As HWND, iItem As Long, iSubItem As Long, pszText As LPSTR, cchTextMax As Long)
304 Dim lvi As LVITEM
305 lvi.iSubItem=iSubItem
306 lvi.cchTextMax=cchTextMax
307 lvi.pszText=pszText
308 SendMessage(hwnd,LVM_GETITEMTEXT,iItem,VarPtr(lvi) As LPARAM)
309End Sub
310Const LVM_SETITEMTEXT = LVM_FIRST+46
311Sub ListView_SetItemText(hwnd As HWND, iItem As Long, iSubItem As Long, pszText As LPCSTR)
312 Dim lvi As LVITEM
313 lvi.iSubItem=iSubItem
314 lvi.pszText=pszText
315 SendMessage(hwnd,LVM_SETITEMTEXT,iItem,VarPtr(lvi) As LPARAM)
316End Sub
317Const LVM_SETITEMCOUNT = LVM_FIRST+47
318Const LVM_SORTITEMS = LVM_FIRST+48
319Function ListView_SortItems(hwnd As HWND, pfnCompare As VoidPtr, lParamSort As LPARAM) As BOOL
320 ListView_SortItems=SendMessage(hwnd,LVM_SORTITEMS,lParamSort As WPARAM,pfnCompare As LPARAM) As BOOL
321End Function
322Const LVM_SETITEMPOSITION32 = LVM_FIRST+49
323Const LVM_GETSELECTEDCOUNT = LVM_FIRST+50
324Const LVM_GETITEMSPACING = LVM_FIRST+51
325Const LVM_GETISEARCHSTRING = LVM_FIRST+52
326Const LVM_SETICONSPACING = LVM_FIRST+53
327Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST+54
328Function ListView_SetExtendedListViewStyle(hwndLV As HWND, dwExStyle As DWord) As DWord
329 ListView_SetExtendedListViewStyle=SendMessage(hwndLV,LVM_SETEXTENDEDLISTVIEWSTYLE,dwExStyle,dwExStyle) As DWord
330End Function
331Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST+55
332Function ListView_GetExtendedListViewStyle(hwndLV As HWND) As DWord
333 ListView_GetExtendedListViewStyle=SendMessage(hwndLV,LVM_GETEXTENDEDLISTVIEWSTYLE,0,0) As DWord
334End Function
335Const LVM_GETSUBITEMRECT = LVM_FIRST+56
336Const LVM_SUBITEMHITTEST = LVM_FIRST+57
337Const LVM_SETCOLUMNORDERARRAY = LVM_FIRST+58
338Const LVM_GETCOLUMNORDERARRAY = LVM_FIRST+59
339Const LVM_SETHOTITEM = LVM_FIRST+60
340Const LVM_GETHOTITEM = LVM_FIRST+61
341Const LVM_SETHOTCURSOR = LVM_FIRST+62
342Const LVM_GETHOTCURSOR = LVM_FIRST+63
343Const LVM_APPROXIMATEVIEWRECT = LVM_FIRST+64
344Const LVM_SETWORKAREAS = LVM_FIRST+65
345Const LVM_GETSELECTIONMARK = LVM_FIRST+66
346Const LVM_SETSELECTIONMARK = LVM_FIRST+67
347Const LVM_SETBKIMAGE = LVM_FIRST+68
348Const LVM_GETBKIMAGE = LVM_FIRST+69
349Const LVM_GETWORKAREAS = LVM_FIRST+70
350Const LVM_SETHOVERTIME = LVM_FIRST+71
351Const LVM_GETHOVERTIME = LVM_FIRST+72
352Const LVM_GETNUMBEROFWORKAREAS = LVM_FIRST+73
353Const LVM_SETTOOLTIPS = LVM_FIRST+74
354Const LVM_GETTOOLTIPS = LVM_FIRST+78
355
356Type NMLISTVIEW
357 hdr As NMHDR
358 iItem As Long
359 iSubItem As Long
360 uNewState As DWord
361 uOldState As DWord
362 uChanged As DWord
363 ptAction As POINTAPI
364 lParam As LPARAM
365End Type
366
367Type NMLVDISPINFO
368 hdr As NMHDR
369 item As LVITEM
370End Type
371
372Type NMLVKEYDOWN
373 hdr As NMHDR
374 wVKey As Word
375 flags As DWord
376End Type
377
378Const LVN_FIRST = -100
379Const LVN_ITEMCHANGING = LVN_FIRST-0
380Const LVN_ITEMCHANGED = LVN_FIRST-1
381Const LVN_INSERTITEM = LVN_FIRST-2
382Const LVN_DELETEITEM = LVN_FIRST-3
383Const LVN_DELETEALLITEMS = LVN_FIRST-4
384Const LVN_BEGINLABELEDIT = LVN_FIRST-5
385Const LVN_ENDLABELEDIT = LVN_FIRST-6
386Const LVN_COLUMNCLICK = LVN_FIRST-8
387Const LVN_BEGINDRAG = LVN_FIRST-9
388Const LVN_BEGINRDRAG = LVN_FIRST-11
389Const LVN_ODCACHEHINT = LVN_FIRST-13
390Const LVN_ODFINDITEM = LVN_FIRST-52
391Const LVN_ITEMACTIVATE = LVN_FIRST-14
392Const LVN_ODSTATECHANGED = LVN_FIRST-15
393Const LVN_HOTTRACK = LVN_FIRST-21
394Const LVN_GETDISPINFO = LVN_FIRST-50
395Const LVN_SETDISPINFO = LVN_FIRST-51
396Const LVN_KEYDOWN = LVN_FIRST-55
397
398Const LVS_ICON = &H0000
399Const LVS_REPORT = &H0001
400Const LVS_SMALLICON = &H0002
401Const LVS_LIST = &H0003
402Const LVS_SINGLESEL = &H0004
403Const LVS_SHOWSELALWAYS = &H0008
404Const LVS_SORTASCENDING = &H0010
405Const LVS_SORTDESCENDING = &H0020
406Const LVS_SHAREIMAGELISTS = &H0040
407Const LVS_NOLABELWRAP = &H0080
408Const LVS_AUTOARRANGE = &H0100
409Const LVS_EDITLABELS = &H0200
410Const LVS_OWNERDATA = &H1000
411Const LVS_NOSCROLL = &H2000
412Const LVS_ALIGNTOP = &H0000
413Const LVS_ALIGNLEFT = &H0800
414Const LVS_OWNERDRAWFIXED = &H0400
415Const LVS_NOCOLUMNHEADER = &H4000
416Const LVS_NOSORTHEADER = &H8000
417
418Const LVS_EX_GRIDLINES = &H00000001
419Const LVS_EX_SUBITEMIMAGES = &H00000002
420Const LVS_EX_CHECKBOXES = &H00000004
421Const LVS_EX_TRACKSELECT = &H00000008
422Const LVS_EX_HEADERDRAGDROP = &H00000010
423Const LVS_EX_FULLROWSELECT = &H00000020
424Const LVS_EX_ONECLICKACTIVATE = &H00000040
425Const LVS_EX_TWOCLICKACTIVATE = &H00000080
426Const LVS_EX_FLATSB = &H00000100
427Const LVS_EX_REGIONAL = &H00000200
428Const LVS_EX_INFOTIP = &H00000400
429Const LVS_EX_UNDERLINEHOT = &H00000800
430Const LVS_EX_UNDERLINECOLD = &H00001000
431Const LVS_EX_MULTIWORKAREAS = &H00002000
432
433
434'----------------------
435' ProgressBar Control
436'----------------------
437
438Const PBS_SMOOTH = &H01
439Const PBS_VERTICAL = &H04
440
441Const PBM_SETRANGE = WM_USER+1
442Const PBM_SETPOS = WM_USER+2
443Const PBM_DELTAPOS = WM_USER+3
444Const PBM_SETSTEP = WM_USER+4
445Const PBM_STEPIT = WM_USER+5
446Const PBM_SETRANGE32 = WM_USER+6
447Type PBRANGE
448 iLow As Long
449 iHigh As Long
450End Type
451Const PBM_GETRANGE = WM_USER+7
452Const PBM_GETPOS = WM_USER+8
453Const PBM_SETBARCOLOR = WM_USER+9
454Const PBM_SETBKCOLOR = CCM_SETBKCOLOR
455
456
457'-------------------
458' Statusbar Control
459'-------------------
460
461Const SBARS_SIZEGRIP = &H0100
462
463Const SB_SETTEXT = WM_USER+1
464Const SB_GETTEXT = WM_USER+2
465Const SB_GETTEXTLENGTH = WM_USER+3
466Const SB_SETPARTS = WM_USER+4
467Const SB_GETPARTS = WM_USER+6
468Const SB_GETBORDERS = WM_USER+7
469Const SB_SETMINHEIGHT = WM_USER+8
470Const SB_SIMPLE = WM_USER+9
471Const SB_GETRECT = WM_USER+10
472Const SB_ISSIMPLE = WM_USER+14
473Const SB_SETICON = WM_USER+15
474Const SB_SETTIPTEXT = WM_USER+16
475Const SB_GETTIPTEXT = WM_USER+18
476Const SB_GETICON = WM_USER+20
477Const SB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
478Const SB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
479Const SB_SETBKCOLOR = CCM_SETBKCOLOR
480
481Const SBT_OWNERDRAW = &H1000
482Const SBT_NOBORDERS = &H0100
483Const SBT_POPOUT = &H0200
484Const SBT_RTLREADING = &H0400
485Const SBT_TOOLTIPS = &H0800
486
487Const SBN_SIMPLEMODECHANGE = 880
488
489Declare Function CreateStatusWindow Lib "comctl32" Alias _FuncName_CreateStatusWindow (style As Long, lpszText As LPCTSTR, hwndParent As HWND, wID As DWord) As HWND
490
491
492'-----------------
493' Toolbar Control
494'-----------------
495
496Const TBSTATE_CHECKED = &H01
497Const TBSTATE_PRESSED = &H02
498Const TBSTATE_ENABLED = &H04
499Const TBSTATE_HIDDEN = &H08
500Const TBSTATE_INDETERMINATE = &H10
501Const TBSTATE_WRAP = &H20
502Const TBSTATE_ELLIPSES = &H40
503Const TBSTATE_MARKED = &H80
504
505Const TBSTYLE_BUTTON = &H0000
506Const TBSTYLE_SEP = &H0001
507Const TBSTYLE_CHECK = &H0002
508Const TBSTYLE_GROUP = &H0004
509Const TBSTYLE_CHECKGROUP = TBSTYLE_GROUP or TBSTYLE_CHECK
510Const TBSTYLE_DROPDOWN = &H0008
511Const TBSTYLE_AUTOSIZE = &H0010
512Const TBSTYLE_NOPREFIX = &H0020
513Const TBSTYLE_TOOLTIPS = &H0100
514Const TBSTYLE_WRAPABLE = &H0200
515Const TBSTYLE_ALTDRAG = &H0400
516Const TBSTYLE_FLAT = &H0800
517Const TBSTYLE_LIST = &H1000
518Const TBSTYLE_CUSTOMERASE = &H2000
519Const TBSTYLE_REGISTERDROP = &H4000
520Const TBSTYLE_TRANSPARENT = &H8000
521Const TBSTYLE_EX_DRAWDDARROWS = &H00000001
522
523Type TBBUTTON
524 iBitmap As Long
525 idCommand As Long
526 fsState As Byte
527 fsStyle As Byte
528#ifdef _WIN64
529 bReserved[ELM(6)] As Byte
530#else
531 bReserved[ELM(2)] As Byte
532#endif
533 dwData As DWord
534 iString As Long
535End Type
536
537Const TB_ENABLEBUTTON = WM_USER+1
538Const TB_CHECKBUTTON = WM_USER+2
539Const TB_PRESSBUTTON = WM_USER+3
540Const TB_HIDEBUTTON = WM_USER+4
541Const TB_INDETERMINATE = WM_USER+5
542Const TB_MARKBUTTON = WM_USER+6
543Const TB_ISBUTTONENABLED = WM_USER+9
544Const TB_ISBUTTONCHECKED = WM_USER+10
545Const TB_ISBUTTONPRESSED = WM_USER+11
546Const TB_ISBUTTONHIDDEN = WM_USER+12
547Const TB_ISBUTTONINDETERMINATE = WM_USER+13
548Const TB_ISBUTTONHIGHLIGHTED = WM_USER+14
549Const TB_SETSTATE = WM_USER+17
550Const TB_GETSTATE = WM_USER+18
551Const TB_ADDBITMAP = WM_USER+19
552Const TB_ADDBUTTONS = WM_USER+20
553Const TB_INSERTBUTTON = WM_USER+21
554Const TB_DELETEBUTTON = WM_USER+22
555Const TB_GETBUTTON = WM_USER+23
556Const TB_BUTTONCOUNT = WM_USER+24
557Const TB_COMMANDTOINDEX = WM_USER+25
558Const TB_SAVERESTORE = WM_USER+26
559Const TB_CUSTOMIZE = WM_USER+27
560Const TB_ADDSTRING = WM_USER+28
561Const TB_GETITEMRECT = WM_USER+29
562Const TB_BUTTONSTRUCTSIZE = WM_USER+30
563Const TB_SETBUTTONSIZE = WM_USER+31
564Const TB_SETBITMAPSIZE = WM_USER+32
565Const TB_AUTOSIZE = WM_USER+33
566Const TB_GETTOOLTIPS = WM_USER+35
567Const TB_SETTOOLTIPS = WM_USER+36
568Const TB_SETPARENT = WM_USER+37
569Const TB_SETROWS = WM_USER+39
570Const TB_GETROWS = WM_USER+40
571Const TB_SETCMDID = WM_USER+42
572Const TB_CHANGEBITMAP = WM_USER+43
573Const TB_GETBITMAP = WM_USER+44
574Const TB_GETBUTTONTEXT = WM_USER+45
575Const TB_REPLACEBITMAP = WM_USER+46
576Const TB_SETINDENT = WM_USER+47
577Const TB_SETIMAGELIST = WM_USER+48
578Const TB_GETIMAGELIST = WM_USER+49
579Const TB_LOADIMAGES = WM_USER+50
580Const TB_GETRECT = WM_USER+51
581Const TB_SETHOTIMAGELIST = WM_USER+52
582Const TB_GETHOTIMAGELIST = WM_USER+53
583Const TB_SETDISABLEDIMAGELIST = WM_USER+54
584Const TB_GETDISABLEDIMAGELIST = WM_USER+55
585Const TB_SETSTYLE = WM_USER+56
586Const TB_GETSTYLE = WM_USER+57
587Const TB_GETBUTTONSIZE = WM_USER+58
588Const TB_SETBUTTONWIDTH = WM_USER+59
589Const TB_SETMAXTEXTROWS = WM_USER+60
590Const TB_GETTEXTROWS = WM_USER+61
591Const TB_GETOBJECT = WM_USER+62
592Const TB_GETBUTTONINFO = WM_USER+65
593Const TB_SETBUTTONINFO = WM_USER+66
594Const TB_GETHOTITEM = WM_USER+71
595Const TB_SETHOTITEM = WM_USER+72
596Const TB_SETANCHORHIGHLIGHT = WM_USER+73
597Const TB_GETANCHORHIGHLIGHT = WM_USER+74
598Const TB_MAPACCELERATOR = WM_USER+78
599Const TB_GETINSERTMARK = WM_USER+79
600Const TB_SETINSERTMARK = WM_USER+80
601Const TB_INSERTMARKHITTEST = WM_USER+81
602Const TB_MOVEBUTTON = WM_USER+82
603Const TB_GETMAXSIZE = WM_USER+83
604Const TB_SETEXTENDEDSTYLE = WM_USER+84
605Const TB_GETEXTENDEDSTYLE = WM_USER+85
606Const TB_GETPADDING = WM_USER+86
607Const TB_SETPADDING = WM_USER+87
608Const TB_SETINSERTMARKCOLOR = WM_USER+88
609Const TB_GETINSERTMARKCOLOR = WM_USER+89
610Const TB_SETCOLORSCHEME = CCM_SETCOLORSCHEME
611Const TB_GETCOLORSCHEME = CCM_GETCOLORSCHEME
612Const TB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
613Const TB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
614Const TB_HITTEST = WM_USER+69
615
616Type TOOLTIPTEXT
617 hdr As NMHDR
618 lpszText As LPSTR
619 szText[79] As Byte
620 hinst As HINSTANCE
621 uFlags As DWord
622 lParam As LPARAM
623End Type
624
625Const TTN_NEEDTEXT = -520
626
627Declare Function CreateToolbarEx Lib "comctl32" (hWnd As HWND, ws As DWord, wID As DWord, nBitmaps As Long, hBMInst As HINSTANCE, wBMID As DWord, lpButtons As VoidPtr, iNumButtons As Long, dxButton As Long, dyButton As Long, dxBitmap As Long, dyBitmap As Long, uStructSize As DWord) As HWND
628
629
630'-----------------------
631' ToolTip Control
632'-----------------------
633
634Const TOOLTIPS_CLASS = "tooltips_class32"
635
636Const TTS_ALWAYSTIP = &H01
637Const TTS_NOPREFIX = &H02
638Const TTS_NOANIMATE = &H10
639Const TTS_NOFADE = &H20
640Const TTS_BALLOON = &H40
641Const TTS_CLOSE = &H80
642
643Const TTF_IDISHWND = &H0001
644Const TTF_CENTERTIP = &H0002
645Const TTF_RTLREADING = &H0004
646Const TTF_SUBCLASS = &H0010
647Const TTF_TRACK = &H0020
648Const TTF_ABSOLUTE = &H0080
649Const TTF_TRANSPARENT = &H0100
650Const TTF_PARSELINKS = &H1000
651Const TTF_DI_SETITEM = &H8000 ' valid only on the TTN_NEEDTEXT callback
652
653Type TOOLINFO
654 cbSize As DWord
655 uFlags As DWord
656 hwnd As HWND
657 uId As ULONG_PTR
658 rect As RECT
659 hinst As HINSTANCE
660 lpszText as LPSTR
661 lParam As LPARAM
662 lpReserved As VoidPtr
663End Type
664
665Const TTM_ACTIVATE = (WM_USER + 1)
666Const TTM_SETDELAYTIME = (WM_USER + 3)
667Const TTM_ADDTOOL = (WM_USER + 4)
668Const TTM_DELTOOL = (WM_USER + 5)
669Const TTM_NEWTOOLRECT = (WM_USER + 6)
670Const TTM_RELAYEVENT = (WM_USER + 7)
671Const TTM_GETTOOLINFO = (WM_USER + 8)
672Const TTM_SETTOOLINFO = (WM_USER + 9)
673Const TTM_HITTEST = (WM_USER +10)
674Const TTM_GETTEXT = (WM_USER +11)
675Const TTM_UPDATETIPTEXT = (WM_USER +12)
676Const TTM_GETTOOLCOUNT = (WM_USER +13)
677Const TTM_ENUMTOOLS = (WM_USER +14)
678Const TTM_GETCURRENTTOOL = (WM_USER + 15)
679Const TTM_WINDOWFROMPOINT = (WM_USER + 16)
680Const TTM_TRACKACTIVATE = (WM_USER + 17) ' wParam = TRUE/FALSE start end lparam = LPTOOLINFO
681Const TTM_TRACKPOSITION = (WM_USER + 18) ' lParam = dwPos
682Const TTM_SETTIPBKCOLOR = (WM_USER + 19)
683Const TTM_SETTIPTEXTCOLOR = (WM_USER + 20)
684Const TTM_GETDELAYTIME = (WM_USER + 21)
685Const TTM_GETTIPBKCOLOR = (WM_USER + 22)
686Const TTM_GETTIPTEXTCOLOR = (WM_USER + 23)
687Const TTM_SETMAXTIPWIDTH = (WM_USER + 24)
688Const TTM_GETMAXTIPWIDTH = (WM_USER + 25)
689Const TTM_SETMARGIN = (WM_USER + 26) ' lParam = lprc
690Const TTM_GETMARGIN = (WM_USER + 27) ' lParam = lprc
691Const TTM_POP = (WM_USER + 28)
692Const TTM_UPDATE = (WM_USER + 29)
693Const TTM_GETBUBBLESIZE = (WM_USER + 30)
694Const TTM_ADJUSTRECT = (WM_USER + 31)
695Const TTM_SETTITLE = (WM_USER + 32) ' wParam = TTI_*, lParam = char* szTitle
696
697
698'-------------------
699' TrackBar Control
700'-------------------
701
702Const TBS_AUTOTICKS = &H0001
703Const TBS_VERT = &H0002
704Const TBS_HORZ = &H0000
705Const TBS_TOP = &H0004
706Const TBS_BOTTOM = &H0000
707Const TBS_LEFT = &H0004
708Const TBS_RIGHT = &H0000
709Const TBS_BOTH = &H0008
710Const TBS_NOTICKS = &H0010
711Const TBS_ENABLESELRANGE = &H0020
712Const TBS_FIXEDLENGTH = &H0040
713Const TBS_NOTHUMB = &H0080
714Const TBS_TOOLTIPS = &H0100
715
716Const TBM_GETPOS = WM_USER
717Const TBM_GETRANGEMIN = WM_USER+1
718Const TBM_GETRANGEMAX = WM_USER+2
719Const TBM_GETTIC = WM_USER+3
720Const TBM_SETTIC = WM_USER+4
721Const TBM_SETPOS = WM_USER+5
722Const TBM_SETRANGE = WM_USER+6
723Const TBM_SETRANGEMIN = WM_USER+7
724Const TBM_SETRANGEMAX = WM_USER+8
725Const TBM_CLEARTICS = WM_USER+9
726Const TBM_SETSEL = WM_USER+10
727Const TBM_SETSELSTART = WM_USER+11
728Const TBM_SETSELEND = WM_USER+12
729Const TBM_GETPTICS = WM_USER+14
730Const TBM_GETTICPOS = WM_USER+15
731Const TBM_GETNUMTICS = WM_USER+16
732Const TBM_GETSELSTART = WM_USER+17
733Const TBM_GETSELEND = WM_USER+18
734Const TBM_CLEARSEL = WM_USER+19
735Const TBM_SETTICFREQ = WM_USER+20
736Const TBM_SETPAGESIZE = WM_USER+21
737Const TBM_GETPAGESIZE = WM_USER+22
738Const TBM_SETLINESIZE = WM_USER+23
739Const TBM_GETLINESIZE = WM_USER+24
740Const TBM_GETTHUMBRECT = WM_USER+25
741Const TBM_GETCHANNELRECT = WM_USER+26
742Const TBM_SETTHUMBLENGTH = WM_USER+27
743Const TBM_GETTHUMBLENGTH = WM_USER+28
744Const TBM_SETTOOLTIPS = WM_USER+29
745Const TBM_GETTOOLTIPS = WM_USER+30
746Const TBM_SETTIPSIDE = WM_USER+31
747Const TBTS_TOP = 0
748Const TBTS_LEFT = 1
749Const TBTS_BOTTOM = 2
750Const TBTS_RIGHT = 3
751
752Const TBM_SETBUDDY = WM_USER+32
753Const TBM_GETBUDDY = WM_USER+33
754Const TBM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
755Const TBM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
756
757
758'-------------------
759' TreeView Control
760'-------------------
761
762Type _System_DeclareHandle_HTREEITEM:unused As DWord:End Type
763TypeDef HTREEITEM = *_System_DeclareHandle_HTREEITEM
764
765Const TV_FIRST = &H1100 'TreeView messages
766
767Const TVM_INSERTITEM = TV_FIRST + 0
768Function TreeView_InsertItem(hWnd As HWND, ByRef ref_is As TV_INSERTSTRUCT) As HTREEITEM
769 Return SendMessage(hWnd,TVM_INSERTITEM,0,VarPtr(ref_is) As LPARAM) As HTREEITEM
770End Function
771
772Const TVM_DELETEITEM = TV_FIRST + 1
773Function TreeView_DeleteItem(hWnd As HWND, hitem As HTREEITEM) As BOOL
774 Return SendMessage(hWnd,TVM_DELETEITEM,0,hitem As LPARAM) As BOOL
775End Function
776Function TreeView_DeleteAllItems(hWnd As HWND) As BOOL
777 Return SendMessage(hWnd,TVM_DELETEITEM,0,TVI_ROOT As LPARAM) As BOOL
778End Function
779
780Const TVM_EXPAND = TV_FIRST + 2
781Function TreeView_Expand(hWnd As HWND, hitem As HTREEITEM, code As DWord) As BOOL
782 TreeView_Expand=SendMessage(hWnd,TVM_EXPAND,code As WPARAM,hitem As LPARAM) As BOOL
783End Function
784
785Const TVE_COLLAPSE = &H0001
786Const TVE_EXPAND = &H0002
787Const TVE_TOGGLE = &H0003
788Const TVE_EXPANDPARTIAL = &H4000
789Const TVE_COLLAPSERESET = &H8000
790
791Const TVM_GETITEMRECT = TV_FIRST + 4
792Function TreeView_GetItemRect(hWnd As HWND, hitem As HTREEITEM, ByRef refRect As RECT, code As DWord) As BOOL
793 memcpy(VarPtr(refRect),VarPtr(hitem),SizeOf(HTREEITEM))
794 TreeView_GetItemRect=SendMessage(hWnd,TVM_GETITEMRECT,code As WPARAM,VarPtr(refRect) As LPARAM) As BOOL
795End Function
796
797Const TVM_GETCOUNT = TV_FIRST + 5
798Function TreeView_GetCount(hWnd As HWND) As DWord
799 TreeView_GetCount=SendMessage(hWnd,TVM_GETCOUNT,0,0) As DWord
800End Function
801
802Const TVM_GETINDENT = TV_FIRST + 6
803Function TreeView_GetIndent(hWnd As HWND) As DWord
804 TreeView_GetIndent=SendMessage(hWnd,TVM_GETINDENT,0,0) As DWord
805End Function
806
807Const TVM_SETINDENT = TV_FIRST + 7
808Function TreeView_SetIndent(hWnd As HWND, indent As DWord) As DWord
809 TreeView_SetIndent=SendMessage(hWnd,TVM_SETINDENT,indent As WPARAM,0) As DWord
810End Function
811
812Const TVM_GETIMAGELIST = TV_FIRST + 8
813Function TreeView_GetImageList(hWnd As HWND, iImage As DWord) As HIMAGELIST
814 TreeView_GetImageList=SendMessage(hWnd,TVM_GETIMAGELIST,iImage As WPARAM,0) As HIMAGELIST
815End Function
816
817Const TVSIL_NORMAL = 0
818Const TVSIL_STATE = 2
819
820Const TVM_SETIMAGELIST = TV_FIRST + 9
821Function TreeView_SetImageList(hWnd As HWND, himl As HIMAGELIST, iImage As DWord) As HIMAGELIST
822 TreeView_SetImageList=SendMessage(hWnd,TVM_SETIMAGELIST,iImage As WPARAM,himl As LPARAM) As HIMAGELIST
823End Function
824
825Const TVM_GETNEXTITEM = TV_FIRST + 10
826Function TreeView_GetNextItem(hWnd As HWND, hitem As HTREEITEM, code As DWord) As HTREEITEM
827 TreeView_GetNextItem=SendMessage(hWnd,TVM_GETNEXTITEM,code As WPARAM,hitem As LPARAM) As HTREEITEM
828End Function
829
830Const TVM_SELECTITEM = &H110B
831Const TVM_GETITEM = &H110C
832Const TVM_SETITEM = &H110D
833Const TVM_GETVISIBLECOUNT = &H1110
834Const TVM_HITTEST = &H1111
835Const TVM_SORTCHILDREN = &H1113
836Const TVM_SETBKCOLOR = &H111D
837Const TVM_SETTEXTCOLOR = &H111E
838Const TVM_GETBKCOLOR = &H111F
839Const TVM_GETTEXTCOLOR = &H1120
840
841Const TVI_ROOT = ((-&H10000) As HTREEITEM)
842Const TVI_FIRST = ((-&H0FFFF) As HTREEITEM)
843Const TVI_LAST = ((-&H0FFFE) As HTREEITEM)
844Const TVI_SORT = ((-&H0FFFD) As HTREEITEM)
845
846Type TVITEM
847 mask As DWord
848 hItem As HTREEITEM
849 state As DWord
850 stateMask As DWord
851 pszText As LPSTR
852 cchTextMax As Long
853 iImage As Long
854 iSelectedImage As Long
855 cChildren As Long
856 lParam As LPARAM
857End Type
858
859Type TVINSERTSTRUCT
860 hParent As HTREEITEM
861 hInsertAfter As HTREEITEM
862 item As TVITEM
863End Type
864TypeDef TV_INSERTSTRUCT = TVINSERTSTRUCT
865
866Const TVIF_TEXT = &H0001
867Const TVIF_IMAGE = &H0002
868Const TVIF_PARAM = &H0004
869Const TVIF_STATE = &H0008
870Const TVIF_HANDLE = &H0010
871Const TVIF_SELECTEDIMAGE = &H0020
872Const TVIF_CHILDREN = &H0040
873Const TVIF_INTEGRAL = &H0080
874Const TVIS_SELECTED = &H0002
875Const TVIS_CUT = &H0004
876Const TVIS_DROPHILITED = &H0008
877Const TVIS_BOLD = &H0010
878Const TVIS_EXPANDED = &H0020
879Const TVIS_EXPANDEDONCE = &H0040
880Const TVIS_EXPANDPARTIAL = &H0080
881Const TVIS_OVERLAYMASK = &H0F00
882Const TVIS_STATEIMAGEMASK = &HF000
883Const TVIS_USERMASK = &HF000
884
885Type NMTREEVIEW
886 hdr As NMHDR
887 action As DWord
888 itemOld As TVITEM
889 itemNew As TVITEM
890 ptDrag As POINTAPI
891End Type
892
893Const TVN_FIRST = -400
894Const TVN_SELCHANGING = TVN_FIRST-1
895Const TVN_SELCHANGED = TVN_FIRST-2
896Const TVN_GETDISPINFO = TVN_FIRST-3
897Const TVN_SETDISPINFO = TVN_FIRST-4
898Const TVN_ITEMEXPANDING = TVN_FIRST-5
899Const TVN_ITEMEXPANDED = TVN_FIRST-6
900Const TVN_BEGINDRAG = TVN_FIRST-7
901Const TVN_BEGINRDRAG = TVN_FIRST-8
902Const TVN_DELETEITEM = TVN_FIRST-9
903Const TVN_BEGINLABELEDIT = TVN_FIRST-10
904Const TVN_ENDLABELEDIT = TVN_FIRST-11
905Const TVN_KEYDOWN = TVN_FIRST-12
906Const TVN_GETINFOTIP = TVN_FIRST-13
907Const TVN_SINGLEEXPAND = TVN_FIRST-15
908
909Const TVGN_ROOT = &H0000
910Const TVGN_NEXT = &H0001
911Const TVGN_PREVIOUS = &H0002
912Const TVGN_PARENT = &H0003
913Const TVGN_CHILD = &H0004
914Const TVGN_FIRSTVISIBLE = &H0005
915Const TVGN_NEXTVISIBLE = &H0006
916Const TVGN_PREVIOUSVISIBLE = &H0007
917Const TVGN_DROPHILITE = &H0008
918Const TVGN_CARET = &H0009
919Const TVGN_LASTVISIBLE = &H000A
920
921'-----------------
922' UpDown Control
923'-----------------
924
925Declare Function CreateUpDownControl Lib "comctl32" (dwStyle As DWord, x As Long, y As Long, cx As Long, cy As Long, hParent As HWND, nID As Long, hInst As HINSTANCE, hBuddy As HWND, nUpper As Long, nLower As Long, nPos As Long) As HWND
926
927Const UDS_WRAP = &H0001
928Const UDS_SETBUDDYINT = &H0002
929Const UDS_ALIGNRIGHT = &H0004
930Const UDS_ALIGNLEFT = &H0008
931Const UDS_AUTOBUDDY = &H0010
932Const UDS_ARROWKEYS = &H0020
933Const UDS_HORZ = &H0040
934Const UDS_NOTHOUSANDS = &H0080
935Const UDS_HOTTRACK = &H0100
936
937Const UDM_SETRANGE = WM_USER+101
938Const UDM_GETRANGE = WM_USER+102
939Const UDM_SETPOS = WM_USER+103
940Const UDM_GETPOS = WM_USER+104
941Const UDM_SETBUDDY = WM_USER+105
942Const UDM_GETBUDDY = WM_USER+106
943Const UDM_SETACCEL = WM_USER+107
944Const UDM_GETACCEL = WM_USER+108
945Const UDM_SETBASE = WM_USER+109
946Const UDM_GETBASE = WM_USER+110
947Const UDM_SETRANGE32 = WM_USER+111
948Const UDM_GETRANGE32 = WM_USER+112
949
950Type NMUPDOWN
951 hdr As NMHDR
952 iPos As Long
953 iDelta As Long
954End Type
955
956Const UDN_FIRST = -721
957Const UDN_DELTAPOS = UDN_FIRST-1
958
959
960
961'--------------------
962' Calender Contorl
963'--------------------
964
965Const MONTHCAL_CLASS = "SysMonthCal32"
966
967Const MCS_DAYSTATE = &H0001
968Const MCS_MULTISELECT = &H0002
969Const MCS_WEEKNUMBERS = &H0004
970Const MCS_NOTODAYCIRCLE = &H0008
971Const MCS_NOTODAY = &H0010
972
973Const MCM_FIRST = &H1000
974Const MCM_GETCURSEL = (MCM_FIRST + 1)
975Const MCM_SETCURSEL = (MCM_FIRST + 2)
976Const MCM_GETMAXSELCOUNT = (MCM_FIRST + 3)
977Const MCM_SETMAXSELCOUNT = (MCM_FIRST + 4)
978Const MCM_GETSELRANGE = (MCM_FIRST + 5)
979Const MCM_SETSELRANGE = (MCM_FIRST + 6)
980Const MCM_GETMONTHRANGE = (MCM_FIRST + 7)
981Const MCM_SETDAYSTATE = (MCM_FIRST + 8)
982Const MCM_GETMINREQRECT = (MCM_FIRST + 9)
983Const MCM_SETCOLOR = (MCM_FIRST + 10)
984Const MCM_GETCOLOR = (MCM_FIRST + 11)
985Const MCM_SETTODAY = (MCM_FIRST + 12)
986Const MCM_GETTODAY = (MCM_FIRST + 13)
987Const MCM_HITTEST = (MCM_FIRST + 14)
988
989Const MCN_FIRST = &HFFFFFD12
990
991Type NMSELCHANGE
992 nmhdr As NMHDR
993 stSelStart As SYSTEMTIME
994 stSelEnd As SYSTEMTIME
995End Type
996
997Const MCN_SELCHANGE = MCN_FIRST + &H1
998
999Declare Function _TrackMouseEvent Lib "comctl32" (ByRef EventTrack As TRACKMOUSEEVENT) As BOOL
1000
1001Const TD_WARNING_ICON = MAKEINTRESOURCEW(&hffff /*-1*/)
1002Const TD_ERROR_ICON = MAKEINTRESOURCEW(&hfffe /*-2*/)
1003Const TD_INFORMATION_ICON = MAKEINTRESOURCEW(&hfffd /*-3*/)
1004Const TD_SHIELD_ICON = MAKEINTRESOURCEW(&hfffc /*-4*/)
1005
1006Const Enum _TASKDIALOG_COMMON_BUTTON_FLAGS
1007 TDCBF_OK_BUTTON = &h0001
1008 TDCBF_YES_BUTTON = &h0002
1009 TDCBF_NO_BUTTON = &h0004
1010 TDCBF_CANCEL_BUTTON = &h0008
1011 TDCBF_RETRY_BUTTON = &h0010
1012 TDCBF_CLOSE_BUTTON = &h0020
1013End Enum
1014
1015TypeDef TASKDIALOG_COMMON_BUTTON_FLAGS = Long
1016
1017#endif '_INC_COMMCTRL
Note: See TracBrowser for help on using the repository browser.