commctrl.zc

实现树形结构

//[c]
import "windows"

public [name="c", call="__stdcall"]
//[c]
//[of]:	Structures
//[c]
struct LPINITCOMMONCONTROLSEX
	dwSize: DWORD
	dwICC: DWORD
end
typedef INITCOMMONCONTROLSEX = local LPINITCOMMONCONTROLSEX
//[cf]
//[of]:	Functions
//[c]
import func InitCommonControls
import func InitCommonControlsEx (LPINITCOMMONCONTROLSEX): BOOL
//[cf]
//[c]
//[of]:	Tab Controls
//[of]:	Structures
//[c]
struct NMTCKEYDOWN
    hdr: NMHDR
    wVKey: WORD
    flags: UINT
end
typedef TC_KEYDOWN =  NMTCKEYDOWN

struct LPTCHITTESTINFO
	pt: POINT
	flags: UINT
end
typedef TCHITTESTINFO = local LPTCHITTESTINFO
typedef TC_HITTESTINFO = TCHITTESTINFO
typedef LPTC_HITTESTINFO = LPTCHITTESTINFO

struct LPTCITEMA
	mask: UINT
	dwState: DWORD
	dwStateMask: DWORD
	pszText: LPSTR
	cchTextMax: int
	iImage: int
	lParam: LPARAM
end
typedef TCITEMA = local LPTCITEMA

struct LPTCITEMW
	mask: UINT
	dwState: DWORD
	dwStateMask: DWORD
	lpReserved1: UINT
	lpReserved2: UINT
	pszText: LPWSTR
	cchTextMax: int
	iImage: int
	lParam: LPARAM
end
typedef TCITEMW = local LPTCITEMW
typedef TC_ITEMA = TCITEMA
typedef TC_ITEMW = TCITEMW

struct LPTCITEMHEADERA
	mask: UINT
	lpReserved1: UINT
	lpReserved2: UINT
	pszText: LPSTR
	cchTextMax: int
	iImage: int
end
typedef TCITEMHEADERA = local LPTCITEMHEADERA

struct LPTCITEMHEADERW
	mask: UINT
	lpReserved1: UINT
	lpReserved2: UINT
	pszText: LPWSTR
	cchTextMax: int
	iImage: int
end
typedef TCITEMHEADERW = local LPTCITEMHEADERW
typedef TC_ITEMHEADERA = TCITEMHEADERA
typedef TC_ITEMHEADERW = TCITEMHEADERW
//[cf]
//[of]:	Flags
//[c]
equ ICC_LISTVIEW_CLASSES = 0x00000001
equ ICC_TREEVIEW_CLASSES = 0x00000002
equ ICC_BAR_CLASSES = 0x00000004
equ ICC_TAB_CLASSES = 0x00000008
equ ICC_UPDOWN_CLASS = 0x00000010
equ ICC_PROGRESS_CLASS = 0x00000020
equ ICC_HOTKEY_CLASS = 0x00000040
equ ICC_ANIMATE_CLASS = 0x00000080
equ ICC_WIN95_CLASSES = 0x000000FF
equ ICC_DATE_CLASSES = 0x00000100
equ ICC_USEREX_CLASSES = 0x00000200
equ ICC_COOL_CLASSES = 0x00000400
equ ICC_INTERNET_CLASSES = 0x00000800
equ ICC_PAGESCROLLER_CLASS = 0x00001000
equ ICC_NATIVEFNTCTL_CLASS = 0x00002000
//[c]
equ WC_TABCONTROLA = "SysTabControl32"
//[c]
equ TCM_FIRST = 0x1300
equ TCM_GETIMAGELIST = TCM_FIRST + 2
equ TCM_SETIMAGELIST = TCM_FIRST + 3
equ TCM_GETITEMCOUNT = TCM_FIRST + 4
//[c]
equ TCIF_TEXT = 0x0001
equ TCIF_IMAGE = 0x0002
equ TCIF_RTLREADING = 0x0004
equ TCIF_PARAM = 0x0008
equ TCIF_STATE = 0x0010
//[c]
equ TCIS_BUTTONPRESSED = 0x0001
equ TCIS_HIGHLIGHTED = 0x0002
//[c]
equ TCHT_NOWHERE = 0x0001
equ TCHT_ONITEMICON = 0x0002
equ TCHT_ONITEMLABEL = 0x0004
equ TCHT_ONITEM = TCHT_ONITEMICON | TCHT_ONITEMLABEL
//[c]
equ TCS_SCROLLOPPOSITE = 0x0001
equ TCS_BOTTOM = 0x0002
equ TCS_RIGHT = 0x0002
equ TCS_MULTISELECT = 0x0004
equ TCS_FLATBUTTONS = 0x0008
equ TCS_FORCEICONLEFT = 0x0010
equ TCS_FORCELABELLEFT = 0x0020
equ TCS_HOTTRACK = 0x0040
equ TCS_VERTICAL = 0x0080
equ TCS_TABS = 0x0000
equ TCS_BUTTONS = 0x0100
equ TCS_SINGLELINE = 0x0000
equ TCS_MULTILINE = 0x0200
equ TCS_RIGHTJUSTIFY = 0x0000
equ TCS_FIXEDWIDTH = 0x0400
equ TCS_RAGGEDRIGHT = 0x0800
equ TCS_FOCUSONBUTTONDOWN = 0x1000
equ TCS_OWNERDRAWFIXED = 0x2000
equ TCS_TOOLTIPS = 0x4000
equ TCS_FOCUSNEVER = 0x8000
//[c]
equ TCS_EX_FLATSEPARATORS = 0x00000001
equ TCS_EX_REGISTERDROP = 0x00000002
//[c]
equ TCM_GETITEMA = TCM_FIRST + 5
equ TCM_GETITEMW = TCM_FIRST + 60
equ TCM_SETITEMA = TCM_FIRST + 6
equ TCM_SETITEMW = TCM_FIRST + 61
equ TCM_INSERTITEMA = TCM_FIRST + 7
equ TCM_INSERTITEMW = TCM_FIRST + 62
equ TCM_DELETEITEM = TCM_FIRST + 8
equ TCM_DELETEALLITEMS = TCM_FIRST + 9
equ TCM_GETITEMRECT = TCM_FIRST + 10
equ TCM_GETCURSEL = TCM_FIRST + 11
equ TCM_SETCURSEL = TCM_FIRST + 12
equ TCM_HITTEST = TCM_FIRST + 13
equ TCM_SETITEMEXTRA = TCM_FIRST + 14
equ TCM_ADJUSTRECT = TCM_FIRST + 40
equ TCM_SETITEMSIZE = TCM_FIRST + 41
equ TCM_REMOVEIMAGE = TCM_FIRST + 42
equ TCM_SETPADDING = TCM_FIRST + 43
equ TCM_GETROWCOUNT = TCM_FIRST + 44
equ TCM_GETTOOLTIPS = TCM_FIRST + 45
equ TCM_SETTOOLTIPS = TCM_FIRST + 46
equ TCM_GETCURFOCUS = TCM_FIRST + 47
equ TCM_SETCURFOCUS = TCM_FIRST + 48
equ TCM_SETMINTABWIDTH = TCM_FIRST + 49
equ TCM_DESELECTALL = TCM_FIRST + 50
equ TCM_HIGHLIGHTITEM = TCM_FIRST + 51
equ TCM_SETEXTENDEDSTYLE = TCM_FIRST + 52
equ TCM_GETEXTENDEDSTYLE = TCM_FIRST + 53
//[c]
equ TCN_FIRST = 0:dword - 550:dword
equ TCN_LAST = 0:dword - 580:dword
equ TCN_KEYDOWN = TCN_FIRST - 0:dword
equ TCN_SELCHANGE = TCN_FIRST - 1:dword
equ TCN_SELCHANGING = TCN_FIRST - 2:dword
equ TCN_GETOBJECT = TCN_FIRST - 3:dword
//[cf]
//[cf]
//[of]:	Tree View
//[c]
equ WC_TREEVIEW = "SysTreeView32"
typedef HTREEITEM = HANDLE
//[c]
struct LPTVITEM
	mask: UINT
	hItem: HTREEITEM
	state: UINT
	stateMask: UINT
	pszText: LPSTR
	cchTextMax: int
	iImage: int
	iSelectedImage: int
	cChildren: int
	lParam: LPARAM
end
typedef TVITEM = local LPTVITEM
typedef TV_ITEM = TVITEM

struct LPTVINSERTSTRUCT
	hParent: HTREEITEM
	hInsertAfter: HTREEITEM
	item: TV_ITEM
end
typedef TVINSERTSTRUCT = local LPTVINSERTSTRUCT

struct LPNMTREEVIEW
	hdr: NMHDR
	action: UINT
	itemOld: TVITEM
	itemNew: TVITEM
	ptDrag: POINT
end
typedef  NMTREEVIEW = local LPNMTREEVIEW

struct LPTVHITTESTINFO
	pt: POINT
	flags: UINT
	hItem: HTREEITEM
end
typedef TVHITTESTINFO = local LPTVHITTESTINFO

//[c]
equ TVS_HASBUTTONS = 1
equ TVS_HASLINES = 2
equ TVS_LINESATROOT = 4
equ TVS_EDITLABELS = 8
equ TVS_DISABLEDRAGDROP = 16
equ TVS_SHOWSELALWAYS = 32
equ TVS_CHECKBOXES = 256
equ TVS_NOTOOLTIPS = 128
equ TVS_RTLREADING = 64
equ TVS_TRACKSELECT = 512
equ TVS_FULLROWSELECT = 4096
equ TVS_INFOTIP = 2048
equ TVS_NONEVENHEIGHT = 16384
equ TVS_NOSCROLL = 8192
equ TVS_SINGLEEXPAND = 1024
equ TVS_NOHSCROLL = 0x8000
//[c]
equ TVIF_TEXT = 1
equ TVIF_IMAGE = 2
equ TVIF_PARAM = 4
equ TVIF_STATE = 8
equ TVIF_HANDLE = 16
equ TVIF_SELECTEDIMAGE = 32
equ TVIF_CHILDREN = 64
equ TVIF_INTEGRAL = 0x0080
//[c]
equ TVIS_FOCUSED = 1
equ TVIS_SELECTED = 2
equ TVIS_CUT = 4
equ TVIS_DROPHILITED = 8
equ TVIS_BOLD = 16
equ TVIS_EXPANDED = 32
equ TVIS_EXPANDEDONCE = 64
equ TVIS_OVERLAYMASK = 0xF00
equ TVIS_STATEIMAGEMASK = 0xF000
equ TVIS_USERMASK = 0xF000
//[c]
equ I_CHILDRENCALLBACK = -1
//[c]
equ TVI_ROOT = 0xFFFF0000:HTREEITEM
equ TVI_FIRST = 0xFFFF0001:HTREEITEM
equ TVI_LAST = 0xFFFF0002:HTREEITEM
equ TVI_SORT = 0xFFFF0003:HTREEITEM
//[c]
equ TVSIL_NORMAL = 0
equ TVSIL_STATE = 2
//[c]
equ TV_FIRST = 0x1100
equ TVM_INSERTITEMA = TV_FIRST
equ TVM_INSERTITEMW = TV_FIRST+50
equ TVM_DELETEITEM = TV_FIRST+1
equ TVM_EXPAND = TV_FIRST+2
equ TVM_GETITEMRECT = TV_FIRST+4
equ TVM_GETCOUNT = TV_FIRST+5
equ TVM_GETINDENT = TV_FIRST+6
equ TVM_SETINDENT = TV_FIRST+7
equ TVM_GETIMAGELIST = TV_FIRST+8
equ TVM_SETIMAGELIST = TV_FIRST+9
equ TVM_GETNEXTITEM = TV_FIRST+10
equ TVM_SELECTITEM = TV_FIRST+11
equ TVM_GETITEMA = TV_FIRST+12
equ TVM_GETITEMW = TV_FIRST+62
equ TVM_SETITEMA = TV_FIRST+13
equ TVM_SETITEMW = TV_FIRST+63
equ TVM_EDITLABELA = TV_FIRST+14
equ TVM_EDITLABELW = TV_FIRST+65
equ TVM_GETEDITCONTROL = TV_FIRST+15
equ TVM_GETVISIBLECOUNT = TV_FIRST+16
equ TVM_HITTEST = TV_FIRST+17
equ TVM_CREATEDRAGIMAGE = TV_FIRST+18
equ TVM_SORTCHILDREN = TV_FIRST+19
equ TVM_ENSUREVISIBLE = TV_FIRST+20
equ TVM_SORTCHILDRENCB = TV_FIRST+21
equ TVM_ENDEDITLABELNOW = TV_FIRST+22
equ TVM_GETISEARCHSTRINGA = TV_FIRST+23
equ TVM_GETISEARCHSTRINGW = TV_FIRST+64
equ TVM_GETTOOLTIPS = TV_FIRST+25
equ TVM_SETTOOLTIPS = TV_FIRST+24
equ TVM_GETBKCOLOR = TV_FIRST+31
equ TVM_GETINSERTMARKCOLOR = TV_FIRST+38
equ TVM_GETITEMHEIGHT = TV_FIRST+28
equ TVM_GETSCROLLTIME = TV_FIRST+34
equ TVM_GETTEXTCOLOR = TV_FIRST+32
equ TVM_SETBKCOLOR = TV_FIRST+29
equ TVM_SETINSERTMARK = TV_FIRST+26
equ TVM_SETINSERTMARKCOLOR = TV_FIRST+37
equ TVM_SETITEMHEIGHT = TV_FIRST+27
equ TVM_SETSCROLLTIME = TV_FIRST+33
equ TVM_SETTEXTCOLOR = TV_FIRST+30
//equ TVM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT
//equ TVM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT
equ TVM_GETITEMSTATE = TV_FIRST+39
equ TVM_SETLINECOLOR = TV_FIRST+40
equ TVM_GETLINECOLOR = TV_FIRST+41

equ TVM_INSERTITEM = TVM_INSERTITEMA
equ TVM_GETITEM = TVM_GETITEMA
equ TVM_SETITEM = TVM_SETITEMA
equ TVM_EDITLABEL = TVM_EDITLABELA
equ TVM_GETISEARCHSTRING = TVM_GETISEARCHSTRINGA
//[c]
equ TVE_COLLAPSE = 1
equ TVE_EXPAND = 2
equ TVE_TOGGLE = 3
equ TVE_COLLAPSERESET = 0x8000
equ TVE_EXPANDPARTIAL = 0x4000
//[c]
equ TVC_UNKNOWN = 0
equ TVC_BYMOUSE = 1
equ TVC_BYKEYBOARD = 2
equ TVGN_ROOT = 0
equ TVGN_NEXT = 1
equ TVGN_PREVIOUS = 2
equ TVGN_PARENT = 3
equ TVGN_CHILD = 4
equ TVGN_FIRSTVISIBLE = 5
equ TVGN_NEXTVISIBLE = 6
equ TVGN_PREVIOUSVISIBLE = 7
equ TVGN_DROPHILITE = 8
equ TVGN_CARET = 9
equ TVGN_LASTVISIBLE = 10
//[c]
equ TVN_FIRST = -400:UINT
equ TVN_LAST = -499:UINT
equ TVN_SELCHANGINGA = TVN_FIRST-1
equ TVN_SELCHANGINGW = TVN_FIRST-50
equ TVN_SELCHANGEDA = TVN_FIRST-2
equ TVN_SELCHANGEDW = TVN_FIRST-51
equ TVN_GETDISPINFOA = TVN_FIRST-3
equ TVN_GETDISPINFOW = TVN_FIRST-52
equ TVN_SETDISPINFOA = TVN_FIRST-4
equ TVN_SETDISPINFOW = TVN_FIRST-53
equ TVN_ITEMEXPANDINGA = TVN_FIRST-5
equ TVN_ITEMEXPANDINGW = TVN_FIRST-54
equ TVN_ITEMEXPANDEDA = TVN_FIRST-6
equ TVN_ITEMEXPANDEDW = TVN_FIRST-55
equ TVN_BEGINDRAGA = TVN_FIRST-7
equ TVN_BEGINDRAGW = TVN_FIRST-56
equ TVN_BEGINRDRAGA = TVN_FIRST-8
equ TVN_BEGINRDRAGW = TVN_FIRST-57
equ TVN_DELETEITEMA = TVN_FIRST-9
equ TVN_DELETEITEMW = TVN_FIRST-58
equ TVN_BEGINLABELEDITA = TVN_FIRST-10
equ TVN_BEGINLABELEDITW = TVN_FIRST-59
equ TVN_ENDLABELEDITA = TVN_FIRST-11
equ TVN_ENDLABELEDITW = TVN_FIRST-60
equ TVN_KEYDOWN = TVN_FIRST-12
equ TVN_GETINFOTIPA = TVN_FIRST-13
equ TVN_GETINFOTIPW = TVN_FIRST-14
equ TVN_SINGLEEXPAND = TVN_FIRST-15
//[c]
equ TVNRET_DEFAULT = 0
equ TVNRET_SKIPOLD = 1
equ TVNRET_SKIPNEW = 2
//[c]
equ TVHT_NOWHERE = 1
equ TVHT_ONITEMICON = 2
equ TVHT_ONITEMLABEL = 4
equ TVHT_ONITEM = (TVHT_ONITEMICON|TVHT_ONITEMLABEL|TVHT_ONITEMSTATEICON)
equ TVHT_ONITEMINDENT = 8
equ TVHT_ONITEMBUTTON = 16
equ TVHT_ONITEMRIGHT = 32
equ TVHT_ONITEMSTATEICON = 64
equ TVHT_ABOVE = 256
equ TVHT_BELOW = 512
equ TVHT_TORIGHT = 1024
equ TVHT_TOLEFT = 2048
//[cf]
//[of]:Image Lists
//[c]
typedef HIMAGELIST = HANDLE

struct LPIMAGEINFO
	hbmImage: HBITMAP 
	hbmMask: HBITMAP
	Unused1: int
	Unused2: int
	rcImage: RECT
end
typedef IMAGEINFO = local LPIMAGEINFO

equ ILC_MASK = 0x0001
equ ILC_COLOR = 0x0000
equ ILC_COLORDDB = 0x00FE
equ ILC_COLOR4 = 0x0004
equ ILC_COLOR8 = 0x0008
equ ILC_COLOR16 = 0x0010
equ ILC_COLOR24 = 0x0018
equ ILC_COLOR32 = 0x0020
equ ILC_PALETTE = 0x0800

import func ImageList_Add(HIMAGELIST,HBITMAP,HBITMAP): int
import func ImageList_AddMasked(HIMAGELIST,HBITMAP,COLORREF): int 
import func ImageList_BeginDrag(HIMAGELIST,int,int,int): BOOL
import func ImageList_Create(int,int,UINT,int,int): HIMAGELIST
import func ImageList_Destroy(HIMAGELIST): BOOL
import func ImageList_DragEnter(HWND,int,int): BOOL
import func ImageList_DragLeave(HWND): BOOL
import func ImageList_DragMove(int,int): BOOL
import func ImageList_DragShowNolock(BOOL): BOOL
import func ImageList_Draw(HIMAGELIST,int,HDC,int,int,UINT): BOOL
import func ImageList_DrawEx(HIMAGELIST,int,HDC,int,int,int,int,COLORREF,COLORREF,UINT): BOOL
import func ImageList_EndDrag: void
import func ImageList_GetBkColor(HIMAGELIST): COLORREF
import func ImageList_GetDragImage(LPPOINT,LPPOINT): HIMAGELIST
import func ImageList_GetIcon(HIMAGELIST,int,UINT): HICON
import func ImageList_GetIconSize(HIMAGELIST,[]int,[]int): BOOL 
import func ImageList_GetImageCount(HIMAGELIST): int 
import func ImageList_GetImageInfo(HIMAGELIST,int,->IMAGEINFO): BOOL 
import func ImageList_LoadImageA(HINSTANCE,LPCSTR,int,int,COLORREF,UINT,UINT): HIMAGELIST 
import func ImageList_LoadImageW(HINSTANCE,LPCWSTR,int,int,COLORREF,UINT,UINT): HIMAGELIST 
import func ImageList_Merge(HIMAGELIST,int,HIMAGELIST,int,int,int): HIMAGELIST 
import func ImageList_Remove(HIMAGELIST,int): BOOL
import func ImageList_Replace(HIMAGELIST,int,HBITMAP,HBITMAP): BOOL
import func ImageList_ReplaceIcon(HIMAGELIST,int,HICON): int
import func ImageList_SetBkColor(HIMAGELIST,COLORREF): COLORREF
import func ImageList_SetDragCursorImage(HIMAGELIST,int,int,int): BOOL
import func ImageList_SetIconSize(HIMAGELIST,int,int): BOOL
import func ImageList_SetOverlayImage(HIMAGELIST,int,int): BOOL

equ ImageList_AddIcon(himl: HIMAGELIST, i: HICON) = ImageList_ReplaceIcon(himl,-1,i)
equ ImageList_RemoveAll(h: HIMAGELIST) = ImageList_Remove(h,-1)

//[cf]
//[c]
end