//[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