summaryrefslogtreecommitdiff
path: root/plugins/Utils.pas/commctrl.pp
diff options
context:
space:
mode:
authorGeorge Hazan <george.hazan@gmail.com>2013-02-26 16:03:31 +0000
committerGeorge Hazan <george.hazan@gmail.com>2013-02-26 16:03:31 +0000
commit0e8145f03cb0c37938efa429f06c8e42c7d176f8 (patch)
treeb03e81c0dc36523400fe806093060dc4c2314452 /plugins/Utils.pas/commctrl.pp
parent4766c66f800a3b549e0ee5a4f33d9857cf746d11 (diff)
fix for the stupid bug in Free Pascal
git-svn-id: http://svn.miranda-ng.org/main/trunk@3784 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Utils.pas/commctrl.pp')
-rw-r--r--plugins/Utils.pas/commctrl.pp13751
1 files changed, 13751 insertions, 0 deletions
diff --git a/plugins/Utils.pas/commctrl.pp b/plugins/Utils.pas/commctrl.pp
new file mode 100644
index 0000000000..89a3a9bc4c
--- /dev/null
+++ b/plugins/Utils.pas/commctrl.pp
@@ -0,0 +1,13751 @@
+{
+ This file is part of the Free Pascal run time library.
+ Copyright (c) 1999-2004 by Marco van de Voort
+ member of the Free Pascal development team.
+
+ See the file COPYING.FPC, included in this distribution,
+ for details about the copyright.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ Original copyright statement follows.
+
+ **************************************************************************
+ * *
+ * commctrl.h - - Interface for the Windows Common Controls *
+ * *
+ * Version 1.2 *
+ * *
+ * Copyright (c) Microsoft Corporation. All rights reserved. *
+ * *
+ **************************************************************************
+
+ Note: This is an initial translation, and probably _full_ of bugs, this
+ is because my conversion tool was flawed, and a lot of postediting
+ was needed, which is bound to introduce bugs and inconsequencies
+
+ This is an huge unit, and its maintenance and compability is not
+ a top-priority.
+ I prefer patches as bugfix over bugreports, and
+ preferably patches with lots of fixes at once.
+
+ If you can't make a patch, at least research the bug thoroughly,
+ and provide as much info as possible (which windows version,
+ the C prototype from the sdk, etc)
+
+ Help the FPC team, and try to do as much as possible yourself.
+}
+
+
+Unit CommCtrl;
+Interface
+
+{$Mode ObjFPC}
+Uses Windows,CTypes,ActiveX;
+
+// --------------------
+
+// --------------------
+CONST CommCtrlDLL = 'comctl32.dll';
+
+// Some reasonal defaults.
+// for XP only set NT to $%0501 and IE to $0600
+//
+// The NT conditional is only used for XP/no XP.
+
+{$DEFINE WIN32_IE=$0500}
+{$DEFINE IE3PLUS}
+{$DEFINE IE4PLUS}
+{$define IE5plus}
+{$define WIN32XP}
+{$define win32vista} // till WC_STATICA
+{$define ie501plus}
+{$ifdef win32}
+ {$define _win32}
+{$endif win32}
+{$define ie6plus}
+{$define ntddi_vista}
+{$define NTDDI_WIN7}
+
+{$ifdef win64}
+ {$define _win32}
+{$endif win64}
+
+{$DEFINE WIN32_WINNT=0} // NO XP
+{$DEFINE __IStream_INTERFACE_DEFINED__} // lpstream defined in activex afaik.
+
+// Sanity check in source. Not translated:
+//if (WIN32_IE < $0400) && defined(WIN32_WINNT) && (WIN32_WINNT >= $0500)}
+// #error _WIN32_IE setting conflicts with _WIN32_WINNT setting
+
+//
+// Users of this header may define any number of these constants to avoid
+// the definitions of each functional group.
+//
+// NOTOOLBAR Customizable bitmap-button toolbar control.
+// NOUPDOWN Up and Down arrow increment/decrement control.
+// NOSTATUSBAR Status bar control.
+// NOMENUHELP APIs to help manage menus, especially with a status bar.
+// NOTRACKBAR Customizable column-width tracking control.
+// NODRAGLIST APIs to make a listbox source and sink drag&drop actions.
+// NOPROGRESS Progress gas gauge.
+// NOHOTKEY HotKey control
+// NOHEADER Header bar control.
+// NOIMAGEAPIS ImageList apis.
+// NOLISTVIEW ListView control.
+// NOTREEVIEW TreeView control.
+// NOTABCONTROL Tab control.
+// NOANIMATE Animate control.
+// NOBUTTON Button control.
+// NOSTATIC Static control.
+// NOEDIT Edit control.
+// NOLISTBOX Listbox control.
+// NOCOMBOBOX Combobox control.
+// NOSCROLLBAR Scrollbar control.
+//
+//=============================================================================
+// Moved items due to forward defining limitations
+
+Const
+ MAX_LINKID_TEXT = 48;
+ L_MAX_URL_LENGTH = (2048 + 32 + length('://'));
+Type
+ tagLITEM = Record
+ mask : UINT;
+ iLink : cint;
+ state : UINT;
+ stateMask : UINT;
+ szID : Array [0..MAX_LINKID_TEXT-1] OF WCHAR;
+ szUrl : Array [0..L_MAX_URL_LENGTH-1] OF WCHAR;
+ END;
+ LITEM = tagLITEM;
+ PLITEM = ^tagLITEM;
+ TLITEM = tagLITEM;
+// PLITEM = ^tagLITEM;
+
+
+
+// include <prsht.h>
+
+Procedure InitCommonControls; stdcall; external commctrldll name 'InitCommonControls';
+
+{$ifdef ie3plus}
+TYPE
+
+ tagINITCOMMONCONTROLSEX = Record
+ dwSize : DWORD; // size of this structure
+ dwICC : DWORD; // flags indicating which classes to be initialized
+ END;
+ _INITCOMMONCONTROLSEX = tagINITCOMMONCONTROLSEX;
+ LPINITCOMMONCONTROLSEX = ^tagINITCOMMONCONTROLSEX;
+ TINITCOMMONCONTROLSEX = tagINITCOMMONCONTROLSEX;
+ PINITCOMMONCONTROLSEX = ^tagINITCOMMONCONTROLSEX;
+
+CONST
+ ICC_LISTVIEW_CLASSES = $00000001; // listview, header
+ ICC_TREEVIEW_CLASSES = $00000002; // treeview, tooltips
+ ICC_BAR_CLASSES = $00000004; // toolbar, statusbar, trackbar, tooltips
+ ICC_TAB_CLASSES = $00000008; // tab, tooltips
+ ICC_UPDOWN_CLASS = $00000010; // updown
+ ICC_PROGRESS_CLASS = $00000020; // progress
+ ICC_HOTKEY_CLASS = $00000040; // hotkey
+ ICC_ANIMATE_CLASS = $00000080; // animate
+ ICC_WIN95_CLASSES = $000000FF;
+ ICC_DATE_CLASSES = $00000100; // month picker, date picker, time picker, updown
+ ICC_USEREX_CLASSES = $00000200; // comboex
+ ICC_COOL_CLASSES = $00000400; // rebar (coolbar) control
+{$ifdef ie4plus}
+ ICC_INTERNET_CLASSES = $00000800;
+ ICC_PAGESCROLLER_CLASS = $00001000; // page scroller
+ ICC_NATIVEFNTCTL_CLASS = $00002000; // native font control
+{$ENDIF}
+{$ifdef WIN32XP}
+ ICC_STANDARD_CLASSES = $00004000;
+ ICC_LINK_CLASS = $00008000;
+{$ENDIF}
+
+function InitCommonControlsEx(var rec : TINITCOMMONCONTROLSEX):BOOL; stdcall; external commctrldll name 'InitCommonControlsEx';
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+CONST
+ ODT_HEADER = 100;
+ ODT_TAB = 101;
+ ODT_LISTVIEW = 102;
+
+//====== WM_NOTIFY codes (NMHDR.code values) ==================================
+
+
+CONST
+ NM_FIRST = (0- 0); // generic to all controls
+ NM_LAST = (0- 99);
+
+ LVN_FIRST = (0-100); // listview
+ LVN_LAST = (0-199);
+
+// Property sheet reserved (0U-200U) - (0U-299U) - see prsht.h
+
+ HDN_FIRST = (0-300); // header
+ HDN_LAST = (0-399);
+
+ TVN_FIRST = (0-400); // treeview
+ TVN_LAST = (0-499);
+
+ TTN_FIRST = (0-520); // tooltips
+ TTN_LAST = (0-549);
+
+ TCN_FIRST = (0-550); // tab control
+ TCN_LAST = (0-580);
+
+// Shell reserved (0U-580U) - (0U-589U)
+
+ CDN_FIRST = (0-601); // common dialog (new)
+ CDN_LAST = (0-699);
+
+ TBN_FIRST = (0-700); // toolbar
+ TBN_LAST = (0-720);
+
+ UDN_FIRST = (0-721); // updown
+ UDN_LAST = (0-740);
+{$ifdef ie3plus}
+ MCN_FIRST = (0-750); // monthcal
+ MCN_LAST = (0-759);
+
+ DTN_FIRST = (0-760); // datetimepick
+ DTN_LAST = (0-799);
+
+ CBEN_FIRST = (0-800); // combo box ex
+ CBEN_LAST = (0-830);
+
+ RBN_FIRST = (0-831); // rebar
+ RBN_LAST = (0-859);
+{$ENDIF}
+
+{$ifdef ie4plus}
+ IPN_FIRST = (0-860); // internet address
+ IPN_LAST = (0-879); // internet address
+
+ SBN_FIRST = (0-880); // status bar
+ SBN_LAST = (0-899);
+
+ PGN_FIRST = (0-900); // Pager Control
+ PGN_LAST = (0-950);
+
+{$ENDIF}
+
+{$ifdef ie5plus}
+{$IFNDEF WMN_FIRST}
+ WMN_FIRST = (0-1000);
+ WMN_LAST = (0-1200);
+{$ENDIF}
+{$ENDIF}
+
+{$ifdef Win32XP}
+ BCN_FIRST = (0-1250);
+ BCN_LAST = (0-1350);
+{$ENDIF}
+
+{$ifdef win32vista}
+ TRBN_FIRST = cardinal(0-1501); // trackbar
+ TRBN_LAST = cardinal(0-1519);
+{$endif}
+ MSGF_COMMCTRL_BEGINDRAG = $4200;
+ MSGF_COMMCTRL_SIZEHEADER = $4201;
+ MSGF_COMMCTRL_DRAGSELECT = $4202;
+ MSGF_COMMCTRL_TOOLBARCUST = $4203;
+
+//====== Ranges for control message IDs =======================================
+
+ LVM_FIRST = $1000; // ListView messages
+ TV_FIRST = $1100; // TreeView messages
+ HDM_FIRST = $1200; // Header messages
+ TCM_FIRST = $1300; // Tab control messages
+
+{$ifdef ie4plus}
+ PGM_FIRST = $1400; // Pager control messages
+{$ifdef win32xp}// actually 0x501=2003 or some sp?
+ ECM_FIRST = $1500; // Edit control messages
+ BCM_FIRST = $1600; // Button control messages
+ CBM_FIRST = $1700; // Combobox control messages
+{$ENDIF}
+ CCM_FIRST = $2000; // Common control shared messages
+ CCM_LAST = (CCM_FIRST + $200);
+
+
+ CCM_SETBKCOLOR = (CCM_FIRST + 1); // lParam is bkColor
+
+TYPE
+ tagCOLORSCHEME = Record
+ dwSize : DWORD;
+ clrBtnHighlight : COLORREF; // highlight color
+ clrBtnShadow : COLORREF; // shadow color
+ END;
+ COLORSCHEME = tagCOLORSCHEME;
+ LPCOLORSCHEME = ^tagCOLORSCHEME;
+ TCOLORSCHEME = tagCOLORSCHEME;
+ PCOLORSCHEME = ^tagCOLORSCHEME;
+
+CONST
+ CCM_SETCOLORSCHEME = (CCM_FIRST + 2); // lParam is color scheme
+ CCM_GETCOLORSCHEME = (CCM_FIRST + 3); // fills in COLORSCHEME pointed to by lParam
+ CCM_GETDROPTARGET = (CCM_FIRST + 4);
+ CCM_SETUNICODEFORMAT = (CCM_FIRST + 5);
+ CCM_GETUNICODEFORMAT = (CCM_FIRST + 6);
+
+{$ifdef ie5plus}
+{$ifdef win32xp}
+ COMCTL32_VERSION = 6;
+{$ELSE}
+ COMCTL32_VERSION = 5;
+{$ENDIF}
+
+ CCM_SETVERSION = (CCM_FIRST + $7);
+ CCM_GETVERSION = (CCM_FIRST + $8);
+ CCM_SETNOTIFYWINDOW = (CCM_FIRST + $9); // wParam == hwndParent.
+{$ifdef win32xp}
+ CCM_SETWINDOWTHEME = (CCM_FIRST + $b);
+ CCM_DPISCALE = (CCM_FIRST + $c); // wParam == Awareness
+{$ENDIF}
+{$ENDIF} // (_WIN32_IE >= 0x0500)
+
+{$ENDIF} // (_WIN32_IE >= 0x0400)
+
+{$ifdef ie4plus}
+// for tooltips
+ INFOTIPSIZE = 1024;
+{$ENDIF}
+
+//====== WM_NOTIFY Macros =====================================================
+
+// Macro 8
+Procedure HANDLE_WM_NOTIFY( hwnd : hwnd; wParam : cint;var _lParam : NMHDR ;fn :Pointer);
+
+// Macro 9
+Function FORWARD_WM_NOTIFY( hwnd : hwnd; idFrom : cint;var pnmhdr : NMHDR ; fn :pointer ):LRESULT;
+
+//====== Generic WM_NOTIFY notification codes =================================
+
+
+CONST
+ NM_OUTOFMEMORY = (NM_FIRST-1);
+ NM_CLICK = (NM_FIRST-2); // uses NMCLICK struct
+ NM_DBLCLK = (NM_FIRST-3);
+ NM_RETURN = (NM_FIRST-4);
+ NM_RCLICK = (NM_FIRST-5); // uses NMCLICK struct
+ NM_RDBLCLK = (NM_FIRST-6);
+ NM_SETFOCUS = (NM_FIRST-7);
+ NM_KILLFOCUS = (NM_FIRST-8);
+{$ifdef ie3plus}
+ NM_CUSTOMDRAW = (NM_FIRST-12);
+ NM_HOVER = (NM_FIRST-13);
+{$ENDIF}
+{$ifdef ie4plus}
+ NM_NCHITTEST = (NM_FIRST-14); // uses NMMOUSE struct
+ NM_KEYDOWN = (NM_FIRST-15); // uses NMKEY struct
+ NM_RELEASEDCAPTURE = (NM_FIRST-16);
+ NM_SETCURSOR = (NM_FIRST-17); // uses NMMOUSE struct
+ NM_CHAR = (NM_FIRST-18); // uses NMCHAR struct
+{$ENDIF}
+{$ifdef ie401plus}
+ NM_TOOLTIPSCREATED = (NM_FIRST-19); // notify of when the tooltips window is create
+{$ENDIF}
+{$ifdef ie5plus}
+ NM_LDOWN = (NM_FIRST-20);
+ NM_RDOWN = (NM_FIRST-21);
+ NM_THEMECHANGED = (NM_FIRST-22);
+{$ENDIF}
+{$ifdef win32vista}
+ NM_FONTCHANGED = (NM_FIRST-23);
+ NM_CUSTOMTEXT = (NM_FIRST-24); // uses NMCUSTOMTEXT struct
+ NM_TVSTATEIMAGECHANGING = (NM_FIRST-24); // uses NMTVSTATEIMAGECHANGING struct, defined after HTREEITEM
+{$endif}
+
+{$IFNDEF CCSIZEOF_STRUCT}
+
+// Macro 10
+// #define CCSIZEOF_STRUCT(structname, member) (((int)((LPBYTE)(&((structname*)0)->member) - ((LPBYTE)((structname*)0)))) + sizeof(((structname*)0)->member))
+{$ENDIF}
+
+//====== Generic WM_NOTIFY notification structures ============================
+{$ifdef ie401plus}
+
+TYPE
+
+ tagNMTOOLTIPSCREATED = Record
+ hdr : NMHDR;
+ hwndToolTips : HWND;
+ END;
+ NMTOOLTIPSCREATED = tagNMTOOLTIPSCREATED;
+ LPNMTOOLTIPSCREATED = ^tagNMTOOLTIPSCREATED;
+ TNMTOOLTIPSCREATED = tagNMTOOLTIPSCREATED;
+ PNMTOOLTIPSCREATED = ^tagNMTOOLTIPSCREATED;
+
+{$ENDIF}
+
+{$ifdef ie4plus}
+Type
+ tagNMMOUSE = Record
+ hdr : NMHDR;
+ dwItemSpec : DWORD_PTR;
+ dwItemData : DWORD_PTR;
+ pt : POINT;
+ dwHitInfo : LPARAM; // any specifics about where on the item or control the mouse is
+ END;
+ NMMOUSE = tagNMMOUSE;
+ LPNMMOUSE = ^tagNMMOUSE;
+ TNMMOUSE = tagNMMOUSE;
+ PNMMOUSE = ^tagNMMOUSE;
+
+
+ NMCLICK = NMMOUSE;
+ LPNMCLICK = LPNMMOUSE;
+
+// Generic structure to request an object of a specific type.
+
+ tagNMOBJECTNOTIFY = Record
+ hdr : NMHDR;
+ iItem : cint;
+{$IFDEF __IID_DEFINED__}
+ piid : PIID;
+{$ELSE}
+ piid : Pointer;
+{$ENDIF}
+ pObject : Pointer;
+ hResult : HRESULT;
+ dwFlags : DWORD; // control specific flags (hints as to where in iItem it hit)
+ END;
+ NMOBJECTNOTIFY = tagNMOBJECTNOTIFY;
+ LPNMOBJECTNOTIFY = ^tagNMOBJECTNOTIFY;
+ TNMOBJECTNOTIFY = tagNMOBJECTNOTIFY;
+ PNMOBJECTNOTIFY = ^tagNMOBJECTNOTIFY;
+
+
+// Generic structure for a key
+
+ tagNMKEY = Record
+ hdr : NMHDR;
+ nVKey : UINT;
+ uFlags : UINT;
+ END;
+ NMKEY = tagNMKEY;
+ LPNMKEY = ^tagNMKEY;
+ TNMKEY = tagNMKEY;
+ PNMKEY = ^tagNMKEY;
+
+
+// Generic structure for a character
+
+ tagNMCHAR = Record
+ hdr : NMHDR;
+ ch : UINT;
+ dwItemPrev : DWORD; // Item previously selected
+ dwItemNext : DWORD; // Item to be selected
+ END;
+ NMCHAR = tagNMCHAR;
+ LPNMCHAR = ^tagNMCHAR;
+ TNMCHAR = tagNMCHAR;
+ PNMCHAR = ^tagNMCHAR;
+
+{$ifdef win32vista}
+ tagNMCUSTOMTEXT = Record
+ hdr : NMHDR;
+ hDC : HDC;
+ lpString : LPCWSTR;
+ nCount : cint;
+ lpRect : LPRECT;
+ uFormat : UINT;
+ fLink : bool;
+ end;
+
+ NMCUSTOMTEXT = tagNMCUSTOMTEXT;
+ LPNMCUSTOMTEXT = ^tagNMCUSTOMTEXT;
+ TNMCUSTOMTEXT = tagNMCUSTOMTEXT;
+ PNMCUSTOMTEXT = LPNMCUSTOMTEXT;
+{$endif}
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+
+{$ifdef ie3plus}
+//==================== CUSTOM DRAW ==========================================
+
+// custom draw return flags
+// values under 0x00010000 are reserved for global custom draw values.
+// above that are for specific controls
+CONST
+ CDRF_DODEFAULT = $00000000;
+ CDRF_NEWFONT = $00000002;
+ CDRF_SKIPDEFAULT = $00000004;
+
+
+ CDRF_NOTIFYPOSTPAINT = $00000010;
+ CDRF_NOTIFYITEMDRAW = $00000020;
+{$ifdef ie4plus}
+ CDRF_NOTIFYSUBITEMDRAW = $00000020; // flags are the same, we can distinguish by context
+{$ENDIF}
+ CDRF_NOTIFYPOSTERASE = $00000040;
+ CDRF_NOTIFYITEMERASE = $00000080; // according to lazarus headers. Can't find in sdk 6.0 (Vista sdk)
+
+
+// drawstage flags
+// values under 0x00010000 are reserved for global custom draw values.
+// above that are for specific controls
+ CDDS_PREPAINT = $00000001;
+ CDDS_POSTPAINT = $00000002;
+ CDDS_PREERASE = $00000003;
+ CDDS_POSTERASE = $00000004;
+// the 0x000010000 bit means it's individual item specific
+ CDDS_ITEM = $00010000;
+ CDDS_ITEMPREPAINT = (CDDS_ITEM OR CDDS_PREPAINT);
+ CDDS_ITEMPOSTPAINT = (CDDS_ITEM OR CDDS_POSTPAINT);
+ CDDS_ITEMPREERASE = (CDDS_ITEM OR CDDS_PREERASE);
+ CDDS_ITEMPOSTERASE = (CDDS_ITEM OR CDDS_POSTERASE);
+{$ifdef ie4plus}
+ CDDS_SUBITEM = $00020000;
+{$ENDIF}
+
+// itemState flags
+ CDIS_SELECTED = $0001;
+ CDIS_GRAYED = $0002;
+ CDIS_DISABLED = $0004;
+ CDIS_CHECKED = $0008;
+ CDIS_FOCUS = $0010;
+ CDIS_DEFAULT = $0020;
+ CDIS_HOT = $0040;
+ CDIS_MARKED = $0080;
+ CDIS_INDETERMINATE = $0100;
+{$ifdef win32xp}
+ CDIS_SHOWKEYBOARDCUES = $0200;
+{$ENDIF}
+{$ifdef win32vista}
+ CDIS_NEARHOT = $0400;
+ CDIS_OTHERSIDEHOT = $0800;
+ CDIS_DROPHILITED = $1000;
+{$endif}
+
+TYPE
+
+ tagNMCUSTOMDRAWINFO = Record
+ hdr : NMHDR;
+ dwDrawStage : DWORD;
+ hdc : HDC;
+ rc : RECT;
+ dwItemSpec : DWORD_PTR; // this is control specific, but it's how to specify an item. valid only with CDDS_ITEM bit set
+ uItemState : UINT;
+ lItemlParam : LPARAM;
+ END;
+ NMCUSTOMDRAW = tagNMCUSTOMDRAWINFO;
+ LPNMCUSTOMDRAW = ^tagNMCUSTOMDRAWINFO;
+ TNMCUSTOMDRAWINFO = tagNMCUSTOMDRAWINFO;
+ PNMCUSTOMDRAWINFO = ^tagNMCUSTOMDRAWINFO;
+ PNMCustomDraw = PNMCUSTOMDRAWINFO;
+ TNMCustomDraw = tagNMCUSTOMDRAWINFO;
+
+ tagNMTTCUSTOMDRAW = Record
+ nmcd : NMCUSTOMDRAW;
+ uDrawFlags : UINT;
+ END;
+ NMTTCUSTOMDRAW = tagNMTTCUSTOMDRAW;
+ LPNMTTCUSTOMDRAW = ^tagNMTTCUSTOMDRAW;
+ TNMTTCUSTOMDRAW = tagNMTTCUSTOMDRAW;
+ PNMTTCUSTOMDRAW = ^tagNMTTCUSTOMDRAW;
+
+
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+
+//====== IMAGE APIS ===========================================================
+
+{$IFNDEF NOIMAGEAPIS}
+
+
+CONST
+ CLR_NONE = DWORD($FFFFFFFF);
+ CLR_DEFAULT = DWORD($FF000000);
+
+
+{$IFNDEF IMAGELISTDRAWPARAMS}
+{$ifdef ie3plus}
+TYPE
+ _IMAGELISTDRAWPARAMS = Record
+ cbSize : DWORD;
+ himl : HIMAGELIST;
+ i : cint;
+ hdcDst : HDC;
+ x : cint;
+ y : cint;
+ cx : cint;
+ cy : cint;
+ xBitmap : cint; // x offest from the upperleft of bitmap
+ yBitmap : cint; // y offset from the upperleft of bitmap
+ rgbBk : COLORREF;
+ rgbFg : COLORREF;
+ fStyle : UINT;
+ dwRop : DWORD;
+{$ifdef win32xp}
+ fState : DWORD;
+ Frame : DWORD;
+ crEffect : COLORREF;
+{$ENDIF}
+ END;
+ tagIMAGELISTDRAWPARAMS = _IMAGELISTDRAWPARAMS;
+ IMAGELISTDRAWPARAMS = _IMAGELISTDRAWPARAMS;
+ LPIMAGELISTDRAWPARAMS = ^_IMAGELISTDRAWPARAMS;
+ TIMAGELISTDRAWPARAMS = _IMAGELISTDRAWPARAMS;
+ PIMAGELISTDRAWPARAMS = ^_IMAGELISTDRAWPARAMS;
+
+// #define IMAGELISTDRAWPARAMS_V3_SIZE CCSIZEOF_STRUCT(IMAGELISTDRAWPARAMS, dwRop)
+
+{$ENDIF} // _WIN32_IE >= 0x0300
+{$ENDIF}
+
+
+CONST
+ ILC_MASK = $00000001;
+ ILC_COLOR = $00000000;
+ ILC_COLORDDB = $000000FE;
+ ILC_COLOR4 = $00000004;
+ ILC_COLOR8 = $00000008;
+ ILC_COLOR16 = $00000010;
+ ILC_COLOR24 = $00000018;
+ ILC_COLOR32 = $00000020;
+ ILC_PALETTE = $00000800; // (not implemented)
+{$ifdef win32xp}
+ ILC_MIRROR = $00002000; // Mirror the icons contained, if the process is mirrored
+ ILC_PERITEMMIRROR = $00008000; // Causes the mirroring code to mirror each item when inserting a set of images, verses the whole strip
+{$ENDIF}
+{$ifdef win32vista}
+ ILC_ORIGINALSIZE = $00010000; // Imagelist should accept smaller than set images and apply OriginalSize based on image added
+ ILC_HIGHQUALITYSCALE = $00020000; // Imagelist should enable use of the high quality scaler.
+{$endif}
+
+function ImageList_Create(cx:cint;cy:cint;flags:UINT;cInitial:cint;cGrow:cint):HIMAGELIST; stdcall; external commctrldll name 'ImageList_Create';
+function ImageList_Destroy(himl:HIMAGELIST):BOOL; stdcall; external commctrldll name 'ImageList_Destroy';
+
+function ImageList_GetImageCount(himl:HIMAGELIST):cint; stdcall; external commctrldll name 'ImageList_GetImageCount';
+{$ifdef ie3plus}
+function ImageList_SetImageCount(himl:HIMAGELIST;uNewCount:UINT):BOOL; stdcall; external commctrldll name 'ImageList_SetImageCount';
+{$ENDIF}
+
+function ImageList_Add(himl:HIMAGELIST;hbmImage:HBITMAP;hbmMask:HBITMAP):cint; stdcall; external commctrldll name 'ImageList_Add';
+
+function ImageList_ReplaceIcon(himl:HIMAGELIST;i:cint;hicon:HICON):cint; stdcall; external commctrldll name 'ImageList_ReplaceIcon';
+function ImageList_SetBkColor(himl:HIMAGELIST;clrBk:COLORREF):COLORREF; stdcall; external commctrldll name 'ImageList_SetBkColor';
+function ImageList_GetBkColor(himl:HIMAGELIST):COLORREF; stdcall; external commctrldll name 'ImageList_GetBkColor';
+function ImageList_SetOverlayImage(himl:HIMAGELIST;iImage:cint;iOverlay:cint):BOOL; stdcall; external commctrldll name 'ImageList_SetOverlayImage';
+
+// Macro 11
+Function ImageList_AddIcon(Himl:HIMAGELIST;hicon:HICON):cint;
+
+CONST
+ ILD_NORMAL = $00000000;
+ ILD_TRANSPARENT = $00000001;
+ ILD_MASK = $00000010;
+ ILD_IMAGE = $00000020;
+{$ifdef ie3plus}
+ ILD_ROP = $00000040;
+{$ENDIF}
+ ILD_BLEND25 = $00000002;
+ ILD_BLEND50 = $00000004;
+ ILD_OVERLAYMASK = $00000F00;
+
+// Macro 12
+// #define INDEXTOOVERLAYMASK(i) ((i) << 8)
+
+CONST
+ ILD_PRESERVEALPHA = $00001000; // This preserves the alpha channel in dest
+ ILD_SCALE = $00002000; // Causes the image to be scaled to cx, cy instead of clipped
+ ILD_DPISCALE = $00004000;
+{$ifdef win32vista}
+ ILD_ASYNC = $00008000;
+{$endif}
+
+ ILD_SELECTED = ILD_BLEND50;
+ ILD_FOCUS = ILD_BLEND25;
+ ILD_BLEND = ILD_BLEND50;
+ CLR_HILIGHT = CLR_DEFAULT;
+
+ ILS_NORMAL = $00000000;
+ ILS_GLOW = $00000001;
+ ILS_SHADOW = $00000002;
+ ILS_SATURATE = $00000004;
+ ILS_ALPHA = $00000008;
+
+{$ifdef win32vista}
+ ILGT_NORMAL = $00000000;
+ ILGT_ASYNC = $00000001;
+{$endif}
+
+function ImageList_Draw(himl:HIMAGELIST;i:cint;hdcDst:HDC;x:cint;y:cint;fStyle:UINT):BOOL; stdcall; external commctrldll name 'ImageList_Draw';
+
+
+{$IFDEF _WIN32}
+
+{$ifdef win32vista}
+const
+ HBITMAP_CALLBACK =HBITMAP(-1); // only for SparseImageList
+{$endif}
+function ImageList_Replace(himl:HIMAGELIST;i:cint;hbmImage:HBITMAP;hbmMask:HBITMAP):BOOL; stdcall; external commctrldll name 'ImageList_Replace';
+
+function ImageList_AddMasked(himl:HIMAGELIST;hbmImage:HBITMAP;crMask:COLORREF):cint; stdcall; external commctrldll name 'ImageList_AddMasked';
+function ImageList_DrawEx(himl:HIMAGELIST;i:cint;hdcDst:HDC;x:cint;y:cint;dx:cint;dy:cint;rgbBk:COLORREF;rgbFg:COLORREF;fStyle:UINT):BOOL; stdcall; external commctrldll name 'ImageList_DrawEx';
+{$ifdef ie3plus}
+function ImageList_DrawIndirect(pimldp:PIMAGELISTDRAWPARAMS):BOOL; stdcall; external commctrldll name 'ImageList_DrawIndirect';
+{$ENDIF}
+function ImageList_Remove(himl:HIMAGELIST;i:cint):BOOL; stdcall; external commctrldll name 'ImageList_Remove';
+function ImageList_GetIcon(himl:HIMAGELIST;i:cint;flags:UINT):HICON; stdcall; external commctrldll name 'ImageList_GetIcon';
+function ImageList_LoadImageA(hi:HINST;lpbmp:LPCSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; stdcall; external commctrldll name 'ImageList_LoadImageA';
+function ImageList_LoadImageW(hi:HINST;lpbmp:LPCWSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; stdcall; external commctrldll name 'ImageList_LoadImageW';
+function ImageList_LoadImage(hi:HINST;lpbmp:LPCSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; stdcall; external commctrldll name 'ImageList_LoadImageA';
+function ImageList_LoadImage(hi:HINST;lpbmp:LPCWSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; stdcall; external commctrldll name 'ImageList_LoadImageW';
+
+{$IFDEF UNICODE}
+// function ImageList_LoadImageW(hi:HINSTANCE;lpbmp:LPCWSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; external commctrldll name 'ImageList_LoadImageW';
+{$ELSE}
+// function ImageList_LoadImageA(hi:HINSTANCE;lpbmp:LPCSTR;cx:cint;cGrow:cint;crMask:COLORREF;uType:UINT;uFlags:UINT):HIMAGELIST; external commctrldll name 'ImageList_LoadImageA';
+{$ENDIF}
+
+{$ifdef ie3plus}
+
+CONST
+ ILCF_MOVE = ($00000000);
+ ILCF_SWAP = ($00000001);
+
+function ImageList_Copy(himlDst:HIMAGELIST;iDst:cint;himlSrc:HIMAGELIST;iSrc:cint;uFlags:UINT):BOOL; stdcall; external commctrldll name 'ImageList_Copy';
+{$ENDIF}
+
+function ImageList_BeginDrag(himlTrack:HIMAGELIST;iTrack:cint;dxHotspot:cint;dyHotspot:cint):BOOL; stdcall; external commctrldll name 'ImageList_BeginDrag';
+function ImageList_EndDrag:BOOL; stdcall; external commctrldll name 'ImageList_EndDrag';
+function ImageList_DragEnter(hwndLock:HWND;x:cint;y:cint):BOOL; stdcall; external commctrldll name 'ImageList_DragEnter';
+function ImageList_DragLeave(hwndLock:HWND):BOOL; stdcall; external commctrldll name 'ImageList_DragLeave';
+function ImageList_DragMove(x:cint;y:cint):BOOL; stdcall; external commctrldll name 'ImageList_DragMove';
+function ImageList_SetDragCursorImage(himlDrag:HIMAGELIST;iDrag:cint;dxHotspot:cint;dyHotspot:cint):BOOL; stdcall; external commctrldll name 'ImageList_SetDragCursorImage';
+
+function ImageList_DragShowNolock(fShow:BOOL):BOOL; stdcall; external commctrldll name 'ImageList_DragShowNolock';
+function ImageList_GetDragImage(ppt:PPOINT;pptHotspot:PPOINT):HIMAGELIST; stdcall; external commctrldll name 'ImageList_GetDragImage';
+
+// Macro 13
+Procedure ImageList_RemoveAll(himl:HIMAGELIST);
+
+// Macro 14
+function ImageList_ExtractIcon(hi:longint; himl:HIMAGELIST;i:longint):HICON;
+
+
+// Macro 15
+Procedure ImageList_LoadBitmap(hi:HInst;bmp:LPCTSTR;cx:cint;cGrow:cint;crMask:COLORREF);
+
+{$IFDEF __IStream_INTERFACE_DEFINED__}
+
+function ImageList_Read(pstm:ISTREAM):HIMAGELIST; stdcall; external commctrldll name 'ImageList_Read';
+function ImageList_Write(himl:HIMAGELIST;pstm:ISTREAM):BOOL; stdcall; external commctrldll name 'ImageList_Write';
+
+{$ifdef Win32XP}
+
+CONST
+ ILP_NORMAL = 0; // Writes or reads the stream using new sematics for this version of comctl32
+ ILP_DOWNLEVEL = 1; // Write or reads the stream using downlevel sematics.
+
+
+function ImageList_ReadEx(dwFlags:DWORD;pstm:ISTREAM;riid:REFIID;ppv:PPointer):HRESULT; stdcall; external commctrldll name 'ImageList_ReadEx';
+function ImageList_WriteEx(himl:HIMAGELIST;dwFlags:DWORD;pstm:ISTREAM):HRESULT; stdcall; external commctrldll name 'ImageList_WriteEx';
+{$ENDIF}
+
+{$ENDIF}
+
+{$IFNDEF IMAGEINFO}
+TYPE
+
+ _IMAGEINFO = Record
+ hbmImage : HBITMAP;
+ hbmMask : HBITMAP;
+ Unused1 : cint;
+ Unused2 : cint;
+ rcImage : RECT;
+ END;
+ IMAGEINFO = _IMAGEINFO;
+ LPIMAGEINFO = ^_IMAGEINFO;
+ TIMAGEINFO = _IMAGEINFO;
+ PIMAGEINFO = ^_IMAGEINFO;
+
+{$ENDIF}
+
+function ImageList_GetIconSize(himl:HIMAGELIST;cx:Pint;cy:Pint):BOOL; stdcall; external commctrldll name 'ImageList_GetIconSize';
+function ImageList_GetIconSize(himl:HIMAGELIST;var cx:cint;var cy:cint):BOOL; stdcall; external commctrldll name 'ImageList_GetIconSize';
+function ImageList_SetIconSize(himl:HIMAGELIST;cx:cint;cy:cint):BOOL; stdcall; external commctrldll name 'ImageList_SetIconSize';
+function ImageList_GetImageInfo(himl:HIMAGELIST;i:cint;pImageInfo:PIMAGEINFO):BOOL; stdcall; external commctrldll name 'ImageList_GetImageInfo';
+function ImageList_GetImageInfo(himl:HIMAGELIST;i:cint;var pImageInfo:_IMAGEINFO):BOOL; stdcall; external commctrldll name 'ImageList_GetImageInfo';
+function ImageList_Merge(himl1:HIMAGELIST;i1:cint;himl2:HIMAGELIST;i2:cint;dx:cint;dy:cint):HIMAGELIST; stdcall; external commctrldll name 'ImageList_Merge';
+{$ifdef ie4plus}
+function ImageList_Duplicate(himl:HIMAGELIST):HIMAGELIST; stdcall; external commctrldll name 'ImageList_Duplicate';
+{$ENDIF}
+
+
+{$ENDIF}
+
+
+{$ENDIF}
+
+
+//====== HEADER CONTROL =======================================================
+
+{$IFNDEF NOHEADER}
+
+{$IFDEF _WIN32}
+
+CONST
+ WC_HEADERA = 'SysHeader32';
+ WC_HEADERW = {L}'SysHeader32';
+{$IFDEF UNICODE}
+ WC_HEADER = WC_HEADERW;
+{$ELSE}
+ WC_HEADER = WC_HEADERA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ WC_HEADER = 'SysHeader';
+{$ENDIF}
+
+CONST
+
+// begin_r_commctrl
+
+ HDS_HORZ = $0000;
+ HDS_BUTTONS = $0002;
+{$ifdef ie3plus}
+ HDS_HOTTRACK = $0004;
+{$ENDIF}
+ HDS_HIDDEN = $0008;
+
+{$ifdef ie3plus}
+ HDS_DRAGDROP = $0040;
+ HDS_FULLDRAG = $0080;
+{$ENDIF}
+{$ifdef ie5plus}
+ HDS_FILTERBAR = $0100;
+{$ENDIF}
+
+{$ifdef win32xp}
+ HDS_FLAT = $0200;
+{$ENDIF}
+{$ifdef win32vista}
+ HDS_CHECKBOXES = $0400;
+ HDS_NOSIZING = $0800;
+ HDS_OVERFLOW = $1000;
+{$endif}
+// end_r_commctrl
+
+{$ifdef ie5plus}
+
+ HDFT_ISSTRING = $0000; // HD_ITEM.pvFilter points to a HD_TEXTFILTER
+ HDFT_ISNUMBER = $0001; // HD_ITEM.pvFilter points to a INT
+
+ HDFT_HASNOVALUE = $8000; // clear the filter, by setting this bit
+
+TYPE
+
+
+ _HD_TEXTFILTERA = Record
+ pszText : LPSTR; // [in] pointer to the buffer containing the filter (ANSI)
+ cchTextMax : cint; // [in] max size of buffer/edit control buffer
+ END;
+ HD_TEXTFILTERA = _HD_TEXTFILTERA;
+ LPHD_TEXTFILTERA = ^_HD_TEXTFILTERA;
+ THD_TEXTFILTERA = _HD_TEXTFILTERA;
+ PHD_TEXTFILTERA = ^_HD_TEXTFILTERA;
+
+
+ _HD_TEXTFILTERW = Record
+ pszText : LPWSTR; // [in] pointer to the buffer contiaining the filter (UNICODE)
+ cchTextMax : cint; // [in] max size of buffer/edit control buffer
+ END;
+ HD_TEXTFILTERW = _HD_TEXTFILTERW;
+ LPHD_TEXTFILTERW = ^_HD_TEXTFILTERW;
+ THD_TEXTFILTERW = _HD_TEXTFILTERW;
+ PHD_TEXTFILTERW = ^_HD_TEXTFILTERW;
+
+{$IFDEF UNICODE}
+ HD_TEXTFILTER = HD_TEXTFILTERW;
+ HDTEXTFILTER = HD_TEXTFILTERW;
+ LPHD_TEXTFILTER = LPHD_TEXTFILTERW;
+ LPHDTEXTFILTER = LPHD_TEXTFILTERW;
+{$ELSE}
+ HD_TEXTFILTER = HD_TEXTFILTERA;
+ HDTEXTFILTER = HD_TEXTFILTERA;
+ LPHD_TEXTFILTER = LPHD_TEXTFILTERA;
+ LPHDTEXTFILTER = LPHD_TEXTFILTERA;
+{$ENDIF}
+
+
+{$ENDIF} // _WIN32_IE >= 0x0500
+
+TYPE
+
+
+ _HD_ITEMA = Record
+ mask : UINT;
+ cxy : cint;
+ pszText : LPSTR;
+ hbm : HBITMAP;
+ cchTextMax : cint;
+ fmt : cint;
+ lParam : LPARAM;
+{$ifdef ie3plus}
+ iImage : cint; // index of bitmap in ImageList
+ iOrder : cint; // where to draw this item
+{$ENDIF}
+{$ifdef ie5plus}
+ _type : UINT; // [in] filter type (defined what pvFilter is a pointer to)
+ pvFilter : Pointer; // [in] fillter data see above
+{$ENDIF}
+{$ifdef win32vista}
+ state : UINT;
+{$endif}
+ END;
+ HDITEMA = _HD_ITEMA;
+ pHDITEMA = ^_HD_ITEMA;
+
+ LPHDITEMA = ^_HD_ITEMA;
+ THD_ITEMA = _HD_ITEMA;
+ PHD_ITEMA = ^_HD_ITEMA;
+ THDItem = THD_ITEMA;
+ PHDItem = PHD_ITEMA;
+
+
+// #define HDITEMA_V1_SIZE CCSIZEOF_STRUCT(HDITEMA, lParam)
+// #define HDITEMW_V1_SIZE CCSIZEOF_STRUCT(HDITEMW, lParam)
+
+
+ _HD_ITEMW = Record
+ mask : UINT;
+ cxy : cint;
+ pszText : LPWSTR;
+ hbm : HBITMAP;
+ cchTextMax : cint;
+ fmt : cint;
+ lParam : LPARAM;
+{$ifdef ie3plus}
+ iImage : cint; // index of bitmap in ImageList
+ iOrder : cint;
+{$ENDIF}
+{$ifdef ie5plus}
+ _type : UINT; // [in] filter type (defined what pvFilter is a pointer to)
+ pvFilter : Pointer; // [in] fillter data see above
+{$ENDIF}
+{$ifdef win32vista}
+ state : UINT;
+{$endif}
+ END;
+ HDITEMW = _HD_ITEMW;
+ pHDITEMW = ^_HD_ITEMW;
+ LPHDITEMW = ^_HD_ITEMW;
+ THD_ITEMW = _HD_ITEMW;
+ PHD_ITEMW = ^_HD_ITEMW;
+
+
+TYPE
+{$IFDEF UNICODE}
+ HDITEM = HDITEMW;
+ LPHDITEM = LPHDITEMW;
+// HDITEM_V1_SIZE = HDITEMW_V1_SIZE;
+{$ELSE}
+
+ HDITEM = HDITEMA;
+ LPHDITEM = LPHDITEMA;
+// HDITEM_V1_SIZE = HDITEMA_V1_SIZE;
+{$ENDIF}
+
+ HD_ITEM = HDITEM;
+
+
+CONST
+
+ HDI_WIDTH = $0001;
+ HDI_HEIGHT = HDI_WIDTH;
+ HDI_TEXT = $0002;
+ HDI_FORMAT = $0004;
+ HDI_LPARAM = $0008;
+ HDI_BITMAP = $0010;
+{$ifdef ie3plus}
+ HDI_IMAGE = $0020;
+ HDI_DI_SETITEM = $0040;
+ HDI_ORDER = $0080;
+{$ENDIF}
+{$ifdef ie5plus}
+ HDI_FILTER = $0100;
+{$ENDIF}
+{$ifdef win32vista}
+ HDI_STATE = $0200;
+{$endif}
+
+ HDF_LEFT = $0000;
+ HDF_RIGHT = $0001;
+ HDF_CENTER = $0002;
+ HDF_JUSTIFYMASK = $0003;
+ HDF_RTLREADING = $0004;
+
+ HDF_OWNERDRAW = $8000;
+ HDF_STRING = $4000;
+ HDF_BITMAP = $2000;
+{$ifdef ie3plus}
+ HDF_BITMAP_ON_RIGHT = $1000;
+ HDF_IMAGE = $0800;
+{$ENDIF}
+
+{$ifdef win32xp}
+ HDF_SORTUP = $0400;
+ HDF_SORTDOWN = $0200;
+{$ENDIF}
+{$ifdef win32vista}
+ HDF_CHECKBOX = $0040;
+ HDF_CHECKED = $0080;
+ HDF_FIXEDWIDTH = $0100; // Can't resize the column; same as LVCFMT_FIXED_WIDTH
+ HDF_SPLITBUTTON = $1000000; // Column is a split button; same as LVCFMT_SPLITBUTTON
+{$endif}
+
+{$ifdef win32vista}
+ HDIS_FOCUSED = $00000001;
+{$endif}
+
+
+ HDM_GETITEMCOUNT = (HDM_FIRST + 0);
+
+// Macro 16
+Function Header_GetItemCount( hwndHD : hwnd):cint;
+
+CONST
+ HDM_INSERTITEMA = (HDM_FIRST + 1);
+ HDM_INSERTITEMW = (HDM_FIRST + 10);
+
+{$IFDEF UNICODE}
+ HDM_INSERTITEM = HDM_INSERTITEMW;
+{$ELSE}
+ HDM_INSERTITEM = HDM_INSERTITEMA;
+{$ENDIF}
+
+// Macro 17
+Function Header_InsertItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):cint;
+
+
+CONST
+ HDM_DELETEITEM = (HDM_FIRST + 2);
+
+// Macro 18
+Function Header_DeleteItem( hwndHD : hwnd; i : cint):BOOL;
+
+CONST
+ HDM_GETITEMA = (HDM_FIRST + 3);
+ HDM_GETITEMW = (HDM_FIRST + 11);
+
+{$IFDEF UNICODE}
+ HDM_GETITEM = HDM_GETITEMW;
+{$ELSE}
+ HDM_GETITEM = HDM_GETITEMA;
+{$ENDIF}
+
+// Macro 19
+Function Header_GetItem( hwndHD : hwnd; i : cint;var phdi : HD_ITEM ):BOOL;
+
+CONST
+ HDM_SETITEMA = (HDM_FIRST + 4);
+ HDM_SETITEMW = (HDM_FIRST + 12);
+
+{$IFDEF UNICODE}
+ HDM_SETITEM = HDM_SETITEMW;
+{$ELSE}
+ HDM_SETITEM = HDM_SETITEMA;
+{$ENDIF}
+
+// Macro 20
+Function Header_SetItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):BOOL;
+
+TYPE
+
+ _HD_LAYOUT = Record
+ prc : PRECT;
+ pwpos : PWINDOWPOS;
+ END;
+ HDLAYOUT = _HD_LAYOUT;
+ LPHDLAYOUT = ^_HD_LAYOUT;
+ THD_LAYOUT = _HD_LAYOUT;
+ PHD_LAYOUT = ^_HD_LAYOUT;
+
+CONST
+ HDM_LAYOUT = (HDM_FIRST + 5);
+
+{$ifdef ie3plus}
+TYPE
+ HD_LAYOUT = HDLAYOUT;
+{$ELSE}
+// HDLAYOUT = HD_LAYOUT;
+{$ENDIF}
+
+
+// Macro 21
+Function Header_Layout( hwndHD : hwnd;var playout : HD_LAYOUT ):BOOL;
+
+CONST
+ HHT_NOWHERE = $0001;
+ HHT_ONHEADER = $0002;
+ HHT_ONDIVIDER = $0004;
+ HHT_ONDIVOPEN = $0008;
+{$ifdef ie5plus}
+ HHT_ONFILTER = $0010;
+ HHT_ONFILTERBUTTON = $0020;
+{$ENDIF}
+ HHT_ABOVE = $0100;
+ HHT_BELOW = $0200;
+ HHT_TORIGHT = $0400;
+ HHT_TOLEFT = $0800;
+{$ifdef win32vista}
+ HHT_ONITEMSTATEICON = $1000;
+ HHT_ONDROPDOWN = $2000;
+ HHT_ONOVERFLOW = $4000;
+{$endif}
+
+TYPE
+ _HD_HITTESTINFO = Record
+ case integer of
+ 1: (pt : POINT;flags : UINT;iItem : cint);
+ { delphi }
+ 2: (point : POINT;dummyflags : UINT;Item : cint);
+ END;
+ HDHITTESTINFO = _HD_HITTESTINFO;
+ HD_HITTESTINFO = _HD_HITTESTINFO;
+ LPHDHITTESTINFO = ^_HD_HITTESTINFO;
+ THD_HITTESTINFO = _HD_HITTESTINFO;
+ PHD_HITTESTINFO = ^_HD_HITTESTINFO;
+ THDHitTestInfo = THD_HITTESTINFO;
+ PHDHitTestInfo = LPHDHITTESTINFO;
+
+
+CONST
+ HDM_HITTEST = (HDM_FIRST + 6);
+
+{$ifdef ie3plus}
+
+ HDM_GETITEMRECT = (HDM_FIRST + 7);
+
+// Macro 22
+Function Header_GetItemRect( hwnd : hwnd; iItem : WPARAM; lprc : LPARAM):BOOL;
+
+CONST
+ HDM_SETIMAGELIST = (HDM_FIRST + 8);
+
+// Macro 23
+Function Header_SetImageList( hwnd : hwnd; himl : LPARAM):HIMAGELIST;
+
+CONST
+ HDM_GETIMAGELIST = (HDM_FIRST + 9);
+
+// Macro 24
+Function Header_GetImageList( hwnd : hwnd):HIMAGELIST;
+
+CONST
+ HDM_ORDERTOINDEX = (HDM_FIRST + 15);
+
+// Macro 25
+Function Header_OrderToIndex( hwnd : hwnd; i : WPARAM):cint;
+
+CONST
+ HDM_CREATEDRAGIMAGE = (HDM_FIRST + 16); // wparam = which item (by index)
+
+// Macro 26
+Function Header_CreateDragImage( hwnd : hwnd; i : WPARAM):HIMAGELIST;
+
+CONST
+ HDM_GETORDERARRAY = (HDM_FIRST + 17);
+
+// Macro 27
+Function Header_GetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL;
+
+CONST
+ HDM_SETORDERARRAY = (HDM_FIRST + 18);
+
+// Macro 28
+Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : PInteger):BOOL;inline;
+
+// lparam = int array of size HDM_GETITEMCOUNT
+// the array specifies the order that all items should be displayed.
+// e.g. { 2, 0, 1}
+// says the index 2 item should be shown in the 0ths position
+// index 0 should be shown in the 1st position
+// index 1 should be shown in the 2nd position
+
+
+CONST
+ HDM_SETHOTDIVIDER = (HDM_FIRST + 19);
+
+// Macro 29
+Function Header_SetHotDivider( hwnd : hwnd; fPos : WPARAM; dw : LPARAM):cint;
+
+// convenience message for external dragdrop
+// wParam = BOOL specifying whether the lParam is a dwPos of the cursor
+// position or the index of which divider to hotlight
+// lParam = depends on wParam (-1 and wParm = FALSE turns off hotlight)
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+{$ifdef ie5plus}
+CONST
+ HDM_SETBITMAPMARGIN = (HDM_FIRST + 20);
+
+// Macro 30
+Function Header_SetBitmapMargin( hwnd : hwnd; iWidth : WPARAM):cint;
+
+CONST
+ HDM_GETBITMAPMARGIN = (HDM_FIRST + 21);
+
+// Macro 31
+Function Header_GetBitmapMargin( hwnd : hwnd):cint;
+
+{$ENDIF}
+
+
+{$ifdef ie4plus}
+
+CONST
+ HDM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+
+// Macro 32
+Function Header_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+CONST
+ HDM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+
+// Macro 33
+Function Header_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+{$ENDIF}
+
+{$ifdef ie5plus}
+CONST
+ HDM_SETFILTERCHANGETIMEOUT = (HDM_FIRST+22);
+
+// Macro 34
+Function Header_SetFilterChangeTimeout( hwnd : hwnd; i : LPARAM):cint;
+
+CONST
+ HDM_EDITFILTER = (HDM_FIRST+23);
+
+// Macro 35
+Function Header_EditFilter( hwnd : hwnd; i : WPARAM; fDiscardChanges :cint ):cint;
+
+
+// Clear filter takes -1 as a column value to indicate that all
+// the filter should be cleared. When this happens you will
+// only receive a single filter changed notification.
+
+CONST
+ HDM_CLEARFILTER = (HDM_FIRST+24);
+
+// Macro 36
+Function Header_ClearFilter( hwnd : hwnd; i : WPARAM):cint;
+
+// Macro 37
+Function Header_ClearAllFilters( hwnd : hwnd):cint;
+
+{$ENDIF}
+
+{$ifdef win32vista}
+// HDM_TRANSLATEACCELERATOR = CCM_TRANSLATEACCELERATOR; // CCM_* not defined anywhere yet in w7 sdk
+
+const
+ HDM_GETITEMDROPDOWNRECT = (HDM_FIRST+25);
+ HDM_GETOVERFLOWRECT = (HDM_FIRST+26);
+ HDM_GETFOCUSEDITEM = (HDM_FIRST+27);
+ HDM_SETFOCUSEDITEM = (HDM_FIRST+28);
+
+// macro 37a through 37d
+function Header_GetItemDropDownRect(hwnd : hwnd;iItem:cint; lprc:lprect):bool;
+function Header_GetOverflowRect( hwnd : hwnd; lprc:lprect):bool;
+function Header_GetFocusedItem (hwnd : hwnd):cint;
+function Header_SetFocusedItem (hwnd:hwnd; iItem:cint):BOOL;
+{$endif}
+
+CONST
+ HDN_ITEMCHANGINGA = (HDN_FIRST-0);
+ HDN_ITEMCHANGINGW = (HDN_FIRST-20);
+ HDN_ITEMCHANGEDA = (HDN_FIRST-1);
+ HDN_ITEMCHANGEDW = (HDN_FIRST-21);
+ HDN_ITEMCLICKA = (HDN_FIRST-2);
+ HDN_ITEMCLICKW = (HDN_FIRST-22);
+ HDN_ITEMDBLCLICKA = (HDN_FIRST-3);
+ HDN_ITEMDBLCLICKW = (HDN_FIRST-23);
+ HDN_DIVIDERDBLCLICKA = (HDN_FIRST-5);
+ HDN_DIVIDERDBLCLICKW = (HDN_FIRST-25);
+ HDN_BEGINTRACKA = (HDN_FIRST-6);
+ HDN_BEGINTRACKW = (HDN_FIRST-26);
+ HDN_ENDTRACKA = (HDN_FIRST-7);
+ HDN_ENDTRACKW = (HDN_FIRST-27);
+ HDN_TRACKA = (HDN_FIRST-8);
+ HDN_TRACKW = (HDN_FIRST-28);
+{$ifdef ie3plus}
+ HDN_GETDISPINFOA = (HDN_FIRST-9);
+ HDN_GETDISPINFOW = (HDN_FIRST-29);
+ HDN_BEGINDRAG = (HDN_FIRST-10);
+ HDN_ENDDRAG = (HDN_FIRST-11);
+{$ENDIF}
+{$ifdef ie5plus}
+ HDN_FILTERCHANGE = (HDN_FIRST-12);
+ HDN_FILTERBTNCLICK = (HDN_FIRST-13);
+{$ENDIF}
+{$ifdef win32vista}
+ HDN_BEGINFILTEREDIT = (HDN_FIRST-14);
+ HDN_ENDFILTEREDIT = (HDN_FIRST-15);
+
+ HDN_ITEMSTATEICONCLICK = (HDN_FIRST-16);
+ HDN_ITEMKEYDOWN = (HDN_FIRST-17);
+ HDN_DROPDOWN = (HDN_FIRST-18);
+ HDN_OVERFLOWCLICK = (HDN_FIRST-19);
+{$endif}
+
+{$IFDEF UNICODE}
+ HDN_ITEMCHANGING = HDN_ITEMCHANGINGW;
+ HDN_ITEMCHANGED = HDN_ITEMCHANGEDW;
+ HDN_ITEMCLICK = HDN_ITEMCLICKW;
+ HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKW;
+ HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKW;
+ HDN_BEGINTRACK = HDN_BEGINTRACKW;
+ HDN_ENDTRACK = HDN_ENDTRACKW;
+ HDN_TRACK = HDN_TRACKW;
+{$ifdef ie3plus}
+ HDN_GETDISPINFO = HDN_GETDISPINFOW;
+{$ENDIF}
+{$ELSE}
+ HDN_ITEMCHANGING = HDN_ITEMCHANGINGA;
+ HDN_ITEMCHANGED = HDN_ITEMCHANGEDA;
+ HDN_ITEMCLICK = HDN_ITEMCLICKA;
+ HDN_ITEMDBLCLICK = HDN_ITEMDBLCLICKA;
+ HDN_DIVIDERDBLCLICK = HDN_DIVIDERDBLCLICKA;
+ HDN_BEGINTRACK = HDN_BEGINTRACKA;
+ HDN_ENDTRACK = HDN_ENDTRACKA;
+ HDN_TRACK = HDN_TRACKA;
+{$ifdef ie3plus}
+ HDN_GETDISPINFO = HDN_GETDISPINFOA;
+{$ENDIF}
+{$ENDIF}
+
+TYPE
+ tagNMHEADERA = Record
+ hdr : NMHDR;
+ case integer of
+ 1: (iItem : cint;iButton : cint;pitem : PHDITEMA);
+ { delphi: }
+ 2: (Item : cint;Button : cint);
+ END;
+ NMHEADERA = tagNMHEADERA;
+ LPNMHEADERA = ^tagNMHEADERA;
+ TNMHEADERA = tagNMHEADERA;
+ PNMHEADERA = ^tagNMHEADERA;
+
+ tagNMHEADERW = Record
+ hdr : NMHDR;
+ iItem : cint;
+ iButton : cint;
+ pitem : PHDITEMW;
+ END;
+ NMHEADERW = tagNMHEADERW;
+ LPNMHEADERW = ^tagNMHEADERW;
+ TNMHEADERW = tagNMHEADERW;
+ PNMHEADERW = ^tagNMHEADERW;
+
+
+{$IFDEF UNICODE}
+ NMHEADER = NMHEADERW;
+ LPNMHEADER = LPNMHEADERW;
+{$ELSE}
+ NMHEADER = NMHEADERA;
+ LPNMHEADER = LPNMHEADERA;
+{$ENDIF}
+
+
+{$ifdef ie3plus}
+ HD_NOTIFYA = NMHEADERA;
+ HD_NOTIFYW = NMHEADERW;
+{$ELSE}
+// tagNMHEADERA = _HD_NOTIFY;
+// NMHEADERA = HD_NOTIFYA;
+// tagHMHEADERW = _HD_NOTIFYW;
+// NMHEADERW = HD_NOTIFYW;
+{$ENDIF}
+
+ HD_NOTIFY = NMHEADER;
+ THDNotify = HD_NOTIFY;
+ PHDNotify = ^HD_NOTIFY;
+
+ tagNMHDDISPINFOW = Record
+ hdr : NMHDR;
+ iItem : cint;
+ mask : UINT;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ lParam : LPARAM;
+ END;
+ NMHDDISPINFOW = tagNMHDDISPINFOW;
+ LPNMHDDISPINFOW = ^tagNMHDDISPINFOW;
+ TNMHDDISPINFOW = tagNMHDDISPINFOW;
+ PNMHDDISPINFOW = ^tagNMHDDISPINFOW;
+
+
+ tagNMHDDISPINFOA = Record
+ hdr : NMHDR;
+ iItem : cint;
+ mask : UINT;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ lParam : LPARAM;
+ END;
+ NMHDDISPINFOA = tagNMHDDISPINFOA;
+ LPNMHDDISPINFOA = ^tagNMHDDISPINFOA;
+ TNMHDDISPINFOA = tagNMHDDISPINFOA;
+ PNMHDDISPINFOA = ^tagNMHDDISPINFOA;
+
+
+
+{$IFDEF UNICODE}
+ NMHDDISPINFO = NMHDDISPINFOW;
+ LPNMHDDISPINFO = LPNMHDDISPINFOW;
+{$ELSE}
+ NMHDDISPINFO = NMHDDISPINFOA;
+ LPNMHDDISPINFO = LPNMHDDISPINFOA;
+{$ENDIF}
+
+{$ifdef ie5plus}
+ tagNMHDFILTERBTNCLICK = Record
+ hdr : NMHDR;
+ iItem : cint;
+ rc : RECT;
+ END;
+ NMHDFILTERBTNCLICK = tagNMHDFILTERBTNCLICK;
+ LPNMHDFILTERBTNCLICK = ^tagNMHDFILTERBTNCLICK;
+ TNMHDFILTERBTNCLICK = tagNMHDFILTERBTNCLICK;
+ PNMHDFILTERBTNCLICK = ^tagNMHDFILTERBTNCLICK;
+
+{$ENDIF}
+
+{$ENDIF} // NOHEADER
+
+
+//====== TOOLBAR CONTROL ======================================================
+
+{$IFNDEF NOTOOLBAR}
+
+{$IFDEF _WIN32}
+
+CONST
+ TOOLBARCLASSNAMEW = {L}'ToolbarWindow32';
+ TOOLBARCLASSNAMEA = 'ToolbarWindow32';
+
+{$IFDEF UNICODE}
+ TOOLBARCLASSNAME = TOOLBARCLASSNAMEW;
+{$ELSE}
+ TOOLBARCLASSNAME = TOOLBARCLASSNAMEA;
+{$ENDIF}
+
+{$ELSE}
+CONST
+ TOOLBARCLASSNAME = 'ToolbarWindow';
+{$ENDIF}
+
+TYPE
+
+ _TBBUTTON = Record
+ iBitmap : cint;
+ idCommand : cint;
+ fsState : BYTE;
+ fsStyle : BYTE;
+{$IFDEF _WIN64}
+ bReserved : ARRAY[0..5] OF BYTE; // padding for alignment
+{$ELSE}
+{$IFDEF _WIN32}
+ bReserved : ARRAY[0..1] OF BYTE; // padding for alignment
+{$ENDIF}
+{$ENDIF}
+ dwData : DWORD_PTR;
+ iString : INT_PTR;
+ END;
+ TBBUTTON = _TBBUTTON;
+ PTBBUTTON = {NEAR} ^_TBBUTTON; // ???
+ LPTBBUTTON = ^_TBBUTTON;
+ TTBBUTTON = _TBBUTTON;
+// PTBBUTTON = ^_TBBUTTON;
+
+ LPCTBBUTTON = {const} ^TBBUTTON;
+
+
+ _COLORMAP = Record
+ xfrom : COLORREF;
+ xto : COLORREF;
+ END;
+ COLORMAP = _COLORMAP;
+ LPCOLORMAP = ^_COLORMAP;
+ TCOLORMAP = _COLORMAP;
+ PCOLORMAP = ^_COLORMAP;
+
+function CreateToolbarEx(hwnd:HWND;ws:DWORD;wID:UINT;nBitmaps:cint;
+ hBMInst:HINST;
+ wBMID:UINT_PTR;lpButtons:LPCTBBUTTON;iNumButtons:cint;dxButton:cint;
+ dyButton:cint;dxBitmap:cint;dyBitmap:cint;uStructSize:UINT):HWND; stdcall; external commctrldll name 'CreateToolbarEx';
+
+function CreateMappedBitmap(hInstance:HINST;idBitmap:INT_PTR;wFlags:UINT;lpColorMap:LPCOLORMAP;iNumMaps:cint):HBITMAP; stdcall; external commctrldll name 'CreateMappedBitmap';
+
+CONST
+ CMB_MASKED = $02;
+ TBSTATE_CHECKED = $01;
+ TBSTATE_PRESSED = $02;
+ TBSTATE_ENABLED = $04;
+ TBSTATE_HIDDEN = $08;
+ TBSTATE_INDETERMINATE = $10;
+ TBSTATE_WRAP = $20;
+{$ifdef ie3plus}
+ TBSTATE_ELLIPSES = $40;
+{$ENDIF}
+{$ifdef ie4plus}
+ TBSTATE_MARKED = $80;
+{$ENDIF}
+
+ TBSTYLE_BUTTON = $0000; // obsolete; use BTNS_BUTTON instead
+ TBSTYLE_SEP = $0001; // obsolete; use BTNS_SEP instead
+ TBSTYLE_CHECK = $0002; // obsolete; use BTNS_CHECK instead
+ TBSTYLE_GROUP = $0004; // obsolete; use BTNS_GROUP instead
+ TBSTYLE_CHECKGROUP = (TBSTYLE_GROUP OR TBSTYLE_CHECK);// obsolete; use BTNS_CHECKGROUP instead
+{$ifdef ie3plus}
+ TBSTYLE_DROPDOWN = $0008; // obsolete; use BTNS_DROPDOWN instead
+{$ENDIF}
+{$ifdef ie4plus}
+ TBSTYLE_AUTOSIZE = $0010; // obsolete; use BTNS_AUTOSIZE instead
+ TBSTYLE_NOPREFIX = $0020; // obsolete; use BTNS_NOPREFIX instead
+{$ENDIF}
+
+ TBSTYLE_TOOLTIPS = $0100;
+ TBSTYLE_WRAPABLE = $0200;
+ TBSTYLE_ALTDRAG = $0400;
+{$ifdef ie3plus}
+ TBSTYLE_FLAT = $0800;
+ TBSTYLE_LIST = $1000;
+ TBSTYLE_CUSTOMERASE = $2000;
+{$ENDIF}
+{$ifdef ie4plus}
+ TBSTYLE_REGISTERDROP = $4000;
+ TBSTYLE_TRANSPARENT = $8000;
+ TBSTYLE_EX_DRAWDDARROWS = $00000001;
+{$ENDIF}
+
+{$ifdef ie5plus}
+ BTNS_BUTTON = TBSTYLE_BUTTON; // 0x0000
+ BTNS_SEP = TBSTYLE_SEP; // 0x0001
+ BTNS_CHECK = TBSTYLE_CHECK; // 0x0002
+ BTNS_GROUP = TBSTYLE_GROUP; // 0x0004
+ BTNS_CHECKGROUP = TBSTYLE_CHECKGROUP; // (TBSTYLE_GROUP | TBSTYLE_CHECK)
+ BTNS_DROPDOWN = TBSTYLE_DROPDOWN; // 0x0008
+ BTNS_AUTOSIZE = TBSTYLE_AUTOSIZE; // 0x0010; automatically calculate the cx of the button
+ BTNS_NOPREFIX = TBSTYLE_NOPREFIX; // 0x0020; this button should not have accel prefix
+{$ifdef ie501plus}
+ BTNS_SHOWTEXT = $0040; // ignored unless TBSTYLE_EX_MIXEDBUTTONS is set
+{$ENDIF} // 0x0501
+ BTNS_WHOLEDROPDOWN = $0080; // draw drop-down arrow, but without split arrow section
+{$ENDIF}
+
+{$ifdef ie501plus}
+ TBSTYLE_EX_MIXEDBUTTONS = $00000008;
+ TBSTYLE_EX_HIDECLIPPEDBUTTONS = $00000010; // don't show partially obscured buttons
+{$ENDIF} // 0x0501
+
+
+{$ifdef win32xp}
+ TBSTYLE_EX_DOUBLEBUFFER = $00000080; // Double Buffer the toolbar
+{$ENDIF}
+
+{$ifdef ie4plus}
+// Custom Draw Structure
+TYPE
+
+ _NMTBCUSTOMDRAW = Record
+ nmcd : NMCUSTOMDRAW;
+ hbrMonoDither : HBRUSH;
+ hbrLines : HBRUSH; // For drawing lines on buttons
+ hpenLines : HPEN; // For drawing lines on buttons
+ clrText : COLORREF; // Color of text
+ clrMark : COLORREF; // Color of text bk when marked. (only if TBSTATE_MARKED)
+ clrTextHighlight : COLORREF; // Color of text when highlighted
+ clrBtnFace : COLORREF; // Background of the button
+ clrBtnHighlight : COLORREF; // 3D highlight
+ clrHighlightHotTrack : COLORREF; // In conjunction with fHighlightHotTrack
+
+ rcText : RECT; // Rect for text
+ nStringBkMode : cint;
+ nHLStringBkMode : cint;
+{$ifdef win32xp}
+ iListGap : cint;
+{$ENDIF}
+ END;
+ NMTBCUSTOMDRAW = _NMTBCUSTOMDRAW;
+ LPNMTBCUSTOMDRAW = ^_NMTBCUSTOMDRAW;
+ TNMTBCUSTOMDRAW = _NMTBCUSTOMDRAW;
+ PNMTBCUSTOMDRAW = ^_NMTBCUSTOMDRAW;
+
+
+// Toolbar custom draw return flags
+
+CONST
+ TBCDRF_NOEDGES = $00010000; // Don't draw button edges
+ TBCDRF_HILITEHOTTRACK = $00020000; // Use color of the button bk when hottracked
+ TBCDRF_NOOFFSET = $00040000; // Don't offset button if pressed
+ TBCDRF_NOMARK = $00080000; // Don't draw default highlight of image/text for TBSTATE_MARKED
+ TBCDRF_NOETCHEDEFFECT = $00100000; // Don't draw etched effect for disabled items
+{$ENDIF}
+
+{$ifdef ie5plus}
+ TBCDRF_BLENDICON = $00200000; // Use ILD_BLEND50 on the icon image
+ TBCDRF_NOBACKGROUND = $00400000; // Use ILD_BLEND50 on the icon image
+{$ENDIF}
+{$ifdef win32vista}
+ TBCDRF_USECDCOLORS = $00800000; // Use CustomDrawColors to RenderText regardless of VisualStyle
+{$endif}
+
+CONST
+ TB_ENABLEBUTTON = (WM_USER + 1);
+ TB_CHECKBUTTON = (WM_USER + 2);
+ TB_PRESSBUTTON = (WM_USER + 3);
+ TB_HIDEBUTTON = (WM_USER + 4);
+ TB_INDETERMINATE = (WM_USER + 5);
+{$ifdef ie4plus}
+ TB_MARKBUTTON = (WM_USER + 6);
+{$ENDIF}
+ TB_ISBUTTONENABLED = (WM_USER + 9);
+ TB_ISBUTTONCHECKED = (WM_USER + 10);
+ TB_ISBUTTONPRESSED = (WM_USER + 11);
+ TB_ISBUTTONHIDDEN = (WM_USER + 12);
+ TB_ISBUTTONINDETERMINATE = (WM_USER + 13);
+{$ifdef ie4plus}
+ TB_ISBUTTONHIGHLIGHTED = (WM_USER + 14);
+{$ENDIF}
+ TB_SETSTATE = (WM_USER + 17);
+ TB_GETSTATE = (WM_USER + 18);
+ TB_ADDBITMAP = (WM_USER + 19);
+
+{$IFDEF _WIN32}
+
+TYPE
+
+ tagTBADDBITMAP = Record
+ hInst : HINST;
+ nID : UINT_PTR;
+ END;
+ TBADDBITMAP = tagTBADDBITMAP;
+ LPTBADDBITMAP = ^tagTBADDBITMAP;
+ TTBADDBITMAP = tagTBADDBITMAP;
+ PTBADDBITMAP = ^tagTBADDBITMAP;
+
+
+
+CONST
+ HINST_COMMCTRL = HINST(-1);
+ IDB_STD_SMALL_COLOR = 0;
+ IDB_STD_LARGE_COLOR = 1;
+ IDB_VIEW_SMALL_COLOR = 4;
+ IDB_VIEW_LARGE_COLOR = 5;
+{$ifdef ie3plus}
+ IDB_HIST_SMALL_COLOR = 8;
+ IDB_HIST_LARGE_COLOR = 9;
+{$ENDIF}
+{$ifdef win32vista}
+ IDB_HIST_NORMAL = 12;
+ IDB_HIST_HOT = 13;
+ IDB_HIST_DISABLED = 14;
+ IDB_HIST_PRESSED = 15;
+{$endif}
+
+// icon indexes for standard bitmap
+
+ STD_CUT = 0;
+ STD_COPY = 1;
+ STD_PASTE = 2;
+ STD_UNDO = 3;
+ STD_REDOW = 4;
+ STD_DELETE = 5;
+ STD_FILENEW = 6;
+ STD_FILEOPEN = 7;
+ STD_FILESAVE = 8;
+ STD_PRINTPRE = 9;
+ STD_PROPERTIES = 10;
+ STD_HELP = 11;
+ STD_FIND = 12;
+ STD_REPLACE = 13;
+ STD_PRINT = 14;
+
+// icon indexes for standard view bitmap
+
+ VIEW_LARGEICONS = 0;
+ VIEW_SMALLICONS = 1;
+ VIEW_LIST = 2;
+ VIEW_DETAILS = 3;
+ VIEW_SORTNAME = 4;
+ VIEW_SORTSIZE = 5;
+ VIEW_SORTDATE = 6;
+ VIEW_SORTTYPE = 7;
+ VIEW_PARENTFOLDER = 8;
+ VIEW_NETCONNECT = 9;
+ VIEW_NETDISCONNECT = 10;
+ VIEW_NEWFOLDER = 11;
+{$ifdef ie4plus}
+ VIEW_VIEWMENU = 12;
+{$ENDIF}
+
+{$ifdef ie3plus}
+ HIST_BACK = 0;
+ HIST_FORWARD = 1;
+ HIST_FAVORITES = 2;
+ HIST_ADDTOFAVORITES = 3;
+ HIST_VIEWTREE = 4;
+{$ENDIF}
+
+{$ENDIF}
+
+{$ifdef ie4plus}
+ TB_ADDBUTTONSA = (WM_USER + 20);
+ TB_INSERTBUTTONA = (WM_USER + 21);
+{$ELSE}
+ TB_ADDBUTTONS = (WM_USER + 20);
+ TB_INSERTBUTTON = (WM_USER + 21);
+{$ENDIF}
+
+ TB_DELETEBUTTON = (WM_USER + 22);
+ TB_GETBUTTON = (WM_USER + 23);
+ TB_BUTTONCOUNT = (WM_USER + 24);
+ TB_COMMANDTOINDEX = (WM_USER + 25);
+
+{$IFDEF _WIN32}
+TYPE
+
+ tagTBSAVEPARAMSA = Record
+ hkr : HKEY;
+ pszSubKey : LPCSTR;
+ pszValueName : LPCSTR;
+ END;
+ TBSAVEPARAMSA = tagTBSAVEPARAMSA;
+ LPTBSAVEPARAMSA = ^tagTBSAVEPARAMSA;
+ TTBSAVEPARAMSA = tagTBSAVEPARAMSA;
+ PTBSAVEPARAMSA = ^tagTBSAVEPARAMSA;
+
+
+ tagTBSAVEPARAMSW = Record
+ hkr : HKEY;
+ pszSubKey : LPCWSTR;
+ pszValueName : LPCWSTR;
+ END;
+ TBSAVEPARAMSW = tagTBSAVEPARAMSW;
+ LPTBSAVEPARAMW = ^tagTBSAVEPARAMSW;
+ TTBSAVEPARAMSW = tagTBSAVEPARAMSW;
+ PTBSAVEPARAMSW = ^tagTBSAVEPARAMSW;
+
+
+{$IFDEF UNICODE}
+ TBSAVEPARAMS = TBSAVEPARAMSW;
+ LPTBSAVEPARAMS = LPTBSAVEPARAMSW;
+{$ELSE}
+ TBSAVEPARAMS = TBSAVEPARAMSA;
+ LPTBSAVEPARAMS = LPTBSAVEPARAMSA;
+{$ENDIF}
+
+{$ENDIF} // _WIN32
+
+
+CONST
+ TB_SAVERESTOREA = (WM_USER + 26);
+ TB_SAVERESTOREW = (WM_USER + 76);
+ TB_CUSTOMIZE = (WM_USER + 27);
+ TB_ADDSTRINGA = (WM_USER + 28);
+ TB_ADDSTRINGW = (WM_USER + 77);
+ TB_GETITEMRECT = (WM_USER + 29);
+ TB_BUTTONSTRUCTSIZE = (WM_USER + 30);
+ TB_SETBUTTONSIZE = (WM_USER + 31);
+ TB_SETBITMAPSIZE = (WM_USER + 32);
+ TB_AUTOSIZE = (WM_USER + 33);
+ TB_GETTOOLTIPS = (WM_USER + 35);
+ TB_SETTOOLTIPS = (WM_USER + 36);
+ TB_SETPARENT = (WM_USER + 37);
+ TB_SETROWS = (WM_USER + 39);
+ TB_GETROWS = (WM_USER + 40);
+ TB_SETCMDID = (WM_USER + 42);
+ TB_CHANGEBITMAP = (WM_USER + 43);
+ TB_GETBITMAP = (WM_USER + 44);
+ TB_GETBUTTONTEXTA = (WM_USER + 45);
+ TB_GETBUTTONTEXTW = (WM_USER + 75);
+ TB_REPLACEBITMAP = (WM_USER + 46);
+{$ifdef ie3plus}
+ TB_SETINDENT = (WM_USER + 47);
+ TB_SETIMAGELIST = (WM_USER + 48);
+ TB_GETIMAGELIST = (WM_USER + 49);
+ TB_LOADIMAGES = (WM_USER + 50);
+ TB_GETRECT = (WM_USER + 51); // wParam is the Cmd instead of index
+ TB_SETHOTIMAGELIST = (WM_USER + 52);
+ TB_GETHOTIMAGELIST = (WM_USER + 53);
+ TB_SETDISABLEDIMAGELIST = (WM_USER + 54);
+ TB_GETDISABLEDIMAGELIST = (WM_USER + 55);
+ TB_SETSTYLE = (WM_USER + 56);
+ TB_GETSTYLE = (WM_USER + 57);
+ TB_GETBUTTONSIZE = (WM_USER + 58);
+ TB_SETBUTTONWIDTH = (WM_USER + 59);
+ TB_SETMAXTEXTROWS = (WM_USER + 60);
+ TB_GETTEXTROWS = (WM_USER + 61);
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+CONST
+{$IFDEF UNICODE}
+
+ TB_SAVERESTORE = TB_SAVERESTOREW;
+ TB_ADDSTRING = TB_ADDSTRINGW;
+{$ELSE}
+ TB_GETBUTTONTEXT = TB_GETBUTTONTEXTA;
+ TB_SAVERESTORE = TB_SAVERESTOREA;
+ TB_ADDSTRING = TB_ADDSTRINGA;
+{$ENDIF}
+{$ifdef ie4plus}
+
+CONST
+ TB_GETOBJECT = (WM_USER + 62); // wParam == IID, lParam void **ppv
+ TB_GETHOTITEM = (WM_USER + 71);
+ TB_SETHOTITEM = (WM_USER + 72); // wParam == iHotItem
+ TB_SETANCHORHIGHLIGHT = (WM_USER + 73); // wParam == TRUE/FALSE
+ TB_GETANCHORHIGHLIGHT = (WM_USER + 74);
+ TB_MAPACCELERATORA = (WM_USER + 78); // wParam == ch, lParam int * pidBtn
+
+TYPE
+ TBINSERTMARK = Record
+ iButton : cint;
+ dwFlags : DWORD;
+ END;
+ LPTBINSERTMARK = ^TBINSERTMARK;
+ TTBINSERTMARK = TBINSERTMARK;
+ PTBINSERTMARK = ^TBINSERTMARK;
+
+
+CONST
+ TBIMHT_AFTER = $00000001; // TRUE = insert After iButton, otherwise before
+ TBIMHT_BACKGROUND = $00000002; // TRUE iff missed buttons completely
+
+ TB_GETINSERTMARK = (WM_USER + 79); // lParam == LPTBINSERTMARK
+ TB_SETINSERTMARK = (WM_USER + 80); // lParam == LPTBINSERTMARK
+ TB_INSERTMARKHITTEST = (WM_USER + 81); // wParam == LPPOINT lParam == LPTBINSERTMARK
+ TB_MOVEBUTTON = (WM_USER + 82);
+ TB_GETMAXSIZE = (WM_USER + 83); // lParam == LPSIZE
+ TB_SETEXTENDEDSTYLE = (WM_USER + 84); // For TBSTYLE_EX_*
+ TB_GETEXTENDEDSTYLE = (WM_USER + 85); // For TBSTYLE_EX_*
+ TB_GETPADDING = (WM_USER + 86);
+ TB_SETPADDING = (WM_USER + 87);
+ TB_SETINSERTMARKCOLOR = (WM_USER + 88);
+ TB_GETINSERTMARKCOLOR = (WM_USER + 89);
+
+ TB_SETCOLORSCHEME = CCM_SETCOLORSCHEME; // lParam is color scheme
+ TB_GETCOLORSCHEME = CCM_GETCOLORSCHEME; // fills in COLORSCHEME pointed to by lParam
+
+ TB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+ TB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+
+ TB_MAPACCELERATORW = (WM_USER + 90); // wParam == ch, lParam int * pidBtn
+
+CONST
+{$IFDEF UNICODE}
+ TB_MAPACCELERATOR = TB_MAPACCELERATORW;
+{$ELSE}
+ TB_MAPACCELERATOR = TB_MAPACCELERATORA;
+{$ENDIF}
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+TYPE
+ TBREPLACEBITMAP = Record
+ hInstOld : HINST;
+ nIDOld : UINT_PTR;
+ hInstNew : HINST;
+ nIDNew : UINT_PTR;
+ nButtons : cint;
+ END;
+ LPTBREPLACEBITMAP = ^TBREPLACEBITMAP;
+ TTBREPLACEBITMAP = TBREPLACEBITMAP;
+ PTBREPLACEBITMAP = ^TBREPLACEBITMAP;
+
+
+{$IFDEF _WIN32}
+
+CONST
+ TBBF_LARGE = $0001;
+ TB_GETBITMAPFLAGS = (WM_USER + 41);
+
+{$ifdef ie4plus}
+ TBIF_IMAGE = $00000001;
+ TBIF_TEXT = $00000002;
+ TBIF_STATE = $00000004;
+ TBIF_STYLE = $00000008;
+ TBIF_LPARAM = $00000010;
+ TBIF_COMMAND = $00000020;
+ TBIF_SIZE = $00000040;
+
+{$ifdef ie5plus}
+ TBIF_BYINDEX = $80000000; // this specifies that the wparam in Get/SetButtonInfo is an index, not id
+{$ENDIF}
+
+TYPE
+
+ TBBUTTONINFOA = Record
+ cbSize : UINT;
+ dwMask : DWORD;
+ idCommand : cint;
+ iImage : cint;
+ fsState : BYTE;
+ fsStyle : BYTE;
+ cx : WORD;
+ lParam : DWORD_PTR;
+ pszText : LPSTR;
+ cchText : cint;
+ END;
+ LPTBBUTTONINFOA = ^TBBUTTONINFOA;
+ TTBBUTTONINFOA = TBBUTTONINFOA;
+ PTBBUTTONINFOA = ^TBBUTTONINFOA;
+
+
+ TBBUTTONINFOW = Record
+ cbSize : UINT;
+ dwMask : DWORD;
+ idCommand : cint;
+ iImage : cint;
+ fsState : BYTE;
+ fsStyle : BYTE;
+ cx : WORD;
+ lParam : DWORD_PTR;
+ pszText : LPWSTR;
+ cchText : cint;
+ END;
+ LPTBBUTTONINFOW = ^TBBUTTONINFOW;
+ TTBBUTTONINFOW= TBBUTTONINFOW;
+ PTBBUTTONINFOW= ^TBBUTTONINFOW;
+
+
+{$IFDEF UNICODE}
+ TBBUTTONINFO = TBBUTTONINFOW;
+ LPTBBUTTONINFO = LPTBBUTTONINFOW;
+{$ELSE}
+ TBBUTTONINFO = TBBUTTONINFOA;
+ LPTBBUTTONINFO = LPTBBUTTONINFOA;
+{$ENDIF}
+ TTBButtonInfo = TBBUTTONINFO;
+ PTBButtonInfo = LPTBBUTTONINFO;
+
+
+// BUTTONINFO APIs do NOT support the string pool.
+
+CONST
+ TB_GETBUTTONINFOW = (WM_USER + 63);
+ TB_SETBUTTONINFOW = (WM_USER + 64);
+ TB_GETBUTTONINFOA = (WM_USER + 65);
+ TB_SETBUTTONINFOA = (WM_USER + 66);
+
+{$IFDEF UNICODE}
+CONST
+ TB_GETBUTTONINFO = TB_GETBUTTONINFOW;
+ TB_SETBUTTONINFO = TB_SETBUTTONINFOW;
+{$ELSE}
+CONST
+ TB_GETBUTTONINFO = TB_GETBUTTONINFOA;
+ TB_SETBUTTONINFO = TB_SETBUTTONINFOA;
+{$ENDIF}
+
+CONST
+ TB_INSERTBUTTONW = (WM_USER + 67);
+ TB_ADDBUTTONSW = (WM_USER + 68);
+
+ TB_HITTEST = (WM_USER + 69);
+
+// New post Win95/NT4 for InsertButton and AddButton. if iString member
+// is a pointer to a string, it will be handled as a string like listview
+// (although LPSTR_TEXTCALLBACK is not supported).
+
+{$IFDEF UNICODE}
+CONST
+ TB_INSERTBUTTON = TB_INSERTBUTTONW;
+ TB_ADDBUTTONS = TB_ADDBUTTONSW;
+{$ELSE}
+CONST
+ TB_INSERTBUTTON = TB_INSERTBUTTONA;
+ TB_ADDBUTTONS = TB_ADDBUTTONSA;
+{$ENDIF}
+
+
+CONST
+ TB_SETDRAWTEXTFLAGS = (WM_USER + 70); // wParam == mask lParam == bit values
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+{$ifdef ie5plus}
+
+ TB_GETSTRINGW = (WM_USER + 91);
+ TB_GETSTRINGA = (WM_USER + 92);
+{$IFDEF UNICODE}
+
+ TB_GETSTRING = TB_GETSTRINGW;
+{$ELSE}
+ TB_GETSTRING = TB_GETSTRINGA;
+{$ENDIF}
+
+
+{$ENDIF} // _WIN32_IE >= 0x0500
+
+{$ifdef win32xp}
+
+CONST
+ TBMF_PAD = $00000001;
+ TBMF_BARPAD = $00000002;
+ TBMF_BUTTONSPACING = $00000004;
+
+TYPE
+
+ TBMETRICS = Record
+ cbSize : UINT;
+ dwMask : DWORD;
+ cxPad : cint; // PAD
+ cyPad : cint;
+ cxBarPad : cint; // BARPAD
+ cyBarPad : cint;
+ cxButtonSpacing : cint; // BUTTONSPACING
+ cyButtonSpacing : cint;
+ END;
+ LPTBMETRICS = ^TBMETRICS;
+ TTBMETRICS = TBMETRICS;
+ PTBMETRICS = ^TBMETRICS;
+
+CONST
+ TB_GETMETRICS = (WM_USER + 101);
+ TB_SETMETRICS = (WM_USER + 102);
+{$ENDIF}
+
+{$ifdef win32vista}
+ TB_SETPRESSEDIMAGELIST = (WM_USER + 104);
+ TB_GETPRESSEDIMAGELIST = (WM_USER + 105);
+{$endif}
+
+{$ifdef win32xp}
+ TB_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
+{$ENDIF}
+
+ TBN_GETBUTTONINFOA = (TBN_FIRST-0);
+ TBN_BEGINDRAG = (TBN_FIRST-1);
+ TBN_ENDDRAG = (TBN_FIRST-2);
+ TBN_BEGINADJUST = (TBN_FIRST-3);
+ TBN_ENDADJUST = (TBN_FIRST-4);
+ TBN_RESET = (TBN_FIRST-5);
+ TBN_QUERYINSERT = (TBN_FIRST-6);
+ TBN_QUERYDELETE = (TBN_FIRST-7);
+ TBN_TOOLBARCHANGE = (TBN_FIRST-8);
+ TBN_CUSTHELP = (TBN_FIRST-9);
+{$ifdef ie3plus}
+ TBN_DROPDOWN = (TBN_FIRST - 10);
+{$ENDIF}
+{$ifdef ie4plus}
+ TBN_GETOBJECT = (TBN_FIRST - 12);
+
+// Structure for TBN_HOTITEMCHANGE notification
+//
+TYPE
+
+ tagNMTBHOTITEM = Record
+ hdr : NMHDR;
+ idOld : cint;
+ idNew : cint;
+ dwFlags : DWORD; // HICF_*
+ END;
+ NMTBHOTITEM = tagNMTBHOTITEM;
+ LPNMTBHOTITEM = ^tagNMTBHOTITEM;
+ TNMTBHOTITEM = tagNMTBHOTITEM;
+ PNMTBHOTITEM = ^tagNMTBHOTITEM;
+
+
+// Hot item change flags
+
+CONST
+ HICF_OTHER = $00000000;
+ HICF_MOUSE = $00000001; // Triggered by mouse
+ HICF_ARROWKEYS = $00000002; // Triggered by arrow keys
+ HICF_ACCELERATOR = $00000004; // Triggered by accelerator
+ HICF_DUPACCEL = $00000008; // This accelerator is not unique
+ HICF_ENTERING = $00000010; // idOld is invalid
+ HICF_LEAVING = $00000020; // idNew is invalid
+ HICF_RESELECT = $00000040; // hot item reselected
+ HICF_LMOUSE = $00000080; // left mouse button selected
+ HICF_TOGGLEDROPDOWN = $00000100; // Toggle button's dropdown state
+
+
+ TBN_HOTITEMCHANGE = (TBN_FIRST - 13);
+ TBN_DRAGOUT = (TBN_FIRST - 14); // this is sent when the user clicks down on a button then drags off the button
+ TBN_DELETINGBUTTON = (TBN_FIRST - 15); // uses TBNOTIFY
+ TBN_GETDISPINFOA = (TBN_FIRST - 16); // This is sent when the toolbar needs some display information
+ TBN_GETDISPINFOW = (TBN_FIRST - 17); // This is sent when the toolbar needs some display information
+ TBN_GETINFOTIPA = (TBN_FIRST - 18);
+ TBN_GETINFOTIPW = (TBN_FIRST - 19);
+ TBN_GETBUTTONINFOW = (TBN_FIRST - 20);
+{$ifdef ie5plus}
+ TBN_RESTORE = (TBN_FIRST - 21);
+ TBN_SAVE = (TBN_FIRST - 22);
+ TBN_INITCUSTOMIZE = (TBN_FIRST - 23);
+ TBNRF_HIDEHELP = $00000001;
+ TBNRF_ENDCUSTOMIZE = $00000002;
+{$ENDIF} // (_WIN32_IE >= 0x0500)
+
+
+
+{$ifdef ie5plus}
+
+TYPE
+
+ tagNMTBSAVE = Record
+ hdr : NMHDR;
+ pData : PDWORD;
+ pCurrent : PDWORD;
+ cbData : UINT;
+ iItem : cint;
+ cButtons : cint;
+ tbButton : TBBUTTON;
+ END;
+ NMTBSAVE = tagNMTBSAVE;
+ LPNMTBSAVE = ^tagNMTBSAVE;
+ TNMTBSAVE = tagNMTBSAVE;
+ PNMTBSAVE = ^tagNMTBSAVE;
+
+
+ tagNMTBRESTORE = Record
+ hdr : NMHDR;
+ pData : PDWORD;
+ pCurrent : PDWORD;
+ cbData : UINT;
+ iItem : cint;
+ cButtons : cint;
+ cbBytesPerRecord : cint;
+ tbButton : TBBUTTON;
+ END;
+ NMTBRESTORE = tagNMTBRESTORE;
+ LPNMTBRESTORE = ^tagNMTBRESTORE;
+ TNMTBRESTORE = tagNMTBRESTORE;
+ PNMTBRESTORE = ^tagNMTBRESTORE;
+
+{$ENDIF} // (_WIN32_IE >= 0x0500)
+
+ tagNMTBGETINFOTIPA = Record
+ hdr : NMHDR;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iItem : cint;
+ lParam : LPARAM;
+ END;
+ NMTBGETINFOTIPA = tagNMTBGETINFOTIPA;
+ LPNMTBGETINFOTIPA = ^tagNMTBGETINFOTIPA;
+ TNMTBGETINFOTIPA = tagNMTBGETINFOTIPA;
+ PNMTBGETINFOTIPA = ^tagNMTBGETINFOTIPA;
+
+
+ tagNMTBGETINFOTIPW = Record
+ hdr : NMHDR;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iItem : cint;
+ lParam : LPARAM;
+ END;
+ NMTBGETINFOTIPW = tagNMTBGETINFOTIPW;
+ LPNMTBGETINFOTIPW = ^tagNMTBGETINFOTIPW;
+ TNMTBGETINFOTIPW = tagNMTBGETINFOTIPW;
+ PNMTBGETINFOTIPW = ^tagNMTBGETINFOTIPW;
+
+
+{$IFDEF UNICODE}
+CONST
+ TBN_GETINFOTIP = TBN_GETINFOTIPW;
+TYPE
+ NMTBGETINFOTIP = NMTBGETINFOTIPW;
+ LPNMTBGETINFOTIP = LPNMTBGETINFOTIPW;
+{$ELSE}
+CONST
+ TBN_GETINFOTIP = TBN_GETINFOTIPA;
+TYPE
+ NMTBGETINFOTIP = NMTBGETINFOTIPA;
+ LPNMTBGETINFOTIP = LPNMTBGETINFOTIPA;
+{$ENDIF}
+
+
+CONST
+ TBNF_IMAGE = $00000001;
+ TBNF_TEXT = $00000002;
+ TBNF_DI_SETITEM = $10000000;
+
+TYPE
+
+ NMTBDISPINFOA = Record
+ hdr : NMHDR;
+ dwMask : DWORD; // [in] Specifies the values requested .[out] Client ask the data to be set for future use
+ idCommand : cint; // [in] id of button we're requesting info for
+ lParam : DWORD_PTR; // [in] lParam of button
+ iImage : cint; // [out] image index
+ pszText : LPSTR; // [out] new text for item
+ cchText : cint; // [in] size of buffer pointed to by pszText
+ END;
+ LPNMTBDISPINFOA = ^NMTBDISPINFOA;
+ TNMTBDISPINFOA = NMTBDISPINFOA;
+ PNMTBDISPINFOA = ^NMTBDISPINFOA;
+
+
+ NMTBDISPINFOW = Record
+ hdr : NMHDR;
+ dwMask : DWORD; //[in] Specifies the values requested .[out] Client ask the data to be set for future use
+ idCommand : cint; // [in] id of button we're requesting info for
+ lParam : DWORD_PTR; // [in] lParam of button
+ iImage : cint; // [out] image index
+ pszText : LPWSTR; // [out] new text for item
+ cchText : cint; // [in] size of buffer pointed to by pszText
+ END;
+ LPNMTBDISPINFOW = ^NMTBDISPINFOW;
+ TNMTBDISPINFOW = NMTBDISPINFOW;
+ PNMTBDISPINFOW = ^NMTBDISPINFOW;
+
+{$IFDEF UNICODE}
+CONST
+ TBN_GETDISPINFO = TBN_GETDISPINFOW;
+TYPE
+ NMTBDISPINFO = NMTBDISPINFOW;
+ LPNMTBDISPINFO = LPNMTBDISPINFOW;
+{$ELSE}
+CONST
+ TBN_GETDISPINFO = TBN_GETDISPINFOA;
+TYPE
+ NMTBDISPINFO = NMTBDISPINFOA;
+ LPNMTBDISPINFO = LPNMTBDISPINFOA;
+{$ENDIF}
+
+// Return codes for TBN_DROPDOWN
+
+CONST
+ TBDDRET_DEFAULT = 0;
+ TBDDRET_NODEFAULT = 1;
+ TBDDRET_TREATPRESSED = 2; // Treat as a standard press button
+
+{$ENDIF}
+{$IFDEF UNICODE}
+ TBN_GETBUTTONINFO = TBN_GETBUTTONINFOW;
+{$ELSE}
+ TBN_GETBUTTONINFO = TBN_GETBUTTONINFOA;
+{$ENDIF}
+TYPE
+
+{$ifdef ie3plus}
+ tagNMTOOLBARA = Record
+ hdr : NMHDR;
+ iItem : cint;
+ tbButton : TBBUTTON;
+ cchText : cint;
+ pszText : LPSTR;
+{$ifdef ie5plus}
+ rcButton : RECT;
+{$ENDIF}
+ END;
+ NMTOOLBARA = tagNMTOOLBARA;
+ LPNMTOOLBARA = ^tagNMTOOLBARA;
+ LPNMTOOLBAR = LPNMTOOLBARA;
+ TNMTOOLBARA = tagNMTOOLBARA;
+ PNMTOOLBARA = LPNMTOOLBARA;
+{$ENDIF}
+ LPTBNOTIFY = LPNMTOOLBARA;
+ TBNOTIFYA = NMTOOLBARA;
+
+
+{$ifdef ie3plus}
+ tagNMTOOLBARW = Record
+ hdr : NMHDR;
+ iItem : cint;
+ tbButton : TBBUTTON;
+ cchText : cint;
+ pszText : LPWSTR;
+{$ifdef ie5plus}
+ rcButton : RECT;
+{$ENDIF}
+ END;
+ NMTOOLBARW = tagNMTOOLBARW;
+ LPNMTOOLBARW = ^tagNMTOOLBARW;
+ TNMTOOLBARW = tagNMTOOLBARW;
+ PNMTOOLBARW = ^tagNMTOOLBARW;
+{$ENDIF}
+
+
+{$ifdef ie3plus}
+ TBNOTIFYW = NMTOOLBARW;
+ LPTBNOTIFYA = LPNMTOOLBARA;
+{$ELSE}
+ tagNMTOOLBARA = tagTBNOTIFYA;
+ NMTOOLBARA = TBNOTIFYA;
+ LPNMTOOLBARA = LPTBNOTIFYA;
+ tagNMTOOLBARW = tagTBNOTIFYW;
+ NMTOOLBARW = TBNOTIFYW;
+ LPNMTOOLBARW = LPTBNOTIFYW;
+{$ENDIF}
+
+
+{$IFDEF UNICODE}
+ NMTOOLBAR = NMTOOLBARW;
+ LPNMTOOLBAR = LPNMTOOLBARW;
+{$ELSE}
+ NMTOOLBAR = NMTOOLBARA;
+ TNMTOOLBAR = NMTOOLBARA;
+ PNMTOOLBAR = LPNMTOOLBARA;
+
+{$ENDIF}
+
+ TBNOTIFY = NMTOOLBAR;
+{$ENDIF}
+
+{$ENDIF} // NOTOOLBAR
+
+ LPTBNOTIFYW = LPNMTOOLBARW;
+
+{$ifdef ie3plus}
+//====== REBAR CONTROL ========================================================
+
+{$IFNDEF NOREBAR}
+
+{$IFDEF _WIN32}
+
+CONST
+ REBARCLASSNAMEW = {L}'ReBarWindow32';
+ REBARCLASSNAMEA = 'ReBarWindow32';
+
+{$IFDEF UNICODE}
+ REBARCLASSNAME = REBARCLASSNAMEW;
+{$ELSE}
+ REBARCLASSNAME = REBARCLASSNAMEA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ REBARCLASSNAME = 'ReBarWindow';
+{$ENDIF}
+
+CONST
+ RBIM_IMAGELIST = $00000001;
+
+// begin_r_commctrl
+
+{$ifdef ie4plus}
+ RBS_TOOLTIPS = $0100;
+ RBS_VARHEIGHT = $0200;
+ RBS_BANDBORDERS = $0400;
+ RBS_FIXEDORDER = $0800;
+ RBS_REGISTERDROP = $1000;
+ RBS_AUTOSIZE = $2000;
+ RBS_VERTICALGRIPPER = $4000; // this always has the vertical gripper (default for horizontal mode)
+ RBS_DBLCLKTOGGLE = $8000;
+{$ELSE}
+ RBS_TOOLTIPS = $00000100;
+ RBS_VARHEIGHT = $00000200;
+ RBS_BANDBORDERS = $00000400;
+ RBS_FIXEDORDER = $00000800;
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+
+// end_r_commctrl
+
+TYPE
+
+ tagREBARINFO = Record
+ cbSize : UINT;
+ fMask : UINT;
+{$IFNDEF NOIMAGEAPIS}
+ himl : HIMAGELIST;
+{$ELSE}
+ himl : HANDLE;
+{$ENDIF}
+ END;
+ REBARINFO = tagREBARINFO;
+ LPREBARINFO = ^tagREBARINFO;
+ TREBARINFO = tagREBARINFO;
+ PREBARINFO = ^tagREBARINFO;
+
+
+CONST
+ RBBS_BREAK = $00000001; // break to new line
+ RBBS_FIXEDSIZE = $00000002; // band can't be sized
+ RBBS_CHILDEDGE = $00000004; // edge around top & bottom of child window
+ RBBS_HIDDEN = $00000008; // don't show
+ RBBS_NOVERT = $00000010; // don't show when vertical
+ RBBS_FIXEDBMP = $00000020; // bitmap doesn't move during band resize
+{$ifdef ie4plus }
+ RBBS_VARIABLEHEIGHT = $00000040; // allow autosizing of this child vertically
+ RBBS_GRIPPERALWAYS = $00000080; // always show the gripper
+ RBBS_NOGRIPPER = $00000100; // never show the gripper
+{$ifdef ie5plus}
+ RBBS_USECHEVRON = $00000200; // display drop-down button for this band if it's sized smaller than ideal width
+{$ifdef IE501plus}
+ RBBS_HIDETITLE = $00000400; // keep band title hidden
+ RBBS_TOPALIGN = $00000800; // keep band title hidden
+{$ENDIF} // 0x0501 //
+{$ENDIF} // 0x0500 //
+{$ENDIF} // 0x0400 //
+
+ RBBIM_STYLE = $00000001;
+ RBBIM_COLORS = $00000002;
+ RBBIM_TEXT = $00000004;
+ RBBIM_IMAGE = $00000008;
+ RBBIM_CHILD = $00000010;
+ RBBIM_CHILDSIZE = $00000020;
+ RBBIM_SIZE = $00000040;
+ RBBIM_BACKGROUND = $00000080;
+ RBBIM_ID = $00000100;
+{$ifdef ie4plus}
+ RBBIM_IDEALSIZE = $00000200;
+ RBBIM_LPARAM = $00000400;
+ RBBIM_HEADERSIZE = $00000800; // control the size of the header
+{$ENDIF}
+{$ifdef win32vista}
+ RBBIM_CHEVRONLOCATION = $00001000;
+ RBBIM_CHEVRONSTATE = $00002000;
+{$endif}
+
+TYPE
+
+ tagREBARBANDINFOA = Record
+ cbSize : UINT;
+ fMask : UINT;
+ fStyle : UINT;
+ clrFore : COLORREF;
+ clrBack : COLORREF;
+ lpText : LPSTR;
+ cch : UINT;
+ iImage : cint;
+ hwndChild : HWND;
+ cxMinChild : UINT;
+ cyMinChild : UINT;
+ cx : UINT;
+ hbmBack : HBITMAP;
+ wID : UINT;
+{$ifdef ie4plus}
+ cyChild : UINT;
+ cyMaxChild : UINT;
+ cyIntegral : UINT;
+ cxIdeal : UINT;
+ lParam : LPARAM;
+ cxHeader : UINT;
+{$ENDIF}
+{$ifdef win32vista}
+ rcChevronLocation : RECT; // the rect is in client co-ord wrt hwndChild
+ uChevronState : cUINT; // STATE_SYSTEM_*
+{$endif}
+ END;
+ REBARBANDINFOA = tagREBARBANDINFOA;
+ LPREBARBANDINFOA = ^tagREBARBANDINFOA;
+ TREBARBANDINFOA = tagREBARBANDINFOA;
+ PREBARBANDINFOA = ^tagREBARBANDINFOA;
+
+ LPCREBARBANDINFOA = ^REBARBANDINFOA;
+
+// #define REBARBANDINFOA_V3_SIZE CCSIZEOF_STRUCT(REBARBANDINFOA, wID)
+// #define REBARBANDINFOW_V3_SIZE CCSIZEOF_STRUCT(REBARBANDINFOW, wID)
+
+ tagREBARBANDINFOW = Record
+ cbSize : UINT;
+ fMask : UINT;
+ fStyle : UINT;
+ clrFore : COLORREF;
+ clrBack : COLORREF;
+ lpText : LPWSTR;
+ cch : UINT;
+ iImage : cint;
+ hwndChild : HWND;
+ cxMinChild : UINT;
+ cyMinChild : UINT;
+ cx : UINT;
+ hbmBack : HBITMAP;
+ wID : UINT;
+{$ifdef ie4plus}
+ cyChild : UINT;
+ cyMaxChild : UINT;
+ cyIntegral : UINT;
+ cxIdeal : UINT;
+ lParam : LPARAM;
+ cxHeader : UINT;
+{$ENDIF}
+{$ifdef win32vista}
+ rcChevronLocation : RECT; // the rect is in client co-ord wrt hwndChild
+ uChevronState : cUINT; // STATE_SYSTEM_*
+{$endif}
+
+ END;
+ REBARBANDINFOW = tagREBARBANDINFOW;
+ LPREBARBANDINFOW = ^tagREBARBANDINFOW;
+ TREBARBANDINFOW = tagREBARBANDINFOW;
+ PREBARBANDINFOW = ^tagREBARBANDINFOW;
+
+ LPCREBARBANDINFOW = {const} ^REBARBANDINFOW;
+
+{$IFDEF UNICODE}
+ REBARBANDINFO = REBARBANDINFOW;
+ LPREBARBANDINFO = LPREBARBANDINFOW;
+ LPCREBARBANDINFO = LPCREBARBANDINFOW;
+
+// REBARBANDINFO_V3_SIZE = REBARBANDINFOW_V3_SIZE;
+{$ELSE}
+
+ REBARBANDINFO = REBARBANDINFOA;
+ LPREBARBANDINFO = LPREBARBANDINFOA;
+ LPCREBARBANDINFO = LPCREBARBANDINFOA;
+
+ TRebarBandInfo = REBARBANDINFO;
+ PRebarBandInfo = ^LPREBARBANDINFO;
+
+// REBARBANDINFO_V3_SIZE = REBARBANDINFOA_V3_SIZE;
+{$ENDIF}
+
+CONST
+ RB_INSERTBANDA = (WM_USER + 1);
+ RB_DELETEBAND = (WM_USER + 2);
+ RB_GETBARINFO = (WM_USER + 3);
+ RB_SETBARINFO = (WM_USER + 4);
+{$ifdef IE4plus}
+ RB_GETBANDINFO = (WM_USER + 5);
+ RB_GETBANDINFO_PRE_IE4 = (WM_USER + 5);
+{$ENDIF}
+ RB_SETBANDINFOA = (WM_USER + 6);
+ RB_SETPARENT = (WM_USER + 7);
+{$ifdef ie4plus}
+ RB_HITTEST = (WM_USER + 8);
+ RB_GETRECT = (WM_USER + 9);
+{$ENDIF}
+ RB_INSERTBANDW = (WM_USER + 10);
+ RB_SETBANDINFOW = (WM_USER + 11);
+ RB_GETBANDCOUNT = (WM_USER + 12);
+ RB_GETROWCOUNT = (WM_USER + 13);
+ RB_GETROWHEIGHT = (WM_USER + 14);
+{$ifdef ie4plus}
+ RB_IDTOINDEX = (WM_USER + 16); // wParam == id
+ RB_GETTOOLTIPS = (WM_USER + 17);
+ RB_SETTOOLTIPS = (WM_USER + 18);
+ RB_SETBKCOLOR = (WM_USER + 19); // sets the default BK color
+ RB_GETBKCOLOR = (WM_USER + 20); // defaults to CLR_NONE
+ RB_SETTEXTCOLOR = (WM_USER + 21);
+ RB_GETTEXTCOLOR = (WM_USER + 22); // defaults to 0x00000000
+
+{$ifdef Win32XP}
+ RBSTR_CHANGERECT = $0001; // flags for RB_SIZETORECT
+{$ENDIF}
+
+ RB_SIZETORECT = (WM_USER + 23); // resize the rebar/break bands and such to this rect (lparam)
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+ RB_SETCOLORSCHEME = CCM_SETCOLORSCHEME; // lParam is color scheme
+ RB_GETCOLORSCHEME = CCM_GETCOLORSCHEME; // fills in COLORSCHEME pointed to by lParam
+
+{$IFDEF UNICODE}
+ RB_INSERTBAND = RB_INSERTBANDW;
+ RB_SETBANDINFO = RB_SETBANDINFOW;
+{$ELSE}
+ RB_INSERTBAND = RB_INSERTBANDA;
+ RB_SETBANDINFO = RB_SETBANDINFOA;
+{$ENDIF}
+
+{$ifdef ie4plus}
+// for manual drag control
+// lparam == cursor pos
+ // -1 means do it yourself.
+ // -2 means use what you had saved before
+
+CONST
+ RB_BEGINDRAG = (WM_USER + 24);
+ RB_ENDDRAG = (WM_USER + 25);
+ RB_DRAGMOVE = (WM_USER + 26);
+ RB_GETBARHEIGHT = (WM_USER + 27);
+ RB_GETBANDINFOW = (WM_USER + 28);
+ RB_GETBANDINFOA = (WM_USER + 29);
+
+//TYPE
+{$IFDEF UNICODE}
+// RB_GETBANDINFO = RB_GETBANDINFOW;
+{$ELSE}
+// RB_GETBANDINFO = RB_GETBANDINFOA;
+{$ENDIF}
+
+CONST
+ RB_MINIMIZEBAND = (WM_USER + 30);
+ RB_MAXIMIZEBAND = (WM_USER + 31);
+
+ RB_GETDROPTARGET = (CCM_GETDROPTARGET);
+
+ RB_GETBANDBORDERS = (WM_USER + 34); // returns in lparam = lprc the amount of edges added to band wparam
+
+ RB_SHOWBAND = (WM_USER + 35); // show/hide band
+ RB_SETPALETTE = (WM_USER + 37);
+ RB_GETPALETTE = (WM_USER + 38);
+ RB_MOVEBAND = (WM_USER + 39);
+
+ RB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+ RB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+{$ifdef win32xp}
+ RB_GETBANDMARGINS = (WM_USER + 40);
+ RB_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
+{$ENDIF}
+{$ifdef win32vista}
+ RB_SETEXTENDEDSTYLE = (WM_USER + 41);
+ RB_GETEXTENDEDSTYLE = (WM_USER + 42);
+{$endif}
+
+{$ifdef ie5plus}
+ RB_PUSHCHEVRON = (WM_USER + 43);
+{$ENDIF} // _WIN32_IE >= 0x0500
+
+{$ifdef win32vista}
+ RB_SETBANDWIDTH = (WM_USER + 44); // set width for docked band
+{$endif}
+
+ RBN_HEIGHTCHANGE = (RBN_FIRST - 0);
+
+{$ifdef ie4plus}
+ RBN_GETOBJECT = (RBN_FIRST - 1);
+ RBN_LAYOUTCHANGED = (RBN_FIRST - 2);
+ RBN_AUTOSIZE = (RBN_FIRST - 3);
+ RBN_BEGINDRAG = (RBN_FIRST - 4);
+ RBN_ENDDRAG = (RBN_FIRST - 5);
+ RBN_DELETINGBAND = (RBN_FIRST - 6); // Uses NMREBAR
+ RBN_DELETEDBAND = (RBN_FIRST - 7); // Uses NMREBAR
+ RBN_CHILDSIZE = (RBN_FIRST - 8);
+
+{$ifdef ie5plus}
+ RBN_CHEVRONPUSHED = (RBN_FIRST - 10);
+{$ENDIF} // _WIN32_IE >= 0x0500
+{$ifdef win32vista}
+ RBN_SPLITTERDRAG = (RBN_FIRST - 11);
+{$endif}
+
+{$ifdef ie5plus}
+ RBN_MINMAX = (RBN_FIRST - 21);
+{$ENDIF}
+
+{$ifdef Win32XP}
+ RBN_AUTOBREAK = (RBN_FIRST - 22);
+{$ENDIF}
+
+TYPE
+
+ tagNMREBARCHILDSIZE = Record
+ hdr : NMHDR;
+ uBand : UINT;
+ wID : UINT;
+ rcChild : RECT;
+ rcBand : RECT;
+ END;
+ NMREBARCHILDSIZE = tagNMREBARCHILDSIZE;
+ LPNMREBARCHILDSIZE = ^tagNMREBARCHILDSIZE;
+ TNMREBARCHILDSIZE = tagNMREBARCHILDSIZE;
+ PNMREBARCHILDSIZE = ^tagNMREBARCHILDSIZE;
+
+
+ tagNMREBAR = Record
+ hdr : NMHDR;
+ dwMask : DWORD; // RBNM_*
+ uBand : UINT;
+ fStyle : UINT;
+ wID : UINT;
+ lParam : LPARAM;
+ END;
+ NMREBAR = tagNMREBAR;
+ LPNMREBAR = ^tagNMREBAR;
+ TNMREBAR = tagNMREBAR;
+ PNMREBAR = ^tagNMREBAR;
+
+// Mask flags for NMREBAR
+
+CONST
+ RBNM_ID = $00000001;
+ RBNM_STYLE = $00000002;
+ RBNM_LPARAM = $00000004;
+
+TYPE
+
+ tagNMRBAUTOSIZE = Record
+ hdr : NMHDR;
+ fChanged : BOOL;
+ rcTarget : RECT;
+ rcActual : RECT;
+ END;
+ NMRBAUTOSIZE = tagNMRBAUTOSIZE;
+ LPNMRBAUTOSIZE = ^tagNMRBAUTOSIZE;
+ TNMRBAUTOSIZE = tagNMRBAUTOSIZE;
+ PNMRBAUTOSIZE = ^tagNMRBAUTOSIZE;
+
+
+{$ifdef ie5plus}
+ tagNMREBARCHEVRON = Record
+ hdr : NMHDR;
+ uBand : UINT;
+ wID : UINT;
+ lParam : LPARAM;
+ rc : RECT;
+ lParamNM : LPARAM;
+ END;
+ NMREBARCHEVRON = tagNMREBARCHEVRON;
+ LPNMREBARCHEVRON = ^tagNMREBARCHEVRON;
+ TNMREBARCHEVRON = tagNMREBARCHEVRON;
+ PNMREBARCHEVRON = ^tagNMREBARCHEVRON;
+
+{$ENDIF}
+{$ifdef win32vista}
+ tagNMREBARSPLITTER = record
+ hdr: NMHDR;
+ rcSizing: RECT;
+ end;
+ NMREBARSPLITTER = tagNMREBARSPLITTER;
+ LPNMREBARSPLITTER = ^tagNMREBARSPLITTER;
+ TNMREBARSPLITTER = tagNMREBARSPLITTER;
+ PNMREBARSPLITTER = LPNMREBARSPLITTER;
+{$endif}
+
+{$ifdef Win32XP}
+CONST
+ RBAB_AUTOSIZE = $0001; // These are not flags and are all mutually exclusive
+ RBAB_ADDBAND = $0002;
+
+TYPE
+
+ tagNMREBARAUTOBREAK = Record
+ hdr : NMHDR;
+ uBand : UINT;
+ wID : UINT;
+ lParam : LPARAM;
+ uMsg : UINT;
+ fStyleCurrent : UINT;
+ fAutoBreak : BOOL;
+ END;
+ NMREBARAUTOBREAK = tagNMREBARAUTOBREAK;
+ LPNMREBARAUTOBREAK = ^tagNMREBARAUTOBREAK;
+ TNMREBARAUTOBREAK = tagNMREBARAUTOBREAK;
+ PNMREBARAUTOBREAK = ^tagNMREBARAUTOBREAK;
+
+{$ENDIF}
+
+CONST
+ RBHT_NOWHERE = $0001;
+ RBHT_CAPTION = $0002;
+ RBHT_CLIENT = $0003;
+ RBHT_GRABBER = $0004;
+{$ifdef ie5plus}
+ RBHT_CHEVRON = $0008;
+{$ENDIF}
+{$ifdef win32vista}
+ RBHT_SPLITTER = $0010;
+{$endif}
+
+TYPE
+ _RB_HITTESTINFO = Record
+ pt : POINT;
+ flags : UINT;
+ iBand : cint;
+ END;
+ RBHITTESTINFO = _RB_HITTESTINFO;
+ LPRBHITTESTINFO = ^_RB_HITTESTINFO;
+ TRB_HITTESTINFO = _RB_HITTESTINFO;
+ PRB_HITTESTINFO = ^_RB_HITTESTINFO;
+ PRBHitTestInfo = PRB_HITTESTINFO;
+ TRBHitTestInfo = TRB_HITTESTINFO;
+
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+{$ENDIF} // NOREBAR
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+//====== TOOLTIPS CONTROL =====================================================
+
+{$IFNDEF NOTOOLTIPS}
+
+{$IFDEF _WIN32}
+
+CONST
+ TOOLTIPS_CLASSW = {L}'tooltips_class32';
+ TOOLTIPS_CLASSA = 'tooltips_class32';
+
+{$IFDEF UNICODE}
+ TOOLTIPS_CLASS = TOOLTIPS_CLASSW;
+{$ELSE}
+ TOOLTIPS_CLASS = TOOLTIPS_CLASSA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ TOOLTIPS_CLASS = 'tooltips_class';
+{$ENDIF}
+
+
+
+TYPE
+
+ tagTOOLINFOA = Record
+ cbSize : UINT;
+ uFlags : UINT;
+ hwnd : HWND;
+ uId : UINT_PTR;
+ rect : RECT;
+ hinst : HINST;
+ lpszText : LPSTR;
+{$ifdef ie3plus}
+ lParam : LPARAM;
+{$ENDIF}
+{$ifdef Win32XP}
+ lpReserved : Pointer;
+{$ENDIF}
+ END;
+ TTTOOLINFOA = tagTOOLINFOA;
+ PTOOLINFOA = {near} ^tagTOOLINFOA;
+ LPTTTOOLINFOA = ^tagTOOLINFOA;
+ TTOOLINFOA = tagTOOLINFOA;
+ LPTOOLINFOA = ^tagTOOLINFOA;
+
+
+ tagTOOLINFOW = Record
+ cbSize : UINT;
+ uFlags : UINT;
+ hwnd : HWND;
+ uId : UINT_PTR;
+ rect : RECT;
+ hinst : HINST;
+ lpszText : LPWSTR;
+{$ifdef ie3plus}
+ lParam : LPARAM;
+{$ENDIF}
+{$ifdef Win32XP}
+ lpReserved : Pointer;
+{$ENDIF}
+ END;
+ TTTOOLINFOW = tagTOOLINFOW;
+ PTOOLINFOW = {near} ^tagTOOLINFOW;
+ LPTTTOOLINFOW = ^tagTOOLINFOW;
+ TTOOLINFOW = tagTOOLINFOW;
+ LPTOOLINFOW = ^tagTOOLINFOW;
+
+
+{$IFDEF UNICODE}
+ TTTOOLINFO = TTTOOLINFOW;
+ PTOOLINFO = PTOOLINFOW;
+ LPTTTOOLINFO = LPTTTOOLINFOW;
+// TTTOOLINFO_V1_SIZE = TTTOOLINFOW_V1_SIZE;
+{$ELSE}
+ PTOOLINFO = PTOOLINFOA;
+ TTTOOLINFO = TTTOOLINFOA;
+ LPTTTOOLINFO = LPTTTOOLINFOA;
+// TTTOOLINFO_V1_SIZE = TTTOOLINFOA_V1_SIZE;
+{$ENDIF}
+
+
+TYPE
+
+{$ifdef ie3plus}
+// LPTOOLINFOA = LPTTTOOLINFOA;
+// LPTOOLINFOW = LPTTTOOLINFOW;
+ TOOLINFOA = TTTOOLINFOA;
+ TOOLINFOW = TTTOOLINFOW;
+{$ELSE}
+// TTTOOLINFOA = TOOLINFOA;
+// LPTTTOOLINFOA = LPTOOLINFOA;
+// TTTOOLINFOW = TOOLINFOW;
+// LPTTTOOLINFOW = LPTOOLINFOW;
+{$ENDIF}
+
+
+
+ LPTOOLINFO = LPTTTOOLINFO;
+
+ TOOLINFO = TTTOOLINFO;
+
+// #define TTTOOLINFOA_V1_SIZE CCSIZEOF_STRUCT(TTTOOLINFOA, lpszText)
+// #define TTTOOLINFOW_V1_SIZE CCSIZEOF_STRUCT(TTTOOLINFOW, lpszText)
+// #define TTTOOLINFOA_V2_SIZE CCSIZEOF_STRUCT(TTTOOLINFOA, lParam)
+// #define TTTOOLINFOW_V2_SIZE CCSIZEOF_STRUCT(TTTOOLINFOW, lParam)
+// #define TTTOOLINFOA_V3_SIZE CCSIZEOF_STRUCT(TTTOOLINFOA, lpReserved)
+// #define TTTOOLINFOW_V3_SIZE CCSIZEOF_STRUCT(TTTOOLINFOW, lpReserved)
+
+
+CONST
+// begin_r_commctrl
+
+ TTS_ALWAYSTIP = $01;
+ TTS_NOPREFIX = $02;
+{$ifdef ie5plus}
+ TTS_NOANIMATE = $10;
+ TTS_NOFADE = $20;
+ TTS_BALLOON = $40;
+ TTS_CLOSE = $80;
+{$ENDIF}
+{$ifdef win32vista}
+ TTS_USEVISUALSTYLE = $100; // Use themed hyperlinks
+{$endif}
+
+// end_r_commctrl
+
+ TTF_IDISHWND = $0001;
+
+// Use this to center around trackpoint in trackmode
+// -OR- to center around tool in normal mode.
+// Use TTF_ABSOLUTE to place the tip exactly at the track coords when
+// in tracking mode. TTF_ABSOLUTE can be used in conjunction with TTF_CENTERTIP
+// to center the tip absolutely about the track point.
+
+ TTF_CENTERTIP = $0002;
+ TTF_RTLREADING = $0004;
+ TTF_SUBCLASS = $0010;
+{$ifdef ie3plus}
+ TTF_TRACK = $0020;
+ TTF_ABSOLUTE = $0080;
+ TTF_TRANSPARENT = $0100;
+{$ifdef ie501plus}
+ TTF_PARSELINKS = $1000;
+{$ENDIF} // _WIN32_IE >= 0x0501
+ TTF_DI_SETITEM = $8000; // valid only on the TTN_NEEDTEXT callback
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+
+ TTDT_AUTOMATIC = 0;
+ TTDT_RESHOW = 1;
+ TTDT_AUTOPOP = 2;
+ TTDT_INITIAL = 3;
+
+// ToolTip Icons (Set with TTM_SETTITLE)
+ TTI_NONE = 0;
+ TTI_INFO = 1;
+ TTI_WARNING = 2;
+ TTI_ERROR = 3;
+{$ifdef win32vista}
+ TTI_INFO_LARGE = 4;
+ TTI_WARNING_LARGE = 5;
+ TTI_ERROR_LARGE = 6;
+{$endif}
+
+// Tool Tip Messages
+ TTM_ACTIVATE = (WM_USER + 1);
+ TTM_SETDELAYTIME = (WM_USER + 3);
+ TTM_ADDTOOLA = (WM_USER + 4);
+ TTM_ADDTOOLW = (WM_USER + 50);
+ TTM_DELTOOLA = (WM_USER + 5);
+ TTM_DELTOOLW = (WM_USER + 51);
+ TTM_NEWTOOLRECTA = (WM_USER + 6);
+ TTM_NEWTOOLRECTW = (WM_USER + 52);
+ TTM_RELAYEVENT = (WM_USER + 7);
+
+ TTM_GETTOOLINFOA = (WM_USER + 8);
+ TTM_GETTOOLINFOW = (WM_USER + 53);
+
+ TTM_SETTOOLINFOA = (WM_USER + 9);
+ TTM_SETTOOLINFOW = (WM_USER + 54);
+
+ TTM_HITTESTA = (WM_USER + 10);
+ TTM_HITTESTW = (WM_USER + 55);
+ TTM_GETTEXTA = (WM_USER + 11);
+ TTM_GETTEXTW = (WM_USER + 56);
+ TTM_UPDATETIPTEXTA = (WM_USER + 12);
+ TTM_UPDATETIPTEXTW = (WM_USER + 57);
+ TTM_GETTOOLCOUNT = (WM_USER + 13);
+ TTM_ENUMTOOLSA = (WM_USER + 14);
+ TTM_ENUMTOOLSW = (WM_USER + 58);
+ TTM_GETCURRENTTOOLA = (WM_USER + 15);
+ TTM_GETCURRENTTOOLW = (WM_USER + 59);
+ TTM_WINDOWFROMPOINT = (WM_USER + 16);
+{$ifdef ie3plus}
+ TTM_TRACKACTIVATE = (WM_USER + 17); // wParam = TRUE/FALSE start end lparam = LPTOOLINFO
+ TTM_TRACKPOSITION = (WM_USER + 18); // lParam = dwPos
+ TTM_SETTIPBKCOLOR = (WM_USER + 19);
+ TTM_SETTIPTEXTCOLOR = (WM_USER + 20);
+ TTM_GETDELAYTIME = (WM_USER + 21);
+ TTM_GETTIPBKCOLOR = (WM_USER + 22);
+ TTM_GETTIPTEXTCOLOR = (WM_USER + 23);
+ TTM_SETMAXTIPWIDTH = (WM_USER + 24);
+ TTM_GETMAXTIPWIDTH = (WM_USER + 25);
+ TTM_SETMARGIN = (WM_USER + 26); // lParam = lprc
+ TTM_GETMARGIN = (WM_USER + 27); // lParam = lprc
+ TTM_POP = (WM_USER + 28);
+{$ENDIF}
+{$ifdef ie4plus}
+ TTM_UPDATE = (WM_USER + 29);
+{$ENDIF}
+{$ifdef ie5plus}
+ TTM_GETBUBBLESIZE = (WM_USER + 30);
+ TTM_ADJUSTRECT = (WM_USER + 31);
+ TTM_SETTITLEA = (WM_USER + 32); // wParam = TTI_*, lParam = char* szTitle
+ TTM_SETTITLEW = (WM_USER + 33); // wParam = TTI_*, lParam = wchar* szTitle
+{$ENDIF}
+
+{$ifdef Win32XP}
+ TTM_POPUP = (WM_USER + 34);
+ TTM_GETTITLE = (WM_USER + 35); // wParam = 0, lParam = TTGETTITLE*
+
+TYPE
+
+ _TTGETTITLE = Record
+ dwSize : DWORD;
+ uTitleBitmap : UINT;
+ cch : UINT;
+ pszTitle : PWCHAR;
+ END;
+ TTGETTITLE = _TTGETTITLE;
+ PTTGETTITLE = ^_TTGETTITLE;
+ TTTGETTITLE = _TTGETTITLE;
+ PTTTGETTITLE = ^TTTGETTITLE;
+
+{$ENDIF}
+
+const
+{$IFDEF UNICODE}
+ TTM_ADDTOOL = TTM_ADDTOOLW;
+ TTM_DELTOOL = TTM_DELTOOLW;
+ TTM_NEWTOOLRECT = TTM_NEWTOOLRECTW;
+ TTM_GETTOOLINFO = TTM_GETTOOLINFOW;
+ TTM_SETTOOLINFO = TTM_SETTOOLINFOW;
+ TTM_HITTEST = TTM_HITTESTW;
+ TTM_GETTEXT = TTM_GETTEXTW;
+ TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTW;
+ TTM_ENUMTOOLS = TTM_ENUMTOOLSW;
+ TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLW;
+{$ifdef ie5plus}
+ TTM_SETTITLE = TTM_SETTITLEW;
+{$ENDIF}
+{$ELSE}
+ TTM_ADDTOOL = TTM_ADDTOOLA;
+ TTM_DELTOOL = TTM_DELTOOLA;
+ TTM_NEWTOOLRECT = TTM_NEWTOOLRECTA;
+ TTM_GETTOOLINFO = TTM_GETTOOLINFOA;
+ TTM_SETTOOLINFO = TTM_SETTOOLINFOA;
+ TTM_HITTEST = TTM_HITTESTA;
+ TTM_GETTEXT = TTM_GETTEXTA;
+ TTM_UPDATETIPTEXT = TTM_UPDATETIPTEXTA;
+ TTM_ENUMTOOLS = TTM_ENUMTOOLSA;
+ TTM_GETCURRENTTOOL = TTM_GETCURRENTTOOLA;
+{$ifdef ie5plus}
+ TTM_SETTITLE = TTM_SETTITLEA;
+{$ENDIF}
+{$ENDIF}
+
+{$ifdef win32xp}
+CONST
+ TTM_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
+{$ENDIF}
+
+
+TYPE
+
+
+ _TT_HITTESTINFOA = Record
+ hwnd : HWND;
+ pt : POINT;
+ ti : TTTOOLINFOA;
+ END;
+ TTHITTESTINFOA = _TT_HITTESTINFOA;
+ LPTTHITTESTINFOA = ^_TT_HITTESTINFOA;
+ TTT_HITTESTINFOA = _TT_HITTESTINFOA;
+ PTT_HITTESTINFOA = ^_TT_HITTESTINFOA;
+
+
+
+ _TT_HITTESTINFOW = Record
+ hwnd : HWND;
+ pt : POINT;
+ ti : TTTOOLINFOW;
+ END;
+ TTHITTESTINFOW = _TT_HITTESTINFOW;
+ LPTTHITTESTINFOW = ^_TT_HITTESTINFOW;
+ TTT_HITTESTINFOW = _TT_HITTESTINFOW;
+ PTT_HITTESTINFOW = ^_TT_HITTESTINFOW;
+
+{$IFDEF UNICODE}
+ TTHITTESTINFO = TTHITTESTINFOW;
+ LPTTHITTESTINFO = LPTTHITTESTINFOW;
+{$ELSE}
+ TTHITTESTINFO = TTHITTESTINFOA;
+ LPTTHITTESTINFO = LPTTHITTESTINFOA;
+{$ENDIF}
+ LPHITTESTINFO = LPTTHITTESTINFO;
+{$ifdef ie3plus}
+ LPHITTESTINFOW = LPTTHITTESTINFOW;
+ LPHITTESTINFOA = LPTTHITTESTINFOA;
+{$ELSE}
+// LPTTHITTESTINFOA = LPHITTESTINFOA;
+// LPTTHITTESTINFOW = LPHITTESTINFOW;
+{$ENDIF}
+
+CONST
+ TTN_GETDISPINFOA = (TTN_FIRST - 0);
+ TTN_GETDISPINFOW = (TTN_FIRST - 10);
+ TTN_SHOW = (TTN_FIRST - 1);
+ TTN_POP = (TTN_FIRST - 2);
+ TTN_LINKCLICK = (TTN_FIRST - 3);
+
+CONST
+{$IFDEF UNICODE}
+ TTN_GETDISPINFO = TTN_GETDISPINFOW;
+{$ELSE}
+ TTN_GETDISPINFO = TTN_GETDISPINFOA;
+{$ENDIF}
+
+CONST
+ TTN_NEEDTEXT = TTN_GETDISPINFO;
+
+
+ TTN_NEEDTEXTA = TTN_GETDISPINFOA;
+ TTN_NEEDTEXTW = TTN_GETDISPINFOW;
+
+
+
+
+
+TYPE
+
+
+// #define NMTTDISPINFOA_V1_SIZE CCSIZEOF_STRUCT(NMTTDISPINFOA, uFlags)
+// #define NMTTDISPINFOW_V1_SIZE CCSIZEOF_STRUCT(NMTTDISPINFOW, uFlags)
+
+ tagNMTTDISPINFOA = Record
+ hdr : NMHDR;
+ lpszText : LPSTR;
+ szText : Array[0..79] of char;
+ hinst : HINST;
+ uFlags : UINT;
+{$ifdef ie3plus}
+ lParam : LPARAM;
+{$ENDIF}
+ END;
+ NMTTDISPINFOA = tagNMTTDISPINFOA;
+ LPNMTTDISPINFOA = ^tagNMTTDISPINFOA;
+ TNMTTDISPINFOA = tagNMTTDISPINFOA;
+ PNMTTDISPINFOA = ^tagNMTTDISPINFOA;
+
+
+ tagNMTTDISPINFOW = Record
+ hdr : NMHDR;
+ lpszText : LPWSTR;
+ szText : Array[0..79] of WCHAR;
+ hinst : HINST;
+ uFlags : UINT;
+{$ifdef ie3plus}
+ lParam : LPARAM;
+{$ENDIF}
+ END;
+ NMTTDISPINFOW = tagNMTTDISPINFOW;
+ LPNMTTDISPINFOW = ^tagNMTTDISPINFOW;
+ TNMTTDISPINFOW = tagNMTTDISPINFOW;
+ PNMTTDISPINFOW = ^tagNMTTDISPINFOW;
+
+{$ifdef ie3plus}
+ TOOLTIPTEXTW = NMTTDISPINFOW;
+ TOOLTIPTEXTA = NMTTDISPINFOA;
+ LPTOOLTIPTEXTA = LPNMTTDISPINFOA;
+ LPTOOLTIPTEXTW = LPNMTTDISPINFOW;
+ TTOOLTIPTEXTW = NMTTDISPINFOW;
+ PTOOLTIPTEXTW = LPNMTTDISPINFOW;
+{$ELSE}
+// tagNMTTDISPINFOA = tagTOOLTIPTEXTA;
+ NMTTDISPINFOA = TOOLTIPTEXTA;
+// LPNMTTDISPINFOA = LPTOOLTIPTEXTA;
+ tagNMTTDISPINFOW = tagTOOLTIPTEXTW;
+ NMTTDISPINFOW = TOOLTIPTEXTW;
+ LPNMTTDISPINFOW = LPTOOLTIPTEXTW;
+{$ENDIF}
+
+TYPE
+
+{$IFDEF UNICODE}
+ NMTTDISPINFO = NMTTDISPINFOW;
+ LPNMTTDISPINFO = LPNMTTDISPINFOW;
+// NMTTDISPINFO_V1_SIZE = NMTTDISPINFOW_V1_SIZE;
+{$ELSE}
+ NMTTDISPINFO = NMTTDISPINFOA;
+ LPNMTTDISPINFO = LPNMTTDISPINFOA;
+// NMTTDISPINFO_V1_SIZE = NMTTDISPINFOA_V1_SIZE;
+{$ENDIF}
+
+ TOOLTIPTEXT = NMTTDISPINFO;
+ LPTOOLTIPTEXT = LPNMTTDISPINFO;
+
+{$ENDIF} // NOTOOLTIPS
+
+
+//====== STATUS BAR CONTROL ===================================================
+
+{$IFNDEF NOSTATUSBAR}
+
+// begin_r_commctrl
+CONST
+ SBARS_SIZEGRIP = $0100;
+{$ifdef ie5plus}
+ SBARS_TOOLTIPS = $0800;
+{$ENDIF}
+
+{$ifdef ie4plus}
+// this is a status bar flag, preference to SBARS_TOOLTIPS
+ SBT_TOOLTIPS = $0800;
+{$ENDIF}
+
+// end_r_commctrl
+
+procedure DrawStatusTextA(hDC:HDC;lprc:LPRECT;pszText:LPCSTR;uFlags:UINT); stdcall; external commctrldll name 'DrawStatusTextA';
+Procedure DrawStatusTextW(hDC:HDC;lprc:LPRECT;pszText:LPCWSTR;uFlags:UINT); stdcall; external commctrldll name 'DrawStatusTextW';
+
+function CreateStatusWindowA(style:LONG;lpszText:LPCSTR;hwndParent:HWND;wID:UINT):HWND; stdcall; external commctrldll name 'CreateStatusWindowA';
+function CreateStatusWindowW(style:LONG;lpszText:LPCWSTR;hwndParent:HWND;wID:UINT):HWND; stdcall; external commctrldll name 'CreateStatusWindowW';
+
+function CreateStatusWindow(style:LONG;lpszText:LPCSTR;hwndParent:HWND;wID:UINT):HWND; stdcall; external commctrldll name 'CreateStatusWindowA';
+procedure DrawStatusText(hDC:HDC;lprc:LPRECT;pszText:LPCSTR;uFlags:UINT); stdcall; external commctrldll name 'DrawStatusTextA';
+function CreateStatusWindow(style:LONG;lpszText:LPCWSTR;hwndParent:HWND;wID:UINT):HWND; stdcall; external commctrldll name 'CreateStatusWindowW';
+Procedure DrawStatusText(hDC:HDC;lprc:LPRECT;pszText:LPCWSTR;uFlags:UINT); stdcall; external commctrldll name 'DrawStatusTextW';
+
+CONST
+{$IFDEF _WIN32}
+ STATUSCLASSNAMEW = {L}'msctls_statusbar32';
+ STATUSCLASSNAMEA = 'msctls_statusbar32';
+
+{$IFDEF UNICODE}
+ STATUSCLASSNAME = STATUSCLASSNAMEW;
+{$ELSE}
+ STATUSCLASSNAME = STATUSCLASSNAMEA;
+{$ENDIF}
+{$ELSE}
+ STATUSCLASSNAME = 'msctls_statusbar';
+{$ENDIF}
+
+ SB_SETTEXTA = (WM_USER+1);
+ SB_SETTEXTW = (WM_USER+11);
+ SB_GETTEXTA = (WM_USER+2);
+ SB_GETTEXTW = (WM_USER+13);
+ SB_GETTEXTLENGTHA = (WM_USER+3);
+ SB_GETTEXTLENGTHW = (WM_USER+12);
+
+
+ SB_SETPARTS = (WM_USER+4);
+ SB_GETPARTS = (WM_USER+6);
+ SB_GETBORDERS = (WM_USER+7);
+ SB_SETMINHEIGHT = (WM_USER+8);
+ SB_SIMPLE = (WM_USER+9);
+ SB_GETRECT = (WM_USER+10);
+{$ifdef ie3plus}
+ SB_ISSIMPLE = (WM_USER+14);
+{$ENDIF}
+{$ifdef ie4plus}
+ SB_SETICON = (WM_USER+15);
+ SB_SETTIPTEXTA = (WM_USER+16);
+ SB_SETTIPTEXTW = (WM_USER+17);
+ SB_GETTIPTEXTA = (WM_USER+18);
+ SB_GETTIPTEXTW = (WM_USER+19);
+ SB_GETICON = (WM_USER+20);
+ SB_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+ SB_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+{$ENDIF}
+{$IFDEF UNICODE}
+ SB_GETTEXT = SB_GETTEXTW;
+ SB_SETTEXT = SB_SETTEXTW;
+ SB_GETTEXTLENGTH = SB_GETTEXTLENGTHW;
+{$ifdef ie4plus}
+ SB_SETTIPTEXT = SB_SETTIPTEXTW;
+ SB_GETTIPTEXT = SB_GETTIPTEXTW;
+{$ENDIF}
+{$ELSE}
+ SB_GETTEXT = SB_GETTEXTA;
+ SB_SETTEXT = SB_SETTEXTA;
+ SB_GETTEXTLENGTH = SB_GETTEXTLENGTHA;
+{$ifdef ie4plus}
+ SB_SETTIPTEXT = SB_SETTIPTEXTA;
+ SB_GETTIPTEXT = SB_GETTIPTEXTA;
+{$ENDIF}
+{$ENDIF}
+
+ SBT_OWNERDRAW = $1000;
+ SBT_NOBORDERS = $0100;
+ SBT_POPOUT = $0200;
+ SBT_RTLREADING = $0400;
+{$ifdef ie5plus}
+ SBT_NOTABPARSING = $0800;
+{$ENDIF}
+
+ SB_SETBKCOLOR = CCM_SETBKCOLOR; // lParam = bkColor
+
+/// status bar notifications
+{$ifdef ie4plus}
+ SBN_SIMPLEMODECHANGE = (SBN_FIRST - 0);
+{$ENDIF}
+
+{$ifdef ie5plus}
+// refers to the data saved for simple mode
+ SB_SIMPLEID = $00ff;
+{$ENDIF}
+
+{$ENDIF} // NOSTATUSBAR
+
+//====== MENU HELP ============================================================
+
+{$IFNDEF NOMENUHELP}
+
+Procedure MenuHelp(uMsg:UINT;wParam:WPARAM;lParam:LPARAM;hMainMenu:HMENU;hInst:HINST;hwndStatus:HWND;lpwIDs:PUINT); stdcall; external commctrldll name 'MenuHelp';
+function ShowHideMenuCtl(hWnd:HWND;uFlags:UINT_PTR;lpInfo:LPINT):BOOL; stdcall; external commctrldll name 'ShowHideMenuCtl';
+Procedure GetEffectiveClientRect(hWnd:HWND;lprc:LPRECT;lpInfo:LPINT); stdcall; external commctrldll name 'GetEffectiveClientRect';
+
+CONST
+ MINSYSCOMMAND = SC_SIZE;
+{$ENDIF}
+
+
+//====== TRACKBAR CONTROL =====================================================
+
+{$IFNDEF NOTRACKBAR}
+
+CONST
+
+{$IFDEF _WIN32}
+
+ TRACKBAR_CLASSA = 'msctls_trackbar32';
+ TRACKBAR_CLASSW = {L}'msctls_trackbar32';
+
+{$IFDEF UNICODE}
+ TRACKBAR_CLASS = TRACKBAR_CLASSW;
+{$ELSE}
+ TRACKBAR_CLASS = TRACKBAR_CLASSA;
+{$ENDIF}
+{$ELSE}
+ TRACKBAR_CLASS = 'msctls_trackbar';
+{$ENDIF}
+
+// begin_r_commctrl
+
+ TBS_AUTOTICKS = $0001;
+ TBS_VERT = $0002;
+ TBS_HORZ = $0000;
+ TBS_TOP = $0004;
+ TBS_BOTTOM = $0000;
+ TBS_LEFT = $0004;
+ TBS_RIGHT = $0000;
+ TBS_BOTH = $0008;
+ TBS_NOTICKS = $0010;
+ TBS_ENABLESELRANGE = $0020;
+ TBS_FIXEDLENGTH = $0040;
+ TBS_NOTHUMB = $0080;
+{$ifdef ie3plus}
+ TBS_TOOLTIPS = $0100;
+{$ENDIF}
+{$ifdef ie5plus}
+ TBS_REVERSED = $0200; // Accessibility hint: the smaller number (usually the min value) means "high" and the larger number (usually the max value) means "low"
+{$ENDIF}
+
+{$ifdef ie501plus}
+ TBS_DOWNISLEFT = $0400; // Down=Left and Up=Right (default is Down=Right and Up=Left)
+{$ENDIF}
+{$ifdef win32vista}
+ TBS_NOTIFYBEFOREMOVE = $0800; // Trackbar should notify parent before repositioning the slider due to user action (enables snapping)
+{$endif}
+{$ifdef NTDDI_VISTA}
+ TBS_TRANSPARENTBKGND = $1000; // Background is painted by the parent via WM_PRINTCLIENT
+{$endif}
+
+// end_r_commctrl
+
+ TBM_GETPOS = (WM_USER);
+ TBM_GETRANGEMIN = (WM_USER+1);
+ TBM_GETRANGEMAX = (WM_USER+2);
+ TBM_GETTIC = (WM_USER+3);
+ TBM_SETTIC = (WM_USER+4);
+ TBM_SETPOS = (WM_USER+5);
+ TBM_SETRANGE = (WM_USER+6);
+ TBM_SETRANGEMIN = (WM_USER+7);
+ TBM_SETRANGEMAX = (WM_USER+8);
+ TBM_CLEARTICS = (WM_USER+9);
+ TBM_SETSEL = (WM_USER+10);
+ TBM_SETSELSTART = (WM_USER+11);
+ TBM_SETSELEND = (WM_USER+12);
+ TBM_GETPTICS = (WM_USER+14);
+ TBM_GETTICPOS = (WM_USER+15);
+ TBM_GETNUMTICS = (WM_USER+16);
+ TBM_GETSELSTART = (WM_USER+17);
+ TBM_GETSELEND = (WM_USER+18);
+ TBM_CLEARSEL = (WM_USER+19);
+ TBM_SETTICFREQ = (WM_USER+20);
+ TBM_SETPAGESIZE = (WM_USER+21);
+ TBM_GETPAGESIZE = (WM_USER+22);
+ TBM_SETLINESIZE = (WM_USER+23);
+ TBM_GETLINESIZE = (WM_USER+24);
+ TBM_GETTHUMBRECT = (WM_USER+25);
+ TBM_GETCHANNELRECT = (WM_USER+26);
+ TBM_SETTHUMBLENGTH = (WM_USER+27);
+ TBM_GETTHUMBLENGTH = (WM_USER+28);
+{$ifdef ie3plus}
+ TBM_SETTOOLTIPS = (WM_USER+29);
+ TBM_GETTOOLTIPS = (WM_USER+30);
+ TBM_SETTIPSIDE = (WM_USER+31);
+// TrackBar Tip Side flags
+ TBTS_TOP = 0;
+ TBTS_LEFT = 1;
+ TBTS_BOTTOM = 2;
+ TBTS_RIGHT = 3;
+
+ TBM_SETBUDDY = (WM_USER+32); // wparam = BOOL fLeft; (or right)
+ TBM_GETBUDDY = (WM_USER+33); // wparam = BOOL fLeft; (or right)
+{$ENDIF}
+{$ifdef ie4plus}
+ TBM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+ TBM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+{$ENDIF}
+
+
+ TB_LINEUP = 0;
+ TB_LINEDOWN = 1;
+ TB_PAGEUP = 2;
+ TB_PAGEDOWN = 3;
+ TB_THUMBPOSITION = 4;
+ TB_THUMBTRACK = 5;
+ TB_TOP = 6;
+ TB_BOTTOM = 7;
+ TB_ENDTRACK = 8;
+
+
+{$ifdef ie3plus}
+// custom draw item specs
+ TBCD_TICS = $0001;
+ TBCD_THUMB = $0002;
+ TBCD_CHANNEL = $0003;
+{$ENDIF}
+{$ifdef win32vista}
+ TRBN_THUMBPOSCHANGING = (TRBN_FIRST-1);
+{$endif}
+{$ENDIF} // trackbar
+
+//====== DRAG LIST CONTROL ====================================================
+
+{$IFNDEF NODRAGLIST}
+TYPE
+
+ tagDRAGLISTINFO = Record
+ uNotification : UINT;
+ hWnd : HWND;
+ ptCursor : POINT;
+ END;
+ DRAGLISTINFO = tagDRAGLISTINFO;
+ LPDRAGLISTINFO = ^tagDRAGLISTINFO;
+ TDRAGLISTINFO = tagDRAGLISTINFO;
+ PDRAGLISTINFO = ^tagDRAGLISTINFO;
+
+
+
+CONST
+ DL_BEGINDRAG = (WM_USER+133);
+ DL_DRAGGING = (WM_USER+134);
+ DL_DROPPED = (WM_USER+135);
+ DL_CANCELDRAG = (WM_USER+136);
+
+ DL_CURSORSET = 0;
+ DL_STOPCURSOR = 1;
+ DL_COPYCURSOR = 2;
+ DL_MOVECURSOR = 3;
+
+ DRAGLISTMSGSTRING = 'commctrl_DragListMsg'; // TEXT("commctrl_DragListMsg");
+
+function MakeDragList(hLB:HWND):BOOL; stdcall; external commctrldll name 'MakeDragList';
+Procedure DrawInsert(handParent:HWND;hLB:HWND;nItem:cint); stdcall; external commctrldll name 'DrawInsert';
+function LBItemFromPt(hLB:HWND;pt:POINT;bAutoScroll:BOOL):cint; stdcall; external commctrldll name 'LBItemFromPt';
+
+{$ENDIF}
+
+//====== UPDOWN CONTROL =======================================================
+
+{$IFNDEF NOUPDOWN}
+CONST
+{$IFDEF _WIN32}
+
+ UPDOWN_CLASSA = 'msctls_updown32';
+ UPDOWN_CLASSW = {L}'msctls_updown32';
+
+{$IFDEF UNICODE}
+ UPDOWN_CLASS = UPDOWN_CLASSW;
+{$ELSE}
+ UPDOWN_CLASS = UPDOWN_CLASSA;
+{$ENDIF}
+{$ELSE}
+ UPDOWN_CLASS = 'msctls_updown';
+{$ENDIF}
+
+TYPE
+
+ _UDACCEL = Record
+ nSec : UINT;
+ nInc : UINT;
+ END;
+ UDACCEL = _UDACCEL;
+ LPUDACCEL = ^_UDACCEL;
+ TUDACCEL = _UDACCEL;
+ PUDACCEL = ^_UDACCEL;
+
+CONST
+ UD_MAXVAL = $7fff;
+ UD_MINVAL = (-UD_MAXVAL);
+
+// begin_r_commctrl
+
+ UDS_WRAP = $0001;
+ UDS_SETBUDDYINT = $0002;
+ UDS_ALIGNRIGHT = $0004;
+ UDS_ALIGNLEFT = $0008;
+ UDS_AUTOBUDDY = $0010;
+ UDS_ARROWKEYS = $0020;
+ UDS_HORZ = $0040;
+ UDS_NOTHOUSANDS = $0080;
+{$ifdef ie3plus}
+ UDS_HOTTRACK = $0100;
+{$ENDIF}
+
+// end_r_commctrl
+
+ UDM_SETRANGE = (WM_USER+101);
+ UDM_GETRANGE = (WM_USER+102);
+ UDM_SETPOS = (WM_USER+103);
+ UDM_GETPOS = (WM_USER+104);
+ UDM_SETBUDDY = (WM_USER+105);
+ UDM_GETBUDDY = (WM_USER+106);
+ UDM_SETACCEL = (WM_USER+107);
+ UDM_GETACCEL = (WM_USER+108);
+ UDM_SETBASE = (WM_USER+109);
+ UDM_GETBASE = (WM_USER+110);
+{$ifdef ie4plus}
+ UDM_SETRANGE32 = (WM_USER+111);
+ UDM_GETRANGE32 = (WM_USER+112); // wParam & lParam are LPINT
+ UDM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+ UDM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+{$ENDIF}
+{$ifdef ie5plus}
+ UDM_SETPOS32 = (WM_USER+113);
+ UDM_GETPOS32 = (WM_USER+114);
+{$ENDIF}
+
+function CreateUpDownControl(dwStyle:DWORD;x:cint;y:cint;cx:cint;cy:cint;hParent:HWND;nID:cint;hInst:HINST;hBuddy:HWND;nUpper:cint;nLower:cint;nPos:cint):HWND; stdcall; external commctrldll name 'CreateUpDownControl';
+
+TYPE
+ _NM_UPDOWN = Record
+ hdr : NMHDR;
+ iPos : cint;
+ iDelta : cint;
+ END;
+ NMUPDOWN = _NM_UPDOWN;
+ LPNMUPDOWN = ^_NM_UPDOWN;
+ TNM_UPDOWN = _NM_UPDOWN;
+ PNM_UPDOWN = ^_NM_UPDOWN;
+
+{$ifdef ie3plus}
+ NM_UPDOWN = NMUPDOWN;
+ LPNM_UPDOWN = LPNMUPDOWN;
+{$ELSE}
+ NMUPDOWN = NM_UPDOWN;
+ LPNMUPDOWN = LPNM_UPDOWN;
+{$ENDIF}
+
+CONST
+ UDN_DELTAPOS = (UDN_FIRST - 1);
+
+{$ENDIF} // NOUPDOWN
+
+
+//====== PROGRESS CONTROL =====================================================
+
+{$IFNDEF NOPROGRESS}
+
+CONST
+
+{$IFDEF _WIN32}
+
+ PROGRESS_CLASSA = 'msctls_progress32';
+ PROGRESS_CLASSW = {L}'msctls_progress32';
+
+{$IFDEF UNICODE}
+ PROGRESS_CLASS = PROGRESS_CLASSW;
+{$ELSE}
+ PROGRESS_CLASS = PROGRESS_CLASSA;
+{$ENDIF}
+
+{$ELSE}
+ PROGRESS_CLASS = 'msctls_progress';
+{$ENDIF}
+
+// begin_r_commctrl
+
+{$ifdef ie3plus}
+ PBS_SMOOTH = $01;
+ PBS_VERTICAL = $04;
+{$ENDIF}
+
+// end_r_commctrl
+
+ PBM_SETRANGE = (WM_USER+1);
+ PBM_SETPOS = (WM_USER+2);
+ PBM_DELTAPOS = (WM_USER+3);
+ PBM_SETSTEP = (WM_USER+4);
+ PBM_STEPIT = (WM_USER+5);
+{$ifdef ie3plus}
+ PBM_SETRANGE32 = (WM_USER+6); // lParam = high, wParam = low
+
+TYPE
+ PBRANGE = Record
+ iLow : cint;
+ iHigh : cint;
+ END;
+ PPBRANGE = ^PBRANGE;
+ TPBRANGE = PBRANGE;
+// PPBRANGE = ^PBRANGE;
+
+
+CONST
+ PBM_GETRANGE = (WM_USER+7); // wParam = return (TRUE ? low : high). lParam = PPBRANGE or NULL
+ PBM_GETPOS = (WM_USER+8);
+{$ifdef ie4plus}
+ PBM_SETBARCOLOR = (WM_USER+9); // lParam = bar color
+{$ENDIF} // _WIN32_IE >= 0x0400
+ PBM_SETBKCOLOR = CCM_SETBKCOLOR; // lParam = bkColor
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+{$ifdef win32xp} //_WIN32_WINNT >= 0x0501
+ PBS_MARQUEE = $08;
+ PBM_SETMARQUEE = (WM_USER+10);
+{$endif} //_WIN32_WINNT >= 0x0501
+
+{$ifdef win32vista}
+ PBS_SMOOTHREVERSE = $10;
+{$endif}
+
+{$ifdef win32vista}
+
+ PBM_GETSTEP = (WM_USER+13);
+ PBM_GETBKCOLOR = (WM_USER+14);
+ PBM_GETBARCOLOR = (WM_USER+15);
+ PBM_SETSTATE = (WM_USER+16); // wParam = PBST_[State] (NORMAL, ERROR, PAUSED)
+ PBM_GETSTATE = (WM_USER+17);
+
+ PBST_NORMAL = $0001;
+ PBST_ERROR = $0002;
+ PBST_PAUSED = $0003;
+{$endif}
+
+// end_r_commctrl
+
+
+{$ENDIF} // NOPROGRESS
+
+
+//====== HOTKEY CONTROL =======================================================
+
+{$IFNDEF NOHOTKEY}
+ HOTKEYF_SHIFT = $01;
+ HOTKEYF_CONTROL = $02;
+ HOTKEYF_ALT = $04;
+{$IFDEF _MAC}
+ HOTKEYF_EXT = $80;
+{$ELSE}
+ HOTKEYF_EXT = $08;
+{$ENDIF}
+ HKCOMB_NONE = $0001;
+ HKCOMB_S = $0002;
+ HKCOMB_C = $0004;
+ HKCOMB_A = $0008;
+ HKCOMB_SC = $0010;
+ HKCOMB_SA = $0020;
+ HKCOMB_CA = $0040;
+ HKCOMB_SCA = $0080;
+
+ HKM_SETHOTKEY = (WM_USER+1);
+ HKM_GETHOTKEY = (WM_USER+2);
+ HKM_SETRULES = (WM_USER+3);
+
+{$IFDEF _WIN32}
+ HOTKEY_CLASSA = 'msctls_hotkey32';
+ HOTKEY_CLASSW = widestring('msctls_hotkey32');
+{$IFDEF UNICODE}
+ HOTKEY_CLASS = HOTKEY_CLASSW;
+{$ELSE}
+ HOTKEY_CLASS = HOTKEY_CLASSA;
+{$ENDIF}
+{$ELSE}
+ HOTKEY_CLASS = 'msctls_hotkey';
+{$ENDIF}
+
+{$ENDIF} // NOHOTKEY
+ HOTKEYCLASS = HOTKEY_CLASSA;
+
+// begin_r_commctrl
+
+//====== COMMON CONTROL STYLES ================================================
+
+ CCS_TOP = DWORD($00000001){L};
+ CCS_NOMOVEY = DWORD($00000002){L};
+ CCS_BOTTOM = DWORD($00000003){L};
+ CCS_NORESIZE = DWORD($00000004){L};
+ CCS_NOPARENTALIGN = DWORD($00000008){L};
+ CCS_ADJUSTABLE = DWORD($00000020){L};
+ CCS_NODIVIDER = DWORD($00000040){L};
+{$ifdef ie3plus}
+ CCS_VERT = DWORD($00000080){L};
+ CCS_LEFT = (CCS_VERT OR CCS_TOP);
+ CCS_RIGHT = (CCS_VERT OR CCS_BOTTOM);
+ CCS_NOMOVEX = (CCS_VERT OR CCS_NOMOVEY);
+{$ENDIF}
+
+// end_r_commctrl
+
+//====== LISTVIEW CONTROL =====================================================
+
+{$IFNDEF NOLISTVIEW}
+
+{$IFDEF _WIN32}
+ WC_LISTVIEWA = 'SysListView32';
+ WC_LISTVIEWW = {L}'SysListView32';
+{$IFDEF UNICODE}
+ WC_LISTVIEW = WC_LISTVIEWW;
+{$ELSE}
+ WC_LISTVIEW = WC_LISTVIEWA;
+{$ENDIF}
+{$ELSE}
+ WC_LISTVIEW = 'SysListView';
+{$ENDIF}
+
+// begin_r_commctrl
+
+ LVS_ICON = $0000;
+ LVS_REPORT = $0001;
+ LVS_SMALLICON = $0002;
+ LVS_LIST = $0003;
+ LVS_TYPEMASK = $0003;
+ LVS_SINGLESEL = $0004;
+ LVS_SHOWSELALWAYS = $0008;
+ LVS_SORTASCENDING = $0010;
+ LVS_SORTDESCENDING = $0020;
+ LVS_SHAREIMAGELISTS = $0040;
+ LVS_NOLABELWRAP = $0080;
+ LVS_AUTOARRANGE = $0100;
+ LVS_EDITLABELS = $0200;
+{$ifdef ie3plus}
+ LVS_OWNERDATA = $1000;
+{$ENDIF}
+ LVS_NOSCROLL = $2000;
+
+ LVS_TYPESTYLEMASK = $fc00;
+
+ LVS_ALIGNTOP = $0000;
+ LVS_ALIGNLEFT = $0800;
+ LVS_ALIGNMASK = $0c00;
+
+ LVS_OWNERDRAWFIXED = $0400;
+ LVS_NOCOLUMNHEADER = $4000;
+ LVS_NOSORTHEADER = $8000;
+
+// end_r_commctrl
+
+{$ifdef ie4plus}
+ LVM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+
+// Macro 38
+Function ListView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+CONST
+ LVM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+
+// Macro 39
+Function ListView_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+{$ENDIF}
+CONST
+ LVM_GETBKCOLOR = (LVM_FIRST + 0);
+
+// Macro 40
+Function ListView_GetBkColor( hwnd : hwnd):COLORREF;
+
+CONST
+ LVM_SETBKCOLOR = (LVM_FIRST + 1);
+
+// Macro 41
+Function ListView_SetBkColor( hwnd : hwnd; clrBk : COLORREF):BOOL;
+
+CONST
+ LVM_GETIMAGELIST = (LVM_FIRST + 2);
+
+// Macro 42
+Function ListView_GetImageList( hwnd : hwnd; iImageList : CINT):HIMAGELIST;
+
+CONST
+ LVSIL_NORMAL = 0;
+ LVSIL_SMALL = 1;
+ LVSIL_STATE = 2;
+ LVSIL_GROUPHEADER = 3;
+ LVM_SETIMAGELIST = (LVM_FIRST + 3);
+
+// Macro 43
+Function ListView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImageList : WPARAM):HIMAGELIST;
+
+CONST
+ LVM_GETITEMCOUNT = (LVM_FIRST + 4);
+
+// Macro 44
+Function ListView_GetItemCount( hwnd : hwnd):cint;
+
+CONST
+ LVIF_TEXT = $0001;
+ LVIF_IMAGE = $0002;
+ LVIF_PARAM = $0004;
+ LVIF_STATE = $0008;
+{$ifdef ie3plus}
+ LVIF_INDENT = $0010;
+ LVIF_NORECOMPUTE = $0800;
+{$ENDIF}
+{$ifdef win32xp}
+ LVIF_GROUPID = $0100;
+ LVIF_COLUMNS = $0200;
+{$ENDIF}
+{$ifdef win32vista}
+ LVIF_COLFMT = $00010000; // The piColFmt member is valid in addition to puColumns
+{$endif}
+
+ LVIS_FOCUSED = $0001;
+ LVIS_SELECTED = $0002;
+ LVIS_CUT = $0004;
+ LVIS_DROPHILITED = $0008;
+ LVIS_GLOW = $0010;
+ LVIS_ACTIVATING = $0020;
+
+ LVIS_OVERLAYMASK = $0F00;
+ LVIS_STATEIMAGEMASK = $F000;
+
+// Macro 45
+// #define INDEXTOSTATEIMAGEMASK(i) ((i) << 12)
+
+
+CONST
+ I_INDENTCALLBACK = (-1);
+{$ENDIF}
+
+
+{$ifdef win32xp}
+
+CONST
+ I_GROUPIDCALLBACK = (-1);
+ I_GROUPIDNONE = (-2);
+{$ENDIF}
+
+
+// #define LVITEMA_V1_SIZE CCSIZEOF_STRUCT(LVITEMA, lParam)
+// #define LVITEMW_V1_SIZE CCSIZEOF_STRUCT(LVITEMW, lParam)
+
+TYPE
+ tagLVITEMA = Record
+ mask : UINT;
+ iItem : cint;
+ iSubItem : cint;
+ state : UINT;
+ stateMask : UINT;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ lParam : LPARAM;
+{$ifdef ie3plus}
+ iIndent : cint;
+{$ENDIF}
+{$ifdef win32xp}
+ iGroupId : cint;
+ cColumns : UINT; // tile view columns
+ puColumns : PUINT;
+{$ENDIF}
+{$ifdef win32vista}
+ piColFmt : pcint;
+ iGroup : cint; // readonly. only valid for owner data.
+{$endif}
+ END;
+ LVITEMA = tagLVITEMA;
+ LPLVITEMA = ^tagLVITEMA;
+ TLVITEMA = tagLVITEMA;
+ PLVITEMA = ^tagLVITEMA;
+
+
+ tagLVITEMW = Record
+ mask : UINT;
+ iItem : cint;
+ iSubItem : cint;
+ state : UINT;
+ stateMask : UINT;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ lParam : LPARAM;
+{$ifdef ie3plus}
+ iIndent : cint;
+{$ENDIF}
+{$ifdef win32xp}
+ iGroupId : cint;
+ cColumns : UINT; // tile view columns
+ puColumns : PUINT;
+{$ENDIF}
+{$ifdef win32vista}
+ piColFmt : pcint;
+ iGroup : cint; // readonly. only valid for owner data.
+{$endif}
+ END;
+
+ LVITEMW = tagLVITEMW;
+ LPLVITEMW = ^tagLVITEMW;
+ TLVITEMW = tagLVITEMW;
+ PLVITEMW = ^tagLVITEMW;
+
+{$IFDEF UNICODE}
+ LVITEM = LVITEMW;
+ LPLVITEM = LPLVITEMW;
+
+// LVITEM_V1_SIZE = LVITEMW_V1_SIZE;
+{$ELSE}
+
+TYPE
+ LVITEM = LVITEMA;
+ LPLVITEM = LPLVITEMA;
+
+// LVITEM_V1_SIZE = LVITEMA_V1_SIZE;
+{$ENDIF}
+
+Type
+{$ifdef ie3plus}
+
+ LV_ITEMA = LVITEMA;
+ LV_ITEMW = LVITEMW;
+{$ELSE}
+
+ tagLVITEMA = _LV_ITEMA;
+ LVITEMA = LV_ITEMA;
+ tagLVITEMW = _LV_ITEMW;
+ LVITEMW = LV_ITEMW;
+{$ENDIF}
+ LV_ITEM = LVITEM;
+ TLVItem = LVITEM;
+ PLVItem = LPLVITEM;
+ TLV_ITEM = LVITEM;
+ PLV_ITEM = PLVITEM;
+CONST
+ LPSTR_TEXTCALLBACKW = LPWSTR(-1);
+ LPSTR_TEXTCALLBACKA = LPSTR (-1);
+{$IFDEF UNICODE}
+ LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;
+{$ELSE}
+ LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA;
+{$ENDIF}
+
+
+CONST
+ I_IMAGECALLBACK = (-1);
+{$ifdef ie501plus}
+ I_IMAGENONE = (-2);
+{$ENDIF} // 0x0501
+
+{$ifdef win32xp}
+// For tileview
+ I_COLUMNSCALLBACK = UINT(-1);
+{$ENDIF}
+
+ LVM_GETITEMA = (LVM_FIRST + 5);
+ LVM_GETITEMW = (LVM_FIRST + 75);
+
+{$IFDEF UNICODE}
+ LVM_GETITEM = LVM_GETITEMW;
+{$ELSE}
+ LVM_GETITEM = LVM_GETITEMA;
+{$ENDIF}
+
+// Macro 46
+Function ListView_GetItem( hwnd : hwnd;var pitem : LV_ITEM ):BOOL;
+
+CONST
+ LVM_SETITEMA = (LVM_FIRST + 6);
+ LVM_SETITEMW = (LVM_FIRST + 76);
+
+{$IFDEF UNICODE}
+ LVM_SETITEM = LVM_SETITEMW;
+{$ELSE}
+ LVM_SETITEM = LVM_SETITEMA;
+{$ENDIF}
+
+// Macro 47
+Function ListView_SetItem( hwnd : hwnd;const pitem : LV_ITEM ):BOOL;
+
+
+CONST
+ LVM_INSERTITEMA = (LVM_FIRST + 7);
+ LVM_INSERTITEMW = (LVM_FIRST + 77);
+{$IFDEF UNICODE}
+ LVM_INSERTITEM = LVM_INSERTITEMW;
+{$ELSE}
+ LVM_INSERTITEM = LVM_INSERTITEMA;
+{$ENDIF}
+
+// Macro 48
+Function ListView_InsertItem( hwnd : hwnd;Const pitem : LV_ITEM ):cint;
+
+CONST
+ LVM_DELETEITEM = (LVM_FIRST + 8);
+
+// Macro 49
+Function ListView_DeleteItem( hwnd : hwnd; i : cint):BOOL;
+
+CONST
+ LVM_DELETEALLITEMS = (LVM_FIRST + 9);
+
+// Macro 50
+Function ListView_DeleteAllItems( hwnd : hwnd):BOOL;
+
+CONST
+ LVM_GETCALLBACKMASK = (LVM_FIRST + 10);
+
+// Macro 51
+Function ListView_GetCallbackMask( hwnd : hwnd):BOOL;
+
+
+CONST
+ LVM_SETCALLBACKMASK = (LVM_FIRST + 11);
+
+// Macro 52
+Function ListView_SetCallbackMask( hwnd : hwnd; mask : UINT):BOOL;
+
+
+CONST
+ LVNI_ALL = $0000;
+ LVNI_FOCUSED = $0001;
+ LVNI_SELECTED = $0002;
+ LVNI_CUT = $0004;
+ LVNI_DROPHILITED = $0008;
+
+ LVNI_ABOVE = $0100;
+ LVNI_BELOW = $0200;
+ LVNI_TOLEFT = $0400;
+ LVNI_TORIGHT = $0800;
+
+
+ LVM_GETNEXTITEM = (LVM_FIRST + 12);
+
+// Macro 53
+Function ListView_GetNextItem( hwnd : hwnd; i : cint; flags : cint ):cint;
+
+CONST
+ LVFI_PARAM = $0001;
+ LVFI_STRING = $0002;
+ LVFI_PARTIAL = $0008;
+ LVFI_WRAP = $0020;
+ LVFI_NEARESTXY = $0040;
+
+
+TYPE
+
+ tagLVFINDINFOA = Record
+ flags : UINT;
+ psz : LPCSTR;
+ lParam : LPARAM;
+ pt : POINT;
+ vkDirection : UINT;
+ END;
+ LVFINDINFOA = tagLVFINDINFOA;
+ LPFINDINFOA = ^tagLVFINDINFOA;
+ TLVFINDINFOA = tagLVFINDINFOA;
+ PLVFINDINFOA = ^tagLVFINDINFOA;
+
+
+ tagLVFINDINFOW = Record
+ flags : UINT;
+ psz : LPCWSTR;
+ lParam : LPARAM;
+ pt : POINT;
+ vkDirection : UINT;
+ END;
+ LVFINDINFOW = tagLVFINDINFOW;
+ LPFINDINFOW = ^tagLVFINDINFOW;
+ TLVFINDINFOW = tagLVFINDINFOW;
+ PLVFINDINFOW = ^tagLVFINDINFOW;
+
+{$IFDEF UNICODE}
+ LVFINDINFO = LVFINDINFOW;
+{$ELSE}
+ LVFINDINFO = LVFINDINFOA;
+{$ENDIF}
+
+{$ifdef ie3plus}
+ LV_FINDINFOA = LVFINDINFOA;
+ LV_FINDINFOW = LVFINDINFOW;
+{$ELSE}
+ tagLVFINDINFOA = _LV_FINDINFOA;
+ LVFINDINFOA = LV_FINDINFOA;
+ tagLVFINDINFOW = _LV_FINDINFOW;
+ LVFINDINFOW = LV_FINDINFOW;
+{$ENDIF}
+
+ TLVFindInfo = LVFINDINFO;
+ PLVFindInfo = ^LVFindInfo;
+
+ LV_FINDINFO = LVFINDINFO;
+
+CONST
+ LVM_FINDITEMA = (LVM_FIRST + 13);
+ LVM_FINDITEMW = (LVM_FIRST + 83);
+{$IFDEF UNICODE}
+ LVM_FINDITEM = LVM_FINDITEMW;
+{$ELSE}
+ LVM_FINDITEM = LVM_FINDITEMA;
+{$ENDIF}
+
+// Macro 54
+Function ListView_FindItem( hwnd : hwnd; iStart : cint;const plvfi : LV_FINDINFO ):cint;
+
+CONST
+ LVIR_BOUNDS = 0;
+ LVIR_ICON = 1;
+ LVIR_LABEL = 2;
+ LVIR_SELECTBOUNDS = 3;
+
+
+ LVM_GETITEMRECT = (LVM_FIRST + 14);
+
+// Macro 55 NI
+Function ListView_GetItemRect( hwnd : hwnd; i : cint;var prc : TRect;code : cint):BOOL;
+
+CONST
+ LVM_SETITEMPOSITION = (LVM_FIRST + 15);
+
+// Macro 56
+Function ListView_SetItemPosition( hwndLV : hwnd; i : cint; x : cint ; y : cint ):BOOL;
+
+CONST
+ LVM_GETITEMPOSITION = (LVM_FIRST + 16);
+
+// Macro 57
+Function ListView_GetItemPosition( hwndLV : hwnd; i : cint;var ppt : POINT ):BOOL;
+
+CONST
+ LVM_GETSTRINGWIDTHA = (LVM_FIRST + 17);
+ LVM_GETSTRINGWIDTHW = (LVM_FIRST + 87);
+{$IFDEF UNICODE}
+ LVM_GETSTRINGWIDTH = LVM_GETSTRINGWIDTHW;
+{$ELSE}
+ LVM_GETSTRINGWIDTH = LVM_GETSTRINGWIDTHA;
+{$ENDIF}
+
+// Macro 58
+Function ListView_GetStringWidth( hwndLV : hwnd; psz : LPCTSTR):cint;
+
+CONST
+ LVHT_NOWHERE = $0001;
+ LVHT_ONITEMICON = $0002;
+ LVHT_ONITEMLABEL = $0004;
+ LVHT_ONITEMSTATEICON = $0008;
+ LVHT_ONITEM = (LVHT_ONITEMICON OR LVHT_ONITEMLABEL OR LVHT_ONITEMSTATEICON);
+
+ LVHT_ABOVE = $0008;
+ LVHT_BELOW = $0010;
+ LVHT_TORIGHT = $0020;
+ LVHT_TOLEFT = $0040;
+
+
+
+// #define LVHITTESTINFO_V1_SIZE CCSIZEOF_STRUCT(LVHITTESTINFO, iItem)
+
+TYPE
+
+ tagLVHITTESTINFO = Record
+ pt : POINT;
+ flags : UINT;
+ iItem : cint;
+{$ifdef ie3plus}
+ iSubItem : cint; // this is was NOT in win95. valid only for LVM_SUBITEMHITTEST
+{$ENDIF}
+{$ifdef win32vista}
+ iGroup : cint; // readonly. index of group. only valid for owner data.
+ // supports single item in multiple groups.
+{$endif}
+ END;
+ LVHITTESTINFO = tagLVHITTESTINFO;
+ LPLVHITTESTINFO = ^tagLVHITTESTINFO;
+ TLVHITTESTINFO = tagLVHITTESTINFO;
+ PLVHITTESTINFO = ^tagLVHITTESTINFO;
+
+{$ifdef ie3plus}
+ LV_HITTESTINFO = LVHITTESTINFO;
+{$ELSE}
+ tagLVHITTESTINFO = _LV_HITTESTINFO;
+ LVHITTESTINFO = LV_HITTESTINFO;
+{$ENDIF}
+
+CONST
+ LVM_HITTEST = (LVM_FIRST + 18);
+
+// Macro 59
+Function ListView_HitTest( hwndLV : hwnd;var pinfo : LV_HITTESTINFO ):cint;
+
+CONST
+ LVM_ENSUREVISIBLE = (LVM_FIRST + 19);
+
+// Macro 60
+Function ListView_EnsureVisible( hwndLV : hwnd; i : cint; fPartialOK : cint ):BOOL;inline;
+Function ListView_EnsureVisible( hwndLV : hwnd; i : cint; fPartialOK : BOOL ):BOOL;inline;
+
+CONST
+ LVM_SCROLL = (LVM_FIRST + 20);
+
+// Macro 61
+Function ListView_Scroll( hwndLV : hwnd; dx : cint; dy : cint):BOOL;
+
+CONST
+ LVM_REDRAWITEMS = (LVM_FIRST + 21);
+
+// Macro 62
+Function ListView_RedrawItems( hwndLV : hwnd; iFirst : cint; iLast : cint):BOOL;
+
+CONST
+ LVA_DEFAULT = $0000;
+ LVA_ALIGNLEFT = $0001;
+ LVA_ALIGNTOP = $0002;
+ LVA_ALIGNRIGHT = $0003;
+ LVA_ALIGNBOTTOM = $0004;
+ LVA_SNAPTOGRID = $0005;
+ LVA_SORTASCENDING = $0100;
+ LVA_SORTDESCENDING = $0200;
+ LVM_ARRANGE = (LVM_FIRST + 22);
+
+// Macro 63
+Function ListView_Arrange( hwndLV : hwnd; code : UINT):BOOL;
+
+CONST
+ LVM_EDITLABELA = (LVM_FIRST + 23);
+ LVM_EDITLABELW = (LVM_FIRST + 118);
+{$IFDEF UNICODE}
+
+ LVM_EDITLABEL = LVM_EDITLABELW;
+{$ELSE}
+ LVM_EDITLABEL = LVM_EDITLABELA;
+{$ENDIF}
+
+// Macro 64
+Function ListView_EditLabel( hwndLV : hwnd; i : cint):HWND;
+
+CONST
+ LVM_GETEDITCONTROL = (LVM_FIRST + 24);
+
+// Macro 65
+Function ListView_GetEditControl( hwndLV : hwnd):HWND;
+
+
+// #define LVCOLUMNA_V1_SIZE CCSIZEOF_STRUCT(LVCOLUMNA, iSubItem)
+// #define LVCOLUMNW_V1_SIZE CCSIZEOF_STRUCT(LVCOLUMNW, iSubItem)
+
+TYPE
+
+ tagLVCOLUMNA = Record
+ mask : UINT;
+ fmt : cint;
+ cx : cint;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iSubItem : cint;
+{$ifdef ie3plus}
+ iImage : cint;
+ iOrder : cint;
+{$ENDIF}
+{$ifdef win32vista}
+ cxmin : cint; // min snap point
+ cxDefault : cint; // default snap point
+ cxIdeal : cint; // read only. ideal may not eqaul current width if auto sized (LVS_EX_AUTOSIZECOLUMNS) to a lesser width.
+{$endif}
+ END;
+ LVCOLUMNA = tagLVCOLUMNA;
+ LPLVCOLUMNA = ^tagLVCOLUMNA;
+ TLVCOLUMNA = tagLVCOLUMNA;
+ PLVCOLUMNA = ^tagLVCOLUMNA;
+
+
+ tagLVCOLUMNW = Record
+ mask : UINT;
+ fmt : cint;
+ cx : cint;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iSubItem : cint;
+{$ifdef ie3plus}
+ iImage : cint;
+ iOrder : cint;
+{$ENDIF}
+{$ifdef win32vista}
+ cxmin : cint; // min snap point
+ cxDefault : cint; // default snap point
+ cxIdeal : cint; // read only. ideal may not eqaul current width if auto sized (LVS_EX_AUTOSIZECOLUMNS) to a lesser width.
+{$endif}
+ END;
+ LVCOLUMNW = tagLVCOLUMNW;
+ LPLVCOLUMNW = ^tagLVCOLUMNW;
+ TLVCOLUMNW = tagLVCOLUMNW;
+ PLVCOLUMNW = ^tagLVCOLUMNW;
+
+
+{$IFDEF UNICODE}
+ LVCOLUMN = LVCOLUMNW;
+ LPLVCOLUMN = LPLVCOLUMNW;
+// LVCOLUMN_V1_SIZE = LVCOLUMNW_V1_SIZE;
+{$ELSE}
+ LVCOLUMN = LVCOLUMNA;
+ LPLVCOLUMN = LPLVCOLUMNA;
+// LVCOLUMN_V1_SIZE = LVCOLUMNA_V1_SIZE;
+{$ENDIF}
+
+{$ifdef ie3plus}
+ LV_COLUMNA = LVCOLUMNA;
+ LV_COLUMNW = LVCOLUMNW;
+{$ELSE}
+ tagLVCOLUMNA = _LV_COLUMNA;
+ LVCOLUMNA = LV_COLUMNA;
+ tagLVCOLUMNW = _LV_COLUMNW;
+ LVCOLUMNW = LV_COLUMNW;
+{$ENDIF}
+
+
+ LV_COLUMN = LVCOLUMN;
+ TLVColumn = LVCOLUMN;
+ PLVColumn = LPLVCOLUMN;
+
+CONST
+ LVCF_FMT = $0001;
+ LVCF_WIDTH = $0002;
+ LVCF_TEXT = $0004;
+ LVCF_SUBITEM = $0008;
+{$ifdef ie3plus}
+ LVCF_IMAGE = $0010;
+ LVCF_ORDER = $0020;
+{$ENDIF}
+{$ifdef win32vista}
+ LVCF_MINWIDTH = $0040;
+ LVCF_DEFAULTWIDTH = $0080;
+ LVCF_IDEALWIDTH = $0100;
+{$endif}
+
+ LVCFMT_LEFT = $0000;
+ LVCFMT_RIGHT = $0001;
+ LVCFMT_CENTER = $0002;
+ LVCFMT_JUSTIFYMASK = $0003;
+
+{$ifdef ie3plus}
+ LVCFMT_IMAGE = $0800;
+ LVCFMT_BITMAP_ON_RIGHT = $1000;
+ LVCFMT_COL_HAS_IMAGES = $8000;
+{$ENDIF}
+{$ifdef win32vista}
+ LVCFMT_FIXED_WIDTH = $00100; // Can't resize the column; same as HDF_FIXEDWIDTH
+ LVCFMT_NO_DPI_SCALE = $40000; // If not set, CCM_DPISCALE will govern scaling up fixed width
+ LVCFMT_FIXED_RATIO = $80000; // Width will augment with the row height
+{$endif}
+
+ LVM_GETCOLUMNA = (LVM_FIRST + 25);
+ LVM_GETCOLUMNW = (LVM_FIRST + 95);
+{$IFDEF UNICODE}
+ LVM_GETCOLUMN = LVM_GETCOLUMNW;
+{$ELSE}
+ LVM_GETCOLUMN = LVM_GETCOLUMNA;
+{$ENDIF}
+
+// Macro 66
+Function ListView_GetColumn( hwnd : hwnd; iCol : cint;var pcol : LV_COLUMN ):BOOL;
+
+CONST
+ LVM_SETCOLUMNA = (LVM_FIRST + 26);
+ LVM_SETCOLUMNW = (LVM_FIRST + 96);
+{$IFDEF UNICODE}
+ LVM_SETCOLUMN = LVM_SETCOLUMNW;
+{$ELSE}
+ LVM_SETCOLUMN = LVM_SETCOLUMNA;
+{$ENDIF}
+
+// Macro 67
+Function ListView_SetColumn( hwnd : hwnd; iCol : cint;Const pcol : LV_COLUMN ):BOOL;
+
+CONST
+ LVM_INSERTCOLUMNA = (LVM_FIRST + 27);
+ LVM_INSERTCOLUMNW = (LVM_FIRST + 97);
+
+{$IFDEF UNICODE} // was already not active (spaces) in .h
+// # define LVM_INSERTCOLUMN LVM_INSERTCOLUMNW
+{$ELSE}
+// # define LVM_INSERTCOLUMN LVM_INSERTCOLUMNA
+{$ENDIF}
+
+// Macro 68
+Function ListView_InsertColumn( hwnd : hwnd; iCol : cint;Const pcol : LV_COLUMN ):cint;
+
+CONST
+ LVM_DELETECOLUMN = (LVM_FIRST + 28);
+
+// Macro 69
+Function ListView_DeleteColumn( hwnd : hwnd; iCol : cint):BOOL;
+
+CONST
+ LVM_GETCOLUMNWIDTH = (LVM_FIRST + 29);
+
+// Macro 70
+Function ListView_GetColumnWidth( hwnd : hwnd; iCol : cint):cint;
+
+CONST
+ LVSCW_AUTOSIZE = -1;
+ LVSCW_AUTOSIZE_USEHEADER = -2;
+ LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30);
+
+// Macro 71
+Function ListView_SetColumnWidth( hwnd : hwnd; iCol : cint; cx : cint ):BOOL;
+
+
+{$ifdef ie3plus}
+
+CONST
+ LVM_GETHEADER = (LVM_FIRST + 31);
+
+// Macro 72
+Function ListView_GetHeader( hwnd : hwnd):HWND;
+
+{$ENDIF}
+
+CONST
+ LVM_CREATEDRAGIMAGE = (LVM_FIRST + 33);
+
+// Macro 73
+Function ListView_CreateDragImage( hwnd : hwnd; i : cint; lpptUpLeft : LPPOINT):HIMAGELIST;inline;
+Function ListView_CreateDragImage( hwnd : hwnd; i : cint; const lpptUpLeft : POINT):HIMAGELIST;inline;
+
+CONST
+ LVM_GETVIEWRECT = (LVM_FIRST + 34);
+
+// Macro 74
+Function ListView_GetViewRect( hwnd : hwnd;var prc : RECT ):BOOL;
+
+CONST
+ LVM_GETTEXTCOLOR = (LVM_FIRST + 35);
+
+// Macro 75
+Function ListView_GetTextColor( hwnd : hwnd):COLORREF;
+
+CONST
+ LVM_SETTEXTCOLOR = (LVM_FIRST + 36);
+
+// Macro 76
+Function ListView_SetTextColor( hwnd : hwnd; clrText : COLORREF):BOOL;
+
+CONST
+ LVM_GETTEXTBKCOLOR = (LVM_FIRST + 37);
+
+// Macro 77
+Function ListView_GetTextBkColor( hwnd : hwnd):COLORREF;
+
+CONST
+ LVM_SETTEXTBKCOLOR = (LVM_FIRST + 38);
+
+// Macro 78
+Function ListView_SetTextBkColor( hwnd : hwnd; clrTextBk : COLORREF):BOOL;
+
+
+CONST
+ LVM_GETTOPINDEX = (LVM_FIRST + 39);
+
+// Macro 79
+Function ListView_GetTopIndex( hwndLV : hwnd):cint;
+
+CONST
+ LVM_GETCOUNTPERPAGE = (LVM_FIRST + 40);
+
+// Macro 80
+Function ListView_GetCountPerPage( hwndLV : hwnd):cint;
+
+CONST
+ LVM_GETORIGIN = (LVM_FIRST + 41);
+
+// Macro 81
+Function ListView_GetOrigin( hwndLV : hwnd;var ppt : POINT ):BOOL;
+
+CONST
+ LVM_UPDATE = (LVM_FIRST + 42);
+
+// Macro 82
+Function ListView_Update( hwndLV : hwnd; i : WPARAM):BOOL;
+
+CONST
+ LVM_SETITEMSTATE = (LVM_FIRST + 43);
+
+// Macro 83
+Procedure ListView_SetItemState(hwndLV :hwnd; i :cint ;data,mask:UINT);
+
+{$ifdef ie3plus}
+// Macro 84
+Procedure ListView_SetCheckState( hwndLV : hwnd; i : cint ; fCheck : bool );
+
+{$ENDIF}
+
+
+CONST
+ LVM_GETITEMSTATE = (LVM_FIRST + 44);
+
+// Macro 85
+Function ListView_GetItemState( hwndLV : hwnd; i : WPARAM; mask : LPARAM):UINT;
+
+
+{$ifdef ie3plus}
+
+// Macro 86
+Function ListView_GetCheckState( hwndLV : hwnd; i : WPARAM):UINT;
+
+{$ENDIF}
+
+CONST
+ LVM_GETITEMTEXTA = (LVM_FIRST + 45);
+ LVM_GETITEMTEXTW = (LVM_FIRST + 115);
+
+{$IFDEF UNICODE}
+ LVM_GETITEMTEXT = LVM_GETITEMTEXTW;
+{$ELSE}
+ LVM_GETITEMTEXT = LVM_GETITEMTEXTA;
+{$ENDIF}
+
+// Macro 87
+Procedure ListView_GetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer;cchTextMax :cint);
+
+CONST
+ LVM_SETITEMTEXTA = (LVM_FIRST + 46);
+ LVM_SETITEMTEXTW = (LVM_FIRST + 116);
+
+{$IFDEF UNICODE}
+ LVM_SETITEMTEXT = LVM_SETITEMTEXTW;
+{$ELSE}
+ LVM_SETITEMTEXT = LVM_SETITEMTEXTA;
+{$ENDIF}
+
+// Macro 88
+Procedure ListView_SetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer);
+
+{$ifdef ie3plus}
+// these flags only apply to LVS_OWNERDATA listviews in report or list mode
+
+CONST
+ LVSICF_NOINVALIDATEALL = $00000001;
+ LVSICF_NOSCROLL = $00000002;
+{$ENDIF}
+
+ LVM_SETITEMCOUNT = (LVM_FIRST + 47);
+
+// Macro 89
+Procedure ListView_SetItemCount( hwndLV : hwnd; cItems : WPARAM);
+
+{$ifdef ie3plus}
+
+// Macro 90
+Procedure ListView_SetItemCountEx( hwndLV : hwnd; cItems : WPARAM; dwFlags : LPARAM);
+
+{$ENDIF}
+
+TYPE
+ PFNLVCOMPARE=Function(a,b,c:LPARAM):cint;
+ TLVCompare = PFNLVCOMPARE;
+
+CONST
+ LVM_SORTITEMS = (LVM_FIRST + 48);
+
+// Macro 91
+Function ListView_SortItems( hwndLV : hwnd;pfnCompare : PFNLVCOMPARE; lPrm : LPARAM):BOOL;
+
+CONST
+ LVM_SETITEMPOSITION32 = (LVM_FIRST + 49);
+
+// Macro 92
+Procedure ListView_SetItemPosition32(hwndLV:hwnd; i:cint;x0,y0:long);
+
+CONST
+ LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50);
+
+// Macro 93
+Function ListView_GetSelectedCount( hwndLV : hwnd):UINT;
+
+CONST
+ LVM_GETITEMSPACING = (LVM_FIRST + 51);
+
+// Macro 94
+Function ListView_GetItemSpacing( hwndLV : hwnd; fSmall : cint ):DWORD;
+
+CONST
+ LVM_GETISEARCHSTRINGA = (LVM_FIRST + 52);
+ LVM_GETISEARCHSTRINGW = (LVM_FIRST + 117);
+
+{$IFDEF UNICODE}
+ LVM_GETISEARCHSTRING = LVM_GETISEARCHSTRINGW;
+{$ELSE}
+ LVM_GETISEARCHSTRING = LVM_GETISEARCHSTRINGA;
+{$ENDIF}
+
+// Macro 95
+Function ListView_GetISearchString( hwndLV : hwnd; lpsz : LPTSTR):BOOL;
+
+
+{$ifdef ie3plus}
+
+CONST
+ LVM_SETICONSPACING = (LVM_FIRST + 53);
+// -1 for cx and cy means we'll use the default (system settings)
+// 0 for cx or cy means use the current setting (allows you to change just one param)
+
+// Macro 96
+Function ListView_SetIconSpacing( hwndLV : hwnd; cx, cy : cint ):DWORD;
+
+CONST
+ LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54); // optional wParam == mask
+
+// Macro 97
+Function ListView_SetExtendedListViewStyle( hwndLV : hwnd; dw : cint ):DWORD;
+
+{$ifdef ie4plus}
+
+// Macro 98
+Function ListView_SetExtendedListViewStyleEx( hwndLV : hwnd; dwMask, dw : cint ):DWORD;
+
+{$ENDIF}
+
+CONST
+ LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55);
+
+// Macro 99
+Function ListView_GetExtendedListViewStyle( hwndLV : hwnd):DWORD;
+
+CONST
+ LVS_EX_GRIDLINES = $00000001;
+ LVS_EX_SUBITEMIMAGES = $00000002;
+ LVS_EX_CHECKBOXES = $00000004;
+ LVS_EX_TRACKSELECT = $00000008;
+ LVS_EX_HEADERDRAGDROP = $00000010;
+ LVS_EX_FULLROWSELECT = $00000020; // applies to report mode only
+ LVS_EX_ONECLICKACTIVATE = $00000040;
+ LVS_EX_TWOCLICKACTIVATE = $00000080;
+{$ifdef ie4plus}
+ LVS_EX_FLATSB = $00000100;
+ LVS_EX_REGIONAL = $00000200;
+ LVS_EX_INFOTIP = $00000400; // listview does InfoTips for you
+ LVS_EX_UNDERLINEHOT = $00000800;
+ LVS_EX_UNDERLINECOLD = $00001000;
+ LVS_EX_MULTIWORKAREAS = $00002000;
+{$ENDIF}
+{$ifdef ie5plus}
+ LVS_EX_LABELTIP = $00004000; // listview unfolds partly hidden labels if it does not have infotip text
+ LVS_EX_BORDERSELECT = $00008000; // border selection style instead of highlight
+{$ENDIF} // End (_WIN32_IE >= 0x0500)
+{$ifdef win32xp}
+ LVS_EX_DOUBLEBUFFER = $00010000;
+ LVS_EX_HIDELABELS = $00020000;
+ LVS_EX_SINGLEROW = $00040000;
+ LVS_EX_SNAPTOGRID = $00080000; // Icons automatically snap to grid.
+ LVS_EX_SIMPLESELECT = $00100000; // Also changes overlay rendering to top right for icon mode.
+{$ENDIF}
+{$ifdef win32vista}
+ LVS_EX_JUSTIFYCOLUMNS = $00200000; // Icons are lined up in columns that use up the whole view area.
+ LVS_EX_TRANSPARENTBKGND = $00400000; // Background is painted by the parent via WM_PRINTCLIENT
+ LVS_EX_TRANSPARENTSHADOWTEXT = $00800000; // Enable shadow text on transparent backgrounds only (useful with bitmaps)
+ LVS_EX_AUTOAUTOARRANGE = $01000000; // Icons automatically arrange if no icon positions have been set
+ LVS_EX_HEADERINALLVIEWS = $02000000; // Display column header in all view modes
+ LVS_EX_AUTOCHECKSELECT = $08000000;
+ LVS_EX_AUTOSIZECOLUMNS = $10000000;
+ LVS_EX_COLUMNSNAPPOINTS = $40000000;
+ LVS_EX_COLUMNOVERFLOW = $80000000;
+{$endif}
+
+ LVM_GETSUBITEMRECT = (LVM_FIRST + 56);
+
+// Macro 100
+Function ListView_GetSubItemRect( hwnd : hwnd; iItem : cint;iSubItem, code :cint ;prc:LPRECT):BOOL;
+
+CONST
+ LVM_SUBITEMHITTEST = (LVM_FIRST + 57);
+
+// Macro 101
+Function ListView_SubItemHitTest( hwnd : hwnd; plvhti : LPLVHITTESTINFO):cint;
+
+CONST
+ LVM_SETCOLUMNORDERARRAY = (LVM_FIRST + 58);
+
+// Macro 102
+Function ListView_SetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
+
+CONST
+ LVM_GETCOLUMNORDERARRAY = (LVM_FIRST + 59);
+
+// Macro 103
+Function ListView_GetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
+
+
+CONST
+ LVM_SETHOTITEM = (LVM_FIRST + 60);
+
+// Macro 104
+Function ListView_SetHotItem( hwnd : hwnd; i : WPARAM):cint;
+
+CONST
+ LVM_GETHOTITEM = (LVM_FIRST + 61);
+
+// Macro 105
+Function ListView_GetHotItem( hwnd : hwnd):cint;
+
+CONST
+ LVM_SETHOTCURSOR = (LVM_FIRST + 62);
+
+// Macro 106
+Function ListView_SetHotCursor( hwnd : hwnd; hcur : LPARAM):HCURSOR;
+
+CONST
+ LVM_GETHOTCURSOR = (LVM_FIRST + 63);
+
+// Macro 107
+Function ListView_GetHotCursor( hwnd : hwnd):HCURSOR;
+
+CONST
+ LVM_APPROXIMATEVIEWRECT = (LVM_FIRST + 64);
+
+// Macro 108
+Function ListView_ApproximateViewRect( hwnd : hwnd; iWidth, iHeight, iCount : cint ):DWORD;
+
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+{$ifdef ie4plus}
+
+CONST
+ LV_MAX_WORKAREAS = 16;
+ LVM_SETWORKAREAS = (LVM_FIRST + 65);
+
+// Macro 109
+Function ListView_SetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;inline;
+Function ListView_SetWorkAreas( hwnd : hwnd; nWorkAreas : cint; prc : PRECT ):BOOL;inline;
+
+CONST
+ LVM_GETWORKAREAS = (LVM_FIRST + 70);
+
+// Macro 110
+Function ListView_GetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;
+
+CONST
+ LVM_GETNUMBEROFWORKAREAS = (LVM_FIRST + 73);
+
+// Macro 111
+Function ListView_GetNumberOfWorkAreas( hwnd : hwnd;var pnWorkAreas : UINT ):BOOL;
+
+CONST
+ LVM_GETSELECTIONMARK = (LVM_FIRST + 66);
+
+// Macro 112
+Function ListView_GetSelectionMark( hwnd : hwnd):cint;
+
+CONST
+ LVM_SETSELECTIONMARK = (LVM_FIRST + 67);
+
+// Macro 113
+Function ListView_SetSelectionMark( hwnd : hwnd; i : LPARAM):cint;
+
+CONST
+ LVM_SETHOVERTIME = (LVM_FIRST + 71);
+
+// Macro 114
+Function ListView_SetHoverTime( hwndLV : hwnd; dwHoverTimeMs : LPARAM):DWORD;
+
+CONST
+ LVM_GETHOVERTIME = (LVM_FIRST + 72);
+
+// Macro 115
+Function ListView_GetHoverTime( hwndLV : hwnd):DWORD;
+
+CONST
+ LVM_SETTOOLTIPS = (LVM_FIRST + 74);
+
+// Macro 116
+Function ListView_SetToolTips( hwndLV : hwnd; hwndNewHwnd : WPARAM):HWND;
+
+CONST
+ LVM_GETTOOLTIPS = (LVM_FIRST + 78);
+
+// Macro 117
+Function ListView_GetToolTips( hwndLV : hwnd):HWND;
+
+CONST
+ LVM_SORTITEMSEX = (LVM_FIRST + 81);
+
+// Macro 118
+Function ListView_SortItemsEx( hwndLV : hwnd; _pfnCompare : PFNLVCOMPARE; _lPrm : LPARAM):BOOL;
+
+TYPE
+
+ tagLVBKIMAGEA = Record
+ ulFlags : ULONG; // LVBKIF_*
+ hbm : HBITMAP;
+ pszImage : LPSTR;
+ cchImageMax : UINT;
+ xOffsetPercent : cint;
+ yOffsetPercent : cint;
+ END;
+ LVBKIMAGEA = tagLVBKIMAGEA;
+ LPLVBKIMAGEA = ^tagLVBKIMAGEA;
+ TLVBKIMAGEA = tagLVBKIMAGEA;
+ PLVBKIMAGEA = ^tagLVBKIMAGEA;
+
+ tagLVBKIMAGEW = Record
+ ulFlags : ULONG; // LVBKIF_*
+ hbm : HBITMAP;
+ pszImage : LPWSTR;
+ cchImageMax : UINT;
+ xOffsetPercent : cint;
+ yOffsetPercent : cint;
+ END;
+ LVBKIMAGEW = tagLVBKIMAGEW;
+ LPLVBKIMAGEW = ^tagLVBKIMAGEW;
+ TLVBKIMAGEW = tagLVBKIMAGEW;
+ PLVBKIMAGEW = ^tagLVBKIMAGEW;
+
+CONST
+ LVBKIF_SOURCE_NONE = $00000000;
+ LVBKIF_SOURCE_HBITMAP = $00000001;
+ LVBKIF_SOURCE_URL = $00000002;
+ LVBKIF_SOURCE_MASK = $00000003;
+ LVBKIF_STYLE_NORMAL = $00000000;
+ LVBKIF_STYLE_TILE = $00000010;
+ LVBKIF_STYLE_MASK = $00000010;
+{$ifdef win32xp}
+ LVBKIF_FLAG_TILEOFFSET = $00000100;
+ LVBKIF_TYPE_WATERMARK = $10000000;
+{$ENDIF}
+
+ LVM_SETBKIMAGEA = (LVM_FIRST + 68);
+ LVM_SETBKIMAGEW = (LVM_FIRST + 138);
+ LVM_GETBKIMAGEA = (LVM_FIRST + 69);
+ LVM_GETBKIMAGEW = (LVM_FIRST + 139);
+
+{$ifdef win32xp}
+ LVM_SETSELECTEDCOLUMN = (LVM_FIRST + 140);
+
+// Macro 119
+Procedure ListView_SetSelectedColumn( hwnd : hwnd; iCol : WPARAM);
+
+CONST
+ LVM_SETTILEWIDTH = (LVM_FIRST + 141);
+
+// Macro 120
+Procedure ListView_SetTileWidth( hwnd : hwnd; cpWidth : WPARAM);
+
+CONST
+ LV_VIEW_ICON = $0000;
+ LV_VIEW_DETAILS = $0001;
+ LV_VIEW_SMALLICON = $0002;
+ LV_VIEW_LIST = $0003;
+ LV_VIEW_TILE = $0004;
+ LV_VIEW_MAX = $0004;
+ LVM_SETVIEW = (LVM_FIRST + 142);
+
+// Macro 121
+Function ListView_SetView( hwnd : hwnd; iView : DWORD):DWORD;
+
+CONST
+ LVM_GETVIEW = (LVM_FIRST + 143);
+
+// Macro 122
+Function ListView_GetView( hwnd : hwnd):DWORD;
+
+CONST
+ LVGF_NONE = $00000000;
+ LVGF_HEADER = $00000001;
+ LVGF_FOOTER = $00000002;
+ LVGF_STATE = $00000004;
+ LVGF_ALIGN = $00000008;
+ LVGF_GROUPID = $00000010;
+
+{$ifdef win32vista}
+ LVGF_SUBTITLE = $00000100; // pszSubtitle is valid
+ LVGF_TASK = $00000200; // pszTask is valid
+ LVGF_DESCRIPTIONTOP = $00000400; // pszDescriptionTop is valid
+ LVGF_DESCRIPTIONBOTTOM = $00000800; // pszDescriptionBottom is valid
+ LVGF_TITLEIMAGE = $00001000; // iTitleImage is valid
+ LVGF_EXTENDEDIMAGE = $00002000; // iExtendedImage is valid
+ LVGF_ITEMS = $00004000; // iFirstItem and cItems are valid
+ LVGF_SUBSET = $00008000; // pszSubsetTitle is valid
+ LVGF_SUBSETITEMS = $00010000; // readonly, cItems holds count of items in visible subset, iFirstItem is valid
+{$endif}
+
+ LVGS_NORMAL = $00000000;
+ LVGS_COLLAPSED = $00000001;
+ LVGS_HIDDEN = $00000002;
+
+ LVGA_HEADER_LEFT = $00000001;
+ LVGA_HEADER_CENTER = $00000002;
+ LVGA_HEADER_RIGHT = $00000004; // Don't forget to validate exclusivity
+ LVGA_FOOTER_LEFT = $00000008;
+ LVGA_FOOTER_CENTER = $00000010;
+ LVGA_FOOTER_RIGHT = $00000020; // Don't forget to validate exclusivity
+
+TYPE
+
+ tagLVGROUP = Record
+ cbSize : UINT;
+ mask : UINT;
+ pszHeader : LPWSTR;
+ cchHeader : cint;
+ pszFooter : LPWSTR;
+ cchFooter : cint;
+ iGroupId : cint;
+ stateMask : UINT;
+ state : UINT;
+ uAlign : UINT;
+{$ifdef win32vista}
+ pszSubtitle : LPWSTR;
+ cchSubtitle : UINT;
+ pszTask : LPWSTR;
+ cchTask : UINT;
+ pszDescriptionTop : LPWSTR;
+ cchDescriptionTop : UINT;
+ pszDescriptionBottom: LPWSTR;
+ cchDescriptionBottom: UINT;
+ iTitleImage : cint;
+ iExtendedImage : cint;
+ iFirstItem : cint; // Read only
+ cItems : UINT; // Read only
+ pszSubsetTitle : LPWSTR;// NULL if group is not subset
+ cchSubsetTitle : UINT;
+{$endif}
+ END;
+ LVGROUP = tagLVGROUP;
+ PLVGROUP = ^tagLVGROUP;
+ TLVGROUP = tagLVGROUP;
+
+
+CONST
+ LVM_INSERTGROUP = (LVM_FIRST + 145);
+
+// Macro 123
+Procedure ListView_InsertGroup( hwnd : hwnd; index : WPARAM; pgrp : LPARAM);
+
+CONST
+ LVM_SETGROUPINFO = (LVM_FIRST + 147);
+
+// Macro 124
+Procedure ListView_SetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
+
+CONST
+ LVM_GETGROUPINFO = (LVM_FIRST + 149);
+
+// Macro 125
+Procedure ListView_GetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
+
+CONST
+ LVM_REMOVEGROUP = (LVM_FIRST + 150);
+
+// Macro 126
+Procedure ListView_RemoveGroup( hwnd : hwnd; iGroupId : WPARAM);
+
+CONST
+ LVM_MOVEGROUP = (LVM_FIRST + 151);
+
+// Macro 127
+Procedure ListView_MoveGroup( hwnd : hwnd; iGroupId : WPARAM; toIndex : LPARAM);
+
+CONST
+ LVM_MOVEITEMTOGROUP = (LVM_FIRST + 154);
+
+// Macro 128
+Procedure ListView_MoveItemToGroup( hwnd : hwnd; idItemFrom : WPARAM; idGroupTo : LPARAM);
+
+CONST
+ LVGMF_NONE = $00000000;
+ LVGMF_BORDERSIZE = $00000001;
+ LVGMF_BORDERCOLOR = $00000002;
+ LVGMF_TEXTCOLOR = $00000004;
+
+TYPE
+
+ tagLVGROUPMETRICS = Record
+ cbSize : UINT;
+ mask : UINT;
+ Left : UINT;
+ Top : UINT;
+ Right : UINT;
+ Bottom : UINT;
+ crLeft : COLORREF;
+ crTop : COLORREF;
+ crRight : COLORREF;
+ crBottom : COLORREF;
+ crHeader : COLORREF;
+ crFooter : COLORREF;
+ END;
+ LVGROUPMETRICS = tagLVGROUPMETRICS;
+ PLVGROUPMETRICS = ^tagLVGROUPMETRICS;
+ TLVGROUPMETRICS = tagLVGROUPMETRICS;
+
+CONST
+ LVM_SETGROUPMETRICS = (LVM_FIRST + 155);
+
+// Macro 129
+Procedure ListView_SetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
+
+CONST
+ LVM_GETGROUPMETRICS = (LVM_FIRST + 156);
+
+// Macro 130
+Procedure ListView_GetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
+
+CONST
+ LVM_ENABLEGROUPVIEW = (LVM_FIRST + 157);
+
+// Macro 131
+Procedure ListView_EnableGroupView( hwnd : hwnd; fEnable : WPARAM);
+
+TYPE
+ PFNLVGROUPCOMPARE = function(i,j:cint;k:pointer):cint; StdCall;
+
+CONST
+ LVM_SORTGROUPS = (LVM_FIRST + 158);
+
+// Macro 132
+Procedure ListView_SortGroups( hwnd : hwnd; _pfnGroupCompate : WPARAM; _plv : LPARAM);
+
+TYPE
+
+ tagLVINSERTGROUPSORTED = Record
+ pfnGroupCompare : PFNLVGROUPCOMPARE;
+ pvData : Pointer;
+ lvGroup : LVGROUP;
+ END;
+ LVINSERTGROUPSORTED = tagLVINSERTGROUPSORTED;
+ PLVINSERTGROUPSORTED = ^tagLVINSERTGROUPSORTED;
+ TLVINSERTGROUPSORTED = tagLVINSERTGROUPSORTED;
+
+
+CONST
+ LVM_INSERTGROUPSORTED = (LVM_FIRST + 159);
+
+// Macro 133
+Procedure ListView_InsertGroupSorted( hwnd : hwnd; structInsert : WPARAM);
+
+CONST
+ LVM_REMOVEALLGROUPS = (LVM_FIRST + 160);
+
+// Macro 134
+Procedure ListView_RemoveAllGroups( hwnd : hwnd);
+
+CONST
+ LVM_HASGROUP = (LVM_FIRST + 161);
+
+// Macro 135
+Procedure ListView_HasGroup( hwnd : hwnd; dwGroupId : DWORD );
+
+CONST
+ LVTVIF_AUTOSIZE = $00000000;
+ LVTVIF_FIXEDWIDTH = $00000001;
+ LVTVIF_FIXEDHEIGHT = $00000002;
+ LVTVIF_FIXEDSIZE = $00000003;
+{$ifdef win32vista}
+ LVTVIF_EXTENDED = $00000004;
+{$endif}
+ LVTVIM_TILESIZE = $00000001;
+ LVTVIM_COLUMNS = $00000002;
+ LVTVIM_LABELMARGIN = $00000004;
+
+
+TYPE
+
+ tagLVTILEVIEWINFO = Record
+ cbSize : UINT;
+ dwMask : DWORD; //LVTVIM_*
+ dwFlags : DWORD; //LVTVIF_*
+ sizeTile : SIZE;
+ cLines : cint;
+ rcLabelMargin : RECT;
+ END;
+ LVTILEVIEWINFO = tagLVTILEVIEWINFO;
+ PLVTILEVIEWINFO = ^tagLVTILEVIEWINFO;
+ TLVTILEVIEWINFO = tagLVTILEVIEWINFO;
+
+
+ tagLVTILEINFO = Record
+ cbSize : UINT;
+ iItem : cint;
+ cColumns : UINT;
+ puColumns : PUINT;
+ {$ifdef win32vista}
+ piColFmt : PCINT;
+ {$endif}
+ END;
+ LVTILEINFO = tagLVTILEINFO;
+ PLVTILEINFO = ^tagLVTILEINFO;
+ TLVTILEINFO = tagLVTILEINFO;
+
+
+CONST
+ LVM_SETTILEVIEWINFO = (LVM_FIRST + 162);
+
+// Macro 136
+Procedure ListView_SetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
+
+CONST
+ LVM_GETTILEVIEWINFO = (LVM_FIRST + 163);
+
+// Macro 137
+Procedure ListView_GetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
+
+CONST
+ LVM_SETTILEINFO = (LVM_FIRST + 164);
+
+// Macro 138
+Procedure ListView_SetTileInfo( hwnd : hwnd; pti : LPARAM);
+
+CONST
+ LVM_GETTILEINFO = (LVM_FIRST + 165);
+
+// Macro 139
+Procedure ListView_GetTileInfo( hwnd : hwnd; pti : LPARAM);
+
+TYPE
+
+ LVINSERTMARK = Record
+ cbSize : UINT;
+ dwFlags : DWORD;
+ iItem : cint;
+ dwReserved : DWORD;
+ END;
+ LPLVINSERTMARK = ^LVINSERTMARK;
+ TLVINSERTMARK = LVINSERTMARK;
+ PLVINSERTMARK = ^LVINSERTMARK;
+
+CONST
+ LVIM_AFTER = $00000001; // TRUE = insert After iItem, otherwise before
+
+ LVM_SETINSERTMARK = (LVM_FIRST + 166);
+
+// Macro 140
+Function ListView_SetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
+
+CONST
+ LVM_GETINSERTMARK = (LVM_FIRST + 167);
+
+// Macro 141
+Function ListView_GetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
+
+CONST
+ LVM_INSERTMARKHITTEST = (LVM_FIRST + 168);
+
+// Macro 142
+Function ListView_InsertMarkHitTest( hwnd : hwnd; point : LPPOINT; lvim : LPLVINSERTMARK):cint;
+
+CONST
+ LVM_GETINSERTMARKRECT = (LVM_FIRST + 169);
+
+// Macro 143
+Function ListView_GetInsertMarkRect( hwnd : hwnd; rc : LPRECT):cint;
+
+CONST
+ LVM_SETINSERTMARKCOLOR = (LVM_FIRST + 170);
+
+// Macro 144
+Function ListView_SetInsertMarkColor( hwnd : hwnd; color : COLORREF):COLORREF;
+
+CONST
+ LVM_GETINSERTMARKCOLOR = (LVM_FIRST + 171);
+
+// Macro 145
+Function ListView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
+
+TYPE
+
+ tagLVSETINFOTIP = Record
+ cbSize : UINT;
+ dwFlags : DWORD;
+ pszText : LPWSTR;
+ iItem : cint;
+ iSubItem : cint;
+ END;
+ LVSETINFOTIP = tagLVSETINFOTIP;
+ PLVSETINFOTIP = ^tagLVSETINFOTIP;
+ TLVSETINFOTIP = tagLVSETINFOTIP;
+
+
+CONST
+ LVM_SETINFOTIP = (LVM_FIRST + 173);
+
+// Macro 146
+Function ListView_SetInfoTip( hwndLV : hwnd; plvInfoTip : LPARAM):BOOL;
+
+CONST
+ LVM_GETSELECTEDCOLUMN = (LVM_FIRST + 174);
+
+// Macro 147
+Function ListView_GetSelectedColumn( hwnd : hwnd):UINT;
+
+CONST
+ LVM_ISGROUPVIEWENABLED = (LVM_FIRST + 175);
+
+// Macro 148
+Function ListView_IsGroupViewEnabled( hwnd : hwnd):BOOL;
+
+CONST
+ LVM_GETOUTLINECOLOR = (LVM_FIRST + 176);
+
+// Macro 149
+Function ListView_GetOutlineColor( hwnd : hwnd):COLORREF;
+
+CONST
+ LVM_SETOUTLINECOLOR = (LVM_FIRST + 177);
+
+// Macro 150
+Function ListView_SetOutlineColor( hwnd : hwnd; color : COLORREF):COLORREF;
+
+CONST
+ LVM_CANCELEDITLABEL = (LVM_FIRST + 179);
+
+// Macro 151
+Procedure ListView_CancelEditLabel( hwnd : hwnd);
+
+// These next to methods make it easy to identify an item that can be repositioned
+// within listview. For example: Many developers use the lParam to store an identifier that is
+// unique. Unfortunatly, in order to find this item, they have to iterate through all of the items
+// in the listview. Listview will maintain a unique identifier. The upper bound is the size of a DWORD.
+
+CONST
+ LVM_MAPINDEXTOID = (LVM_FIRST + 180);
+
+// Macro 152
+Function ListView_MapIndexToID( hwnd : hwnd; index : WPARAM):UINT;
+
+CONST
+ LVM_MAPIDTOINDEX = (LVM_FIRST + 181);
+
+// Macro 153
+Function ListView_MapIDToIndex( hwnd : hwnd; id : WPARAM):UINT;
+
+const LVM_ISITEMVISIBLE = (LVM_FIRST + 182);
+
+// macro 153b
+function ListView_IsItemVisible(hwnd:hwnd; aindex:cuint):cuint;
+// (UINT)SNDMSG((hwnd), LVM_ISITEMVISIBLE, (WPARAM)(index), (LPARAM)0)
+
+{$ENDIF}
+
+{$ifdef win32vista}
+CONST
+ LVM_GETEMPTYTEXT = (LVM_FIRST + 204);
+ LVM_GETFOOTERRECT = (LVM_FIRST + 205);
+ LVM_GETFOOTERINFO = (LVM_FIRST + 206);
+ LVM_GETFOOTERITEMRECT = (LVM_FIRST + 207);
+ LVM_GETFOOTERITEM = (LVM_FIRST + 208);
+ LVM_GETITEMINDEXRECT = (LVM_FIRST + 209);
+ LVM_SETITEMINDEXSTATE = (LVM_FIRST + 210);
+ LVM_GETNEXTITEMINDEX = (LVM_FIRST + 211);
+
+// footer flags
+ LVFF_ITEMCOUNT = $00000001;
+
+// footer item flags
+ LVFIF_TEXT = $00000001;
+ LVFIF_STATE = $00000002;
+
+// footer item state
+ LVFIS_FOCUSED = $0001;
+
+TYPE
+ tagLVFOOTERINFO = Record
+ mask : CUINT; // LVFF_*
+ pszText : LPWSTR;
+ cchTextMax: CINT;
+ cItems : CUINT;
+ end;
+
+ LVFOOTERINFO = tagLVFOOTERINFO;
+ LPLVFOOTERINFO = ^tagLVFOOTERINFO;
+ TLVFOOTERINFO = tagLVFOOTERINFO;
+ PLVFOOTERINFO = LPLVFOOTERINFO;
+
+
+ tagLVFOOTERITEM = Record
+ mask : CUINT; // LVFIF_*
+ iItem : CINT;
+ pszText : LPWSTR;
+ cchTextMax: CINT;
+ state : CUINT; // LVFIS_*
+ stateMask : CUINT; // LVFIS_*
+ end;
+
+ LVFOOTERITEM = tagLVFOOTERITEM;
+ LPLVFOOTERITEM = ^tagLVFOOTERITEM;
+ TLVFOOTERITEM = tagLVFOOTERITEM;
+ PLVFOOTERITEM = LPLVFOOTERITEM;
+
+// supports a single item in multiple groups.
+ tagLVITEMINDEX = Record
+ iItem : CINT; // listview item index
+ iGroup : CINT; // group index (must be -1 if group view is not enabled)
+ end;
+ LVITEMINDEX = tagLVITEMINDEX;
+ PLVITEMINDEX = ^tagLVITEMINDEX;
+ tLVITEMINDEX = TAGLVITEMINDEX;
+
+
+function ListView_SetGroupHeaderImageList(hwnd:HWNd;himl:HIMAGELIST):HIMAGELIST;
+
+function ListView_GetGroupHeaderImageList(hwnd:HWND):HIMAGELIST;
+
+function ListView_GetEmptyText(hwnd:HWND;pszText:LPWSTR; cchText:CUINT):BOOL;
+
+function ListView_GetFooterRect(hwnd:HWND; prc:PRECT):BOOL;
+
+function ListView_GetFooterInfo(hwnd:HWND;plvfi: LPLVFOOTERINFO ):BOOL;
+
+function ListView_GetFooterItemRect(hwnd:HWND;iItem:CUINT;prc:PRECT):BOOL;
+
+function ListView_GetFooterItem(hwnd:HWND;iItem:CUINT; pfi:PLVFOOTERITEM):BOOL;
+
+function ListView_GetItemIndexRect(hwnd:hwnd; plvii:PLVITEMINDEX; iSubItem:clong; code:clong; prc:LPRECT) :BOOL;
+
+function ListView_SetItemIndexState(hwndLV:HWND; plvii:PLVITEMINDEX; data:CUINT; mask:CUINT):HRESULT;
+
+function ListView_GetNextItemIndex(hwnd:HWND;plvii:PLVITEMINDEX; flags:LPARAM):BOOL;
+
+{$endif}
+
+Type
+
+{$IFDEF UNICODE}
+ LVBKIMAGE = LVBKIMAGEW;
+ LPLVBKIMAGE = LPLVBKIMAGEW;
+CONST
+ LVM_SETBKIMAGE = LVM_SETBKIMAGEW;
+ LVM_GETBKIMAGE = LVM_GETBKIMAGEW;
+{$ELSE}
+ LVBKIMAGE = LVBKIMAGEA;
+ LPLVBKIMAGE = LPLVBKIMAGEA;
+CONST
+ LVM_SETBKIMAGE = LVM_SETBKIMAGEA;
+ LVM_GETBKIMAGE = LVM_GETBKIMAGEA;
+{$ENDIF}
+
+
+// Macro 154
+Function ListView_SetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
+
+// Macro 155
+Function ListView_GetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+TYPE
+
+ tagNMLISTVIEW = Record
+ hdr : NMHDR;
+ iItem : cint;
+ iSubItem : cint;
+ uNewState : UINT;
+ uOldState : UINT;
+ uChanged : UINT;
+ ptAction : POINT;
+ lParam : LPARAM;
+ END;
+ NMLISTVIEW = tagNMLISTVIEW;
+ LPNMLISTVIEW = ^tagNMLISTVIEW;
+ TNMLISTVIEW = tagNMLISTVIEW;
+ PNMLISTVIEW = ^tagNMLISTVIEW;
+
+{$ifdef IE4plus}
+// NMITEMACTIVATE is used instead of NMLISTVIEW in IE >= 0x400
+// therefore all the fields are the same except for extra uKeyFlags
+// they are used to store key flags at the time of the single click with
+// delayed activation - because by the time the timer goes off a user may
+// not hold the keys (shift, ctrl) any more
+ tagNMITEMACTIVATE = Record
+ hdr : NMHDR;
+ iItem : cint;
+ iSubItem : cint;
+ uNewState : UINT;
+ uOldState : UINT;
+ uChanged : UINT;
+ ptAction : POINT;
+ lParam : LPARAM;
+ uKeyFlags : UINT;
+ END;
+ NMITEMACTIVATE = tagNMITEMACTIVATE;
+ LPNMITEMACTIVATE = ^tagNMITEMACTIVATE;
+ TNMITEMACTIVATE = tagNMITEMACTIVATE;
+ PNMITEMACTIVATE = ^tagNMITEMACTIVATE;
+
+// key flags stored in uKeyFlags
+
+CONST
+ LVKF_ALT = $0001;
+ LVKF_CONTROL = $0002;
+ LVKF_SHIFT = $0004;
+{$ENDIF} //(_WIN32_IE >= 0x0400)
+Type
+
+{$ifdef ie3plus}
+ LPNM_LISTVIEW = LPNMLISTVIEW;
+ NM_LISTVIEW = NMLISTVIEW;
+{$ELSE}
+ tagNMLISTVIEW = _NM_LISTVIEW;
+ NMLISTVIEW = NM_LISTVIEW;
+ LPNMLISTVIEW = LPNM_LISTVIEW;
+{$ENDIF}
+
+
+{$ifdef ie3plus}
+// #define NMLVCUSTOMDRAW_V3_SIZE CCSIZEOF_STRUCT(NMLVCUSTOMDRW, clrTextBk)
+
+TYPE
+
+ tagNMLVCUSTOMDRAW = Record
+ nmcd : NMCUSTOMDRAW;
+ clrText : COLORREF;
+ clrTextBk : COLORREF;
+{$ifdef ie4plus}
+ iSubItem : cint;
+{$ENDIF}
+{$ifdef win32xp}
+ dwItemType : DWORD;
+
+ clrFace : COLORREF;
+ iIconEffect : cint;
+ iIconPhase : cint;
+ iPartId : cint;
+ iStateId : cint;
+
+ rcText : RECT;
+ uAlign : UINT; // Alignment. Use LVGA_HEADER_CENTER, LVGA_HEADER_RIGHT, LVGA_HEADER_LEFT
+{$ENDIF}
+ END;
+ NMLVCUSTOMDRAW = tagNMLVCUSTOMDRAW;
+ LPNMLVCUSTOMDRAW = ^tagNMLVCUSTOMDRAW;
+ TNMLVCUSTOMDRAW = tagNMLVCUSTOMDRAW;
+ PNMLVCUSTOMDRAW = ^tagNMLVCUSTOMDRAW;
+
+
+// dwItemType
+
+CONST
+ LVCDI_ITEM = $00000000;
+ LVCDI_GROUP = $00000001;
+
+// ListView custom draw return values
+ LVCDRF_NOSELECT = $00010000;
+ LVCDRF_NOGROUPFRAME = $00020000;
+
+TYPE
+
+ tagNMLVCACHEHINT = Record
+ hdr : NMHDR;
+ iFrom : cint;
+ iTo : cint;
+ END;
+ NMLVCACHEHINT = tagNMLVCACHEHINT;
+ LPNMLVCACHEHINT = ^tagNMLVCACHEHINT;
+ TNMLVCACHEHINT = tagNMLVCACHEHINT;
+ PNMLVCACHEHINT = ^tagNMLVCACHEHINT;
+
+
+ LPNM_CACHEHINT = LPNMLVCACHEHINT;
+ PNM_CACHEHINT = LPNMLVCACHEHINT;
+
+ NM_CACHEHINT = NMLVCACHEHINT;
+
+ tagNMLVFINDITEMA = Record
+ hdr : NMHDR;
+ iStart : cint;
+ lvfi : LVFINDINFOA;
+ END;
+ NMLVFINDITEMA = tagNMLVFINDITEMA;
+ LPNMLVFINDITEMA = ^tagNMLVFINDITEMA;
+ TNMLVFINDITEMA = tagNMLVFINDITEMA;
+ PNMLVFINDITEMA = ^tagNMLVFINDITEMA;
+
+
+ tagNMLVFINDITEMW = Record
+ hdr : NMHDR;
+ iStart : cint;
+ lvfi : LVFINDINFOW;
+ END;
+ NMLVFINDITEMW = tagNMLVFINDITEMW;
+ LPNMLVFINDITEMW = ^tagNMLVFINDITEMW;
+ TNMLVFINDITEMW = tagNMLVFINDITEMW;
+ PNMLVFINDITEMW = ^tagNMLVFINDITEMW;
+
+
+ PNM_FINDITEMA = LPNMLVFINDITEMA;
+ LPNM_FINDITEMA = LPNMLVFINDITEMA;
+ NM_FINDITEMA = NMLVFINDITEMA;
+
+ PNM_FINDITEMW = LPNMLVFINDITEMW;
+ LPNM_FINDITEMW = LPNMLVFINDITEMW;
+ NM_FINDITEMW = NMLVFINDITEMW;
+
+{$IFDEF UNICODE}
+ PNM_FINDITEM = PNM_FINDITEMW;
+ LPNM_FINDITEM = LPNM_FINDITEMW;
+ NM_FINDITEM = NM_FINDITEMW;
+ NMLVFINDITEM = NMLVFINDITEMW;
+ LPNMLVFINDITEM = LPNMLVFINDITEMW;
+{$ELSE}
+ PNM_FINDITEM = PNM_FINDITEMA;
+ LPNM_FINDITEM = LPNM_FINDITEMA;
+ NM_FINDITEM = NM_FINDITEMA;
+ NMLVFINDITEM = NMLVFINDITEMA;
+ LPNMLVFINDITEM = LPNMLVFINDITEMA;
+{$ENDIF}
+ PNMLVFindItem = LPNMLVFINDITEM;
+ TNMLVFindItem = NMLVFINDITEM;
+
+ tagNMLVODSTATECHANGE = Record
+ hdr : NMHDR;
+ iFrom : cint;
+ iTo : cint;
+ uNewState : UINT;
+ uOldState : UINT;
+ END;
+ NMLVODSTATECHANGE = tagNMLVODSTATECHANGE;
+ LPNMLVODSTATECHANGE = ^tagNMLVODSTATECHANGE;
+ TNMLVODSTATECHANGE = tagNMLVODSTATECHANGE;
+ PNMLVODSTATECHANGE = ^tagNMLVODSTATECHANGE;
+
+
+ PNM_ODSTATECHANGE = LPNMLVODSTATECHANGE;
+ LPNM_ODSTATECHANGE = LPNMLVODSTATECHANGE;
+
+
+ NM_ODSTATECHANGE = NMLVODSTATECHANGE;
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+CONST
+ LVN_ITEMCHANGING = (LVN_FIRST-0);
+ LVN_ITEMCHANGED = (LVN_FIRST-1);
+ LVN_INSERTITEM = (LVN_FIRST-2);
+ LVN_DELETEITEM = (LVN_FIRST-3);
+ LVN_DELETEALLITEMS = (LVN_FIRST-4);
+ LVN_BEGINLABELEDITA = (LVN_FIRST-5);
+ LVN_BEGINLABELEDITW = (LVN_FIRST-75);
+ LVN_ENDLABELEDITA = (LVN_FIRST-6);
+ LVN_ENDLABELEDITW = (LVN_FIRST-76);
+ LVN_COLUMNCLICK = (LVN_FIRST-8);
+ LVN_BEGINDRAG = (LVN_FIRST-9);
+ LVN_BEGINRDRAG = (LVN_FIRST-11);
+
+{$ifdef ie3plus}
+ LVN_ODCACHEHINT = (LVN_FIRST-13);
+ LVN_ODFINDITEMA = (LVN_FIRST-52);
+ LVN_ODFINDITEMW = (LVN_FIRST-79);
+
+ LVN_ITEMACTIVATE = (LVN_FIRST-14);
+ LVN_ODSTATECHANGED = (LVN_FIRST-15);
+
+Const
+{$IFDEF UNICODE}
+ LVN_ODFINDITEM = LVN_ODFINDITEMW;
+{$ELSE}
+ LVN_ODFINDITEM = LVN_ODFINDITEMA;
+{$ENDIF}
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+
+CONST
+{$ifdef ie4plus}
+ LVN_HOTTRACK = (LVN_FIRST-21);
+{$ENDIF}
+
+ LVN_GETDISPINFOA = (LVN_FIRST-50);
+ LVN_GETDISPINFOW = (LVN_FIRST-77);
+ LVN_SETDISPINFOA = (LVN_FIRST-51);
+ LVN_SETDISPINFOW = (LVN_FIRST-78);
+
+Const
+{$IFDEF UNICODE}
+ LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITW;
+ LVN_ENDLABELEDIT = LVN_ENDLABELEDITW;
+ LVN_GETDISPINFO = LVN_GETDISPINFOW;
+ LVN_SETDISPINFO = LVN_SETDISPINFOW;
+{$ELSE}
+ LVN_BEGINLABELEDIT = LVN_BEGINLABELEDITA;
+ LVN_ENDLABELEDIT = LVN_ENDLABELEDITA;
+ LVN_GETDISPINFO = LVN_GETDISPINFOA;
+ LVN_SETDISPINFO = LVN_SETDISPINFOA;
+{$ENDIF}
+
+CONST
+ LVIF_DI_SETITEM = $1000;
+
+TYPE
+
+ tagLVDISPINFO = Record
+ hdr : NMHDR;
+ item : LVITEMA;
+ END;
+ NMLVDISPINFOA = tagLVDISPINFO;
+ LPNMLVDISPINFOA = ^tagLVDISPINFO;
+ TLVDISPINFO = tagLVDISPINFO;
+ PLVDISPINFO = ^tagLVDISPINFO;
+
+
+ tagLVDISPINFOW = Record
+ hdr : NMHDR;
+ item : LVITEMW;
+ END;
+ NMLVDISPINFOW = tagLVDISPINFOW;
+ LPNMLVDISPINFOW = ^tagLVDISPINFOW;
+ TLVDISPINFOW = tagLVDISPINFOW;
+ PLVDISPINFOW = ^tagLVDISPINFOW;
+
+
+{$IFDEF UNICODE}
+ NMLVDISPINFO = NMLVDISPINFOW;
+{$ELSE}
+ NMLVDISPINFO = NMLVDISPINFOA;
+{$ENDIF}
+
+{$ifdef ie3plus}
+ LV_DISPINFOA = NMLVDISPINFOA;
+ LV_DISPINFOW = NMLVDISPINFOW;
+{$ELSE}
+ tagLVDISPINFO = _LV_DISPINFO;
+ NMLVDISPINFOA = LV_DISPINFOA;
+ tagLVDISPINFOW = _LV_DISPINFOW;
+ NMLVDISPINFOW = LV_DISPINFOW;
+{$ENDIF}
+
+
+ LV_DISPINFO = NMLVDISPINFO;
+
+CONST
+ LVN_KEYDOWN = (LVN_FIRST-55);
+
+
+
+{$IFDEF _WIN32}
+// include <pshpack1.h>
+{$ENDIF}
+
+TYPE
+ tagLVKEYDOWN = Record
+ hdr : NMHDR;
+ wVKey : WORD;
+ flags : UINT;
+ END;
+ NMLVKEYDOWN = tagLVKEYDOWN;
+ LPNMLVKEYDOWN = ^tagLVKEYDOWN;
+ TLVKEYDOWN = tagLVKEYDOWN;
+ PLVKEYDOWN = ^tagLVKEYDOWN;
+
+
+{$IFDEF _WIN32}
+//include <poppack.h>
+{$ENDIF}
+
+{$ifdef ie3plus}
+CONST
+ LVN_MARQUEEBEGIN = (LVN_FIRST-56);
+{$ENDIF}
+
+{$ifdef win32vista}
+Type
+ tagNMLVLIN = Record
+ hdr: NMHDR;
+ link: LITEM;
+ iItem: cint;
+ iSubItem: cint;
+ end;
+ NMLVLINK = tagNMLVLIN;
+ TNMLVLINK = tagNMLVLIN;
+ PNMLVLINK = ^tagNMLVLIN;
+{$endif}
+
+{$ifdef ie4plus}
+TYPE
+
+ tagNMLVGETINFOTIPA = Record
+ hdr : NMHDR;
+ dwFlags : DWORD;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iItem : cint;
+ iSubItem : cint;
+ lParam : LPARAM;
+ END;
+ NMLVGETINFOTIPA = tagNMLVGETINFOTIPA;
+ LPNMLVGETINFOTIPA = ^tagNMLVGETINFOTIPA;
+ TNMLVGETINFOTIPA = tagNMLVGETINFOTIPA;
+ PNMLVGETINFOTIPA = ^tagNMLVGETINFOTIPA;
+
+
+ tagNMLVGETINFOTIPW = Record
+ hdr : NMHDR;
+ dwFlags : DWORD;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iItem : cint;
+ iSubItem : cint;
+ lParam : LPARAM;
+ END;
+ NMLVGETINFOTIPW = tagNMLVGETINFOTIPW;
+ LPNMLVGETINFOTIPW = ^tagNMLVGETINFOTIPW;
+ TNMLVGETINFOTIPW = tagNMLVGETINFOTIPW;
+ PNMLVGETINFOTIPW = ^tagNMLVGETINFOTIPW;
+
+{$ifdef ie3plus}
+ LV_KEYDOWN = NMLVKEYDOWN;
+{$ELSE}
+ tagLVKEYDOWN = _LV_KEYDOWN;
+ NMLVKEYDOWN = LV_KEYDOWN;
+{$ENDIF}
+
+
+// NMLVGETINFOTIPA.dwFlag values
+
+CONST
+ LVGIT_UNFOLDED = $0001;
+
+ LVN_GETINFOTIPA = (LVN_FIRST-57);
+ LVN_GETINFOTIPW = (LVN_FIRST-58);
+ LVN_INCREMENTALSEARCHA = (LVN_FIRST-62);
+ LVN_INCREMENTALSEARCHW = (LVN_FIRST-63);
+
+ LVNSCH_DEFAULT = -1;
+ LVNSCH_ERROR = -2;
+ LVNSCH_IGNORE = -3;
+
+{$ifdef win32vista}
+ LVN_COLUMNDROPDOWN = (LVN_FIRST-64);
+ LVN_COLUMNOVERFLOWCLICK = (LVN_FIRST-66);
+{$endif}
+
+Const
+{$IFDEF UNICODE}
+ LVN_GETINFOTIP = LVN_GETINFOTIPW;
+type
+ NMLVGETINFOTIP = NMLVGETINFOTIPW;
+ LPNMLVGETINFOTIP = LPNMLVGETINFOTIPW;
+{$ELSE}
+ LVN_GETINFOTIP = LVN_GETINFOTIPA;
+type
+ NMLVGETINFOTIP = NMLVGETINFOTIPA;
+ LPNMLVGETINFOTIP = LPNMLVGETINFOTIPA;
+{$ENDIF}
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+
+{$ifdef win32xp} // actually 2003
+ tagNMLVSCROLL = Record
+ hdr : NMHDR;
+ dx : cint;
+ dy : cint;
+ END;
+ NMLVSCROLL = tagNMLVSCROLL;
+ LPNMLVSCROLL = ^tagNMLVSCROLL;
+ TNMLVSCROLL = tagNMLVSCROLL;
+ PNMLVSCROLL = ^tagNMLVSCROLL;
+
+
+CONST
+ LVN_BEGINSCROLL = (LVN_FIRST-80);
+ LVN_ENDSCROLL = (LVN_FIRST-81);
+// {$ENDIF}
+
+{$ifdef win32vista}
+ LVN_LINKCLICK = (LVN_FIRST-84);
+ LVN_GETEMPTYMARKUP = (LVN_FIRST-87);
+
+ EMF_CENTERED = $00000001; // render markup centered in the listview area
+
+Type
+ tagNMLVEMPTYMARKUP = Record
+ hdr : NMHDR;
+ // out params from client back to listview
+ dwFlags :DWORD; // EMF_*
+ szMarkup : array[0..L_MAX_URL_LENGTH-1] of wchar; // markup displayed
+ end;
+ NMLVEMPTYMARKUP = tagNMLVEMPTYMARKUP;
+ TNMLVEMPTYMARKUP = tagNMLVEMPTYMARKUP;
+ PNMLVEMPTYMARKUP = ^tagNMLVEMPTYMARKUP;
+
+{$endif}
+
+{$ENDIF} // NOLISTVIEW
+
+//====== TREEVIEW CONTROL =====================================================
+
+{$IFNDEF NOTREEVIEW}
+
+CONST
+{$IFDEF _WIN32}
+ WC_TREEVIEWA = 'SysTreeView32';
+ WC_TREEVIEWW = {L}'SysTreeView32';
+
+{$IFDEF UNICODE}
+ WC_TREEVIEW = WC_TREEVIEWW;
+{$ELSE}
+ WC_TREEVIEW = WC_TREEVIEWA;
+{$ENDIF}
+{$ELSE}
+ WC_TREEVIEW = 'SysTreeView';
+{$ENDIF}
+
+// begin_r_commctrl
+
+ TVS_HASBUTTONS = $0001;
+ TVS_HASLINES = $0002;
+ TVS_LINESATROOT = $0004;
+ TVS_EDITLABELS = $0008;
+ TVS_DISABLEDRAGDROP = $0010;
+ TVS_SHOWSELALWAYS = $0020;
+{$ifdef ie3plus}
+ TVS_RTLREADING = $0040;
+
+ TVS_NOTOOLTIPS = $0080;
+ TVS_CHECKBOXES = $0100;
+ TVS_TRACKSELECT = $0200;
+{$ifdef ie4plus}
+ TVS_SINGLEEXPAND = $0400;
+ TVS_INFOTIP = $0800;
+ TVS_FULLROWSELECT = $1000;
+ TVS_NOSCROLL = $2000;
+ TVS_NONEVENHEIGHT = $4000;
+{$ENDIF}
+{$ifdef ie5plus}
+ TVS_NOHSCROLL = $8000; // TVS_NOSCROLL overrides this
+{$ENDIF}
+{$ifdef win32vista}
+ TVS_EX_MULTISELECT = $0002;
+ TVS_EX_DOUBLEBUFFER = $0004;
+ TVS_EX_NOINDENTSTATE = $0008;
+ TVS_EX_RICHTOOLTIP = $0010;
+ TVS_EX_AUTOHSCROLL = $0020;
+ TVS_EX_FADEINOUTEXPANDOS = $0040;
+ TVS_EX_PARTIALCHECKBOXES = $0080;
+ TVS_EX_EXCLUSIONCHECKBOXES = $0100;
+ TVS_EX_DIMMEDCHECKBOXES = $0200;
+ TVS_EX_DRAWIMAGEASYNC = $0400;
+{$endif}
+{$ENDIF}
+
+// end_r_commctrl
+
+TYPE
+ HTREEITEM = ^TREEITEM;
+
+CONST
+ TVIF_TEXT = $0001;
+ TVIF_IMAGE = $0002;
+ TVIF_PARAM = $0004;
+ TVIF_STATE = $0008;
+ TVIF_HANDLE = $0010;
+ TVIF_SELECTEDIMAGE = $0020;
+ TVIF_CHILDREN = $0040;
+{$ifdef ie4plus}
+ TVIF_INTEGRAL = $0080;
+{$ENDIF}
+{$ifdef win32vista}
+ TVIF_STATEEX = $0100;
+ TVIF_EXPANDEDIMAGE = $0200;
+{$endif}
+ TVIS_SELECTED = $0002;
+ TVIS_CUT = $0004;
+ TVIS_DROPHILITED = $0008;
+ TVIS_BOLD = $0010;
+ TVIS_EXPANDED = $0020;
+ TVIS_EXPANDEDONCE = $0040;
+{$ifdef ie3plus}
+ TVIS_EXPANDPARTIAL = $0080;
+{$ENDIF}
+
+ TVIS_OVERLAYMASK = $0F00;
+ TVIS_STATEIMAGEMASK = $F000;
+ TVIS_USERMASK = $F000;
+
+// IE6
+ TVIS_EX_FLAT = $0001;
+{$ifdef win32vista}
+ TVIS_EX_DISABLED = $0002;
+{$endif}
+ TVIS_EX_ALL = $0002;
+Type
+
+// Structure for TreeView's NM_TVSTATEIMAGECHANGING notification
+ tagNMTVSTATEIMAGECHANGING = Record
+ hdr : NMHDR;
+ hti : HTREEITEM;
+ iOldStateImageIndex : cint;
+ iNewStateImageIndex : cint;
+ end;
+ NMTVSTATEIMAGECHANGING = tagNMTVSTATEIMAGECHANGING;
+ LPNMTVSTATEIMAGECHANGING = ^tagNMTVSTATEIMAGECHANGING;
+
+Const
+ I_CHILDRENCALLBACK = (-1);
+Type
+ tagTVITEMA = Record
+ mask : UINT;
+ hItem : HTREEITEM;
+ state : UINT;
+ stateMask : UINT;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ iSelectedImage : cint;
+ cChildren : cint;
+ lParam : LPARAM;
+{$ifdef ie6plus}
+ uStateEx : cUINT;
+ hwnd : HWND;
+ iExpandedImage : cint;
+{$endif}
+{$ifdef NTDDI_WIN7}
+ iPadding : cint;
+{$endif}
+ END;
+ TVITEMA = tagTVITEMA;
+ LPTVITEMA = ^tagTVITEMA;
+ TTVITEMA = tagTVITEMA;
+ PTVITEMA = ^tagTVITEMA;
+
+
+ tagTVITEMW = Record
+ mask : UINT;
+ hItem : HTREEITEM;
+ state : UINT;
+ stateMask : UINT;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ iSelectedImage : cint;
+ cChildren : cint;
+ lParam : LPARAM;
+{$ifdef ie6plus}
+ uStateEx : cUINT;
+ hwnd : HWND;
+ iExpandedImage : cint;
+{$endif}
+{$ifdef NTDDI_WIN7}
+ iPadding : cint;
+{$endif}
+ END;
+ TVITEMW = tagTVITEMW;
+ LPTVITEMW = ^tagTVITEMW;
+ TTVITEMW = tagTVITEMW;
+ PTVITEMW = ^tagTVITEMW;
+
+
+{$ifdef ie4plus}
+// only used for Get and Set messages. no notifies
+ tagTVITEMEXA = Record
+ mask : UINT;
+ hItem : HTREEITEM;
+ state : UINT;
+ stateMask : UINT;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ iSelectedImage : cint;
+ cChildren : cint;
+ lParam : LPARAM;
+ iIntegral : cint;
+ END;
+ TVITEMEXA = tagTVITEMEXA;
+ LPTVITEMEXA = ^tagTVITEMEXA;
+ TTVITEMEXA = tagTVITEMEXA;
+ PTVITEMEXA = ^tagTVITEMEXA;
+
+// only used for Get and Set messages. no notifies
+ tagTVITEMEXW = Record
+ mask : UINT;
+ hItem : HTREEITEM;
+ state : UINT;
+ stateMask : UINT;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ iSelectedImage : cint;
+ cChildren : cint;
+ lParam : LPARAM;
+ iIntegral : cint;
+ END;
+ TVITEMEXW = tagTVITEMEXW;
+ LPTVITEMEXW = ^tagTVITEMEXW;
+ TTVITEMEXW = tagTVITEMEXW;
+ PTVITEMEXW = ^tagTVITEMEXW;
+
+
+TYPE
+{$ifdef ie3plus}
+ LPTV_ITEMW = LPTVITEMW;
+ LPTV_ITEMA = LPTVITEMA;
+ TV_ITEMW = TVITEMW;
+ TV_ITEMA = TVITEMA;
+{$ELSE}
+ tagTVITEMA = _TV_ITEMA;
+ TVITEMA = TV_ITEMA;
+ LPTVITEMA = LPTV_ITEMA;
+ tagTVITEMW = _TV_ITEMW;
+ TVITEMW = TV_ITEMW;
+ LPTVITEMW = LPTV_ITEMW;
+{$ENDIF}
+ TTVItem = TVITEMA;
+ PTVItem = LPTVITEMA;
+
+
+
+
+
+{$IFDEF UNICODE}
+ TVITEMEX = TVITEMEXW;
+ LPTVITEMEX = LPTVITEMEXW;
+{$ELSE}
+ TVITEMEX = TVITEMEXA;
+ LPTVITEMEX = LPTVITEMEXA;
+{$ENDIF} // UNICODE
+
+
+{$ENDIF}
+
+{$IFDEF UNICODE}
+ TVITEM = TVITEMW;
+ LPTVITEM = LPTVITEMW;
+{$ELSE}
+ TVITEM = TVITEMA;
+ LPTVITEM = LPTVITEMA;
+{$ENDIF}
+
+ LPTV_ITEM = LPTVITEM;
+ TV_ITEM = TVITEM;
+
+CONST
+ TVI_ROOT = HTREEITEM(ULONG_PTR(-$10000));
+ TVI_FIRST = HTREEITEM(ULONG_PTR(-$0FFFF));
+ TVI_LAST = HTREEITEM(ULONG_PTR(-$0FFFE));
+ TVI_SORT = HTREEITEM(ULONG_PTR(-$0FFFD));
+
+
+
+// #define TVINSERTSTRUCTA_V1_SIZE CCSIZEOF_STRUCT(TVINSERTSTRUCTA, item)
+// #define TVINSERTSTRUCTW_V1_SIZE CCSIZEOF_STRUCT(TVINSERTSTRUCTW, item)
+Type
+ tagTVINSERTSTRUCTA = Record
+ hParent : HTREEITEM;
+ hInsertAfter : HTREEITEM;
+{$ifdef ie4plus}
+ case boolean of
+ false: (itemex : TVITEMEXA);
+ True: (item : TV_ITEMA);
+{$ELSE}
+ item : TV_ITEMA;
+{$ENDIF}
+ END;
+ TVINSERTSTRUCTA = tagTVINSERTSTRUCTA;
+ LPTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA;
+ TTVINSERTSTRUCTA = tagTVINSERTSTRUCTA;
+ PTVINSERTSTRUCTA = ^tagTVINSERTSTRUCTA;
+ TTVINSERTSTRUCT = TTVINSERTSTRUCTA;
+ PTVINSERTSTRUCT = PTVINSERTSTRUCTA;
+
+
+ tagTVINSERTSTRUCTW = Record
+ hParent : HTREEITEM;
+ hInsertAfter : HTREEITEM;
+{$ifdef ie4plus}
+ case boolean of
+ false: (itemex : TVITEMEXW);
+ True: (item : TV_ITEMW);
+{$ELSE}
+ item : TV_ITEMW;
+{$ENDIF}
+ END;
+ TVINSERTSTRUCTW = tagTVINSERTSTRUCTW;
+ LPTVINSERTSTRUCTW = ^tagTVINSERTSTRUCTW;
+ TTVINSERTSTRUCTW = tagTVINSERTSTRUCTW;
+ PTVINSERTSTRUCTW = ^tagTVINSERTSTRUCTW;
+
+
+{$IFDEF UNICODE}
+ TVINSERTSTRUCT = TVINSERTSTRUCTW;
+ LPTVINSERTSTRUCT = LPTVINSERTSTRUCTW;
+// TVINSERTSTRUCT_V1_SIZE = TVINSERTSTRUCTW_V1_SIZE;
+{$ELSE}
+ TVINSERTSTRUCT = TVINSERTSTRUCTA;
+ LPTVINSERTSTRUCT = LPTVINSERTSTRUCTA;
+// TVINSERTSTRUCT_V1_SIZE = TVINSERTSTRUCTA_V1_SIZE;
+{$ENDIF}
+CONST
+ TVM_INSERTITEMA = (TV_FIRST + 0);
+ TVM_INSERTITEMW = (TV_FIRST + 50);
+{$IFDEF UNICODE}
+ TVM_INSERTITEM = TVM_INSERTITEMW;
+{$ELSE}
+ TVM_INSERTITEM = TVM_INSERTITEMA;
+{$ENDIF}
+
+TYPE
+{$ifdef ie3plus}
+ LPTV_INSERTSTRUCTA = LPTVINSERTSTRUCTA;
+ LPTV_INSERTSTRUCTW = LPTVINSERTSTRUCTW;
+ TV_INSERTSTRUCTA = TVINSERTSTRUCTA;
+ TV_INSERTSTRUCTW = TVINSERTSTRUCTW;
+{$ELSE}
+ tagTVINSERTSTRUCTA = _TV_INSERTSTRUCTA;
+ TVINSERTSTRUCTA = TV_INSERTSTRUCTA;
+ LPTVINSERTSTRUCTA = LPTV_INSERTSTRUCTA;
+ tagTVINSERTSTRUCTW = _TV_INSERTSTRUCTW;
+ TVINSERTSTRUCTW = TV_INSERTSTRUCTW;
+ LPTVINSERTSTRUCTW = LPTV_INSERTSTRUCTW;
+{$ENDIF}
+
+
+ TV_INSERTSTRUCT = TVINSERTSTRUCT;
+ LPTV_INSERTSTRUCT = LPTVINSERTSTRUCT;
+
+
+// Macro 156
+Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM;inline;
+Function TreeView_InsertItem( hwnd : hwnd; const lpis : TV_INSERTSTRUCT):HTREEITEM;inline;
+
+CONST
+ TVM_DELETEITEM = (TV_FIRST + 1);
+
+// Macro 157
+Function TreeView_DeleteItem( hwnd : hwnd; hitem : HTREEITEM):BOOL;
+
+// Macro 158
+Function TreeView_DeleteAllItems( hwnd : hwnd):BOOL;
+
+CONST
+ TVM_EXPAND = (TV_FIRST + 2);
+
+// Macro 159
+Function TreeView_Expand( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
+
+CONST
+ TVE_COLLAPSE = $0001;
+ TVE_EXPAND = $0002;
+ TVE_TOGGLE = $0003;
+{$ifdef ie3plus}
+ TVE_EXPANDPARTIAL = $4000;
+{$ENDIF}
+ TVE_COLLAPSERESET = $8000;
+
+
+ TVM_GETITEMRECT = (TV_FIRST + 4);
+
+// Macro 160
+Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; code : WPARAM; prc : pRECT):BOOL;inline;
+Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; var prc : TRECT;code : Bool):BOOL;inline;
+
+CONST
+ TVM_GETCOUNT = (TV_FIRST + 5);
+
+// Macro 161
+Function TreeView_GetCount( hwnd : hwnd):UINT;
+
+CONST
+ TVM_GETINDENT = (TV_FIRST + 6);
+
+// Macro 162
+Function TreeView_GetIndent( hwnd : hwnd):UINT;
+
+CONST
+ TVM_SETINDENT = (TV_FIRST + 7);
+
+// Macro 163
+Function TreeView_SetIndent( hwnd : hwnd; indent : WPARAM):BOOL;
+
+CONST
+ TVM_GETIMAGELIST = (TV_FIRST + 8);
+
+// Macro 164
+Function TreeView_GetImageList( hwnd : hwnd; iImage : cint ):HIMAGELIST;
+
+CONST
+ TVSIL_NORMAL = 0;
+ TVSIL_STATE = 2;
+
+
+ TVM_SETIMAGELIST = (TV_FIRST + 9);
+
+// Macro 165
+Function TreeView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImage : cint):HIMAGELIST;
+
+CONST
+ TVM_GETNEXTITEM = (TV_FIRST + 10);
+
+// Macro 166
+Function TreeView_GetNextItem( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):HTREEITEM;
+
+CONST
+ TVGN_ROOT = $0000;
+ TVGN_NEXT = $0001;
+ TVGN_PREVIOUS = $0002;
+ TVGN_PARENT = $0003;
+ TVGN_CHILD = $0004;
+ TVGN_FIRSTVISIBLE = $0005;
+ TVGN_NEXTVISIBLE = $0006;
+ TVGN_PREVIOUSVISIBLE = $0007;
+ TVGN_DROPHILITE = $0008;
+ TVGN_CARET = $0009;
+{$ifdef ie4plus}
+ TVGN_LASTVISIBLE = $000A;
+{$ENDIF} // _WIN32_IE >= 0x0400
+{$ifdef ie6plus}
+ TVGN_NEXTSELECTED = $000B;
+{$endif}
+{$ifdef win32xp} // 0x501
+ TVSI_NOSINGLEEXPAND = $8000; // Should not conflict with TVGN flags.
+{$ENDIF}
+
+function TreeView_GetChild(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+function TreeView_GetNextSibling(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+function TreeView_GetPrevSibling(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+function TreeView_GetParent(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+function TreeView_GetFirstVisible(hwnd:hwnd) : HTREEITEM;inline;
+function TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+function TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+function TreeView_GetSelection(hwnd:hwnd) : HTREEITEM;inline;
+function TreeView_GetDropHilight(hwnd:hwnd) : HTREEITEM;inline;
+function TreeView_GetDropHilite(hwnd:hwnd) : HTREEITEM;inline;
+function TreeView_GetRoot(hwnd:hwnd) : HTREEITEM;inline;
+function TreeView_GetLastVisible(hwnd:hwnd) : HTREEITEM;inline;
+
+{$ifdef win32vista}
+function TreeView_GetNextSelected(hwnd:hwnd; hitem:HTREEITEM):HTREEITEM;inline;
+{$endif}
+
+CONST
+ TVM_SELECTITEM = (TV_FIRST + 11);
+
+// Macro 178
+Function TreeView_Select( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
+
+// Macro 179
+Procedure TreeView_SelectItem(hwnd:hwnd; hitem:HTREEITEM);
+
+// Macro 180
+Procedure TreeView_SelectDropTarget(hwnd:hwnd; hitem:HTREEITEM);
+
+// Macro 181
+Procedure TreeView_SelectSetFirstVisible(hwnd:hwnd; hitem:HTREEITEM);
+
+CONST
+ TVM_GETITEMA = (TV_FIRST + 12);
+ TVM_GETITEMW = (TV_FIRST + 62);
+
+{$IFDEF UNICODE}
+
+TYPE
+ TVM_GETITEM = TVM_GETITEMW;
+{$ELSE}
+ TVM_GETITEM = TVM_GETITEMA;
+{$ENDIF}
+
+// Macro 182
+
+
+Function TreeView_GetItem( hwnd : hwnd;var pitem : TV_ITEM ):BOOL;
+
+
+
+
+CONST
+ TVM_SETITEMA = (TV_FIRST + 13);
+ TVM_SETITEMW = (TV_FIRST + 63);
+
+{$IFDEF UNICODE}
+
+TYPE
+ TVM_SETITEM = TVM_SETITEMW;
+{$ELSE}
+ TVM_SETITEM = TVM_SETITEMA;
+{$ENDIF}
+
+// Macro 183
+
+
+Function TreeView_SetItem( hwnd : hwnd;const pitem : TV_ITEM ):BOOL;
+
+
+CONST
+ TVM_EDITLABELA = (TV_FIRST + 14);
+ TVM_EDITLABELW = (TV_FIRST + 65);
+{$IFDEF UNICODE}
+
+TYPE
+ TVM_EDITLABEL = TVM_EDITLABELW;
+{$ELSE}
+ TVM_EDITLABEL = TVM_EDITLABELA;
+{$ENDIF}
+
+// Macro 184
+
+
+Function TreeView_EditLabel( hwnd : hwnd; hitem : HTREEITEM):HWND;
+
+
+
+
+CONST
+ TVM_GETEDITCONTROL = (TV_FIRST + 15);
+// Macro 185
+
+
+Function TreeView_GetEditControl( hwnd : hwnd):HWND;
+
+
+
+
+CONST
+ TVM_GETVISIBLECOUNT = (TV_FIRST + 16);
+// Macro 186
+
+
+Function TreeView_GetVisibleCount( hwnd : hwnd):UINT;
+
+
+
+
+CONST
+ TVM_HITTEST = (TV_FIRST + 17);
+
+TYPE
+
+ tagTVHITTESTINFO = Record
+ pt : POINT;
+ flags : UINT;
+ hItem : HTREEITEM;
+ END;
+ TVHITTESTINFO = tagTVHITTESTINFO;
+ LPTVHITTESTINFO = ^tagTVHITTESTINFO;
+ TTVHITTESTINFO = tagTVHITTESTINFO;
+ PTVHITTESTINFO = ^tagTVHITTESTINFO;
+
+
+{$ifdef ie3plus}
+ LPTV_HITTESTINFO = LPTVHITTESTINFO;
+ TV_HITTESTINFO = TVHITTESTINFO;
+{$ELSE}
+ tagTVHITTESTINFO = _TV_HITTESTINFO;
+ TVHITTESTINFO = TV_HITTESTINFO;
+
+ LPTVHITTESTINFO = LPTV_HITTESTINFO;
+{$ENDIF}
+
+
+CONST
+ TVHT_NOWHERE = $0001;
+ TVHT_ONITEMICON = $0002;
+ TVHT_ONITEMLABEL = $0004;
+ TVHT_ONITEM = (TVHT_ONITEMICON OR TVHT_ONITEMLABEL OR TVHT_ONITEMSTATEICON);
+ TVHT_ONITEMINDENT = $0008;
+ TVHT_ONITEMBUTTON = $0010;
+ TVHT_ONITEMRIGHT = $0020;
+ TVHT_ONITEMSTATEICON = $0040;
+
+ TVHT_ABOVE = $0100;
+ TVHT_BELOW = $0200;
+ TVHT_TORIGHT = $0400;
+ TVHT_TOLEFT = $0800;
+
+
+ TVM_CREATEDRAGIMAGE = (TV_FIRST + 18);
+
+// Macro 187
+Function TreeView_HitTest( hwnd : hwnd; lpht : LPTV_HITTESTINFO):HTREEITEM;inline;
+Function TreeView_HitTest( hwnd : hwnd; var lpht : TV_HITTESTINFO):HTREEITEM;inline;
+
+
+// Macro 188
+
+
+Function TreeView_CreateDragImage( hwnd : hwnd; hitem : HTREEITEM):HIMAGELIST;
+
+
+
+
+CONST
+ TVM_SORTCHILDREN = (TV_FIRST + 19);
+// Macro 189
+
+
+Function TreeView_SortChildren( hwnd : hwnd; hitem : HTREEITEM; recurse : WPARAM):BOOL;
+
+
+
+
+CONST
+ TVM_ENSUREVISIBLE = (TV_FIRST + 20);
+// Macro 190
+
+
+Function TreeView_EnsureVisible( hwnd : hwnd; hitem : HTREEITEM):BOOL;
+
+
+
+
+
+CONST
+ TVM_ENDEDITLABELNOW = (TV_FIRST + 22);
+// Macro 192
+
+
+Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL;inline;
+Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : Bool):BOOL;inline;
+
+
+
+
+CONST
+ TVM_GETISEARCHSTRINGA = (TV_FIRST + 23);
+ TVM_GETISEARCHSTRINGW = (TV_FIRST + 64);
+
+{$IFDEF UNICODE}
+
+TYPE
+ TVM_GETISEARCHSTRING= TVM_GETISEARCHSTRINGW;
+{$ELSE}
+ TVM_GETISEARCHSTRING= TVM_GETISEARCHSTRINGA;
+{$ENDIF}
+
+{$ifdef ie3plus}
+
+CONST
+ TVM_SETTOOLTIPS = (TV_FIRST + 24);
+// Macro 193
+
+
+Function TreeView_SetToolTips( hwnd : hwnd; hwndTT : WPARAM):HWND;
+
+
+CONST
+ TVM_GETTOOLTIPS = (TV_FIRST + 25);
+// Macro 194
+
+
+Function TreeView_GetToolTips( hwnd : hwnd):HWND;
+
+{$ENDIF}
+
+// Macro 195
+
+
+Function TreeView_GetISearchString( hwndTV : hwnd; lpsz : LPTSTR):BOOL;
+
+
+{$ifdef ie4plus}
+
+CONST
+ TVM_SETINSERTMARK = (TV_FIRST + 26);
+// Macro 196
+
+
+Function TreeView_SetInsertMark( hwnd : hwnd; hItem : LPARAM ; fAfter : WPARAM ):BOOL;
+
+
+
+CONST
+ TVM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+// Macro 197
+
+
+Function TreeView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+
+
+CONST
+ TVM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+// Macro 198
+
+
+Function TreeView_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+
+{$ENDIF}
+
+{$ifdef ie4plus}
+
+CONST
+ TVM_SETITEMHEIGHT = (TV_FIRST + 27);
+// Macro 199
+
+
+Function TreeView_SetItemHeight( hwnd : hwnd; iHeight : WPARAM):cint;
+
+
+CONST
+ TVM_GETITEMHEIGHT = (TV_FIRST + 28);
+// Macro 200
+
+
+Function TreeView_GetItemHeight( hwnd : hwnd):cint;
+
+
+
+CONST
+ TVM_SETBKCOLOR = (TV_FIRST + 29);
+// Macro 201
+
+
+Function TreeView_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+
+
+CONST
+ TVM_SETTEXTCOLOR = (TV_FIRST + 30);
+// Macro 202
+
+
+Function TreeView_SetTextColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+
+
+CONST
+ TVM_GETBKCOLOR = (TV_FIRST + 31);
+
+// Macro 203
+Function TreeView_GetBkColor( hwnd : hwnd):COLORREF;
+
+
+CONST
+ TVM_GETTEXTCOLOR = (TV_FIRST + 32);
+
+// Macro 204
+Function TreeView_GetTextColor( hwnd : hwnd):COLORREF;
+
+
+
+CONST
+ TVM_SETSCROLLTIME = (TV_FIRST + 33);
+
+// Macro 205
+Function TreeView_SetScrollTime( hwnd : hwnd; uTime :wparam ):UINT;
+
+
+
+CONST
+ TVM_GETSCROLLTIME = (TV_FIRST + 34);
+// Macro 206
+
+
+Function TreeView_GetScrollTime( hwnd : hwnd):UINT;
+
+
+
+
+CONST
+ TVM_SETINSERTMARKCOLOR = (TV_FIRST + 37);
+// Macro 207
+
+
+Function TreeView_SetInsertMarkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+
+CONST
+ TVM_GETINSERTMARKCOLOR = (TV_FIRST + 38);
+// Macro 208
+
+
+Function TreeView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
+
+
+{$ENDIF} // (_WIN32_IE >= 0x0400)
+
+{$ifdef ie5plus}
+// tvm_?etitemstate only uses mask, state and stateMask.
+// so unicode or ansi is irrelevant.
+// Macro 209
+
+Procedure TreeView_SetItemState(hwndTV:HWND;hti:HTreeItem;data:UINT;_mask:UINT);
+
+
+// Macro 210
+
+Procedure TreeView_SetCheckState( hwndTV : hwnd; hti : HTreeItem ; fCheck : bool );
+
+
+CONST
+ TVM_GETITEMSTATE = (TV_FIRST + 39);
+
+// Macro 211
+Function TreeView_GetItemState( hwndTV : hwnd; hti : HTreeItem; statemask : UINT):UINT;
+
+
+// Macro 212
+Function TreeView_GetCheckState( hwndTV : hwnd; hti : HTreeItem):UINT;
+
+
+CONST
+ TVM_SETLINECOLOR = (TV_FIRST + 40);
+// Macro 213
+Function TreeView_SetLineColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+CONST
+ TVM_GETLINECOLOR = (TV_FIRST + 41);
+
+// Macro 214
+Function TreeView_GetLineColor( hwnd : hwnd):COLORREF;
+
+
+{$ENDIF}
+
+{$ifdef Win32XP}
+
+CONST
+ TVM_MAPACCIDTOHTREEITEM = (TV_FIRST + 42);
+
+// Macro 215
+Function TreeView_MapAccIDToHTREEITEM( hwnd : hwnd; id : UINT ):HTREEITEM;
+
+
+
+CONST
+ TVM_MAPHTREEITEMTOACCID = (TV_FIRST + 43);
+
+// Macro 216
+Function TreeView_MapHTREEITEMToAccID( hwnd : hwnd; htreeitem : WPARAM):UINT;
+
+{$ENDIF}
+
+{$ifdef win32vista}
+CONST
+ TVM_GETSELECTEDCOUNT = (TV_FIRST + 70);
+ TVM_SHOWINFOTIP = (TV_FIRST + 71);
+ TVM_GETITEMPARTRECT = (TV_FIRST + 72);
+
+Type
+ TVITEMPART = (TVGIPR_BUTTON = $0001);
+ pTVITEMPART = ^TVITEMPART;
+
+ tagTVGETITEMPARTRECTINFO = Record
+ hti :HTREEITEM ;
+ prc :PRECT;
+ partID :TVITEMPART;
+ end;
+ TVGETITEMPARTRECTINFO = tagTVGETITEMPARTRECTINFO;
+
+function TreeView_GetSelectedCount(hwnd:hwnd):DWORD;
+// (DWORD)SNDMSG((hwnd), TVM_GETSELECTEDCOUNT, 0, 0)
+
+function TreeView_ShowInfoTip(hwnd:HWND; hitem:HTREEITEM):DWORD;
+// (DWORD)SNDMSG((hwnd), TVM_SHOWINFOTIP, 0, (LPARAM)(hitem))
+
+function TreeView_GetItemPartRect(hwnd:HWND; hitem:HTREEITEM; prc:prect; partid:TVITEMPART):bool;
+//{ TVGETITEMPARTRECTINFO info; \
+// info.hti = (hitem); \
+// info.prc = (prc); \
+// info.partID = (partid); \
+// (BOOL)SNDMSG((hwnd), TVM_GETITEMPARTRECT, 0, (LPARAM)&info); \
+
+{$endif}
+
+
+TYPE
+ PFNTVCOMPARE =function (lparam1:LPARAM;lparam2:LPARAM;lParamSort:LParam): cint; STDCALL;
+ TTVCompare = PFNTVCOMPARE;
+
+
+ tagTVSORTCB = Record
+ hParent : HTREEITEM;
+ lpfnCompare : PFNTVCOMPARE;
+ lParam : LPARAM;
+ END;
+ TVSORTCB = tagTVSORTCB;
+ LPTVSORTCB = ^tagTVSORTCB;
+ TTVSORTCB = tagTVSORTCB;
+ PTVSORTCB = ^tagTVSORTCB;
+
+{$ifdef ie3plus}
+ LPTV_SORTCB = LPTVSORTCB;
+
+
+ TV_SORTCB = TVSORTCB;
+{$ELSE}
+ tagTVSORTCB = _TV_SORTCB;
+ TVSORTCB = TV_SORTCB;
+
+
+ LPTVSORTCB = LPTV_SORTCB;
+{$ENDIF}
+
+
+ tagNMTREEVIEWA = Record
+ hdr : NMHDR;
+ action : UINT;
+ itemOld : TVITEMA;
+ itemNew : TVITEMA;
+ ptDrag : POINT;
+ END;
+ NMTREEVIEWA = tagNMTREEVIEWA;
+ LPNMTREEVIEWA = ^tagNMTREEVIEWA;
+ TNMTREEVIEWA = tagNMTREEVIEWA;
+ PNMTREEVIEWA = ^tagNMTREEVIEWA;
+ PNMTreeView = PNMTreeViewA;
+ TNMTreeView = TNMTreeViewA;
+
+
+
+ tagNMTREEVIEWW = Record
+ hdr : NMHDR;
+ action : UINT;
+ itemOld : TVITEMW;
+ itemNew : TVITEMW;
+ ptDrag : POINT;
+ END;
+ NMTREEVIEWW = tagNMTREEVIEWW;
+ LPNMTREEVIEWW = ^tagNMTREEVIEWW;
+ TNMTREEVIEWW = tagNMTREEVIEWW;
+ PNMTREEVIEWW = ^tagNMTREEVIEWW;
+
+
+
+{$IFDEF UNICODE}
+ NMTREEVIEW = NMTREEVIEWW;
+ LPNMTREEVIEW = LPNMTREEVIEWW;
+{$ELSE}
+ NMTREEVIEW = NMTREEVIEWA;
+ LPNMTREEVIEW = LPNMTREEVIEWA;
+{$ENDIF}
+
+{$ifdef ie3plus}
+ LPNM_TREEVIEWA = LPNMTREEVIEWA;
+ LPNM_TREEVIEWW = LPNMTREEVIEWW;
+ NM_TREEVIEWW = NMTREEVIEWW;
+ NM_TREEVIEWA = NMTREEVIEWA;
+{$ELSE}
+ tagNMTREEVIEWA = _NM_TREEVIEWA;
+ tagNMTREEVIEWW = _NM_TREEVIEWW;
+ NMTREEVIEWA = NM_TREEVIEWA;
+ NMTREEVIEWW = NM_TREEVIEWW;
+ LPNMTREEVIEWA = LPNM_TREEVIEWA;
+ LPNMTREEVIEWW = LPNM_TREEVIEWW;
+{$ENDIF}
+
+ LPNM_TREEVIEW = LPNMTREEVIEW;
+ NM_TREEVIEW = NMTREEVIEW;
+
+
+
+CONST
+ TVN_SELCHANGINGA = (TVN_FIRST-1);
+ TVN_SELCHANGINGW = (TVN_FIRST-50);
+ TVN_SELCHANGEDA = (TVN_FIRST-2);
+ TVN_SELCHANGEDW = (TVN_FIRST-51);
+
+ TVC_UNKNOWN = $0000;
+ TVC_BYMOUSE = $0001;
+ TVC_BYKEYBOARD = $0002;
+
+ TVN_GETDISPINFOA = (TVN_FIRST-3);
+ TVN_GETDISPINFOW = (TVN_FIRST-52);
+ TVN_SETDISPINFOA = (TVN_FIRST-4);
+ TVN_SETDISPINFOW = (TVN_FIRST-53);
+
+ TVIF_DI_SETITEM = $1000;
+
+Type
+ tagTVDISPINFOA = Record
+ hdr : NMHDR;
+ item : TVITEMA;
+ END;
+ NMTVDISPINFOA = tagTVDISPINFOA;
+ LPNMTVDISPINFOA = ^tagTVDISPINFOA;
+ TTVDISPINFOA = tagTVDISPINFOA;
+ PTVDISPINFOA = ^tagTVDISPINFOA;
+ TTVDispInfo = TTVDISPINFOA;
+ PTVDispInfo = PTVDISPINFOA;
+
+
+ tagTVDISPINFOW = Record
+ hdr : NMHDR;
+ item : TVITEMW;
+ END;
+ NMTVDISPINFOW = tagTVDISPINFOW;
+ LPNMTVDISPINFOW = ^tagTVDISPINFOW;
+ TTVDISPINFOW = tagTVDISPINFOW;
+ PTVDISPINFOW = ^tagTVDISPINFOW;
+
+{$IFDEF UNICODE}
+ NMTVDISPINFO = NMTVDISPINFOW;
+ LPNMTVDISPINFO = LPNMTVDISPINFOW;
+{$ELSE}
+ NMTVDISPINFO = NMTVDISPINFOA;
+ LPNMTVDISPINFO = LPNMTVDISPINFOA;
+{$ENDIF}
+
+{$ifdef IE6plus}
+ tagTVDISPINFOEXA = Record
+ hdr : NMHDR;
+ item :TVITEMEXA;
+ end;
+ NMTVDISPINFOEXA = tagTVDISPINFOEXA;
+ LPNMTVDISPINFOEXA = ^tagTVDISPINFOEXA;
+
+ tagTVDISPINFOEXW = Record
+ hdr : NMHDR;
+ item :TVITEMEXW;
+ end;
+ NMTVDISPINFOEXW = tagTVDISPINFOEXW;
+ LPNMTVDISPINFOEXW = ^tagTVDISPINFOEXW;
+
+{$IFDEF UNICODE}
+ NMTVDISPINFOEX = NMTVDISPINFOEXW;
+ LPNMTVDISPINFOEX = LPNMTVDISPINFOEXW;
+{$ELSE}
+ NMTVDISPINFOEX = NMTVDISPINFOEXA;
+ LPNMTVDISPINFOEX = LPNMTVDISPINFOEXA;
+{$ENDIF}
+
+ TV_DISPINFOEXA = NMTVDISPINFOEXA;
+ TV_DISPINFOEXW = NMTVDISPINFOEXW;
+ TV_DISPINFOEX = NMTVDISPINFOEX;
+
+
+{$endif}
+
+{$ifdef ie3plus}
+ TV_DISPINFOA = NMTVDISPINFOA;
+ TV_DISPINFOW = NMTVDISPINFOW;
+{$ELSE}
+ tagTVDISPINFOA = _TV_DISPINFOA;
+ NMTVDISPINFOA = TV_DISPINFOA;
+ tagTVDISPINFOW = _TV_DISPINFOW;
+ NMTVDISPINFOW = TV_DISPINFOW;
+{$ENDIF}
+ TV_DISPINFO = NMTVDISPINFO;
+
+
+CONST
+ TVM_SORTCHILDRENCB = (TV_FIRST + 21);
+
+// Macro 191
+Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL;inline;
+Function TreeView_SortChildrenCB( hwnd : hwnd;const psort :tagTVsortcb; recurse : WPARAM):BOOL;inline;
+
+CONST
+ TVN_ITEMEXPANDINGA = (TVN_FIRST-5);
+ TVN_ITEMEXPANDINGW = (TVN_FIRST-54);
+ TVN_ITEMEXPANDEDA = (TVN_FIRST-6);
+ TVN_ITEMEXPANDEDW = (TVN_FIRST-55);
+ TVN_BEGINDRAGA = (TVN_FIRST-7);
+ TVN_BEGINDRAGW = (TVN_FIRST-56);
+ TVN_BEGINRDRAGA = (TVN_FIRST-8);
+ TVN_BEGINRDRAGW = (TVN_FIRST-57);
+ TVN_DELETEITEMA = (TVN_FIRST-9);
+ TVN_DELETEITEMW = (TVN_FIRST-58);
+ TVN_BEGINLABELEDITA = (TVN_FIRST-10);
+ TVN_BEGINLABELEDITW = (TVN_FIRST-59);
+ TVN_ENDLABELEDITA = (TVN_FIRST-11);
+ TVN_ENDLABELEDITW = (TVN_FIRST-60);
+ TVN_KEYDOWN = (TVN_FIRST-12);
+
+{$ifdef ie4plus}
+ TVN_GETINFOTIPA = (TVN_FIRST-13);
+ TVN_GETINFOTIPW = (TVN_FIRST-14);
+ TVN_SINGLEEXPAND = (TVN_FIRST-15);
+
+ TVNRET_DEFAULT = 0;
+ TVNRET_SKIPOLD = 1;
+ TVNRET_SKIPNEW = 2;
+
+{$ifdef win32vista}
+ TVN_ITEMCHANGINGA = (TVN_FIRST-16);
+ TVN_ITEMCHANGINGW = (TVN_FIRST-17);
+ TVN_ITEMCHANGEDA = (TVN_FIRST-18);
+ TVN_ITEMCHANGEDW = (TVN_FIRST-19);
+ TVN_ASYNCDRAW = (TVN_FIRST-20);
+{$endif}
+
+{$ENDIF} // 0x400
+
+
+
+{$IFDEF _WIN32}
+// #include <pshpack1.h>
+{$ENDIF}
+
+TYPE
+
+ tagTVKEYDOWN = Record
+ hdr : NMHDR;
+ wVKey : WORD;
+ flags : UINT;
+ END;
+ NMTVKEYDOWN = tagTVKEYDOWN;
+ LPNMTVKEYDOWN = ^tagTVKEYDOWN;
+ TTVKEYDOWN = tagTVKEYDOWN;
+ PTVKEYDOWN = ^tagTVKEYDOWN;
+
+{$ifdef ie3plus}
+ TV_KEYDOWN = NMTVKEYDOWN;
+{$ELSE}
+ tagTVKEYDOWN = _TV_KEYDOWN;
+ NMTVKEYDOWN = TV_KEYDOWN;
+{$ENDIF}
+
+
+{$IFDEF _WIN32}
+// #include <poppack.h>
+{$ENDIF}
+
+Const
+
+{$IFDEF UNICODE}
+ TVN_SELCHANGING = TVN_SELCHANGINGW;
+ TVN_SELCHANGED = TVN_SELCHANGEDW;
+ TVN_GETDISPINFO = TVN_GETDISPINFOW;
+ TVN_SETDISPINFO = TVN_SETDISPINFOW;
+ TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGW;
+ TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDW;
+ TVN_BEGINDRAG = TVN_BEGINDRAGW;
+ TVN_BEGINRDRAG = TVN_BEGINRDRAGW;
+ TVN_DELETEITEM = TVN_DELETEITEMW;
+ TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITW;
+ TVN_ENDLABELEDIT = TVN_ENDLABELEDITW;
+{$ELSE}
+ TVN_SELCHANGING = TVN_SELCHANGINGA;
+ TVN_SELCHANGED = TVN_SELCHANGEDA;
+ TVN_GETDISPINFO = TVN_GETDISPINFOA;
+ TVN_SETDISPINFO = TVN_SETDISPINFOA;
+ TVN_ITEMEXPANDING = TVN_ITEMEXPANDINGA;
+ TVN_ITEMEXPANDED = TVN_ITEMEXPANDEDA;
+ TVN_BEGINDRAG = TVN_BEGINDRAGA;
+ TVN_BEGINRDRAG = TVN_BEGINRDRAGA;
+ TVN_DELETEITEM = TVN_DELETEITEMA;
+ TVN_BEGINLABELEDIT = TVN_BEGINLABELEDITA;
+ TVN_ENDLABELEDIT = TVN_ENDLABELEDITA;
+{$ENDIF}
+
+
+{$ifdef ie3plus}
+// #define NMTVCUSTOMDRAW_V3_SIZE CCSIZEOF_STRUCT(NMTVCUSTOMDRAW, clrTextBk)
+Type
+ tagNMTVCUSTOMDRAW = Record
+ nmcd : NMCUSTOMDRAW;
+ clrText : COLORREF;
+ clrTextBk : COLORREF;
+{$ifdef ie4plus}
+ iLevel : cint;
+{$ENDIF}
+ END;
+ NMTVCUSTOMDRAW = tagNMTVCUSTOMDRAW;
+ LPNMTVCUSTOMDRAW = ^tagNMTVCUSTOMDRAW;
+ TNMTVCUSTOMDRAW = tagNMTVCUSTOMDRAW;
+ PNMTVCUSTOMDRAW = ^tagNMTVCUSTOMDRAW;
+
+{$ENDIF}
+
+
+{$ifdef ie4plus}
+
+// for tooltips
+
+ tagNMTVGETINFOTIPA = Record
+ hdr : NMHDR;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ hItem : HTREEITEM;
+ lParam : LPARAM;
+ END;
+ NMTVGETINFOTIPA = tagNMTVGETINFOTIPA;
+ LPNMTVGETINFOTIPA = ^tagNMTVGETINFOTIPA;
+ TNMTVGETINFOTIPA = tagNMTVGETINFOTIPA;
+ PNMTVGETINFOTIPA = ^tagNMTVGETINFOTIPA;
+
+
+ tagNMTVGETINFOTIPW = Record
+ hdr : NMHDR;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ hItem : HTREEITEM;
+ lParam : LPARAM;
+ END;
+ NMTVGETINFOTIPW = tagNMTVGETINFOTIPW;
+ LPNMTVGETINFOTIPW = ^tagNMTVGETINFOTIPW;
+ TNMTVGETINFOTIPW = tagNMTVGETINFOTIPW;
+ PNMTVGETINFOTIPW = ^tagNMTVGETINFOTIPW;
+
+
+CONST
+{$IFDEF UNICODE}
+ TVN_GETINFOTIP = TVN_GETINFOTIPW;
+TYPE
+ NMTVGETINFOTIP = NMTVGETINFOTIPW;
+ LPNMTVGETINFOTIP = LPNMTVGETINFOTIPW;
+{$ELSE}
+ TVN_GETINFOTIP = TVN_GETINFOTIPA;
+TYPE
+ NMTVGETINFOTIP = NMTVGETINFOTIPA;
+ LPNMTVGETINFOTIP = LPNMTVGETINFOTIPA;
+{$ENDIF}
+
+// treeview's customdraw return meaning don't draw images. valid on CDRF_NOTIFYITEMPREPAINT
+
+CONST
+ TVCDRF_NOIMAGES = $00010000;
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+{$ifdef ie6plus}
+Type
+ tagTVITEMCHANGE = packed record
+ hdr : NMHDR;
+ uChanged : UINT;
+ hItem : HTREEITEM;
+ uStateNew : UINT;
+ uStateOld : UINT;
+ lParam : LPARAM;
+ end;
+ NMTVITEMCHANGE = tagTVITEMCHANGE;
+ PNMTVITEMCHANGE = ^NMTVITEMCHANGE;
+
+ tagNMTVASYNCDRAW = packed record
+ hdr : NMHDR;
+ pimldp : PIMAGELISTDRAWPARAMS; { the draw that failed }
+ hr : HRESULT; { why it failed }
+ hItem : HTREEITEM; { item that failed to draw icon }
+ lParam : LPARAM; { its data }
+ dwRetFlags : DWORD; { Out Params }
+ iRetImageIndex : longint; { What listview should do on return }
+ end; { used if ADRF_DRAWIMAGE is returned }
+ NMTVASYNCDRAW = tagNMTVASYNCDRAW;
+ PNMTVASYNCDRAW = ^NMTVASYNCDRAW;
+
+CONST
+{$IFDEF UNICODE}
+ TVN_ITEMCHANGING = TVN_ITEMCHANGINGW;
+ TVN_ITEMCHANGED = TVN_ITEMCHANGEDW;
+{$ELSE}
+ TVN_ITEMCHANGING = TVN_ITEMCHANGINGA;
+ TVN_ITEMCHANGED = TVN_ITEMCHANGEDA;
+{$ENDIF}
+{$endif}
+
+{$ENDIF} // NOTREEVIEW
+
+{$ifdef ie3plus}
+
+{$IFNDEF NOUSEREXCONTROLS}
+
+//////////////////// ComboBoxEx ////////////////////////////////
+
+ WC_COMBOBOXEXW = {L}'ComboBoxEx32';
+ WC_COMBOBOXEXA = 'ComboBoxEx32';
+
+
+{$IFDEF UNICODE}
+ WC_COMBOBOXEX = WC_COMBOBOXEXW;
+{$ELSE}
+ WC_COMBOBOXEX = WC_COMBOBOXEXA;
+{$ENDIF}
+
+CONST
+ CBEIF_TEXT = $00000001;
+ CBEIF_IMAGE = $00000002;
+ CBEIF_SELECTEDIMAGE = $00000004;
+ CBEIF_OVERLAY = $00000008;
+ CBEIF_INDENT = $00000010;
+ CBEIF_LPARAM = $00000020;
+ CBEIF_DI_SETITEM = $10000000;
+
+TYPE
+
+ tagCOMBOBOXEXITEMA = Record
+ mask : UINT;
+ iItem : INT_PTR;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ iSelectedImage : cint;
+ iOverlay : cint;
+ iIndent : cint;
+ lParam : LPARAM;
+ END;
+ COMBOBOXEXITEMA = tagCOMBOBOXEXITEMA;
+ PCOMBOBOXEXITEMA = ^tagCOMBOBOXEXITEMA;
+ TCOMBOBOXEXITEMA = tagCOMBOBOXEXITEMA;
+// PCOMBOBOXEXITEMA = ^tagCOMBOBOXEXITEMA;
+
+ PCCOMBOBOXEXITEMA = ^COMBOBOXEXITEMA;
+
+
+ tagCOMBOBOXEXITEMW = Record
+ mask : UINT;
+ iItem : INT_PTR;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ iSelectedImage : cint;
+ iOverlay : cint;
+ iIndent : cint;
+ lParam : LPARAM;
+ END;
+ COMBOBOXEXITEMW = tagCOMBOBOXEXITEMW;
+ PCOMBOBOXEXITEMW = ^tagCOMBOBOXEXITEMW;
+ TCOMBOBOXEXITEMW = tagCOMBOBOXEXITEMW;
+// PCOMBOBOXEXITEMW = ^tagCOMBOBOXEXITEMW;
+
+ PCCOMBOBOXEXITEMW = ^COMBOBOXEXITEMW;
+
+{$IFDEF UNICODE}
+ COMBOBOXEXITEM = COMBOBOXEXITEMW;
+ PCOMBOBOXEXITEM = PCOMBOBOXEXITEMW;
+ PCCOMBOBOXEXITEM = PCCOMBOBOXEXITEMW;
+{$ELSE}
+ COMBOBOXEXITEM = COMBOBOXEXITEMA;
+ PCOMBOBOXEXITEM = PCOMBOBOXEXITEMA;
+ PCCOMBOBOXEXITEM = PCCOMBOBOXEXITEMA;
+{$ENDIF}
+ TComboBoxExItem = COMBOBOXEXITEM;
+
+
+CONST
+ CBEM_INSERTITEMA = (WM_USER + 1);
+ CBEM_SETIMAGELIST = (WM_USER + 2);
+ CBEM_GETIMAGELIST = (WM_USER + 3);
+ CBEM_GETITEMA = (WM_USER + 4);
+ CBEM_SETITEMA = (WM_USER + 5);
+ CBEM_DELETEITEM = CB_DELETESTRING;
+ CBEM_GETCOMBOCONTROL = (WM_USER + 6);
+ CBEM_GETEDITCONTROL = (WM_USER + 7);
+{$ifdef ie4plus}
+ CBEM_SETEXSTYLE = (WM_USER + 8); // use SETEXTENDEDSTYLE instead
+ CBEM_SETEXTENDEDSTYLE = (WM_USER + 14); // lparam == new style, wParam (optional) == mask
+ CBEM_GETEXSTYLE = (WM_USER + 9); // use GETEXTENDEDSTYLE instead
+ CBEM_GETEXTENDEDSTYLE = (WM_USER + 9);
+ CBEM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+ CBEM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+{$ELSE}
+ CBEM_SETEXSTYLE = (WM_USER + 8);
+ CBEM_GETEXSTYLE = (WM_USER + 9);
+{$ENDIF}
+ CBEM_HASEDITCHANGED = (WM_USER + 10);
+ CBEM_INSERTITEMW = (WM_USER + 11);
+ CBEM_SETITEMW = (WM_USER + 12);
+ CBEM_GETITEMW = (WM_USER + 13);
+
+{$IFDEF UNICODE}
+
+ CBEM_INSERTITEM = CBEM_INSERTITEMW;
+ CBEM_SETITEM = CBEM_SETITEMW;
+ CBEM_GETITEM = CBEM_GETITEMW;
+{$ELSE}
+ CBEM_INSERTITEM = CBEM_INSERTITEMA;
+ CBEM_SETITEM = CBEM_SETITEMA;
+ CBEM_GETITEM = CBEM_GETITEMA;
+{$ENDIF}
+
+{$ifdef win32xp}
+
+ CBEM_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
+{$ENDIF}
+
+ CBES_EX_NOEDITIMAGE = $00000001;
+ CBES_EX_NOEDITIMAGEINDENT = $00000002;
+ CBES_EX_PATHWORDBREAKPROC = $00000004;
+{$ifdef ie4plus}
+ CBES_EX_NOSIZELIMIT = $00000008;
+ CBES_EX_CASESENSITIVE = $00000010;
+{$ifdef win32vista}
+ CBES_EX_TEXTENDELLIPSIS = $00000020;
+{$endif}
+TYPE
+
+ DummyStruct9 = Record
+ hdr : NMHDR;
+ ceItem : COMBOBOXEXITEMA;
+ END;
+ NMCOMBOBOXEXA = DummyStruct9;
+ PNMCOMBOBOXEXA = ^DummyStruct9;
+ TDummyStruct9 = DummyStruct9;
+ PDummyStruct9 = ^DummyStruct9;
+
+
+ DummyStruct10 = Record
+ hdr : NMHDR;
+ ceItem : COMBOBOXEXITEMW;
+ END;
+ NMCOMBOBOXEXW = DummyStruct10;
+ PNMCOMBOBOXEXW = ^DummyStruct10;
+ TDummyStruct10 = DummyStruct10;
+ PDummyStruct10 = ^DummyStruct10;
+
+
+
+{$ELSE}
+ DummyStruct11 = Record
+ hdr : NMHDR;
+ ceItem : COMBOBOXEXITEM;
+ END;
+ NMCOMBOBOXEX = DummyStruct11;
+ PNMCOMBOBOXEX = ^DummyStruct11;
+ TDummyStruct11 = DummyStruct11;
+ PDummyStruct11 = ^DummyStruct11;
+
+
+
+CONST
+ CBEN_GETDISPINFO = (CBEN_FIRST - 0);
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+CONST
+{$ifdef ie4plus}
+ CBEN_GETDISPINFOA = (CBEN_FIRST - 0);
+{$ENDIF}
+ CBEN_INSERTITEM = (CBEN_FIRST - 1);
+ CBEN_DELETEITEM = (CBEN_FIRST - 2);
+ CBEN_BEGINEDIT = (CBEN_FIRST - 4);
+ CBEN_ENDEDITA = (CBEN_FIRST - 5);
+ CBEN_ENDEDITW = (CBEN_FIRST - 6);
+
+{$ifdef ie4plus}
+ CBEN_GETDISPINFOW = (CBEN_FIRST - 7);
+{$ENDIF}
+
+{$ifdef ie4plus}
+ CBEN_DRAGBEGINA = (CBEN_FIRST - 8);
+ CBEN_DRAGBEGINW = (CBEN_FIRST - 9);
+
+{$IFDEF UNICODE}
+
+ CBEN_DRAGBEGIN = CBEN_DRAGBEGINW;
+{$ELSE}
+ CBEN_DRAGBEGIN = CBEN_DRAGBEGINA;
+{$ENDIF}
+
+{$ENDIF} //(_WIN32_IE >= 0x0400)
+TYPE
+{$IFDEF UNICODE}
+ NMCOMBOBOXEX = NMCOMBOBOXEXW;
+ PNMCOMBOBOXEX = PNMCOMBOBOXEXW;
+CONST
+ CBEN_GETDISPINFO = CBEN_GETDISPINFOW;
+{$ELSE}
+ NMCOMBOBOXEX = NMCOMBOBOXEXA;
+ PNMCOMBOBOXEX = PNMCOMBOBOXEXA;
+CONST
+ CBEN_GETDISPINFO = CBEN_GETDISPINFOA;
+{$ENDIF}
+
+// lParam specifies why the endedit is happening
+{$IFDEF UNICODE}
+ CBEN_ENDEDIT = CBEN_ENDEDITW;
+{$ELSE}
+ CBEN_ENDEDIT = CBEN_ENDEDITA;
+{$ENDIF}
+
+
+CONST
+ CBENF_KILLFOCUS = 1;
+ CBENF_RETURN = 2;
+ CBENF_ESCAPE = 3;
+ CBENF_DROPDOWN = 4;
+
+ CBEMAXSTRLEN = 260;
+
+{$ifdef ie4plus}
+// CBEN_DRAGBEGIN sends this information ...
+
+TYPE
+
+ DummyStruct12 = Record
+ hdr : NMHDR;
+ iItemid : cint;
+ szText : Array[0..CBEMAXSTRLEN-1] OF WCHAR;
+ END;
+ NMCBEDRAGBEGINW = DummyStruct12;
+ LPNMCBEDRAGBEGINW = ^DummyStruct12;
+ PNMCBEDRAGBEGINW = ^DummyStruct12;
+ TDummyStruct12 = DummyStruct12;
+ PDummyStruct12 = ^DummyStruct12;
+
+
+
+ DummyStruct13 = Record
+ hdr : NMHDR;
+ iItemid : cint;
+ szText : Array[0..CBEMAXSTRLEN-1] OF char;
+ END;
+ NMCBEDRAGBEGINA = DummyStruct13;
+ LPNMCBEDRAGBEGINA = ^DummyStruct13;
+ PNMCBEDRAGBEGINA = ^DummyStruct13;
+ TDummyStruct13 = DummyStruct13;
+ PDummyStruct13 = ^DummyStruct13;
+
+
+{$IFDEF UNICODE}
+ NMCBEDRAGBEGIN = NMCBEDRAGBEGINW;
+ LPNMCBEDRAGBEGIN = LPNMCBEDRAGBEGINW;
+ PNMCBEDRAGBEGIN = PNMCBEDRAGBEGINW;
+{$ELSE}
+ NMCBEDRAGBEGIN = NMCBEDRAGBEGINA;
+ LPNMCBEDRAGBEGIN = LPNMCBEDRAGBEGINA;
+ PNMCBEDRAGBEGIN = PNMCBEDRAGBEGINA;
+{$ENDIF}
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+// CBEN_ENDEDIT sends this information...
+// fChanged if the user actually did anything
+// iNewSelection gives what would be the new selection unless the notify is failed
+// iNewSelection may be CB_ERR if there's no match
+ DummyStruct14 = Record
+ hdr : NMHDR;
+ fChanged : BOOL;
+ iNewSelection : cint;
+ szText : Array[0..CBEMAXSTRLEN-1] OF WCHAR;
+ iWhy : cint;
+ END;
+ NMCBEENDEDITW = DummyStruct14;
+ LPNMCBEENDEDITW = ^DummyStruct14;
+ PNMCBEENDEDITW = ^DummyStruct14;
+ TDummyStruct14 = DummyStruct14;
+ PDummyStruct14 = ^DummyStruct14;
+
+
+ DummyStruct15 = Record
+ hdr : NMHDR;
+ fChanged : BOOL;
+ iNewSelection : cint;
+ szText : Array[0..CBEMAXSTRLEN-1] OF char;
+ iWhy : cint;
+ END;
+ NMCBEENDEDITA = DummyStruct15;
+ LPNMCBEENDEDITA = ^DummyStruct15;
+ PNMCBEENDEDITA = ^DummyStruct15;
+ TDummyStruct15 = DummyStruct15;
+ PDummyStruct15 = ^DummyStruct15;
+
+
+{$IFDEF UNICODE}
+ NMCBEENDEDIT = NMCBEENDEDITW;
+ LPNMCBEENDEDIT = LPNMCBEENDEDITW;
+ PNMCBEENDEDIT = PNMCBEENDEDITW;
+{$ELSE}
+ NMCBEENDEDIT = NMCBEENDEDITA;
+ LPNMCBEENDEDIT = LPNMCBEENDEDITA;
+ PNMCBEENDEDIT = PNMCBEENDEDITA;
+{$ENDIF}
+
+{$ENDIF}
+
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+
+
+//====== TAB CONTROL ==========================================================
+
+{$IFNDEF NOTABCONTROL}
+
+{$IFDEF _WIN32}
+
+
+CONST
+ WC_TABCONTROLA = 'SysTabControl32';
+ WC_TABCONTROLW = {L}'SysTabControl32';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_TABCONTROL = WC_TABCONTROLW;
+{$ELSE}
+ WC_TABCONTROL = WC_TABCONTROLA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ WC_TABCONTROL = 'SysTabControl';
+{$ENDIF}
+
+// begin_r_commctrl
+
+{$ifdef ie3plus}
+ TCS_SCROLLOPPOSITE = $0001; // assumes multiline tab
+ TCS_BOTTOM = $0002;
+ TCS_RIGHT = $0002;
+ TCS_MULTISELECT = $0004; // allow multi-select in button mode
+{$ENDIF}
+{$ifdef ie4plus}
+ TCS_FLATBUTTONS = $0008;
+{$ENDIF}
+ TCS_FORCEICONLEFT = $0010;
+ TCS_FORCELABELLEFT = $0020;
+{$ifdef ie3plus}
+ TCS_HOTTRACK = $0040;
+ TCS_VERTICAL = $0080;
+{$ENDIF}
+ TCS_TABS = $0000;
+ TCS_BUTTONS = $0100;
+ TCS_SINGLELINE = $0000;
+ TCS_MULTILINE = $0200;
+ TCS_RIGHTJUSTIFY = $0000;
+ TCS_FIXEDWIDTH = $0400;
+ TCS_RAGGEDRIGHT = $0800;
+ TCS_FOCUSONBUTTONDOWN = $1000;
+ TCS_OWNERDRAWFIXED = $2000;
+ TCS_TOOLTIPS = $4000;
+ TCS_FOCUSNEVER = $8000;
+
+// end_r_commctrl
+
+{$ifdef ie4plus}
+// EX styles for use with TCM_SETEXTENDEDSTYLE
+ TCS_EX_FLATSEPARATORS = $00000001;
+ TCS_EX_REGISTERDROP = $00000002;
+{$ENDIF}
+
+
+ TCM_GETIMAGELIST = (TCM_FIRST + 2);
+// Macro 217
+
+
+Function TabCtrl_GetImageList( hwnd : hwnd):HIMAGELIST;
+
+
+
+
+CONST
+ TCM_SETIMAGELIST = (TCM_FIRST + 3);
+// Macro 218
+
+
+Function TabCtrl_SetImageList( hwnd : hwnd; himl : HIMAGELIST):HIMAGELIST;
+
+
+
+
+CONST
+ TCM_GETITEMCOUNT = (TCM_FIRST + 4);
+// Macro 219
+
+
+Function TabCtrl_GetItemCount( hwnd : hwnd):cint;
+
+
+
+
+CONST
+ TCIF_TEXT = $0001;
+ TCIF_IMAGE = $0002;
+ TCIF_RTLREADING = $0004;
+ TCIF_PARAM = $0008;
+{$ifdef ie3plus}
+ TCIF_STATE = $0010;
+
+
+ TCIS_BUTTONPRESSED = $0001;
+{$ENDIF}
+{$ifdef ie4plus}
+ TCIS_HIGHLIGHTED = $0002;
+{$ENDIF}
+TYPE
+
+
+
+
+ tagTCITEMHEADERA = Record
+ mask : UINT;
+ lpReserved1 : UINT;
+ lpReserved2 : UINT;
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ END;
+ TCITEMHEADERA = tagTCITEMHEADERA;
+ LPTCITEMHEADERA = ^tagTCITEMHEADERA;
+ TTCITEMHEADERA = tagTCITEMHEADERA;
+ PTCITEMHEADERA = ^tagTCITEMHEADERA;
+
+
+ tagTCITEMHEADERW = Record
+ mask : UINT;
+ lpReserved1 : UINT;
+ lpReserved2 : UINT;
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ END;
+ TCITEMHEADERW = tagTCITEMHEADERW;
+ LPTCITEMHEADERW = ^tagTCITEMHEADERW;
+ TTCITEMHEADERW = tagTCITEMHEADERW;
+ PTCITEMHEADERW = ^tagTCITEMHEADERW;
+
+
+{$IFDEF UNICODE}
+ TCITEMHEADER = TCITEMHEADERW;
+ LPTCITEMHEADER = LPTCITEMHEADERW;
+{$ELSE}
+ TCITEMHEADER = TCITEMHEADERA;
+ LPTCITEMHEADER = LPTCITEMHEADERA;
+{$ENDIF}
+
+
+{$ifdef ie3plus}
+ TC_ITEMHEADERA = TCITEMHEADERA;
+ TC_ITEMHEADERW = TCITEMHEADERW;
+{$ELSE}
+ tagTCITEMHEADERA = _TC_ITEMHEADERA;
+ TCITEMHEADERA = TC_ITEMHEADERA;
+ tagTCITEMHEADERW = _TC_ITEMHEADERW;
+ TCITEMHEADERW = TC_ITEMHEADERW;
+{$ENDIF}
+
+
+ TC_ITEMHEADER = TCITEMHEADER;
+
+
+
+
+
+ tagTCITEMA = Record
+ mask : UINT;
+{$ifdef ie3plus}
+ dwState : DWORD;
+ dwStateMask : DWORD;
+{$ELSE}
+ lpReserved1 : UINT;
+ lpReserved2 : UINT;
+{$ENDIF}
+ pszText : LPSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ lParam : LPARAM;
+ END;
+ TCITEMA = tagTCITEMA;
+ LPTCITEMA = ^tagTCITEMA;
+ TTCITEMA = tagTCITEMA;
+ PTCITEMA = ^tagTCITEMA;
+
+
+ tagTCITEMW = Record
+ mask : UINT;
+{$ifdef ie3plus}
+ dwState : DWORD;
+ dwStateMask : DWORD;
+{$ELSE}
+ lpReserved1 : UINT;
+ lpReserved2 : UINT;
+{$ENDIF}
+ pszText : LPWSTR;
+ cchTextMax : cint;
+ iImage : cint;
+ lParam : LPARAM;
+ END;
+ TCITEMW = tagTCITEMW;
+ LPTCITEMW = ^tagTCITEMW;
+ TTCITEMW = tagTCITEMW;
+ PTCITEMW = ^tagTCITEMW;
+
+
+{$IFDEF UNICODE}
+ TCITEM = TCITEMW;
+ LPTCITEM = LPTCITEMW;
+{$ELSE}
+ TCITEM = TCITEMA;
+ LPTCITEM = LPTCITEMA;
+{$ENDIF}
+
+
+{$ifdef ie3plus}
+ TC_ITEMA = TCITEMA;
+ TC_ITEMW = TCITEMW;
+{$ELSE}
+ tagTCITEMA = _TC_ITEMA;
+ TCITEMA = TC_ITEMA;
+ tagTCITEMW = _TC_ITEMW;
+ TCITEMW = TC_ITEMW;
+{$ENDIF}
+
+
+ TC_ITEM = TCITEM;
+
+
+
+
+CONST
+ TCM_GETITEMA = (TCM_FIRST + 5);
+ TCM_GETITEMW = (TCM_FIRST + 60);
+
+{$IFDEF UNICODE}
+
+TYPE
+ TCM_GETITEM = TCM_GETITEMW;
+{$ELSE}
+ TCM_GETITEM = TCM_GETITEMA;
+{$ENDIF}
+
+// Macro 220
+Function TabCtrl_GetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
+
+
+
+
+CONST
+ TCM_SETITEMA = (TCM_FIRST + 6);
+ TCM_SETITEMW = (TCM_FIRST + 61);
+
+{$IFDEF UNICODE}
+
+TYPE
+ TCM_SETITEM = TCM_SETITEMW;
+{$ELSE}
+ TCM_SETITEM = TCM_SETITEMA;
+{$ENDIF}
+
+// Macro 221
+Function TabCtrl_SetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
+
+
+
+
+CONST
+ TCM_INSERTITEMA = (TCM_FIRST + 7);
+ TCM_INSERTITEMW = (TCM_FIRST + 62);
+
+{$IFDEF UNICODE}
+ TCM_INSERTITEM = TCM_INSERTITEMW;
+{$ELSE}
+ TCM_INSERTITEM = TCM_INSERTITEMA;
+{$ENDIF}
+
+// Macro 222
+Function TabCtrl_InsertItem( hwnd : hwnd; iItem : cint;CONST pitem : TC_ITEM ):cint;
+
+
+CONST
+ TCM_DELETEITEM = (TCM_FIRST + 8);
+
+// Macro 223
+Function TabCtrl_DeleteItem( hwnd : hwnd; i : cint):BOOL;
+
+CONST
+ TCM_DELETEALLITEMS = (TCM_FIRST + 9);
+
+// Macro 224
+Function TabCtrl_DeleteAllItems( hwnd : hwnd):BOOL;
+
+CONST
+ TCM_GETITEMRECT = (TCM_FIRST + 10);
+
+// Macro 225
+Function TabCtrl_GetItemRect( hwnd : hwnd; i : cint;var prc : RECT ):BOOL;
+
+CONST
+ TCM_GETCURSEL = (TCM_FIRST + 11);
+// Macro 226
+
+Function TabCtrl_GetCurSel( hwnd : hwnd):cint;
+
+
+CONST
+ TCM_SETCURSEL = (TCM_FIRST + 12);
+
+// Macro 227
+Function TabCtrl_SetCurSel( hwnd : hwnd; i : WPARAM):cint;
+
+CONST
+ TCHT_NOWHERE = $0001;
+ TCHT_ONITEMICON = $0002;
+ TCHT_ONITEMLABEL = $0004;
+ TCHT_ONITEM = (TCHT_ONITEMICON OR TCHT_ONITEMLABEL);
+
+TYPE
+
+ tagTCHITTESTINFO = Record
+ pt : POINT;
+ flags : UINT;
+ END;
+ TCHITTESTINFO = tagTCHITTESTINFO;
+ LPTCHITTESTINFO = ^tagTCHITTESTINFO;
+ TTCHITTESTINFO = tagTCHITTESTINFO;
+ PTCHITTESTINFO = ^tagTCHITTESTINFO;
+
+{$ifdef ie3plus}
+ LPTC_HITTESTINFO = LPTCHITTESTINFO;
+ TC_HITTESTINFO = TCHITTESTINFO;
+{$ELSE}
+ tagTCHITTESTINFO = _TC_HITTESTINFO;
+ TCHITTESTINFO = TC_HITTESTINFO;
+ LPTCHITTESTINFO = LPTC_HITTESTINFO;
+{$ENDIF}
+
+
+CONST
+ TCM_HITTEST = (TCM_FIRST + 13);
+
+// Macro 228
+Function TabCtrl_HitTest( hwndTC : hwnd;var pinfo : TC_HITTESTINFO ):cint;inline;
+Function TabCtrl_HitTest( hwndTC : hwnd;pinfo : LPTCHITTESTINFO ):cint;inline;
+
+CONST
+ TCM_SETITEMEXTRA = (TCM_FIRST + 14);
+
+// Macro 229
+Function TabCtrl_SetItemExtra( hwndTC : hwnd; cb : WPARAM):BOOL;
+
+
+
+
+CONST
+ TCM_ADJUSTRECT = (TCM_FIRST + 40);
+
+// Macro 230
+Function TabCtrl_AdjustRect( hwnd : hwnd; bLarger : BOOL;var prc : RECT ):cint;
+
+
+
+
+CONST
+ TCM_SETITEMSIZE = (TCM_FIRST + 41);
+
+// Macro 231
+Function TabCtrl_SetItemSize( hwnd : hwnd; x :wparam ; y : lparam ):DWORD;
+
+CONST
+ TCM_REMOVEIMAGE = (TCM_FIRST + 42);
+
+// Macro 232
+Procedure TabCtrl_RemoveImage( hwnd : hwnd; i : wparam );
+
+
+
+
+CONST
+ TCM_SETPADDING = (TCM_FIRST + 43);
+
+// Macro 233
+Procedure TabCtrl_SetPadding( hwnd : hwnd; cx : wparam ; cy : lparam );
+
+
+
+
+CONST
+ TCM_GETROWCOUNT = (TCM_FIRST + 44);
+
+// Macro 234
+Function TabCtrl_GetRowCount( hwnd : hwnd):cint;
+
+
+
+
+CONST
+ TCM_GETTOOLTIPS = (TCM_FIRST + 45);
+
+// Macro 235
+Function TabCtrl_GetToolTips( hwnd : hwnd):HWND;
+
+
+
+
+CONST
+ TCM_SETTOOLTIPS = (TCM_FIRST + 46);
+
+// Macro 236
+Procedure TabCtrl_SetToolTips( hwnd : hwnd; hwndTT : WPARAM);
+
+
+
+
+CONST
+ TCM_GETCURFOCUS = (TCM_FIRST + 47);
+// Macro 237
+
+
+Function TabCtrl_GetCurFocus( hwnd : hwnd):cint;
+
+
+
+CONST
+ TCM_SETCURFOCUS = (TCM_FIRST + 48);
+
+// Macro 238
+Procedure TabCtrl_SetCurFocus( hwnd : hwnd; i : LParam );
+
+
+{$ifdef ie3plus}
+
+CONST
+ TCM_SETMINTABWIDTH = (TCM_FIRST + 49);
+
+// Macro 239
+Function TabCtrl_SetMinTabWidth( hwnd : hwnd; x : WParam ):cint;
+
+
+CONST
+ TCM_DESELECTALL = (TCM_FIRST + 50);
+
+// Macro 240
+Procedure TabCtrl_DeselectAll( hwnd : hwnd; fExcludeFocus : WPARAM );
+
+{$ENDIF}
+
+{$ifdef ie4plus}
+CONST
+ TCM_HIGHLIGHTITEM = (TCM_FIRST + 51);
+
+// Macro 241
+Function TabCtrl_HighlightItem( hwnd : hwnd; i : WPARAM; fHighlight :bool):BOOL;
+
+
+
+CONST
+ TCM_SETEXTENDEDSTYLE = (TCM_FIRST + 52); // optional wParam == mask
+
+// Macro 242
+Function TabCtrl_SetExtendedStyle( hwnd : hwnd; dw :LPARAM ):DWORD;
+
+
+CONST
+ TCM_GETEXTENDEDSTYLE = (TCM_FIRST + 53);
+
+// Macro 243
+Function TabCtrl_GetExtendedStyle( hwnd : hwnd):DWORD;
+
+
+
+CONST
+ TCM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+
+// Macro 244
+Function TabCtrl_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+
+
+CONST
+ TCM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+
+// Macro 245
+Function TabCtrl_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+
+CONST
+ TCN_KEYDOWN = (TCN_FIRST - 0);
+
+
+{$IFDEF _WIN32}
+// #include <pshpack1.h>
+{$ENDIF}
+
+TYPE
+
+ tagTCKEYDOWN = Record
+ hdr : NMHDR;
+ wVKey : WORD;
+ flags : UINT;
+ END;
+ NMTCKEYDOWN = tagTCKEYDOWN;
+ TTCKEYDOWN = tagTCKEYDOWN;
+ PTCKEYDOWN = ^tagTCKEYDOWN;
+
+{$ifdef ie3plus}
+ TC_KEYDOWN = NMTCKEYDOWN;
+{$ELSE}
+ tagTCKEYDOWN = _TC_KEYDOWN;
+ NMTCKEYDOWN = TC_KEYDOWN;
+{$ENDIF}
+
+
+{$IFDEF _WIN32}
+// #include <poppack.h>
+{$ENDIF}
+
+
+CONST
+ TCN_SELCHANGE = (TCN_FIRST - 1);
+ TCN_SELCHANGING = (TCN_FIRST - 2);
+{$ifdef ie4plus}
+ TCN_GETOBJECT = (TCN_FIRST - 3);
+{$ENDIF} // _WIN32_IE >= 0x0400
+{$ifdef ie5plus}
+ TCN_FOCUSCHANGE = (TCN_FIRST - 4);
+{$ENDIF} // _WIN32_IE >= 0x0500
+{$ENDIF} // NOTABCONTROL
+
+//====== ANIMATE CONTROL ======================================================
+
+{$IFNDEF NOANIMATE}
+
+{$IFDEF _WIN32}
+
+ ANIMATE_CLASSW = {L}'SysAnimate32';
+ ANIMATE_CLASSA = 'SysAnimate32';
+
+{$IFDEF UNICODE}
+ ANIMATE_CLASS = ANIMATE_CLASSW;
+{$ELSE}
+ ANIMATE_CLASS = ANIMATE_CLASSA;
+{$ENDIF}
+
+// begin_r_commctrl
+
+
+CONST
+ ACS_CENTER = $0001;
+ ACS_TRANSPARENT = $0002;
+ ACS_AUTOPLAY = $0004;
+{$ifdef ie3plus}
+ ACS_TIMER = $0008; // don't use threads... use timers
+{$ENDIF}
+
+// end_r_commctrl
+
+ ACM_OPENA = (WM_USER+100);
+ ACM_OPENW = (WM_USER+103);
+
+{$IFDEF UNICODE}
+
+
+ ACM_OPEN = ACM_OPENW;
+{$ELSE}
+ ACM_OPEN = ACM_OPENA;
+{$ENDIF}
+
+
+CONST
+ ACM_PLAY = (WM_USER+101);
+ ACM_STOP = (WM_USER+102);
+
+
+ ACN_START = 1;
+ ACN_STOP = 2;
+
+
+// Macro 246
+
+
+Function Animate_Create(hwndP :HWND;id:HMENU;dwStyle:dword;hInstance:HINST):HWND;
+
+// Macro 247
+
+// #define Animate_Open(hwnd, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, 0, (LPARAM)(LPTSTR)(szName))
+// Macro 248
+
+// #define Animate_OpenEx(hwnd, hInst, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, (WPARAM)(hInst), (LPARAM)(LPTSTR)(szName))
+// Macro 249
+
+// #define Animate_Play(hwnd, from, to, rep) (BOOL)SNDMSG(hwnd, ACM_PLAY, (WPARAM)(rep), (LPARAM)MAKELONG(from, to))
+// Macro 250
+
+// #define Animate_Stop(hwnd) (BOOL)SNDMSG(hwnd, ACM_STOP, 0, 0)
+// Macro 251
+
+// #define Animate_Close(hwnd) Animate_Open(hwnd, NULL)
+// Macro 252
+
+// #define Animate_Seek(hwnd, frame) Animate_Play(hwnd, frame, frame, 1)
+{$ENDIF}
+
+{$ENDIF} // NOANIMATE
+
+{$ifdef ie3plus}
+//====== MONTHCAL CONTROL ======================================================
+
+{$IFNDEF NOMONTHCAL}
+{$IFDEF _WIN32}
+
+
+CONST
+ MONTHCAL_CLASSW = {L}'SysMonthCal32';
+ MONTHCAL_CLASSA = 'SysMonthCal32';
+
+
+{$IFDEF UNICODE}
+ MONTHCAL_CLASS = MONTHCAL_CLASSW;
+{$ELSE}
+ MONTHCAL_CLASS = MONTHCAL_CLASSA;
+{$ENDIF}
+
+TYPE
+// bit-packed array of "bold" info for a month
+// if a bit is on, that day is drawn bold
+
+ MONTHDAYSTATE = DWORD;
+ LPMONTHDAYSTATE = ^MONTHDAYSTATE;
+ TMonthDayState = MONTHDAYSTATE;
+ PMonthDayState = LPMONTHDAYSTATE;
+
+
+CONST
+ MCM_FIRST = $1000;
+
+// BOOL MonthCal_GetCurSel(HWND hmc, LPSYSTEMTIME pst)
+// returns FALSE if MCS_MULTISELECT
+// returns TRUE and sets *pst to the currently selected date otherwise
+
+
+
+
+CONST
+ MCM_GETCURSEL = (MCM_FIRST + 1);
+
+// Macro 253
+// #define MonthCal_GetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETCURSEL, 0, (LPARAM)(pst))
+
+function MonthCal_GetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
+
+// BOOL MonthCal_SetCurSel(HWND hmc, LPSYSTEMTIME pst)
+// returns FALSE if MCS_MULTISELECT
+// returns TURE and sets the currently selected date to *pst otherwise
+
+
+
+CONST
+ MCM_SETCURSEL = (MCM_FIRST + 2);
+
+// Macro 254
+// #define MonthCal_SetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_SETCURSEL, 0, (LPARAM)(pst))
+// DWORD MonthCal_GetMaxSelCount(HWND hmc)
+// returns the maximum number of selectable days allowed
+
+function MonthCal_SetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;inline;
+function MonthCal_SetCurSel(hwndMC:HWND; var lpSysTime :TSYSTEMTIME):Bool;inline;
+
+
+CONST
+ MCM_GETMAXSELCOUNT = (MCM_FIRST + 3);
+
+// Macro 255
+// #define MonthCal_GetMaxSelCount(hmc) (DWORD)SNDMSG(hmc, MCM_GETMAXSELCOUNT, 0, 0L)
+// BOOL MonthCal_SetMaxSelCount(HWND hmc, UINT n)
+// sets the max number days that can be selected iff MCS_MULTISELECT
+
+function MonthCal_GetMaxSelCount(hwndMC:HWND):Bool;
+
+CONST
+ MCM_SETMAXSELCOUNT = (MCM_FIRST + 4);
+
+// Macro 256
+// #define MonthCal_SetMaxSelCount(hmc, n) (BOOL)SNDMSG(hmc, MCM_SETMAXSELCOUNT, (WPARAM)(n), 0L)
+
+function MonthCal_SetMaxSelCount(hwndMC:HWND;n:uint):Bool;
+
+// BOOL MonthCal_GetSelRange(HWND hmc, LPSYSTEMTIME rgst)
+// sets rgst[0] to the first day of the selection range
+// sets rgst[1] to the last day of the selection range
+
+CONST
+ MCM_GETSELRANGE = (MCM_FIRST + 5);
+
+// Macro 257
+// #define MonthCal_GetSelRange(hmc, rgst) SNDMSG(hmc, MCM_GETSELRANGE, 0, (LPARAM)(rgst))
+// BOOL MonthCal_SetSelRange(HWND hmc, LPSYSTEMTIME rgst)
+// selects the range of days from rgst[0] to rgst[1]
+
+function MonthCal_GetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
+
+
+CONST
+ MCM_SETSELRANGE = (MCM_FIRST + 6);
+
+// Macro 258
+// #define MonthCal_SetSelRange(hmc, rgst) SNDMSG(hmc, MCM_SETSELRANGE, 0, (LPARAM)(rgst))
+// DWORD MonthCal_GetMonthRange(HWND hmc, DWORD gmr, LPSYSTEMTIME rgst)
+// if rgst specified, sets rgst[0] to the starting date and
+// and rgst[1] to the ending date of the the selectable (non-grayed)
+// days if GMR_VISIBLE or all the displayed days (including grayed)
+// if GMR_DAYSTATE.
+// returns the number of months spanned by the above range.
+
+function MonthCal_SetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
+
+
+CONST
+ MCM_GETMONTHRANGE = (MCM_FIRST + 7);
+
+// Macro 259
+// #define MonthCal_GetMonthRange(hmc, gmr, rgst) (DWORD)SNDMSG(hmc, MCM_GETMONTHRANGE, (WPARAM)(gmr), (LPARAM)(rgst))
+// BOOL MonthCal_SetDayState(HWND hmc, int cbds, DAYSTATE *rgds)
+// cbds is the count of DAYSTATE items in rgds and it must be equal
+// to the value returned from MonthCal_GetMonthRange(hmc, GMR_DAYSTATE, NULL)
+// This sets the DAYSTATE bits for each month (grayed and non-grayed
+// days) displayed in the calendar. The first bit in a month's DAYSTATE
+// corresponts to bolding day 1, the second bit affects day 2, etc.
+
+function MonthCal_GetMonthRange(hwndMC:HWND; gmr: DWORD;lpSysTime :LPSYSTEMTIME):Bool;
+
+
+CONST
+ MCM_SETDAYSTATE = (MCM_FIRST + 8);
+
+// Macro 260
+// #define MonthCal_SetDayState(hmc, cbds, rgds) SNDMSG(hmc, MCM_SETDAYSTATE, (WPARAM)(cbds), (LPARAM)(rgds))
+// BOOL MonthCal_GetMinReqRect(HWND hmc, LPRECT prc)
+// sets *prc the minimal size needed to display one month
+// To display two months, undo the AdjustWindowRect calculation already done to
+// this rect, double the width, and redo the AdjustWindowRect calculation --
+// the monthcal control will display two calendars in this window (if you also
+// double the vertical size, you will get 4 calendars)
+// NOTE: if you want to gurantee that the "Today" string is not clipped,
+// get the MCM_GETMAXTODAYWIDTH and use the max of that width and this width
+
+function MonthCal_SetDayState(hwndMC:HWND; gmr: Longint;lpDay :LPMONTHDAYSTATE):Bool;
+
+
+CONST
+ MCM_GETMINREQRECT = (MCM_FIRST + 9);
+
+// Macro 261
+// #define MonthCal_GetMinReqRect(hmc, prc) SNDMSG(hmc, MCM_GETMINREQRECT, 0, (LPARAM)(prc))
+// set colors to draw control with -- see MCSC_ bits below
+
+function MonthCal_GetMinReqRect(hwndMC:HWND; lpr :LPRect):Bool;inline;
+function MonthCal_GetMinReqRect(hwndMC:HWND; var lpr :TRect):Bool;inline;
+
+
+CONST
+ MCM_SETCOLOR = (MCM_FIRST + 10);
+
+// Macro 262
+// #define MonthCal_SetColor(hmc, iColor, clr) SNDMSG(hmc, MCM_SETCOLOR, iColor, clr)
+
+function MonthCal_SetColor(hwndMC:HWND; ic:longint;clr:COLORREF):DWORD;inline;
+
+
+CONST
+ MCM_GETCOLOR = (MCM_FIRST + 11);
+
+// Macro 263
+// #define MonthCal_GetColor(hmc, iColor) SNDMSG(hmc, MCM_GETCOLOR, iColor, 0)
+
+function MonthCal_GetColor(hwndMC:HWND; ic:longint):Bool;
+
+
+CONST
+ MCSC_BACKGROUND = 0; // the background color (between months)
+ MCSC_TEXT = 1; // the dates
+ MCSC_TITLEBK = 2; // background of the title
+ MCSC_TITLETEXT = 3;
+ MCSC_MONTHBK = 4; // background within the month cal
+ MCSC_TRAILINGTEXT = 5; // the text color of header & trailing days
+
+// set what day is "today" send NULL to revert back to real date
+ MCM_SETTODAY = (MCM_FIRST + 12);
+
+// Macro 264
+// #define MonthCal_SetToday(hmc, pst) SNDMSG(hmc, MCM_SETTODAY, 0, (LPARAM)(pst))
+// get what day is "today"
+// returns BOOL for success/failure
+
+function MonthCal_SetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
+
+
+CONST
+ MCM_GETTODAY = (MCM_FIRST + 13);
+
+// Macro 265
+// #define MonthCal_GetToday(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETTODAY, 0, (LPARAM)(pst))
+// determine what pinfo->pt is over
+
+function MonthCal_GetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
+
+
+CONST
+ MCM_HITTEST = (MCM_FIRST + 14);
+
+TYPE
+
+ DummyStruct16 = Record
+ cbSize : UINT;
+ pt : POINT;
+ uHit : UINT; // out param
+ st : SYSTEMTIME;
+{$ifdef NTDDI_VISTA}
+ rc : RECT;
+ iOffset : cint;
+ iRow : cint;
+ iCol : cint;
+{$endif}
+ END;
+ MCHITTESTINFO = DummyStruct16;
+ PMCHITTESTINFO = ^DummyStruct16;
+ TDummyStruct16 = DummyStruct16;
+ PDummyStruct16 = ^DummyStruct16;
+
+
+// Macro 266
+FUNCTION MonthCal_HitTest( hmc :HWND ; pinfo : PMCHITTESTINFO):DWORD;
+
+
+CONST
+ MCHT_TITLE = $00010000;
+ MCHT_CALENDAR = $00020000;
+ MCHT_TODAYLINK = $00030000;
+
+ MCHT_NEXT = $01000000; // these indicate that hitting
+ MCHT_PREV = $02000000; // here will go to the next/prev month
+
+ MCHT_NOWHERE = $00000000;
+
+ MCHT_TITLEBK = (MCHT_TITLE);
+ MCHT_TITLEMONTH = (MCHT_TITLE OR $0001);
+ MCHT_TITLEYEAR = (MCHT_TITLE OR $0002);
+ MCHT_TITLEBTNNEXT = (MCHT_TITLE OR MCHT_NEXT OR $0003);
+ MCHT_TITLEBTNPREV = (MCHT_TITLE OR MCHT_PREV OR $0003);
+
+ MCHT_CALENDARBK = (MCHT_CALENDAR);
+ MCHT_CALENDARDATE = (MCHT_CALENDAR OR $0001);
+ MCHT_CALENDARDATENEXT = (MCHT_CALENDARDATE OR MCHT_NEXT);
+ MCHT_CALENDARDATEPREV = (MCHT_CALENDARDATE OR MCHT_PREV);
+ MCHT_CALENDARDAY = (MCHT_CALENDAR OR $0002);
+ MCHT_CALENDARWEEKNUM = (MCHT_CALENDAR OR $0003);
+
+// set first day of week to iDay:
+// 0 for Monday, 1 for Tuesday, ..., 6 for Sunday
+// -1 for means use locale info
+ MCM_SETFIRSTDAYOFWEEK = (MCM_FIRST + 15);
+// Macro 267
+
+
+function MonthCal_SetFirstDayOfWeek( hmc : HWND ; iDay :LONGINT ):DWORD;
+
+
+// DWORD result... low word has the day. high word is bool if this is app set
+// or not (FALSE == using locale info)
+
+CONST
+ MCM_GETFIRSTDAYOFWEEK = (MCM_FIRST + 16);
+// Macro 268
+
+
+Function MonthCal_GetFirstDayOfWeek( hmc : HWND ):DWORD;
+
+
+// DWORD MonthCal_GetRange(HWND hmc, LPSYSTEMTIME rgst)
+// modifies rgst[0] to be the minimum ALLOWABLE systemtime (or 0 if no minimum)
+// modifies rgst[1] to be the maximum ALLOWABLE systemtime (or 0 if no maximum)
+// returns GDTR_MIN|GDTR_MAX if there is a minimum|maximum limit
+
+CONST
+ MCM_GETRANGE = (MCM_FIRST + 17);
+// Macro 269
+
+
+Function MonthCal_GetRange( hmc : HWND ; rgst : LPSYSTEMTIME):DWORD;
+
+
+// BOOL MonthCal_SetRange(HWND hmc, DWORD gdtr, LPSYSTEMTIME rgst)
+// if GDTR_MIN, sets the minimum ALLOWABLE systemtime to rgst[0], otherwise removes minimum
+// if GDTR_MAX, sets the maximum ALLOWABLE systemtime to rgst[1], otherwise removes maximum
+// returns TRUE on success, FALSE on error (such as invalid parameters)
+
+CONST
+ MCM_SETRANGE = (MCM_FIRST + 18);
+// Macro 270
+
+
+Function MonthCal_SetRange( hmc : HWND ; gd : DWORD; rgst : LPSYSTEMTIME):BOOL;
+
+
+// int MonthCal_GetMonthDelta(HWND hmc)
+// returns the number of months one click on a next/prev button moves by
+
+CONST
+ MCM_GETMONTHDELTA = (MCM_FIRST + 19);
+// Macro 271
+
+
+Function MonthCal_GetMonthDelta( hmc :hwnd ):cint;
+
+
+// int MonthCal_SetMonthDelta(HWND hmc, int n)
+// sets the month delta to n. n==0 reverts to moving by a page of months
+// returns the previous value of n.
+
+CONST
+ MCM_SETMONTHDELTA = (MCM_FIRST + 20);
+// Macro 272
+
+
+Function MonthCal_SetMonthDelta( hmc :hwnd ; n :cint ):cint;
+
+
+// DWORD MonthCal_GetMaxTodayWidth(HWND hmc, LPSIZE psz)
+// sets *psz to the maximum width/height of the "Today" string displayed
+// at the bottom of the calendar (as long as MCS_NOTODAY is not specified)
+
+CONST
+ MCM_GETMAXTODAYWIDTH = (MCM_FIRST + 21);
+// Macro 273
+
+
+Function MonthCal_GetMaxTodayWidth( hmc :hwnd ):DWORD;
+
+
+{$ifdef ie4plus}
+
+CONST
+ MCM_SETUNICODEFORMAT = CCM_SETUNICODEFORMAT;
+// Macro 274
+
+
+Function MonthCal_SetUnicodeFormat( hwnd : hwnd; fUnicode : bool):BOOL;
+
+
+CONST
+ MCM_GETUNICODEFORMAT = CCM_GETUNICODEFORMAT;
+// Macro 275
+
+
+Function MonthCal_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+{$ifdef NTDDI_VISTA}
+Const
+// View
+ MCMV_MONTH = 0;
+ MCMV_YEAR = 1;
+ MCMV_DECADE = 2;
+ MCMV_CENTURY = 3;
+ MCMV_MAX = MCMV_CENTURY;
+
+ MCM_GETCURRENTVIEW = (MCM_FIRST + 22);
+ MCM_GETCALENDARCOUNT = (MCM_FIRST + 23);
+ MCM_GETCALENDARGRIDINFO = (MCM_FIRST + 24);
+ MCM_GETCALID = (MCM_FIRST + 27);
+ MCM_SETCALID = (MCM_FIRST + 28);
+// Returns the min rect that will fit the max number of calendars for the passed in rect.
+ MCM_SIZERECTTOMIN = (MCM_FIRST + 29);
+ MCM_SETCALENDARBORDER = (MCM_FIRST + 30);
+ MCM_GETCALENDARBORDER = (MCM_FIRST + 31);
+ MCM_SETCURRENTVIEW = (MCM_FIRST + 32);
+
+// Part
+ MCGIP_CALENDARCONTROL = 0;
+ MCGIP_NEXT = 1;
+ MCGIP_PREV = 2;
+ MCGIP_FOOTER = 3;
+ MCGIP_CALENDAR = 4;
+ MCGIP_CALENDARHEADER = 5;
+ MCGIP_CALENDARBODY = 6;
+ MCGIP_CALENDARROW = 7;
+ MCGIP_CALENDARCELL = 8;
+
+ MCGIF_DATE = $00000001;
+ MCGIF_RECT = $00000002;
+ MCGIF_NAME = $00000004;
+
+// Note: iRow of -1 refers to the row header and iCol of -1 refers to the col header.
+
+Type
+ tagMCGRIDINFO = record
+ cbSize : UINT;
+ dwPart : DWORD;
+ dwFlags : DWORD;
+ iCalendar : longint;
+ iRow : longint;
+ iCol : longint;
+ bSelected : BOOL;
+ stStart : SYSTEMTIME;
+ stEnd : SYSTEMTIME;
+ rc : RECT;
+ pszName : LPWSTR;
+ cchName : size_t;
+ end;
+ MCGRIDINFO = tagMCGRIDINFO;
+ TPMCGRIDINFO = MCGRIDINFO;
+ PMCGRIDINFO = ^MCGRIDINFO;
+ LPMCGRIDINFO = PMCGRIDINFO;
+
+function MonthCal_GetCurrentView(hmc:HWND):DWORD;
+// (DWORD)SNDMSG(hmc, MCM_GETCURRENTVIEW, 0, 0)
+
+function MonthCal_GetCalendarCount(hmc:HWND):DWORD;
+// (DWORD)SNDMSG(hmc, MCM_GETCALENDARCOUNT, 0, 0)
+
+function MonthCal_GetCalendarGridInfo(hmc:HWND; pmc:pMCGRIDINFO):BOOL;
+// (BOOL)SNDMSG(hmc, MCM_GETCALENDARGRIDINFO, 0, (LPARAM)(PMCGRIDINFO)(pmcGridInfo))
+
+function MonthCal_GetCALID(hmc:HWND):CALID;
+// (CALID)SNDMSG(hmc, MCM_GETCALID, 0, 0)
+
+function MonthCal_SetCALID(hmc:HWND; calid:cuint):LRESULT;
+// SNDMSG(hmc, MCM_SETCALID, (WPARAM)(calid), 0)
+
+function MonthCal_SizeRectToMin(hmc:HWND; prc:prect):LRESULT;
+// SNDMSG(hmc, MCM_SIZERECTTOMIN, 0, (LPARAM)(prc))
+
+function MonthCal_SetCalendarBorder(hmc:HWND; fset:bool; xyborder:cint):LRESULT;
+// SNDMSG(hmc, MCM_SETCALENDARBORDER, (WPARAM)(fset), (LPARAM)(xyborder))
+
+function MonthCal_GetCalendarBorder(hmc:HWND):cint;
+// (int)SNDMSG(hmc, MCM_GETCALENDARBORDER, 0, 0)
+
+function MonthCal_SetCurrentView(hmc:HWND; dwNewView:DWord):BOOL;
+// (BOOL)SNDMSG(hmc, MCM_SETCURRENTVIEW, 0, (LPARAM)(dwNewView))
+
+
+{$endif}
+
+{$ENDIF}
+
+// MCN_SELCHANGE is sent whenever the currently displayed date changes
+// via month change, year change, keyboard navigation, prev/next button
+//
+TYPE
+
+ tagNMSELCHANGE = Record
+ nmhdr : NMHDR; // this must be first, so we don't break WM_NOTIFY
+ stSelStart : SYSTEMTIME;
+ stSelEnd : SYSTEMTIME;
+ END;
+ NMSELCHANGE = tagNMSELCHANGE;
+ LPNMSELCHANGE = ^tagNMSELCHANGE;
+ TNMSELCHANGE = tagNMSELCHANGE;
+ PNMSELCHANGE = ^tagNMSELCHANGE;
+
+
+
+CONST
+ MCN_SELCHANGE = (MCN_FIRST + 1);
+
+// MCN_GETDAYSTATE is sent for MCS_DAYSTATE controls whenever new daystate
+// information is needed (month or year scroll) to draw bolding information.
+// The app must fill in cDayState months worth of information starting from
+// stStart date. The app may fill in the array at prgDayState or change
+// prgDayState to point to a different array out of which the information
+// will be copied. (similar to tooltips)
+//
+TYPE
+
+ tagNMDAYSTATE = Record
+ nmhdr : NMHDR; // this must be first, so we don't break WM_NOTIFY
+ stStart : SYSTEMTIME;
+ cDayState : cint;
+ prgDayState : LPMONTHDAYSTATE; // points to cDayState MONTHDAYSTATEs
+ END;
+ NMDAYSTATE = tagNMDAYSTATE;
+ LPNMDAYSTATE = ^tagNMDAYSTATE;
+ TNMDAYSTATE = tagNMDAYSTATE;
+ PNMDAYSTATE = ^tagNMDAYSTATE;
+
+
+
+CONST
+ MCN_GETDAYSTATE = (MCN_FIRST + 3);
+
+// MCN_SELECT is sent whenever a selection has occured (via mouse or keyboard)
+//
+TYPE
+
+ NMSELECT = NMSELCHANGE;
+ LPNMSELECT = ^NMSELCHANGE;
+
+
+CONST
+ MCN_SELECT = (MCN_FIRST + 4);
+
+
+// begin_r_commctrl
+
+ MCS_DAYSTATE = $0001;
+ MCS_MULTISELECT = $0002;
+ MCS_WEEKNUMBERS = $0004;
+{$ifdef ie4plus}
+ MCS_NOTODAYCIRCLE = $0008;
+ MCS_NOTODAY = $0010;
+{$ELSE}
+ MCS_NOTODAY = $0008;
+{$ENDIF}
+{$ifdef NTDDI_Vista}
+ MCS_NOTRAILINGDATES = $0040;
+ MCS_SHORTDAYSOFWEEK = $0080;
+ MCS_NOSELCHANGEONNAV = $0100;
+{$endif}
+
+ GMR_VISIBLE = 0; // visible portion of display
+ GMR_DAYSTATE = 1; // above plus the grayed out parts of
+ // partially displayed months
+
+
+{$ENDIF} // _WIN32
+{$ENDIF} // NOMONTHCAL
+
+
+//====== DATETIMEPICK CONTROL ==================================================
+
+{$IFNDEF NODATETIMEPICK}
+{$IFDEF _WIN32}
+
+ DATETIMEPICK_CLASSW = {L}'SysDateTimePick32';
+ DATETIMEPICK_CLASSA = 'SysDateTimePick32';
+
+{$IFDEF UNICODE}
+ DATETIMEPICK_CLASS = DATETIMEPICK_CLASSW;
+{$ELSE}
+ DATETIMEPICK_CLASS = DATETIMEPICK_CLASSA;
+{$ENDIF}
+
+{$ifdef NTDDI_VISTA}
+Type
+ tagDATETIMEPICKERINFO = packed record
+ cbSize : DWORD;
+ rcCheck : RECT;
+ stateCheck : DWORD;
+ rcButton : RECT;
+ stateButton : DWORD;
+ hwndEdit : HWND;
+ hwndUD : HWND;
+ hwndDropDown : HWND;
+ end;
+ DATETIMEPICKERINFO = tagDATETIMEPICKERINFO;
+ PDATETIMEPICKERINFO = ^DATETIMEPICKERINFO;
+ LPDATETIMEPICKERINFO = PDATETIMEPICKERINFO;
+ TDATETIMEPICKERINFO = DATETIMEPICKERINFO;
+{$endif}
+
+CONST
+ DTM_FIRST = $1000;
+
+// DWORD DateTimePick_GetSystemtime(HWND hdp, LPSYSTEMTIME pst)
+// returns GDT_NONE if "none" is selected (DTS_SHOWNONE only)
+// returns GDT_VALID and modifies *pst to be the currently selected value
+ DTM_GETSYSTEMTIME = (DTM_FIRST + 1);
+// Macro 276
+
+// #define DateTime_GetSystemtime(hdp, pst) (DWORD)SNDMSG(hdp, DTM_GETSYSTEMTIME, 0, (LPARAM)(pst))
+
+// BOOL DateTime_SetSystemtime(HWND hdp, DWORD gd, LPSYSTEMTIME pst)
+// if gd==GDT_NONE, sets datetimepick to None (DTS_SHOWNONE only)
+// if gd==GDT_VALID, sets datetimepick to *pst
+// returns TRUE on success, FALSE on error (such as bad params)
+
+CONST
+ DTM_SETSYSTEMTIME = (DTM_FIRST + 2);
+// Macro 277
+
+// #define DateTime_SetSystemtime(hdp, gd, pst) (BOOL)SNDMSG(hdp, DTM_SETSYSTEMTIME, (WPARAM)(gd), (LPARAM)(pst))
+function DateTime_SetSystemTime(hdp: HWND; gd: DWORD; const pst: TSystemTime): BOOL;inline;
+
+// DWORD DateTime_GetRange(HWND hdp, LPSYSTEMTIME rgst)
+// modifies rgst[0] to be the minimum ALLOWABLE systemtime (or 0 if no minimum)
+// modifies rgst[1] to be the maximum ALLOWABLE systemtime (or 0 if no maximum)
+// returns GDTR_MIN|GDTR_MAX if there is a minimum|maximum limit
+
+CONST
+ DTM_GETRANGE = (DTM_FIRST + 3);
+// Macro 278
+
+// #define DateTime_GetRange(hdp, rgst) (DWORD)SNDMSG(hdp, DTM_GETRANGE, 0, (LPARAM)(rgst))
+
+// BOOL DateTime_SetRange(HWND hdp, DWORD gdtr, LPSYSTEMTIME rgst)
+// if GDTR_MIN, sets the minimum ALLOWABLE systemtime to rgst[0], otherwise removes minimum
+// if GDTR_MAX, sets the maximum ALLOWABLE systemtime to rgst[1], otherwise removes maximum
+// returns TRUE on success, FALSE on error (such as invalid parameters)
+
+CONST
+ DTM_SETRANGE = (DTM_FIRST + 4);
+// Macro 279
+
+// #define DateTime_SetRange(hdp, gd, rgst) (BOOL)SNDMSG(hdp, DTM_SETRANGE, (WPARAM)(gd), (LPARAM)(rgst))
+function DateTime_SetRange(hdp: HWND; gdtr: DWORD; rgst: PSystemTime): BOOL;inline;
+
+// BOOL DateTime_SetFormat(HWND hdp, LPCTSTR sz)
+// sets the display formatting string to sz (see GetDateFormat and GetTimeFormat for valid formatting chars)
+// NOTE: 'X' is a valid formatting character which indicates that the application
+// will determine how to display information. Such apps must support DTN_WMKEYDOWN,
+// DTN_FORMAT, and DTN_FORMATQUERY.
+
+CONST
+ DTM_SETFORMATA = (DTM_FIRST + 5);
+ DTM_SETFORMATW = (DTM_FIRST + 50);
+
+{$IFDEF UNICODE}
+
+TYPE
+ DTM_SETFORMAT = DTM_SETFORMATW;
+{$ELSE}
+ DTM_SETFORMAT = DTM_SETFORMATA;
+{$ENDIF}
+
+// Macro 280
+
+// #define DateTime_SetFormat(hdp, sz) (BOOL)SNDMSG(hdp, DTM_SETFORMAT, 0, (LPARAM)(sz))
+
+
+
+CONST
+ DTM_SETMCCOLOR = (DTM_FIRST + 6);
+// Macro 281
+
+// #define DateTime_SetMonthCalColor(hdp, iColor, clr) SNDMSG(hdp, DTM_SETMCCOLOR, iColor, clr)
+function DateTime_SetMonthCalColor(hdp: HWND; iColor: DWORD; clr: TColorRef): TColorRef;inline;
+
+CONST
+ DTM_GETMCCOLOR = (DTM_FIRST + 7);
+// Macro 282
+
+// #define DateTime_GetMonthCalColor(hdp, iColor) SNDMSG(hdp, DTM_GETMCCOLOR, iColor, 0)
+
+// HWND DateTime_GetMonthCal(HWND hdp)
+// returns the HWND of the MonthCal popup window. Only valid
+// between DTN_DROPDOWN and DTN_CLOSEUP notifications.
+
+CONST
+ DTM_GETMONTHCAL = (DTM_FIRST + 8);
+// Macro 283
+
+// #define DateTime_GetMonthCal(hdp) (HWND)SNDMSG(hdp, DTM_GETMONTHCAL, 0, 0)
+function DateTime_GetMonthCal(hdp: HWND): HWND;inline;
+
+{$ifdef ie4plus}
+
+
+CONST
+ DTM_SETMCFONT = (DTM_FIRST + 9);
+
+// Macro 284
+procedure DateTime_SetMonthCalFont(hdp:HWND; hfont:HFONT; fRedraw:LPARAM);
+// SNDMSG(hdp, DTM_SETMCFONT, (WPARAM)(hfont), (LPARAM)(fRedraw))
+
+
+CONST
+ DTM_GETMCFONT = (DTM_FIRST + 10);
+
+// Macro 285
+function DateTime_GetMonthCalFont(hdp:HWND):HFONT;
+// SNDMSG(hdp, DTM_GETMCFONT, 0, 0)
+
+{$ifdef NTDDI_VISTA}
+Const
+ DTM_SETMCSTYLE = (DTM_FIRST + 11);
+ DTM_GETMCSTYLE = (DTM_FIRST + 12);
+ DTM_CLOSEMONTHCAL = (DTM_FIRST + 13);
+ DTM_GETDATETIMEPICKERINFO = (DTM_FIRST + 14);
+ DTM_GETIDEALSIZE = (DTM_FIRST + 15);
+
+function DateTime_SetMonthCalStyle(hdp:HWND; dwStyle:DWord):LResult;
+// SNDMSG(hdp, DTM_SETMCSTYLE, 0, (LPARAM)dwStyle)
+
+function DateTime_GetMonthCalStyle(hdp:HWND):LRESULT;
+// SNDMSG(hdp, DTM_GETMCSTYLE, 0, 0)
+
+function DateTime_CloseMonthCal(hdp:HWND):LRESULT;
+// SNDMSG(hdp, DTM_CLOSEMONTHCAL, 0, 0)
+
+// DateTime_GetDateTimePickerInfo(HWND hdp, DATETIMEPICKERINFO* pdtpi)
+// Retrieves information about the selected date time picker.
+
+function DateTime_GetDateTimePickerInfo(hdp:HWND; pdtpi:PDATETIMEPICKERINFO):LRESULT;
+// SNDMSG(hdp, DTM_GETDATETIMEPICKERINFO, 0, (LPARAM)(pdtpi))
+
+function DateTime_GetIdealSize(hdp:HWND; ps:PSIZE): LResult;
+// (BOOL)SNDMSG((hdp), DTM_GETIDEALSIZE, 0, (LPARAM)(psize))
+
+{$endif}
+
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+// begin_r_commctrl
+
+
+CONST
+ DTS_UPDOWN = $0001; // use UPDOWN instead of MONTHCAL
+ DTS_SHOWNONE = $0002; // allow a NONE selection
+ DTS_SHORTDATEFORMAT = $0000; // use the short date format (app must forward WM_WININICHANGE messages)
+ DTS_LONGDATEFORMAT = $0004; // use the long date format (app must forward WM_WININICHANGE messages)
+{$ifdef ie5plus}
+ DTS_SHORTDATECENTURYFORMAT = $000C; // short date format with century (app must forward WM_WININICHANGE messages)
+{$ENDIF} // (_WIN32_IE >= 0x500)
+ DTS_TIMEFORMAT = $0009; // use the time format (app must forward WM_WININICHANGE messages)
+ DTS_APPCANPARSE = $0010; // allow user entered strings (app MUST respond to DTN_USERSTRING)
+ DTS_RIGHTALIGN = $0020; // right-align popup instead of left-align it
+
+// end_r_commctrl
+
+ DTN_DATETIMECHANGE = (DTN_FIRST + 1); // the systemtime has changed
+TYPE
+
+ tagNMDATETIMECHANGE = Record
+ nmhdr : NMHDR;
+ dwFlags : DWORD; // GDT_VALID or GDT_NONE
+ st : SYSTEMTIME; // valid iff dwFlags==GDT_VALID
+ END;
+ NMDATETIMECHANGE = tagNMDATETIMECHANGE;
+ LPNMDATETIMECHANGE = ^tagNMDATETIMECHANGE;
+ TNMDATETIMECHANGE = tagNMDATETIMECHANGE;
+ PNMDATETIMECHANGE = ^tagNMDATETIMECHANGE;
+
+
+
+CONST
+ DTN_USERSTRINGA = (DTN_FIRST + 2); // the user has entered a string
+ DTN_USERSTRINGW = (DTN_FIRST + 15);
+TYPE
+
+ tagNMDATETIMESTRINGA = Record
+ nmhdr : NMHDR;
+ pszUserString : LPCSTR; // string user entered
+ st : SYSTEMTIME; // app fills this in
+ dwFlags : DWORD; // GDT_VALID or GDT_NONE
+ END;
+ NMDATETIMESTRINGA = tagNMDATETIMESTRINGA;
+ LPNMDATETIMESTRINGA = ^tagNMDATETIMESTRINGA;
+ TNMDATETIMESTRINGA = tagNMDATETIMESTRINGA;
+ PNMDATETIMESTRINGA = ^tagNMDATETIMESTRINGA;
+
+
+ tagNMDATETIMESTRINGW = Record
+ nmhdr : NMHDR;
+ pszUserString : LPCWSTR; // string user entered
+ st : SYSTEMTIME; // app fills this in
+ dwFlags : DWORD; // GDT_VALID or GDT_NONE
+ END;
+ NMDATETIMESTRINGW = tagNMDATETIMESTRINGW;
+ LPNMDATETIMESTRINGW = ^tagNMDATETIMESTRINGW;
+ TNMDATETIMESTRINGW = tagNMDATETIMESTRINGW;
+ PNMDATETIMESTRINGW = ^tagNMDATETIMESTRINGW;
+
+
+{$IFDEF UNICODE}
+CONST
+ DTN_USERSTRING = DTN_USERSTRINGW;
+TYPE
+ NMDATETIMESTRING = NMDATETIMESTRINGW;
+ LPNMDATETIMESTRING = LPNMDATETIMESTRINGW;
+{$ELSE}
+CONST
+ DTN_USERSTRING = DTN_USERSTRINGA;
+TYPE
+ NMDATETIMESTRING = NMDATETIMESTRINGA;
+ LPNMDATETIMESTRING = LPNMDATETIMESTRINGA;
+{$ENDIF}
+ TNMDateTimeString = NMDATETIMESTRING;
+ PNMDateTimeString = LPNMDATETIMESTRING;
+
+
+
+CONST
+ DTN_WMKEYDOWNA = (DTN_FIRST + 3); // modify keydown on app format field (X)
+ DTN_WMKEYDOWNW = (DTN_FIRST + 16);
+TYPE
+
+ tagNMDATETIMEWMKEYDOWNA = Record
+ nmhdr : NMHDR;
+ nVirtKey : cint; // virtual key code of WM_KEYDOWN which MODIFIES an X field
+ pszFormat : LPCSTR; // format substring
+ st : SYSTEMTIME; // current systemtime, app should modify based on key
+ END;
+ NMDATETIMEWMKEYDOWNA = tagNMDATETIMEWMKEYDOWNA;
+ LPNMDATETIMEWMKEYDOWNA = ^tagNMDATETIMEWMKEYDOWNA;
+ TNMDATETIMEWMKEYDOWNA = tagNMDATETIMEWMKEYDOWNA;
+ PNMDATETIMEWMKEYDOWNA = ^tagNMDATETIMEWMKEYDOWNA;
+
+
+ tagNMDATETIMEWMKEYDOWNW = Record
+ nmhdr : NMHDR;
+ nVirtKey : cint; // virtual key code of WM_KEYDOWN which MODIFIES an X field
+ pszFormat : LPCWSTR; // format substring
+ st : SYSTEMTIME; // current systemtime, app should modify based on key
+ END;
+ NMDATETIMEWMKEYDOWNW = tagNMDATETIMEWMKEYDOWNW;
+ LPNMDATETIMEWMKEYDOWNW = ^tagNMDATETIMEWMKEYDOWNW;
+ TNMDATETIMEWMKEYDOWNW = tagNMDATETIMEWMKEYDOWNW;
+ PNMDATETIMEWMKEYDOWNW = ^tagNMDATETIMEWMKEYDOWNW;
+
+
+{$IFDEF UNICODE}
+CONST
+ DTN_WMKEYDOWN = DTN_WMKEYDOWNW;
+TYPE
+ NMDATETIMEWMKEYDOWN = NMDATETIMEWMKEYDOWNW;
+ LPNMDATETIMEWMKEYDOWN= LPNMDATETIMEWMKEYDOWNW;
+{$ELSE}
+CONST
+ DTN_WMKEYDOWN = DTN_WMKEYDOWNA;
+TYPE
+ NMDATETIMEWMKEYDOWN = NMDATETIMEWMKEYDOWNA;
+ LPNMDATETIMEWMKEYDOWN= LPNMDATETIMEWMKEYDOWNA;
+{$ENDIF}
+
+
+
+CONST
+ DTN_FORMATA = (DTN_FIRST + 4); // query display for app format field (X)
+ DTN_FORMATW = (DTN_FIRST + 17);
+TYPE
+
+ tagNMDATETIMEFORMATA = Record
+ nmhdr : NMHDR;
+ pszFormat : LPCSTR; // format substring
+ st : SYSTEMTIME; // current systemtime
+ pszDisplay : LPCSTR; // string to display
+ szDisplay : Array [0..63] OF CHAR; // buffer pszDisplay originally points at
+ END;
+ NMDATETIMEFORMATA = tagNMDATETIMEFORMATA;
+ LPNMDATETIMEFORMATA = ^tagNMDATETIMEFORMATA;
+ TNMDATETIMEFORMATA = tagNMDATETIMEFORMATA;
+ PNMDATETIMEFORMATA = ^tagNMDATETIMEFORMATA;
+
+
+ tagNMDATETIMEFORMATW = Record
+ nmhdr : NMHDR;
+ pszFormat : LPCWSTR; // format substring
+ st : SYSTEMTIME; // current systemtime
+ pszDisplay : LPCWSTR; // string to display
+ szDisplay : Array [0..63] OF WCHAR; // buffer pszDisplay originally points at
+ END;
+ NMDATETIMEFORMATW = tagNMDATETIMEFORMATW;
+ LPNMDATETIMEFORMATW = ^tagNMDATETIMEFORMATW;
+ TNMDATETIMEFORMATW = tagNMDATETIMEFORMATW;
+ PNMDATETIMEFORMATW = ^tagNMDATETIMEFORMATW;
+
+
+{$IFDEF UNICODE}
+CONST
+ DTN_FORMAT = DTN_FORMATW;
+TYPE
+ NMDATETIMEFORMAT = NMDATETIMEFORMATW;
+ LPNMDATETIMEFORMAT = LPNMDATETIMEFORMATW;
+{$ELSE}
+CONST
+ DTN_FORMAT = DTN_FORMATA;
+TYPE
+ NMDATETIMEFORMAT = NMDATETIMEFORMATA;
+ LPNMDATETIMEFORMAT = LPNMDATETIMEFORMATA;
+{$ENDIF}
+
+
+
+CONST
+ DTN_FORMATQUERYA = (DTN_FIRST + 5); // query formatting info for app format field (X)
+ DTN_FORMATQUERYW = (DTN_FIRST + 18);
+TYPE
+
+ tagNMDATETIMEFORMATQUERYA = Record
+ nmhdr : NMHDR;
+ pszFormat : LPCSTR; // format substring
+ szMax : SIZE; // max bounding rectangle app will use for this format string
+ END;
+ NMDATETIMEFORMATQUERYA = tagNMDATETIMEFORMATQUERYA;
+ LPNMDATETIMEFORMATQUERYA = ^tagNMDATETIMEFORMATQUERYA;
+ TNMDATETIMEFORMATQUERYA = tagNMDATETIMEFORMATQUERYA;
+ PNMDATETIMEFORMATQUERYA = ^tagNMDATETIMEFORMATQUERYA;
+
+
+ tagNMDATETIMEFORMATQUERYW = Record
+ nmhdr : NMHDR;
+ pszFormat : LPCWSTR; // format substring
+ szMax : SIZE; // max bounding rectangle app will use for this format string
+ END;
+ NMDATETIMEFORMATQUERYW = tagNMDATETIMEFORMATQUERYW;
+ LPNMDATETIMEFORMATQUERYW = ^tagNMDATETIMEFORMATQUERYW;
+ TNMDATETIMEFORMATQUERYW = tagNMDATETIMEFORMATQUERYW;
+ PNMDATETIMEFORMATQUERYW = ^tagNMDATETIMEFORMATQUERYW;
+
+
+{$IFDEF UNICODE}
+CONST
+ DTN_FORMATQUERY = DTN_FORMATQUERYW;
+TYPE
+ NMDATETIMEFORMATQUERY= NMDATETIMEFORMATQUERYW;
+ LPNMDATETIMEFORMATQUERY= LPNMDATETIMEFORMATQUERYW;
+{$ELSE}
+CONST
+ DTN_FORMATQUERY = DTN_FORMATQUERYA;
+TYPE
+ NMDATETIMEFORMATQUERY= NMDATETIMEFORMATQUERYA;
+ LPNMDATETIMEFORMATQUERY= LPNMDATETIMEFORMATQUERYA;
+{$ENDIF}
+
+
+
+CONST
+ DTN_DROPDOWN = (DTN_FIRST + 6); // MonthCal has dropped down
+ DTN_CLOSEUP = (DTN_FIRST + 7); // MonthCal is popping up
+
+
+ GDTR_MIN = $0001;
+ GDTR_MAX = $0002;
+
+ GDT_ERROR = -1;
+ GDT_VALID = 0;
+ GDT_NONE = 1;
+
+
+{$ENDIF} // _WIN32
+{$ENDIF} // NODATETIMEPICK
+
+
+{$ifdef ie4plus}
+
+{$IFNDEF NOIPADDRESS}
+
+///////////////////////////////////////////////
+/// IP Address edit control
+
+// Messages sent to IPAddress controls
+
+ IPM_CLEARADDRESS = (WM_USER+100); // no parameters
+ IPM_SETADDRESS = (WM_USER+101); // lparam = TCP/IP address
+ IPM_GETADDRESS = (WM_USER+102); // lresult = # of non black fields. lparam = LPDWORD for TCP/IP address
+ IPM_SETRANGE = (WM_USER+103); // wparam = field, lparam = range
+ IPM_SETFOCUS = (WM_USER+104); // wparam = field
+ IPM_ISBLANK = (WM_USER+105); // no parameters
+
+ WC_IPADDRESSW = {L}'SysIPAddress32';
+ WC_IPADDRESSA = 'SysIPAddress32';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_IPADDRESS = WC_IPADDRESSW;
+{$ELSE}
+ WC_IPADDRESS = WC_IPADDRESSA;
+{$ENDIF}
+
+
+CONST
+ IPN_FIELDCHANGED = (IPN_FIRST - 0);
+TYPE
+
+ tagNMIPADDRESS = Record
+ hdr : NMHDR;
+ iField : cint;
+ iValue : cint;
+ END;
+ NMIPADDRESS = tagNMIPADDRESS;
+ LPNMIPADDRESS = ^tagNMIPADDRESS;
+ TNMIPADDRESS = tagNMIPADDRESS;
+ PNMIPADDRESS = ^tagNMIPADDRESS;
+
+
+// The following is a useful macro for passing the range values in the
+// IPM_SETRANGE message.
+
+// Macro 286
+
+// #define MAKEIPRANGE(low, high) ((LPARAM)(WORD)(((BYTE)(high) << 8) + (BYTE)(low)))
+
+// And this is a useful macro for making the IP Address to be passed
+// as a LPARAM.
+
+// Macro 287
+
+// #define MAKEIPADDRESS(b1,b2,b3,b4) ((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
+
+// Get individual number
+// Macro 288
+
+// #define FIRST_IPADDRESS(x) ((x>>24) & 0xff)
+// Macro 289
+
+// #define SECOND_IPADDRESS(x) ((x>>16) & 0xff)
+// Macro 290
+
+// #define THIRD_IPADDRESS(x) ((x>>8) & 0xff)
+// Macro 291
+
+// #define FOURTH_IPADDRESS(x) (x & 0xff)
+
+
+{$ENDIF} // NOIPADDRESS
+
+
+//---------------------------------------------------------------------------------------
+//---------------------------------------------------------------------------------------
+/// ====================== Pager Control =============================
+//---------------------------------------------------------------------------------------
+//---------------------------------------------------------------------------------------
+
+{$IFNDEF NOPAGESCROLLER}
+
+//Pager Class Name
+
+CONST
+ WC_PAGESCROLLERW = {L}'SysPager';
+ WC_PAGESCROLLERA = 'SysPager';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_PAGESCROLLER = WC_PAGESCROLLERW;
+{$ELSE}
+ WC_PAGESCROLLER = WC_PAGESCROLLERA;
+{$ENDIF}
+
+
+//---------------------------------------------------------------------------------------
+// Pager Control Styles
+//---------------------------------------------------------------------------------------
+// begin_r_commctrl
+
+
+CONST
+ PGS_VERT = $00000000;
+ PGS_HORZ = $00000001;
+ PGS_AUTOSCROLL = $00000002;
+ PGS_DRAGNDROP = $00000004;
+
+// end_r_commctrl
+
+
+//---------------------------------------------------------------------------------------
+// Pager Button State
+//---------------------------------------------------------------------------------------
+//The scroll can be in one of the following control State
+ PGF_INVISIBLE = 0; // Scroll button is not visible
+ PGF_NORMAL = 1; // Scroll button is in normal state
+ PGF_GRAYED = 2; // Scroll button is in grayed state
+ PGF_DEPRESSED = 4; // Scroll button is in depressed state
+ PGF_HOT = 8; // Scroll button is in hot state
+
+
+// The following identifiers specifies the button control
+ PGB_TOPORLEFT = 0;
+ PGB_BOTTOMORRIGHT = 1;
+
+//---------------------------------------------------------------------------------------
+// Pager Control Messages
+//---------------------------------------------------------------------------------------
+ PGM_SETCHILD = (PGM_FIRST + 1); // lParam == hwnd
+// Macro 292
+
+
+Procedure Pager_SetChild( hwnd : hwnd; hwndChild : LPARAM);
+
+
+
+CONST
+ PGM_RECALCSIZE = (PGM_FIRST + 2);
+// Macro 293
+
+
+Procedure Pager_RecalcSize( hwnd : hwnd);
+
+
+
+CONST
+ PGM_FORWARDMOUSE = (PGM_FIRST + 3);
+// Macro 294
+
+
+Procedure Pager_ForwardMouse( hwnd : hwnd; bForward : WPARAM);
+
+
+
+CONST
+ PGM_SETBKCOLOR = (PGM_FIRST + 4);
+// Macro 295
+
+
+Function Pager_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+
+
+CONST
+ PGM_GETBKCOLOR = (PGM_FIRST + 5);
+// Macro 296
+
+
+Function Pager_GetBkColor( hwnd : hwnd):COLORREF;
+
+
+
+CONST
+ PGM_SETBORDER = (PGM_FIRST + 6);
+// Macro 297
+
+
+Function Pager_SetBorder( hwnd : hwnd; iBorder : LPARAM):cint;
+
+
+
+CONST
+ PGM_GETBORDER = (PGM_FIRST + 7);
+// Macro 298
+
+
+Function Pager_GetBorder( hwnd : hwnd):cint;
+
+
+
+CONST
+ PGM_SETPOS = (PGM_FIRST + 8);
+// Macro 299
+
+
+Function Pager_SetPos( hwnd : hwnd; iPos : LPARAM):cint;
+
+
+
+CONST
+ PGM_GETPOS = (PGM_FIRST + 9);
+// Macro 300
+
+
+Function Pager_GetPos( hwnd : hwnd):cint;
+
+
+
+CONST
+ PGM_SETBUTTONSIZE = (PGM_FIRST + 10);
+// Macro 301
+
+
+Function Pager_SetButtonSize( hwnd : hwnd; iSize : LPARAM):cint;
+
+
+
+CONST
+ PGM_GETBUTTONSIZE = (PGM_FIRST + 11);
+// Macro 302
+
+
+Function Pager_GetButtonSize( hwnd : hwnd):cint;
+
+
+
+CONST
+ PGM_GETBUTTONSTATE = (PGM_FIRST + 12);
+// Macro 303
+
+
+Function Pager_GetButtonState( hwnd : hwnd; iButton : LPARAM):DWORD;
+
+
+
+CONST
+ PGM_GETDROPTARGET = CCM_GETDROPTARGET;
+// Macro 304
+
+
+Procedure Pager_GetDropTarget( hwnd : hwnd; ppdt : LPARAM);
+
+//---------------------------------------------------------------------------------------
+//Pager Control Notification Messages
+//---------------------------------------------------------------------------------------
+
+
+// PGN_SCROLL Notification Message
+
+
+CONST
+ PGN_SCROLL = (PGN_FIRST-1);
+
+ PGF_SCROLLUP = 1;
+ PGF_SCROLLDOWN = 2;
+ PGF_SCROLLLEFT = 4;
+ PGF_SCROLLRIGHT = 8;
+
+
+//Keys down
+ PGK_SHIFT = 1;
+ PGK_CONTROL = 2;
+ PGK_MENU = 4;
+
+
+{$IFDEF _WIN32}
+// #include <pshpack1.h>
+{$ENDIF}
+
+// This structure is sent along with PGN_SCROLL notifications
+TYPE
+
+ DummyStruct17 = Record
+ hdr : NMHDR;
+ fwKeys : WORD; // Specifies which keys are down when this notification is send
+ rcParent : RECT; // Contains Parent Window Rect
+ iDir : cint; // Scrolling Direction
+ iXpos : cint; // Horizontal scroll position
+ iYpos : cint; // Vertical scroll position
+ iScroll : cint; // [in/out] Amount to scroll
+ END;
+ NMPGSCROLL = DummyStruct17;
+ LPNMPGSCROLL = ^DummyStruct17;
+ TNMPGScroll = NMPGSCROLL;
+ PNMPGScroll = LPNMPGSCROLL;
+
+
+{$IFDEF _WIN32}
+// #include <poppack.h>
+{$ENDIF}
+
+// PGN_CALCSIZE Notification Message
+
+
+CONST
+ PGN_CALCSIZE = (PGN_FIRST-2);
+
+ PGF_CALCWIDTH = 1;
+ PGF_CALCHEIGHT = 2;
+
+TYPE
+
+ DummyStruct18 = Record
+ hdr : NMHDR;
+ dwFlag : DWORD;
+ iWidth : cint;
+ iHeight : cint;
+ END;
+ NMPGCALCSIZE = DummyStruct18;
+ LPNMPGCALCSIZE = ^DummyStruct18;
+ TNMPGCalcSize = DummyStruct18;
+ PNMPGCalcSize = LPNMPGCALCSIZE;
+
+
+
+// PGN_HOTITEMCHANGE Notification Message
+
+
+CONST
+ PGN_HOTITEMCHANGE = (PGN_FIRST-3);
+
+{
+The PGN_HOTITEMCHANGE notification uses these notification
+flags defined in TOOLBAR:
+
+ HICF_ENTERING = $00000010; // idOld is invalid
+ HICF_LEAVING = $00000020; // idNew is invalid
+}
+
+// Structure for PGN_HOTITEMCHANGE notification
+//
+TYPE
+
+ tagNMPGHOTITEM = Record
+ hdr : NMHDR;
+ idOld : cint;
+ idNew : cint;
+ dwFlags : DWORD; // HICF_*
+ END;
+ NMPGHOTITEM = tagNMPGHOTITEM;
+ LPNMPGHOTITEM = ^tagNMPGHOTITEM;
+ TNMPGHOTITEM = tagNMPGHOTITEM;
+ PNMPGHOTITEM = ^tagNMPGHOTITEM;
+
+
+{$ENDIF} // NOPAGESCROLLER
+
+////====================== End Pager Control ==========================================
+
+//
+// === Native Font Control ===
+//
+{$IFNDEF NONATIVEFONTCTL}
+//NativeFont Class Name
+
+CONST
+ WC_NATIVEFONTCTLW = {L}'NativeFontCtl';
+ WC_NATIVEFONTCTLA = 'NativeFontCtl';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_NATIVEFONTCTL = WC_NATIVEFONTCTLW;
+{$ELSE}
+ WC_NATIVEFONTCTL = WC_NATIVEFONTCTLA;
+{$ENDIF}
+
+// begin_r_commctrl
+
+// style definition
+
+CONST
+ NFS_EDIT = $0001;
+ NFS_STATIC = $0002;
+ NFS_LISTCOMBO = $0004;
+ NFS_BUTTON = $0008;
+ NFS_ALL = $0010;
+ NFS_USEFONTASSOC = $0020;
+
+// end_r_commctrl
+
+{$ENDIF} // NONATIVEFONTCTL
+// === End Native Font Control ===
+
+/// ====================== Button Control =============================
+
+{$IFNDEF NOBUTTON}
+
+{$IFDEF _WIN32}
+
+// Button Class Name
+ WC_BUTTONA = 'Button';
+ WC_BUTTONW = {L}'Button';
+
+CONST
+{$IFDEF UNICODE}
+ WC_BUTTON = WC_BUTTONW;
+{$ELSE}
+ WC_BUTTON = WC_BUTTONA;
+{$ENDIF}
+
+{$ELSE}
+
+ WC_BUTTON = 'Button';
+{$ENDIF}
+
+{$ifdef win32xp}
+ BUTTON_IMAGELIST_ALIGN_LEFT = 0;
+ BUTTON_IMAGELIST_ALIGN_RIGHT = 1;
+ BUTTON_IMAGELIST_ALIGN_TOP = 2;
+ BUTTON_IMAGELIST_ALIGN_BOTTOM = 3;
+ BUTTON_IMAGELIST_ALIGN_CENTER = 4; // Doesn't draw text
+
+TYPE
+
+ DummyStruct19 = Record
+ himl : HIMAGELIST; // Index: Normal, hot pushed, disabled. If count is less than 4, we use index 1
+ margin : RECT; // Margin around icon.
+ uAlign : UINT;
+ END;
+ BUTTON_IMAGELIST = DummyStruct19;
+ PBUTTON_IMAGELIST = ^DummyStruct19;
+ TDummyStruct19 = DummyStruct19;
+ PDummyStruct19 = ^DummyStruct19;
+
+
+
+CONST
+ BCM_GETIDEALSIZE = (BCM_FIRST + $0001);
+// Macro 305
+
+
+Function Button_GetIdealSize( hwnd : hwnd; psize : LPARAM):BOOL;
+
+
+
+CONST
+ BCM_SETIMAGELIST = (BCM_FIRST + $0002);
+// Macro 306
+
+
+Function Button_SetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
+
+
+
+CONST
+ BCM_GETIMAGELIST = (BCM_FIRST + $0003);
+// Macro 307
+
+
+Function Button_GetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
+
+
+
+CONST
+ BCM_SETTEXTMARGIN = (BCM_FIRST + $0004);
+// Macro 308
+
+
+Function Button_SetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
+
+
+CONST
+ BCM_GETTEXTMARGIN = (BCM_FIRST + $0005);
+// Macro 309
+
+
+Function Button_GetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
+
+
+TYPE
+
+ tagNMBCHOTITEM = Record
+ hdr : NMHDR;
+ dwFlags : DWORD; // HICF_*
+ END;
+ NMBCHOTITEM = tagNMBCHOTITEM;
+ LPNMBCHOTITEM = ^tagNMBCHOTITEM;
+ TNMBCHOTITEM = tagNMBCHOTITEM;
+ PNMBCHOTITEM = ^tagNMBCHOTITEM;
+
+
+
+CONST
+ BCN_HOTITEMCHANGE = (BCN_FIRST + $0001);
+
+ BST_HOT = $0200;
+{$ifdef win32vista}
+ BST_DROPDOWNPUSHED = $0400;
+
+// BUTTON STYLES
+ BS_SPLITBUTTON = $00000000C; // This block L suffixed (unsigned)
+ BS_DEFSPLITBUTTON = $00000000D;
+ BS_COMMANDLINK = $00000000E;
+ BS_DEFCOMMANDLINK = $00000000F;
+
+// SPLIT BUTTON INFO mask flags
+ BCSIF_GLYPH = $00001;
+ BCSIF_IMAGE = $00002;
+ BCSIF_STYLE = $00004;
+ BCSIF_SIZE = $00008;
+
+// SPLIT BUTTON STYLE flags
+ BCSS_NOSPLIT = $00001;
+ BCSS_STRETCH = $00002;
+ BCSS_ALIGNLEFT = $00004;
+ BCSS_IMAGE = $00008;
+
+ BCM_SETDROPDOWNSTATE = (BCM_FIRST + $0006);
+ BCM_SETSPLITINFO = (BCM_FIRST + $0007);
+ BCM_GETSPLITINFO = (BCM_FIRST + $0008);
+ BCM_SETNOTE = (BCM_FIRST + $0009);
+ BCM_GETNOTE = (BCM_FIRST + $000A);
+ BCM_GETNOTELENGTH = (BCM_FIRST + $000B);
+ BCM_SETSHIELD = (BCM_FIRST + $000C);
+
+
+// Value to pass to BCM_SETIMAGELIST to indicate that no glyph should be
+// displayed
+ BCCL_NOGLYPH = HIMAGELIST(-1);
+
+ BCN_DROPDOWN = (BCN_FIRST + $0002);
+Type
+
+ tagBUTTON_SPLITINFO = record
+ mask : UINT;
+ himlGlyph : HIMAGELIST;
+ uSplitStyle : UINT;
+ size : SIZE;
+ end;
+ BUTTON_SPLITINFO = tagBUTTON_SPLITINFO;
+ PBUTTON_SPLITINFO = ^BUTTON_SPLITINFO;
+ LPBUTTON_SPLITINFO = PBUTTON_SPLITINFO;
+
+ { NOTIFICATION MESSAGES }
+
+ tagNMBCDROPDOWN = packed record
+ hdr : NMHDR;
+ rcButton : RECT;
+ end;
+ NMBCDROPDOWN = tagNMBCDROPDOWN;
+ PNMBCDROPDOWN = ^NMBCDROPDOWN;
+ LPNMBCDROPDOWN = PNMBCDROPDOWN;
+
+// BUTTON MESSAGES
+
+function Button_SetDropDownState(hwnd:HWND; fDropDown:BOOL) : BOOL;
+// (BOOL)SNDMSG((hwnd), BCM_SETDROPDOWNSTATE, (WPARAM)(fDropDown), 0)
+
+function Button_SetSplitInfo(hwnd:HWND; pInfo:PBUTTON_SPLITINFO):BOOL;
+// (BOOL)SNDMSG((hwnd), BCM_SETSPLITINFO, 0, (LPARAM)(pInfo))
+
+function Button_GetSplitInfo(hwnd:HWND; pInfo:PBUTTON_SPLITINFO) :BOOL;
+// (BOOL)SNDMSG((hwnd), BCM_GETSPLITINFO, 0, (LPARAM)(pInfo))
+
+function Button_SetNote(hwnd:HWND; psz:LPCWSTR) :BOOL;
+// (BOOL)SNDMSG((hwnd), BCM_SETNOTE, 0, (LPARAM)(psz))
+
+function Button_GetNote(hwnd:HWND; psz:LPCWSTR; pcc:cint) :BOOL;
+// (BOOL)SNDMSG((hwnd), BCM_GETNOTE, (WPARAM)pcc, (LPARAM)psz)
+
+function Button_GetNoteLength(hwnd:HWND) :LRESULT;
+// (LRESULT)SNDMSG((hwnd), BCM_GETNOTELENGTH, 0, 0)
+
+// Macro to use on a button or command link to display an elevated icon
+
+function Button_SetElevationRequiredState(hwnd:HWND; fRequired:BOOL) :LRESULT;
+// (LRESULT)SNDMSG((hwnd), BCM_SETSHIELD, 0, (LPARAM)fRequired)
+
+{$endif}
+{$ENDIF}
+{$ENDIF} // NOBUTTON
+
+
+/// ===================== End Button Control =========================
+
+/// ====================== Static Control =============================
+
+{$IFNDEF NOSTATIC}
+
+const
+{$IFDEF _WIN32}
+
+// Static Class Name
+ WC_STATICA = 'Static';
+ WC_STATICW = {L}'Static';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_STATIC = WC_STATICW;
+{$ELSE}
+ WC_STATIC = WC_STATICA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ WC_STATIC = 'Static';
+{$ENDIF}
+
+{$ENDIF} // NOSTATIC
+
+/// ===================== End Static Control =========================
+
+/// ====================== Edit Control =============================
+
+{$IFNDEF NOEDIT}
+
+{$IFDEF _WIN32}
+
+// Edit Class Name
+ WC_EDITA = 'Edit';
+ WC_EDITW = {L}'Edit';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_EDIT = WC_EDITW;
+{$ELSE}
+ WC_EDIT = WC_EDITA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ WC_EDIT = 'Edit';
+{$ENDIF}
+
+{$ifdef win32xp}
+ EM_SETCUEBANNER = (ECM_FIRST + 1); // Set the cue banner with the lParm = LPCWSTR
+// Macro 310
+
+
+Function Edit_SetCueBannerText( hwnd : hwnd; lpcwText : LPARAM):BOOL;
+
+
+CONST
+ EM_GETCUEBANNER = (ECM_FIRST + 2); // Set the cue banner with the lParm = LPCWSTR
+// Macro 311
+
+
+Function Edit_GetCueBannerText( hwnd : hwnd; lpwText : WPARAM; cchText : LPARAM):BOOL;
+
+
+TYPE
+
+ _tagEDITBALLOONTIP = Record
+ cbStruct : DWORD;
+ pszTitle : LPCWSTR;
+ pszText : LPCWSTR;
+ ttiIcon : cint; // From TTI_*
+ END;
+ EDITBALLOONTIP = _tagEDITBALLOONTIP;
+ PEDITBALLOONTIP = ^_tagEDITBALLOONTIP;
+ TEDITBALLOONTIP = _tagEDITBALLOONTIP;
+
+
+
+CONST
+ EM_SHOWBALLOONTIP = (ECM_FIRST + 3); // Show a balloon tip associated to the edit control
+// Macro 312
+
+
+Function Edit_ShowBalloonTip( hwnd : hwnd; peditballoontip : LPARAM):BOOL;
+
+
+CONST
+ EM_HIDEBALLOONTIP = (ECM_FIRST + 4); // Hide any balloon tip associated with the edit control
+// Macro 313
+
+
+Function Edit_HideBalloonTip( hwnd : hwnd):BOOL;
+
+{$ifdef win32vista}
+const
+ EM_SETHILITE = (ECM_FIRST + 5);
+ EM_GETHILITE = (ECM_FIRST + 6);
+
+// both are "unimplemented" in MSDN, so probably typing is off.
+procedure Edit_SetHilite(hwndCtl:hwnd; ichStart:Wparam; ichEnd:lparam);
+// ((void)SNDMSG((hwndCtl), EM_SETHILITE, (ichStart), (ichEnd)))
+
+function Edit_GetHilite(hwndCtl:hwnd):DWORD;
+// ((DWORD)SNDMSG((hwndCtl), EM_GETHILITE, 0L, 0L))
+{$endif}
+
+{$ENDIF}
+
+{$ENDIF} // NOEDIT
+
+/// ===================== End Edit Control =========================
+
+/// ====================== Listbox Control =============================
+
+{$IFNDEF NOLISTBOX}
+
+{$IFDEF _WIN32}
+
+// Listbox Class Name
+
+CONST
+ WC_LISTBOXA = 'ListBox';
+ WC_LISTBOXW = {L}'ListBox';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_LISTBOX = WC_LISTBOXW;
+{$ELSE}
+ WC_LISTBOX = WC_LISTBOXA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ WC_LISTBOX = 'ListBox';
+{$ENDIF}
+
+{$ENDIF} // NOLISTBOX
+
+
+/// ===================== End Listbox Control =========================
+
+/// ====================== Combobox Control =============================
+
+{$IFNDEF NOCOMBOBOX}
+
+{$IFDEF _WIN32}
+
+// Combobox Class Name
+ WC_COMBOBOXA = 'ComboBox';
+ WC_COMBOBOXW = {L}'ComboBox';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_COMBOBOX = WC_COMBOBOXW;
+{$ELSE}
+ WC_COMBOBOX = WC_COMBOBOXA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ WC_COMBOBOX = 'ComboBox';
+{$ENDIF}
+
+{$ENDIF} // NOCOMBOBOX
+
+
+{$ifdef win32xp}
+
+// custom combobox control messages
+ CB_SETMINVISIBLE = (CBM_FIRST + 1);
+ CB_GETMINVISIBLE = (CBM_FIRST + 2);
+
+// Macro 314
+
+
+Function ComboBox_SetMinVisible( hwnd : hwnd; iMinVisible : WPARAM):BOOL;
+
+
+// Macro 315
+
+
+Function ComboBox_GetMinVisible( hwnd : hwnd):cint;
+
+
+{$ENDIF}
+
+/// ===================== End Combobox Control =========================
+
+/// ====================== Scrollbar Control ============================
+
+{$IFNDEF NOSCROLLBAR}
+
+{$IFDEF _WIN32}
+
+// Scrollbar Class Name
+
+CONST
+ WC_SCROLLBARA = 'ScrollBar';
+ WC_SCROLLBARW = {L}'ScrollBar';
+
+{$IFDEF UNICODE}
+
+TYPE
+ WC_SCROLLBAR = WC_SCROLLBARW;
+{$ELSE}
+ WC_SCROLLBAR = WC_SCROLLBARA;
+{$ENDIF}
+
+{$ELSE}
+
+CONST
+ WC_SCROLLBAR = 'ScrollBar';
+{$ENDIF}
+
+{$ENDIF} // NOSCROLLBAR
+
+
+/// ===================== End Scrollbar Control =========================
+
+
+//====== SysLink control =========================================
+
+{$IFDEF _WIN32}
+{$ifdef win32xp}
+
+ INVALID_LINK_INDEX = (-1);
+
+
+
+ WC_LINK = {L}'SysLink';
+
+ LWS_TRANSPARENT = $0001;
+ LWS_IGNORERETURN = $0002;
+
+{$ifdef win32vista}
+ LWS_NOPREFIX = $0004;
+ LWS_USEVISUALSTYLE = $0008;
+ LWS_USECUSTOMTEXT = $0010;
+ LWS_RIGHT = $0020;
+{$endif}
+
+ LIF_ITEMINDEX = $00000001;
+ LIF_STATE = $00000002;
+ LIF_ITEMID = $00000004;
+ LIF_URL = $00000008;
+
+ LIS_FOCUSED = $00000001;
+ LIS_ENABLED = $00000002;
+ LIS_VISITED = $00000004;
+{$ifdef win32vista}
+ LIS_HOTTRACK = $00000008;
+ LIS_DEFAULTCOLORS = $00000010; // Don't use any custom text colors
+{$endif}
+
+TYPE
+
+
+ tagLHITTESTINFO = Record
+ pt : POINT;
+ item : LITEM;
+ END;
+ LHITTESTINFO = tagLHITTESTINFO;
+ PLHITTESTINFO = ^tagLHITTESTINFO;
+ TLHITTESTINFO = tagLHITTESTINFO;
+// PLHITTESTINFO = ^tagLHITTESTINFO;
+
+
+ tagNMLINK = Record
+ hdr : NMHDR;
+ item : LITEM;
+ END;
+ NMLINK = tagNMLINK;
+ PNMLINK = ^tagNMLINK;
+ TNMLINK = tagNMLINK;
+// PNMLINK = ^tagNMLINK;
+
+
+// SysLink notifications
+// NM_CLICK // wParam: control ID, lParam: PNMLINK, ret: ignored.
+
+// LinkWindow messages
+
+CONST
+ LM_HITTEST = (WM_USER+$300); // wParam: n/a, lparam: PLHITTESTINFO, ret: BOOL
+ LM_GETIDEALHEIGHT = (WM_USER+$301); // wParam: n/a, lparam: n/a, ret: cy
+ LM_SETITEM = (WM_USER+$302); // wParam: n/a, lparam: LITEM*, ret: BOOL
+ LM_GETITEM = (WM_USER+$303); // wParam: n/a, lparam: LITEM*, ret: BOOL
+
+{$ENDIF}
+{$ENDIF} // _WIN32
+//====== End SysLink control =========================================
+
+
+//
+// === MUI APIs ===
+//
+{$IFNDEF NOMUI}
+procedure InitMUILanguage(uiLang:LANGID); stdcall; external commctrldll name 'InitMUILanguage';
+
+
+function GetMUILanguage:LANGID; stdcall; external commctrldll name 'GetMUILanguage';
+{$ENDIF} // NOMUI
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+{$IFDEF _WIN32}
+//====== TrackMouseEvent =====================================================
+
+{$IFNDEF NOTRACKMOUSEEVENT}
+
+//
+// If the messages for TrackMouseEvent have not been defined then define them
+// now.
+//
+{$IFNDEF WM_MOUSEHOVER}
+
+CONST
+ WM_MOUSEHOVER = $02A1;
+ WM_MOUSELEAVE = $02A3;
+{$ENDIF}
+
+//
+// If the TRACKMOUSEEVENT structure and associated flags havent been declared
+// then declare them now.
+//
+{$IFNDEF TME_HOVER}
+
+ TME_HOVER = $00000001;
+ TME_LEAVE = $00000002;
+{$ifdef win32xp}
+ TME_NONCLIENT = $00000010;
+{$ENDIF} { WINVER >= 0x0500 }
+ TME_QUERY = $40000000;
+ TME_CANCEL = $80000000;
+
+
+
+ HOVER_DEFAULT = $FFFFFFFF;
+
+TYPE
+
+ tagTRACKMOUSEEVENT = Record
+ cbSize : DWORD;
+ dwFlags : DWORD;
+ hwndTrack : HWND;
+ dwHoverTime : DWORD;
+ END;
+ TRACKMOUSEEVENT = tagTRACKMOUSEEVENT;
+ LPTRACKMOUSEEVENT = ^tagTRACKMOUSEEVENT;
+ TTRACKMOUSEEVENT = tagTRACKMOUSEEVENT;
+ PTRACKMOUSEEVENT = ^tagTRACKMOUSEEVENT;
+
+
+{$ENDIF} // !TME_HOVER
+
+
+
+//
+// Declare _TrackMouseEvent. This API tries to use the window manager's
+// implementation of TrackMouseEvent if it is present, otherwise it emulates.
+//
+function _TrackMouseEvent(lpEventTrack:LPTRACKMOUSEEVENT):BOOL; stdcall; external commctrldll name '_TrackMouseEvent';
+
+{$ENDIF} // !NOTRACKMOUSEEVENT
+
+{$ifdef ie4plus}
+
+//====== Flat Scrollbar APIs=========================================
+{$IFNDEF NOFLATSBAPIS}
+
+
+CONST
+ WSB_PROP_CYVSCROLL = LONG($00000001);
+ WSB_PROP_CXHSCROLL = LONG($00000002);
+ WSB_PROP_CYHSCROLL = LONG($00000004);
+ WSB_PROP_CXVSCROLL = LONG($00000008);
+ WSB_PROP_CXHTHUMB = LONG($00000010);
+ WSB_PROP_CYVTHUMB = LONG($00000020);
+ WSB_PROP_VBKGCOLOR = LONG($00000040);
+ WSB_PROP_HBKGCOLOR = LONG($00000080);
+ WSB_PROP_VSTYLE = LONG($00000100);
+ WSB_PROP_HSTYLE = LONG($00000200);
+ WSB_PROP_WINSTYLE = LONG($00000400);
+ WSB_PROP_PALETTE = LONG($00000800);
+ WSB_PROP_MASK = LONG($00000FFF);
+
+ FSB_FLAT_MODE = 2;
+ FSB_ENCARTA_MODE = 1;
+ FSB_REGULAR_MODE = 0;
+
+function FlatSB_EnableScrollBar(hwnd:HWND;code : cint;p3 : UINT):BOOL; stdcall; external commctrldll name 'FlatSB_EnableScrollBar';
+function FlatSB_ShowScrollBar(hwnd:HWND;code : cint;p3 : BOOL):BOOL; stdcall; external commctrldll name 'FlatSB_ShowScrollBar';
+
+function FlatSB_GetScrollRange(hwnd:HWND;code : cint;p3 : LPINT;p4 : LPINT):BOOL; stdcall; external commctrldll name 'FlatSB_GetScrollRange';
+function FlatSB_GetScrollRange(hwnd:HWND;code : cint;var p3,p4 : cint):BOOL; stdcall; external commctrldll name 'FlatSB_GetScrollRange';
+function FlatSB_GetScrollInfo(hwnd:HWND;code : cint;ScrollInfo : LPSCROLLINFO):BOOL; stdcall; external commctrldll name 'FlatSB_GetScrollInfo';
+function FlatSB_GetScrollInfo(hwnd:HWND;code : cint;var ScrollInfo : TSCROLLINFO):BOOL; stdcall; external commctrldll name 'FlatSB_GetScrollInfo';
+
+function FlatSB_GetScrollPos(hwnd:HWND;code : cint):cint; stdcall; external commctrldll name 'FlatSB_GetScrollPos';
+
+
+function FlatSB_GetScrollProp(hwnd:HWND):BOOL; stdcall; external commctrldll name 'FlatSB_GetScrollProp';
+{$IFDEF _WIN64}
+function FlatSB_GetScrollPropPtr(hwnd:HWND;propIndex : cint;p3 : LPINT):BOOL; stdcall; external commctrldll name 'FlatSB_GetScrollPropPtr';
+{$ELSE}
+function FlatSB_GetScrollPropPtr(hwnd:HWND;code : cint):BOOL; stdcall; external commctrldll name 'FlatSB_GetScrollProp';
+{$ENDIF}
+
+
+function FlatSB_SetScrollPos(hWnd:HWND;nBar,nPos:cint;bRedraw:BOOL):cint; stdcall; external commctrldll name 'FlatSB_SetScrollPos';
+
+function FlatSB_SetScrollInfo(hWnd:HWND;BarFlag:cint;const ScrollInfo:TScrollInfo;Redraw:BOOL):cint; stdcall; external commctrldll name 'FlatSB_SetScrollInfo';
+
+
+function FlatSB_SetScrollRange(hWnd: HWND; nBar,nMinPos,nMaxPos: cint; bRedraw: BOOL):cint; stdcall; external commctrldll name 'FlatSB_SetScrollRange';
+function FlatSB_SetScrollProp(p1: HWND; index : UINT; newValue: INT_PTR; p4: BOOL):BOOL; stdcall; external commctrldll name 'FlatSB_SetScrollProp';
+
+function InitializeFlatSB(hWnd:HWND):BOOL; stdcall; external commctrldll name 'InitializeFlatSB';
+function UninitializeFlatSB(hWnd:HWND):HRESULT; stdcall; external commctrldll name 'UninitializeFlatSB';
+
+{$ENDIF} // NOFLATSBAPIS
+
+{$ENDIF} // _WIN32_IE >= 0x0400
+
+{$ENDIF} { _WIN32 }
+
+{$ENDIF} // _WIN32_IE >= 0x0300
+
+{$ifdef win32xp}
+//
+// subclassing stuff
+//
+TYPE
+ subclassproc=function (hwnd:HWND;uMsg:cUINT; wParam:WPARAM;lparam:LPARAM;uISubClass : UINT_PTR;dwRefData:DWORD_PTR):LRESULT; stdcall;
+
+{
+ (CALLBACK *SUBCLASSPROC)(HWND hWnd, UINT uMsg, WPARAM wParam, = LRESULT
+ LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData);
+
+typedef LRESULT (CALLBACK *SUBCLASSPROC)(HWND hWnd, UINT uMsg, WPARAM wParam,
+ LPARAM lParam, UINT_PTR uIdSubclass, DWORD_PTR dwRefData);
+
+ hwnd:HWND;uMsg:cUINT; wParam:WPARAM;lparam:LPARAM;uISubClass : CUINT_PTR;dwRefData:DWORD_PTR):LRESULT; stdcall;
+}
+
+function SetWindowSubclass(hWnd:HWND;pfnSubclass:SUBCLASSPROC;uIdSubclass:UINT_PTR;dwRefData:DWORD_PTR):BOOL; stdcall; external commctrldll name 'SetWindowSubclass';
+function GetWindowSubclass(hWnd:HWND;pfnSubclass:SUBCLASSPROC;uIdSubclass:UINT_PTR;pdwRefData:PDWORD_PTR):BOOL; stdcall; external commctrldll name 'GetWindowSubclass';
+function RemoveWindowSubclass(hWnd:HWND;pfnSubclass:SUBCLASSPROC;uIdSubclass:UINT_PTR):BOOL; stdcall; external commctrldll name 'RemoveWindowSubclass';
+
+function DefSubclassProc(hWnd:HWND;uMsg:UINT;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall; external commctrldll name 'DefSubclassProc';
+{$ENDIF}
+
+{$ifdef NTDDI_VISTA}
+type _LI_METRIC= (
+
+ LIM_SMALL=0, // corresponds to SM_CXSMICON/SM_CYSMICON
+ LIM_LARGE // corresponds to SM_CXICON/SM_CYICON
+ );
+
+Function LoadIconMetric( hinst:HINST; pszName:LPCWStr;lims:cint; var phico: HICON ):HRESULT; stdcall; external commctrldll name 'LoadIconMetric';
+Function LoadIconWithScaleDown( hinst:HINST; pszName:LPCWStr;cx:cint;cy:cint;var phico: HICON ):HRESULT; stdcall; external commctrldll name 'LoadIconMetric';
+
+{$endif}
+
+{$ifdef win32xp}
+
+function DrawShadowText(hdc:HDC;pszText:LPCWSTR;cch:UINT;prc:PRECT;dwFlags:DWORD;crText:COLORREF;crShadow:COLORREF;ixOffset:cint;iyOffset:cint):cint; stdcall; external commctrldll name 'DrawShadowText';
+{$ENDIF}
+
+// ===================== Task Dialog =========================
+
+Type
+ PFTASKDIALOGCALLBACK = function(hwnd: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM; lpRefData: LONG_PTR): HRESULT; stdcall;
+
+ // _TASKDIALOG_FLAGS enum
+const
+ TDF_ENABLE_HYPERLINKS = $0001;
+ TDF_USE_HICON_MAIN = $0002;
+ TDF_USE_HICON_FOOTER = $0004;
+ TDF_ALLOW_DIALOG_CANCELLATION = $0008;
+ TDF_USE_COMMAND_LINKS = $0010;
+ TDF_USE_COMMAND_LINKS_NO_ICON = $0020;
+ TDF_EXPAND_FOOTER_AREA = $0040;
+ TDF_EXPANDED_BY_DEFAULT = $0080;
+ TDF_VERIFICATION_FLAG_CHECKED = $0100;
+ TDF_SHOW_PROGRESS_BAR = $0200;
+ TDF_SHOW_MARQUEE_PROGRESS_BAR = $0400;
+ TDF_CALLBACK_TIMER = $0800;
+ TDF_POSITION_RELATIVE_TO_WINDOW = $1000;
+ TDF_RTL_LAYOUT = $2000;
+ TDF_NO_DEFAULT_RADIO_BUTTON = $4000;
+ TDF_CAN_BE_MINIMIZED = $8000;
+
+type
+ TASKDIALOG_FLAGS = Integer; // Note: _TASKDIALOG_FLAGS is an int
+
+ // _TASKDIALOG_MESSAGES enum
+const
+ TDM_NAVIGATE_PAGE = WM_USER+101;
+ TDM_CLICK_BUTTON = WM_USER+102; // wParam = Button ID
+ TDM_SET_MARQUEE_PROGRESS_BAR = WM_USER+103; // wParam = 0 (nonMarque) wParam != 0 (Marquee)
+ TDM_SET_PROGRESS_BAR_STATE = WM_USER+104; // wParam = new progress state
+ TDM_SET_PROGRESS_BAR_RANGE = WM_USER+105; // lParam = MAKELPARAM(nMinRange, nMaxRange)
+ TDM_SET_PROGRESS_BAR_POS = WM_USER+106; // wParam = new position
+ TDM_SET_PROGRESS_BAR_MARQUEE = WM_USER+107; // wParam = 0 (stop marquee), wParam != 0 (start marquee), lparam = speed (milliseconds between repaints)
+ TDM_SET_ELEMENT_TEXT = WM_USER+108; // wParam = element (TASKDIALOG_ELEMENTS), lParam = new element text (LPCWSTR)
+ TDM_CLICK_RADIO_BUTTON = WM_USER+110; // wParam = Radio Button ID
+ TDM_ENABLE_BUTTON = WM_USER+111; // lParam = 0 (disable), lParam != 0 (enable), wParam = Button ID
+ TDM_ENABLE_RADIO_BUTTON = WM_USER+112; // lParam = 0 (disable), lParam != 0 (enable), wParam = Radio Button ID
+ TDM_CLICK_VERIFICATION = WM_USER+113; // wParam = 0 (unchecked), 1 (checked), lParam = 1 (set key focus)
+ TDM_UPDATE_ELEMENT_TEXT = WM_USER+114; // wParam = element (TASKDIALOG_ELEMENTS), lParam = new element text (LPCWSTR)
+ TDM_SET_BUTTON_ELEVATION_REQUIRED_STATE = WM_USER+115; // wParam = Button ID, lParam = 0 (elevation not required), lParam != 0 (elevation required)
+ TDM_UPDATE_ICON = WM_USER+116; // wParam = icon element (TASKDIALOG_ICON_ELEMENTS), lParam = new icon (hIcon if TDF_USE_HICON_* was set, PCWSTR otherwise)
+
+ // _TASKDIALOG_NOTIFICATIONS enum
+const
+ TDN_CREATED = 0;
+ TDN_NAVIGATED = 1;
+ TDN_BUTTON_CLICKED = 2; // wParam = Button ID
+ TDN_HYPERLINK_CLICKED = 3; // lParam = (LPCWSTR)pszHREF
+ TDN_TIMER = 4; // wParam = Milliseconds since dialog created or timer reset
+ TDN_DESTROYED = 5;
+ TDN_RADIO_BUTTON_CLICKED = 6; // wParam = Radio Button ID
+ TDN_DIALOG_CONSTRUCTED = 7;
+ TDN_VERIFICATION_CLICKED = 8; // wParam = 1 if checkbox checked, 0 if not, lParam is unused and always 0
+ TDN_HELP = 9;
+ TDN_EXPANDO_BUTTON_CLICKED = 10; // wParam = 0 (dialog is now collapsed), wParam != 0 (dialog is now expanded)
+
+type
+ _TASKDIALOG_BUTTON = packed record
+ nButtonID: Integer;
+ pszButtonText: PCWSTR;
+ end;
+ TASKDIALOG_BUTTON = _TASKDIALOG_BUTTON;
+ TTASKDIALOG_BUTTON = TASKDIALOG_BUTTON;
+ PTASKDIALOG_BUTTON = ^TASKDIALOG_BUTTON;
+
+ // _TASKDIALOG_ELEMENTS enum
+const
+ TDE_CONTENT = 0;
+ TDE_EXPANDED_INFORMATION = 1;
+ TDE_FOOTER = 2;
+ TDE_MAIN_INSTRUCTION = 3;
+
+ // _TASKDIALOG_ICON_ELEMENTS enum
+ TDIE_ICON_MAIN = 0;
+ TDIE_ICON_FOOTER = 1;
+
+ TD_WARNING_ICON = MAKEINTRESOURCEW(Word(-1));
+ TD_ERROR_ICON = MAKEINTRESOURCEW(Word(-2));
+ TD_INFORMATION_ICON = MAKEINTRESOURCEW(Word(-3));
+ TD_SHIELD_ICON = MAKEINTRESOURCEW(Word(-4));
+ TD_SHIELD_GRADIENT_ICON = MAKEINTRESOURCEW(Word(-5));
+ TD_SHIELD_WARNING_ICON = MAKEINTRESOURCEW(Word(-6));
+ TD_SHIELD_ERROR_ICON = MAKEINTRESOURCEW(Word(-7));
+ TD_SHIELD_OK_ICON = MAKEINTRESOURCEW(Word(-8));
+ TD_SHIELD_GRAY_ICON = MAKEINTRESOURCEW(Word(-9));
+
+ // _TASKDIALOG_COMMON_BUTTON_FLAGS enum
+ TDCBF_OK_BUTTON = $0001; // selected control return value IDOK
+ TDCBF_YES_BUTTON = $0002; // selected control return value IDYES
+ TDCBF_NO_BUTTON = $0004; // selected control return value IDNO
+ TDCBF_CANCEL_BUTTON = $0008; // selected control return value IDCANCEL
+ TDCBF_RETRY_BUTTON = $0010; // selected control return value IDRETRY
+ TDCBF_CLOSE_BUTTON = $0020; // selected control return value IDCLOSE
+
+type
+ TASKDIALOG_COMMON_BUTTON_FLAGS = Integer; // Note: _TASKDIALOG_COMMON_BUTTON_FLAGS is an int
+
+ _TASKDIALOGCONFIG = packed record
+ cbSize: UINT;
+ hwndParent: HWND;
+ hInstance: HINST; // used for MAKEINTRESOURCE() strings
+ dwFlags: TASKDIALOG_FLAGS; // TASKDIALOG_FLAGS (TDF_XXX) flags
+ dwCommonButtons: TASKDIALOG_COMMON_BUTTON_FLAGS; // TASKDIALOG_COMMON_BUTTON (TDCBF_XXX) flags
+ pszWindowTitle: PCWSTR; // string or MAKEINTRESOURCE()
+ case PtrInt of
+ 0: (hMainIcon: HICON);
+ 1: (
+ pszMainIcon: PCWSTR;
+ pszMainInstruction: PCWSTR;
+ pszContent: PCWSTR;
+ cButtons: UINT;
+ pButtons: PTASKDIALOG_BUTTON;
+ nDefaultButton: Integer;
+ cRadioButtons: UINT;
+ pRadioButtons: PTASKDIALOG_BUTTON;
+ nDefaultRadioButton: Integer;
+ pszVerificationText: PCWSTR;
+ pszExpandedInformation: PCWSTR;
+ pszExpandedControlText: PCWSTR;
+ pszCollapsedControlText: PCWSTR;
+ case PtrInt of
+ 0: (hFooterIcon: HICON);
+ 1: (
+ pszFooterIcon: PCWSTR;
+ pszFooter: PCWSTR;
+ pfCallback: PFTASKDIALOGCALLBACK;
+ lpCallbackData: LONG_PTR;
+ cxWidth: UINT; // width of the Task Dialog's client area in DLU's. If 0, Task Dialog will calculate the ideal width.
+ );
+ );
+ end;
+ TASKDIALOGCONFIG = _TASKDIALOGCONFIG;
+ PTASKDIALOGCONFIG = ^TASKDIALOGCONFIG;
+ TTASKDIALOGCONFIG = TASKDIALOGCONFIG;
+
+var
+ TaskDialogIndirect: function(const pTaskConfig: PTASKDIALOGCONFIG; pnButton: PInteger; pnRadioButton: PInteger; pfVerificationFlagChecked: PBOOL): HRESULT; stdcall;
+ TaskDialog: function(hwndParent: HWND; hInstance: HINST; pszWindowTitle: PCWSTR; pszMainInstruction: PCWSTR; pszContent: PCWSTR;
+ dwCommonButtons: TASKDIALOG_COMMON_BUTTON_FLAGS; pszIcon: PCWSTR; pnButton: PInteger): HRESULT; stdcall;
+
+
+// ==================== End TaskDialog =======================
+
+
+IMPLEMENTATION
+
+// Macro 8
+
+//#define HANDLE_WM_NOTIFY(hwnd, wParam, lParam, fn) \
+// (fn)((hwnd), (int)(wParam), (NMHDR *)(lParam))
+
+Procedure HANDLE_WM_NOTIFY( hwnd : hwnd; wParam : cint;var _lParam : NMHDR ;fn:Pointer);
+
+TYPE FnType=procedure ( hwnd : hwnd; wParam : cint;tst:LPARAM); stdcall;
+
+Begin
+ fnType(fn)(hwnd, wParam, LPARAM(@_lParam));
+end;
+
+// Macro 9
+
+//#define FORWARD_WM_NOTIFY(hwnd, idFrom, pnmhdr, fn) \
+// (LRESULT)(fn)((hwnd), WM_NOTIFY, (WPARAM)(int)(idFrom), (LPARAM)(NMHDR *)(pnmhdr))
+
+Function FORWARD_WM_NOTIFY( hwnd : hwnd; idFrom : cint;var pnmhdr : NMHDR ; fn : pointer ):LRESULT;
+
+TYPE FnType=Function( hwnd : hwnd; wParam : cint;wparam2:cint;lparam1:lparam):LResult; stdcall;
+
+Begin
+ Result:=LRESULT(fntype(fn)(hwnd, WM_NOTIFY, idFrom, LPARAM(@pnmhdr)));
+end;
+
+// Macro 10
+// #define CCSIZEOF_STRUCT(structname, member) (((int)((LPBYTE)(&((structname*)0)->member) - ((LPBYTE)((structname*)0)))) + sizeof(((structname*)0)->member))
+
+
+// Macro 11
+// #define ImageList_AddIcon(himl, hicon) ImageList_ReplaceIcon(himl, -1, hicon)
+
+Function ImageList_AddIcon(Himl:HIMAGELIST;hicon:HICON):cint;
+Begin
+ Result:=ImageList_ReplaceIcon(himl,-1,hicon);
+end;
+
+
+// Macro 12
+// #define INDEXTOOVERLAYMASK(i) ((i) << 8)
+
+// Macro 13
+// #define ImageList_RemoveAll(himl) ImageList_Remove(himl, -1)
+
+Procedure ImageList_RemoveAll(himl:HIMAGELIST);
+Begin
+ ImageList_Remove(himl, -1)
+End;
+
+// Macro 14
+// #define ImageList_ExtractIcon(hi, himl, i) ImageList_GetIcon(himl, i, 0)
+
+function ImageList_ExtractIcon(hi:longint; himl:HIMAGELIST;i:longint):HICON;
+
+Begin
+ result:=ImageList_GetIcon(himl, i,0);
+end;
+
+
+// Macro 15
+// #define ImageList_LoadBitmap(hi, lpbmp, cx, cGrow, crMask)
+// ImageList_LoadImage(hi, lpbmp, cx, cGrow, crMask, IMAGE_BITMAP, 0)
+
+Procedure ImageList_LoadBitmap(hi:HINST;bmp:LPCTSTR;cx:cint;cGrow:cint;crMask:COLORREF);
+
+Begin
+ ImageList_LoadImage(hi, bmp, cx, cGrow, crMask, IMAGE_BITMAP, 0);
+End;
+
+// Macro 16
+// #define Header_GetItemCount(hwndHD) \
+// (int)SNDMSG((hwndHD), HDM_GETITEMCOUNT, 0, DWord(0))
+
+Function Header_GetItemCount( hwndHD : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwndHD), HDM_GETITEMCOUNT, 0, LPARAM(0)))
+end;
+
+
+// Macro 17
+//#define Header_InsertItem(hwndHD, i, phdi) \
+// (int)SNDMSG((hwndHD), HDM_INSERTITEM, (WPARAM)(int)(i), (LPARAM)(const HD_ITEM *)(phdi))
+
+Function Header_InsertItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwndHD), HDM_INSERTITEM, (i), LPARAM(@phdi)));
+end;
+
+// Macro 18
+//#define Header_DeleteItem(hwndHD, i) \
+// (BOOL)SNDMSG((hwndHD), HDM_DELETEITEM, (WPARAM)(int)(i), LPARAM(0))
+
+Function Header_DeleteItem( hwndHD : hwnd; i : cint):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndHD), HDM_DELETEITEM, (i), LPARAM(0)));
+end;
+
+
+// Macro 19
+// #define Header_GetItem(hwndHD, i, phdi) \
+// (BOOL)SNDMSG((hwndHD), HDM_GETITEM, (WPARAM)(int)(i), (LPARAM)(HD_ITEM *)(phdi))
+
+Function Header_GetItem( hwndHD : hwnd; i : cint;var phdi : HD_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndHD), HDM_GETITEM, (i), LPARAM(@phdi)));
+end;
+
+
+// Macro 20
+// #define Header_SetItem(hwndHD, i, phdi) \
+// (BOOL)SNDMSG((hwndHD), HDM_SETITEM, (WPARAM)(int)(i), (LPARAM)(const HD_ITEM *)(phdi))
+
+Function Header_SetItem( hwndHD : hwnd; i : cint;const phdi : HD_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndHD), HDM_SETITEM, (i), LPARAM(@phdi)));
+end;
+
+
+// Macro 21
+// #define Header_Layout(hwndHD, playout) \
+// (BOOL)SNDMSG((hwndHD), HDM_LAYOUT, 0, (LPARAM)(HD_LAYOUT *)(playout))
+
+Function Header_Layout( hwndHD : hwnd;var playout : HD_LAYOUT ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndHD), HDM_LAYOUT, 0, LPARAM(@playout)))
+end;
+
+
+// Macro 22
+// #define Header_GetItemRect(hwnd, iItem, lprc) \
+// (BOOL)SNDMSG((hwnd), HDM_GETITEMRECT, (WPARAM)(iItem), (LPARAM)(lprc))
+
+Function Header_GetItemRect( hwnd : hwnd; iItem : WPARAM; lprc : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), HDM_GETITEMRECT, iItem, lprc));
+end;
+
+
+// Macro 23
+// #define Header_SetImageList(hwnd, himl) \
+// (HIMAGELIST)SNDMSG((hwnd), HDM_SETIMAGELIST, 0, (LPARAM)(himl))
+
+Function Header_SetImageList( hwnd : hwnd; himl : LPARAM):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), HDM_SETIMAGELIST, 0, himl))
+end;
+
+
+// Macro 24
+// #define Header_GetImageList(hwnd) \
+// (HIMAGELIST)SNDMSG((hwnd), HDM_GETIMAGELIST, 0, 0)
+
+Function Header_GetImageList( hwnd : hwnd):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), HDM_GETIMAGELIST, 0, 0))
+end;
+
+
+// Macro 25
+// #define Header_OrderToIndex(hwnd, i) \
+// (int)SNDMSG((hwnd), HDM_ORDERTOINDEX, (WPARAM)(i), 0)
+
+Function Header_OrderToIndex( hwnd : hwnd; i : WPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_ORDERTOINDEX, (i), 0))
+end;
+
+
+// Macro 26
+// #define Header_CreateDragImage(hwnd, i) \
+// (HIMAGELIST)SNDMSG((hwnd), HDM_CREATEDRAGIMAGE, (WPARAM)(i), 0)
+
+Function Header_CreateDragImage( hwnd : hwnd; i : WPARAM):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), HDM_CREATEDRAGIMAGE, (i), 0))
+end;
+
+
+// Macro 27
+// #define Header_GetOrderArray(hwnd, iCount, lpi) \
+// (BOOL)SNDMSG((hwnd), HDM_GETORDERARRAY, (WPARAM)(iCount), (LPARAM)(lpi))
+
+Function Header_GetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), HDM_GETORDERARRAY, iCount, lpi))
+end;
+
+
+// Macro 28
+// #define Header_SetOrderArray(hwnd, iCount, lpi) \
+// (BOOL)SNDMSG((hwnd), HDM_SETORDERARRAY, (WPARAM)(iCount), (LPARAM)(lpi))
+
+Function Header_SetOrderArray( hwnd : hwnd; iCount : WPARAM; lpi : PInteger):BOOL;inline;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), HDM_SETORDERARRAY, iCount, LPARAM(lpi)))
+end;
+
+
+// Macro 29
+// #define Header_SetHotDivider(hwnd, fPos, dw) \
+// (int)SNDMSG((hwnd), HDM_SETHOTDIVIDER, (WPARAM)(fPos), (LPARAM)(dw))
+
+Function Header_SetHotDivider( hwnd : hwnd; fPos : WPARAM; dw : LPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_SETHOTDIVIDER, fPos, dw))
+end;
+
+
+{$ifdef ie5plus}
+// Macro 30
+// #define Header_SetBitmapMargin(hwnd, iWidth) \
+// (int)SNDMSG((hwnd), HDM_SETBITMAPMARGIN, (WPARAM)(iWidth), 0)
+
+Function Header_SetBitmapMargin( hwnd : hwnd; iWidth : WPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_SETBITMAPMARGIN, iWidth, 0))
+end;
+
+
+// Macro 31
+// #define Header_GetBitmapMargin(hwnd) \
+// (int)SNDMSG((hwnd), HDM_GETBITMAPMARGIN, 0, 0)
+
+Function Header_GetBitmapMargin( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_GETBITMAPMARGIN, 0, 0))
+end;
+
+{$ENDIF}
+
+// Macro 32
+// #define Header_SetUnicodeFormat(hwnd, fUnicode) \
+// (BOOL)SNDMSG((hwnd), HDM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
+
+Function Header_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), HDM_SETUNICODEFORMAT, fUnicode, 0));
+end;
+
+
+// Macro 33
+// #define Header_GetUnicodeFormat(hwnd) \
+// (BOOL)SNDMSG((hwnd), HDM_GETUNICODEFORMAT, 0, 0)
+
+Function Header_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), HDM_GETUNICODEFORMAT, 0, 0))
+end;
+
+
+{$ifdef IE5plus}
+// Macro 34
+// #define Header_SetFilterChangeTimeout(hwnd, i) \
+// (int)SNDMSG((hwnd), HDM_SETFILTERCHANGETIMEOUT, 0, (LPARAM)(i))
+
+Function Header_SetFilterChangeTimeout( hwnd : hwnd; i : LPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_SETFILTERCHANGETIMEOUT, 0, (i)))
+end;
+
+
+// Macro 35
+// #define Header_EditFilter(hwnd, i, fDiscardChanges) \
+// (int)SNDMSG((hwnd), HDM_EDITFILTER, (WPARAM)(i), MAKELPARAM(fDiscardChanges, 0))
+
+Function Header_EditFilter( hwnd : hwnd; i : WPARAM; fDiscardChanges :cint ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_EDITFILTER, (i), MAKELPARAM(fDiscardChanges, 0)));
+end;
+
+
+// Macro 36
+// #define Header_ClearFilter(hwnd, i) \
+// (int)SNDMSG((hwnd), HDM_CLEARFILTER, (WPARAM)(i), 0)
+
+Function Header_ClearFilter( hwnd : hwnd; i : WPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_CLEARFILTER, (i), 0))
+end;
+
+
+// Macro 37
+// #define Header_ClearAllFilters(hwnd) \
+// (int)SNDMSG((hwnd), HDM_CLEARFILTER, (WPARAM)-1, 0)
+
+Function Header_ClearAllFilters( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), HDM_CLEARFILTER, WPARAM(-1), 0))
+end;
+{$endif}
+{$ifdef win32vista}
+// macro 37a ..37d
+function Header_GetOverflowRect( hwnd : hwnd; lprc:lprect):bool;
+begin
+ result:=bool(sendmessage(hwnd, HDM_GETOVERFLOWRECT, 0, LPARAM(lprc)));
+end;
+
+function Header_GetFocusedItem(hwnd : hwnd):cint;
+begin
+ Result:=cint(SendMessage((hwnd), HDM_GETFOCUSEDITEM, WPARAM(0), LPARAM(0)));
+end;
+
+function Header_SetFocusedItem(hwnd:hwnd; iItem:cint):BOOL;
+begin
+ result:=bool(sendmessage(hwnd, HDM_SETFOCUSEDITEM, WPARAM(0),LPARAM(iItem)));
+end;
+function Header_GetItemDropDownRect(hwnd : hwnd;iItem:cint; lprc:lprect):bool;
+begin
+ result:=bool(sendmessage(hwnd, HDM_GETITEMDROPDOWNRECT, WPARAM(iItem), LPARAM(lprc)));
+end;
+{$endif}
+
+// Macro 38
+// #define ListView_SetUnicodeFormat(hwnd, fUnicode) \
+// (BOOL)SNDMSG((hwnd), LVM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
+
+Function ListView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETUNICODEFORMAT, fUnicode, 0));
+end;
+
+
+// Macro 39
+// #define ListView_GetUnicodeFormat(hwnd) \
+// (BOOL)SNDMSG((hwnd), LVM_GETUNICODEFORMAT, 0, 0)
+
+Function ListView_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETUNICODEFORMAT, 0, 0))
+end;
+
+
+// Macro 40
+// #define ListView_GetBkColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), LVM_GETBKCOLOR, 0, LPARAM(0))
+
+Function ListView_GetBkColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), LVM_GETBKCOLOR, 0, LPARAM(0)))
+end;
+
+
+// Macro 41
+// #define ListView_SetBkColor(hwnd, clrBk) \
+// (BOOL)SNDMSG((hwnd), LVM_SETBKCOLOR, 0, (LPARAM)(COLORREF)(clrBk))
+
+Function ListView_SetBkColor( hwnd : hwnd; clrBk : COLORREF):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETBKCOLOR, 0, clrBk))
+end;
+
+
+// Macro 42
+// #define ListView_GetImageList(hwnd, iImageList) \
+// (HIMAGELIST)SNDMSG((hwnd), LVM_GETIMAGELIST, (WPARAM)(INT)(iImageList), DWord(0))
+
+Function ListView_GetImageList( hwnd : hwnd; iImageList : CINT):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), LVM_GETIMAGELIST, iImageList, LPARAM(0)))
+end;
+
+
+// Macro 43
+// #define ListView_SetImageList(hwnd, himl, iImageList) \
+// (HIMAGELIST)SNDMSG((hwnd), LVM_SETIMAGELIST, (WPARAM)(iImageList), (LPARAM)(HIMAGELIST)(himl))
+
+Function ListView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImageList : WPARAM):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), LVM_SETIMAGELIST, iImageList, himl))
+end;
+
+
+// Macro 44
+// #define ListView_GetItemCount(hwnd) \
+// (int)SNDMSG((hwnd), LVM_GETITEMCOUNT, 0, DWord(0))
+
+Function ListView_GetItemCount( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_GETITEMCOUNT, 0, LPARAM(0)))
+end;
+
+
+// Macro 45
+// #define INDEXTOSTATEIMAGEMASK(i) ((i) << 12)
+
+// Macro 46
+// #define ListView_GetItem(hwnd, pitem) \
+// (BOOL)SNDMSG((hwnd), LVM_GETITEM, 0, (LPARAM)(LV_ITEM *)(pitem))
+
+Function ListView_GetItem( hwnd : hwnd;var pitem : LV_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETITEM, 0, LPARAM(@pitem)))
+end;
+
+
+// Macro 47
+// #define ListView_SetItem(hwnd, pitem) \
+// (BOOL)SNDMSG((hwnd), LVM_SETITEM, 0, (LPARAM)(const LV_ITEM *)(pitem))
+
+Function ListView_SetItem( hwnd : hwnd;const pitem : LV_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETITEM, 0, LPARAM(@pitem)))
+end;
+
+
+// Macro 48
+// #define ListView_InsertItem(hwnd, pitem) \
+// (int)SNDMSG((hwnd), LVM_INSERTITEM, 0, (LPARAM)(const LV_ITEM *)(pitem))
+
+Function ListView_InsertItem( hwnd : hwnd;Const pitem : LV_ITEM ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_INSERTITEM, 0, LPARAM(@pitem)))
+end;
+
+
+// Macro 49
+// #define ListView_DeleteItem(hwnd, i) \
+// (BOOL)SNDMSG((hwnd), LVM_DELETEITEM, (WPARAM)(int)(i), DWord(0))
+
+Function ListView_DeleteItem( hwnd : hwnd; i : cint):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_DELETEITEM, (i), LPARAM(0)))
+end;
+
+
+// Macro 50
+// #define ListView_DeleteAllItems(hwnd) \
+// (BOOL)SNDMSG((hwnd), LVM_DELETEALLITEMS, 0, DWord(0))
+
+Function ListView_DeleteAllItems( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_DELETEALLITEMS, 0, LPARAM(0)))
+end;
+
+
+// Macro 51
+// #define ListView_GetCallbackMask(hwnd) \
+// (BOOL)SNDMSG((hwnd), LVM_GETCALLBACKMASK, 0, 0)
+
+Function ListView_GetCallbackMask( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETCALLBACKMASK, 0, 0))
+end;
+
+
+// Macro 52
+// #define ListView_SetCallbackMask(hwnd, mask) \
+// (BOOL)SNDMSG((hwnd), LVM_SETCALLBACKMASK, (WPARAM)(UINT)(mask), 0)
+
+Function ListView_SetCallbackMask( hwnd : hwnd; mask : UINT):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETCALLBACKMASK, mask, 0))
+end;
+
+
+// Macro 53
+// #define ListView_GetNextItem(hwnd, i, flags) \
+// (int)SNDMSG((hwnd), LVM_GETNEXTITEM, (WPARAM)(int)(i), MAKELPARAM((flags), 0))
+
+Function ListView_GetNextItem( hwnd : hwnd; i : cint; flags : cint):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_GETNEXTITEM, (i), MAKELPARAM((flags), 0)))
+end;
+
+
+// Macro 54
+// #define ListView_FindItem(hwnd, iStart, plvfi) \
+// (int)SNDMSG((hwnd), LVM_FINDITEM, (WPARAM)(int)(iStart), (LPARAM)(const LV_FINDINFO *)(plvfi))
+
+Function ListView_FindItem( hwnd : hwnd; iStart : cint;const plvfi : LV_FINDINFO ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_FINDITEM, iStart, LPARAM(@plvfi)))
+end;
+
+
+// Macro 55
+// #define ListView_GetItemRect(hwnd, i, prc, code) \
+// (BOOL)SNDMSG((hwnd), LVM_GETITEMRECT, (WPARAM)(int)(i), \
+// ((prc) ? (((RECT *)(prc))->left = (code),(LPARAM)(RECT *)(prc)) : (LPARAM)(RECT *)NULL))
+
+Function ListView_GetItemRect( hwnd : hwnd; i : cint;var prc : TRect;code : cint):BOOL;
+begin
+ if assigned(@prc) then
+ begin
+ prc.left:=Code;
+ Result:=BOOL(SendMessage(hWnd,LVM_GETITEMRECT,i,LPARAM(@prc)));
+ end
+ else
+ Result:=BOOL(SendMessage(hWnd,LVM_GETITEMRECT,i,0));
+end;
+
+
+// Macro 56
+// #define ListView_SetItemPosition(hwndLV, i, x, y) \
+// (BOOL)SNDMSG((hwndLV), LVM_SETITEMPOSITION, (WPARAM)(int)(i), MAKELPARAM((x), (y)))
+
+Function ListView_SetItemPosition( hwndLV : hwnd; i : cint; x : cint ; y : cint ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_SETITEMPOSITION, (i), MAKELPARAM((x), (y))))
+end;
+
+
+// Macro 57
+// #define ListView_GetItemPosition(hwndLV, i, ppt) \
+// (BOOL)SNDMSG((hwndLV), LVM_GETITEMPOSITION, (WPARAM)(int)(i), (LPARAM)(POINT *)(ppt))
+
+Function ListView_GetItemPosition( hwndLV : hwnd; i : cint;var ppt : POINT ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_GETITEMPOSITION, (i), LPAram(@ppt)))
+end;
+
+// Macro 58
+// #define ListView_GetStringWidth(hwndLV, psz) \
+// (int)SNDMSG((hwndLV), LVM_GETSTRINGWIDTH, 0, (LPARAM)(LPCTSTR)(psz))
+
+Function ListView_GetStringWidth( hwndLV : hwnd; psz : LPCTSTR):cint;
+
+Begin
+ Result:=cint(SendMessage((hwndLV), LVM_GETSTRINGWIDTH, 0, LPARAM(psz)))
+end;
+
+
+// Macro 59
+// #define ListView_HitTest(hwndLV, pinfo) \
+// (int)SNDMSG((hwndLV), LVM_HITTEST, 0, (LPARAM)(LV_HITTESTINFO *)(pinfo))
+
+Function ListView_HitTest( hwndLV : hwnd;var pinfo : LV_HITTESTINFO ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwndLV), LVM_HITTEST, 0, LParam(@pinfo)))
+end;
+
+
+// Macro 60
+// #define ListView_EnsureVisible(hwndLV, i, fPartialOK) \
+// (BOOL)SNDMSG((hwndLV), LVM_ENSUREVISIBLE, (WPARAM)(int)(i), MAKELPARAM((fPartialOK), 0))
+
+Function ListView_EnsureVisible( hwndLV : hwnd; i : cint; fPartialOK : cint ):BOOL;inline;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_ENSUREVISIBLE, (i), MAKELPARAM((fPartialOK), 0)))
+end;
+
+
+Function ListView_EnsureVisible( hwndLV : hwnd; i : cint; fPartialOK : BOOL ):BOOL;inline;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_ENSUREVISIBLE, (i), LPARAM(fPartialOK)))
+end;
+
+
+// Macro 61
+// #define ListView_Scroll(hwndLV, dx, dy) \
+// (BOOL)SNDMSG((hwndLV), LVM_SCROLL, (WPARAM)(int)(dx), (LPARAM)(int)(dy))
+
+Function ListView_Scroll( hwndLV : hwnd; dx : cint; dy : cint):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_SCROLL, dx, dy))
+end;
+
+
+// Macro 62
+// #define ListView_RedrawItems(hwndLV, iFirst, iLast) \
+// (BOOL)SNDMSG((hwndLV), LVM_REDRAWITEMS, (WPARAM)(int)(iFirst), (LPARAM)(int)(iLast))
+
+Function ListView_RedrawItems( hwndLV : hwnd; iFirst : cint; iLast : cint):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_REDRAWITEMS, iFirst, iLast))
+end;
+
+
+// Macro 63
+// #define ListView_Arrange(hwndLV, code) \
+// (BOOL)SNDMSG((hwndLV), LVM_ARRANGE, (WPARAM)(UINT)(code), DWord(0))
+
+Function ListView_Arrange( hwndLV : hwnd; code : UINT):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_ARRANGE, code, LPARAM(0)))
+end;
+
+
+// Macro 64
+// #define ListView_EditLabel(hwndLV, i) \
+// (HWND)SNDMSG((hwndLV), LVM_EDITLABEL, (WPARAM)(int)(i), DWord(0))
+
+Function ListView_EditLabel( hwndLV : hwnd; i : cint):HWND;
+
+Begin
+ Result:=HWND(SendMessage((hwndLV), LVM_EDITLABEL, (i), LPARAM(0)))
+end;
+
+
+// Macro 65
+// #define ListView_GetEditControl(hwndLV) \
+// (HWND)SNDMSG((hwndLV), LVM_GETEDITCONTROL, 0, DWord(0))
+
+Function ListView_GetEditControl( hwndLV : hwnd):HWND;
+
+Begin
+ Result:=HWND(SendMessage((hwndLV), LVM_GETEDITCONTROL, 0, LPARAM(0)))
+end;
+
+
+// Macro 66
+// #define ListView_GetColumn(hwnd, iCol, pcol) \
+// (BOOL)SNDMSG((hwnd), LVM_GETCOLUMN, (WPARAM)(int)(iCol), (LPARAM)(LV_COLUMN *)(pcol))
+
+Function ListView_GetColumn( hwnd : hwnd; iCol : cint;var pcol : LV_COLUMN ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETCOLUMN, iCol, LPARAM(@pcol)))
+end;
+
+
+// Macro 67
+// #define ListView_SetColumn(hwnd, iCol, pcol) \
+// (BOOL)SNDMSG((hwnd), LVM_SETCOLUMN, (WPARAM)(int)(iCol), (LPARAM)(const LV_COLUMN *)(pcol))
+
+Function ListView_SetColumn( hwnd : hwnd; iCol : cint; Const pcol : LV_COLUMN ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETCOLUMN, iCol, LPARAM(@pcol)))
+end;
+
+
+// Macro 68
+// #define ListView_InsertColumn(hwnd, iCol, pcol) \
+// (int)SNDMSG((hwnd), LVM_INSERTCOLUMN, (WPARAM)(int)(iCol), (LPARAM)(const LV_COLUMN *)(pcol))
+
+Function ListView_InsertColumn( hwnd : hwnd; iCol : cint;const pcol : LV_COLUMN ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_INSERTCOLUMN, iCol, LPARAM(@pcol)))
+end;
+
+
+// Macro 69
+// #define ListView_DeleteColumn(hwnd, iCol) \
+// (BOOL)SNDMSG((hwnd), LVM_DELETECOLUMN, (WPARAM)(int)(iCol), 0)
+
+Function ListView_DeleteColumn( hwnd : hwnd; iCol : cint):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_DELETECOLUMN, iCol, 0))
+end;
+
+
+// Macro 70
+// #define ListView_GetColumnWidth(hwnd, iCol) \
+// (int)SNDMSG((hwnd), LVM_GETCOLUMNWIDTH, (WPARAM)(int)(iCol), 0)
+
+Function ListView_GetColumnWidth( hwnd : hwnd; iCol : cint):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_GETCOLUMNWIDTH, iCol, 0))
+end;
+
+
+// Macro 71
+// #define ListView_SetColumnWidth(hwnd, iCol, cx) \
+// (BOOL)SNDMSG((hwnd), LVM_SETCOLUMNWIDTH, (WPARAM)(int)(iCol), MAKELPARAM((cx), 0))
+
+Function ListView_SetColumnWidth( hwnd : hwnd; iCol : cint; cx :cint ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETCOLUMNWIDTH, iCol, MAKELPARAM((cx), 0)))
+end;
+
+
+// Macro 72
+// #define ListView_GetHeader(hwnd)\
+// (HWND)SNDMSG((hwnd), LVM_GETHEADER, 0, DWord(0))
+
+Function ListView_GetHeader( hwnd : hwnd):HWND;
+
+Begin
+ Result:=Windows.HWND(SendMessage((hwnd), LVM_GETHEADER, 0, LPARAM(0)));
+end;
+
+
+// Macro 73
+// #define ListView_CreateDragImage(hwnd, i, lpptUpLeft) \
+// (HIMAGELIST)SNDMSG((hwnd), LVM_CREATEDRAGIMAGE, (WPARAM)(int)(i), (LPARAM)(LPPOINT)(lpptUpLeft))
+
+Function ListView_CreateDragImage( hwnd : hwnd; i : cint; lpptUpLeft : LPPOINT):HIMAGELIST;inline;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), LVM_CREATEDRAGIMAGE, WPARAM(i), LPARAM(lpptUpLeft)))
+end;
+
+Function ListView_CreateDragImage( hwnd : hwnd; i : cint; const lpptUpLeft : POINT):HIMAGELIST;inline;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), LVM_CREATEDRAGIMAGE, WPARAM(i), LPARAM(@lpptUpLeft)))
+end;
+
+
+// Macro 74
+// #define ListView_GetViewRect(hwnd, prc) \
+// (BOOL)SNDMSG((hwnd), LVM_GETVIEWRECT, 0, (LPARAM)(RECT *)(prc))
+
+Function ListView_GetViewRect( hwnd : hwnd;var prc : RECT ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETVIEWRECT, 0, LPARAM(@prc)))
+end;
+
+// Macro 75
+// #define ListView_GetTextColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), LVM_GETTEXTCOLOR, 0, DWord(0))
+
+Function ListView_GetTextColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), LVM_GETTEXTCOLOR, 0, LPARAM(0)))
+end;
+
+
+// Macro 76
+// #define ListView_SetTextColor(hwnd, clrText) \
+// (BOOL)SNDMSG((hwnd), LVM_SETTEXTCOLOR, 0, (LPARAM)(COLORREF)(clrText))
+
+Function ListView_SetTextColor( hwnd : hwnd; clrText : COLORREF):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETTEXTCOLOR, 0, clrText))
+end;
+
+
+// Macro 77
+// #define ListView_GetTextBkColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), LVM_GETTEXTBKCOLOR, 0, DWord(0))
+
+Function ListView_GetTextBkColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), LVM_GETTEXTBKCOLOR, 0, LPARAM(0)))
+end;
+
+
+// Macro 78
+// #define ListView_SetTextBkColor(hwnd, clrTextBk) \
+// (BOOL)SNDMSG((hwnd), LVM_SETTEXTBKCOLOR, 0, (LPARAM)(COLORREF)(clrTextBk))
+
+Function ListView_SetTextBkColor( hwnd : hwnd; clrTextBk : COLORREF):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETTEXTBKCOLOR, 0, clrTextBk))
+end;
+
+
+// Macro 79
+// #define ListView_GetTopIndex(hwndLV) \
+// (int)SNDMSG((hwndLV), LVM_GETTOPINDEX, 0, 0)
+
+Function ListView_GetTopIndex( hwndLV : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwndLV), LVM_GETTOPINDEX, 0, 0))
+end;
+
+
+// Macro 80
+// #define ListView_GetCountPerPage(hwndLV) \
+// (int)SNDMSG((hwndLV), LVM_GETCOUNTPERPAGE, 0, 0)
+
+Function ListView_GetCountPerPage( hwndLV : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwndLV), LVM_GETCOUNTPERPAGE, 0, 0))
+end;
+
+
+// Macro 81
+//
+// #define ListView_GetOrigin(hwndLV, ppt) \
+// (BOOL)SNDMSG((hwndLV), LVM_GETORIGIN, (WPARAM)0, (LPARAM)(POINT *)(ppt))
+
+Function ListView_GetOrigin( hwndLV : hwnd;var ppt : POINT ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_GETORIGIN, WPARAM(0), LPARAM(@ppt)))
+end;
+
+
+// Macro 82
+// #define ListView_Update(hwndLV, i) \
+// (BOOL)SNDMSG((hwndLV), LVM_UPDATE, (WPARAM)(i), DWord(0))
+
+Function ListView_Update( hwndLV : hwnd; i : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_UPDATE, (i), LPARAM(0)))
+end;
+
+
+// Macro 83
+// #define ListView_SetItemState(hwndLV, i, data, mask) \
+// { LV_ITEM _ms_lvi;\
+// _ms_lvi.stateMask = mask;\
+// _ms_lvi.state = data;\
+// SNDMSG((hwndLV), LVM_SETITEMSTATE, (WPARAM)(i), (LPARAM)(LV_ITEM *)&_ms_lvi);\
+// }
+
+
+Procedure ListView_SetItemState(hwndLV :hwnd; i :cint ;data,mask:UINT);
+
+Var _ms_lvi : LV_ITEM;
+
+Begin
+ _ms_lvi.stateMask:=mask;
+ _ms_lvi.state:=data;
+ SendMessage(hwndLV, LVM_SETITEMSTATE, i,LPARAM(@_ms_lvi));
+end;
+
+
+// Macro 84
+// #define ListView_SetCheckState(hwndLV, i, fCheck) \
+// ListView_SetItemState(hwndLV, i, INDEXTOSTATEIMAGEMASK((fCheck)?2:1), LVIS_STATEIMAGEMASK)
+
+Procedure ListView_SetCheckState( hwndLV : hwnd; i : cint ; fCheck : BOOL );
+
+var j:longint;
+Begin
+ IF not fCheck Then // (or inc(longint(fCheck)) if you like it dirty)
+ j:=1
+ Else
+ j:=2;
+ListView_SetItemState(hwndLV, i, INDEXTOSTATEIMAGEMASK(j), LVIS_STATEIMAGEMASK);
+end;
+
+
+// Macro 85
+// #define ListView_GetItemState(hwndLV, i, mask) \
+// (UINT)SNDMSG((hwndLV), LVM_GETITEMSTATE, (WPARAM)(i), (LPARAM)(mask))
+
+Function ListView_GetItemState( hwndLV : hwnd; i : WPARAM; mask : LPARAM):UINT;
+
+Begin
+ Result:=UINT(SendMessage((hwndLV), LVM_GETITEMSTATE, (i), mask))
+end;
+
+
+// Macro 86
+// #define ListView_GetCheckState(hwndLV, i) \
+// ((((UINT)(SNDMSG((hwndLV), LVM_GETITEMSTATE, (WPARAM)(i), LVIS_STATEIMAGEMASK))) >> 12) -1)
+
+Function ListView_GetCheckState( hwndLV : hwnd; i : WPARAM):UINT;
+
+Begin
+ Result:=(SendMessage((hwndLV), LVM_GETITEMSTATE, (i), LVIS_STATEIMAGEMASK) shr 12) -1;
+end;
+
+
+// Macro 87
+// #define ListView_GetItemText(hwndLV, i, iSubItem_, pszText_, cchTextMax_) \
+// { LV_ITEM _ms_lvi;\
+// _ms_lvi.iSubItem = iSubItem_;\
+// _ms_lvi.cchTextMax = cchTextMax_;\
+// _ms_lvi.pszText = pszText_;\
+// SNDMSG((hwndLV), LVM_GETITEMTEXT, (WPARAM)(i), (LPARAM)(LV_ITEM *)&_ms_lvi);\
+// }
+
+Procedure ListView_GetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer;cchTextMax :cint);
+
+Var _ms_lvi : LV_ITEM;
+
+Begin
+ _ms_lvi.iSubItem := iSubItem;
+ _ms_lvi.cchTextMax := cchTextMax;
+ _ms_lvi.pszText := pszText; // unicode dependant!
+ SendMessage(hwndLV, LVM_GETITEMTEXT, i, LPARAM(@_ms_LVI));
+end;
+
+
+// Macro 88
+// #define ListView_SetItemText(hwndLV, i, iSubItem_, pszText_) \
+// { LV_ITEM _ms_lvi;\
+// _ms_lvi.iSubItem = iSubItem_;\
+// _ms_lvi.pszText = pszText_;\
+// SNDMSG((hwndLV), LVM_SETITEMTEXT, (WPARAM)(i), (LPARAM)(LV_ITEM *)&_ms_lvi);\
+// }
+
+Procedure ListView_SetItemText(hwndLV:hwnd; i : WPARAM ;iSubItem : cint ;pszText : Pointer);
+
+Var _ms_lvi : LV_ITEM;
+
+Begin
+ _ms_lvi.iSubItem := iSubItem;
+ _ms_lvi.pszText := pszText; // unicode dependant!
+ SendMessage(hwndLV, LVM_SETITEMTEXT, i, LPARAM(@_ms_lvi));
+End;
+
+// Macro 89
+// #define ListView_SetItemCount(hwndLV, cItems) \
+// SNDMSG((hwndLV), LVM_SETITEMCOUNT, (WPARAM)(cItems), 0)
+
+Procedure ListView_SetItemCount( hwndLV : hwnd; cItems : WPARAM);
+
+Begin
+ SendMessage((hwndLV), LVM_SETITEMCOUNT, cItems, 0)
+end;
+
+
+// Macro 90
+// #define ListView_SetItemCountEx(hwndLV, cItems, dwFlags) \
+// SNDMSG((hwndLV), LVM_SETITEMCOUNT, (WPARAM)(cItems), (LPARAM)(dwFlags))
+
+Procedure ListView_SetItemCountEx( hwndLV : hwnd; cItems : WPARAM; dwFlags : LPARAM);
+
+Begin
+ SendMessage((hwndLV), LVM_SETITEMCOUNT, cItems, dwFlags)
+end;
+
+
+// Macro 91
+// #define ListView_SortItems(hwndLV, _pfnCompare, _lPrm) \
+// (BOOL)SNDMSG((hwndLV), LVM_SORTITEMS, (WPARAM)(LPARAM)(_lPrm), \
+// (LPARAM)(PFNLVCOMPARE)(_pfnCompare))
+
+Function ListView_SortItems( hwndLV : hwnd;pfnCompare : PFNLVCOMPARE; lPrm : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_SORTITEMS, lPrm, LPARAM(@pfncompare)));
+end;
+
+
+// Macro 92
+// #define ListView_SetItemPosition32(hwndLV, i, x0, y0) \
+// { POINT ptNewPos; \
+// ptNewPos.x = x0; ptNewPos.y = y0; \
+// SNDMSG((hwndLV), LVM_SETITEMPOSITION32, (WPARAM)(int)(i), (LPARAM)&ptNewPos); \
+// }
+
+Procedure ListView_SetItemPosition32(hwndLV:hwnd; i:cint;x0,y0:long);
+
+Var ptNewPos:POINT;
+
+Begin
+ ptNewPos.X:=x0; ptNewPos.Y:=y0;
+ SendMessage(hwndlv, LVM_SETITEMPOSITION32, I,LPARAM(@ptNewPos));
+end;
+
+
+// Macro 93
+// #define ListView_GetSelectedCount(hwndLV) \
+// (UINT)SNDMSG((hwndLV), LVM_GETSELECTEDCOUNT, 0, DWord(0))
+
+Function ListView_GetSelectedCount( hwndLV : hwnd):UINT;
+
+Begin
+ Result:=SendMessage(hwndLV, LVM_GETSELECTEDCOUNT, 0, LPARAM(0));
+end;
+
+// Macro 94
+// #define ListView_GetItemSpacing(hwndLV, fSmall) \
+// (DWORD)SNDMSG((hwndLV), LVM_GETITEMSPACING, fSmall, DWord(0))
+
+Function ListView_GetItemSpacing( hwndLV : hwnd; fSmall : cint ):DWORD;
+
+Begin
+ Result:=LPARAM(SendMessage((hwndLV), LVM_GETITEMSPACING, fSmall, LPARAM(0)));
+end;
+
+// Macro 95
+// #define ListView_GetISearchString(hwndLV, lpsz) \
+// (BOOL)SNDMSG((hwndLV), LVM_GETISEARCHSTRING, 0, (LPARAM)(LPTSTR)(lpsz))
+
+Function ListView_GetISearchString( hwndLV : hwnd; lpsz : LPTSTR):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_GETISEARCHSTRING, 0, LPARAM(lpsz)))
+end;
+
+// Macro 96
+// #define ListView_SetIconSpacing(hwndLV, cx, cy) \
+// (DWORD)SNDMSG((hwndLV), LVM_SETICONSPACING, 0, MAKELONG(cx,cy))
+
+Function ListView_SetIconSpacing( hwndLV : hwnd; cx,cy : cint ):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwndLV), LVM_SETICONSPACING, 0, MAKELONG(cx,cy)))
+end;
+
+
+// Macro 97
+// #define ListView_SetExtendedListViewStyle(hwndLV, dw)\
+// (DWORD)SNDMSG((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, 0, dw)
+
+Function ListView_SetExtendedListViewStyle( hwndLV : hwnd; dw :cint ):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, 0, dw))
+end;
+
+
+// Macro 98
+// #define ListView_SetExtendedListViewStyleEx(hwndLV, dwMask, dw)\
+// (DWORD)SNDMSG((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, dwMask, dw)
+
+Function ListView_SetExtendedListViewStyleEx( hwndLV : hwnd; dwMask, dw : cint ):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwndLV), LVM_SETEXTENDEDLISTVIEWSTYLE, dwMask, dw))
+end;
+
+
+// Macro 99
+// #define ListView_GetExtendedListViewStyle(hwndLV)\
+// (DWORD)SNDMSG((hwndLV), LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
+
+Function ListView_GetExtendedListViewStyle( hwndLV : hwnd):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwndLV), LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0))
+end;
+
+
+// Macro 100
+// #define ListView_GetSubItemRect(hwnd, iItem, iSubItem, code, prc) \
+// (BOOL)SNDMSG((hwnd), LVM_GETSUBITEMRECT, (WPARAM)(int)(iItem), \
+// ((prc) ? ((((LPRECT)(prc))->top = iSubItem), (((LPRECT)(prc))->left = code), (LPARAM)(prc)) : (LPARAM)(LPRECT)NULL))
+
+Function ListView_GetSubItemRect( hwnd : hwnd; iItem : cint;iSubItem, code :cint ;prc:LPRECT):BOOL;
+
+VAR LastParam : LPRECT;
+Begin
+ if prc<>nil then
+ begin
+ prc^.top:=iSubItem;
+ prc^.left:=code;
+ lastparam:=prc;
+ end
+ else
+ lastparam:=nil;
+ Result:=bool(SendMessage((hwnd), LVM_GETSUBITEMRECT, iItem, LPARAM(lastparam)));
+End;
+
+// Macro 101
+// #define ListView_SubItemHitTest(hwnd, plvhti) \
+// (int)SNDMSG((hwnd), LVM_SUBITEMHITTEST, 0, (LPARAM)(LPLVHITTESTINFO)(plvhti))
+
+Function ListView_SubItemHitTest( hwnd : hwnd; plvhti : LPLVHITTESTINFO):cint;
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_SUBITEMHITTEST, 0, LParam(plvhti)))
+end;
+
+
+// Macro 102
+// #define ListView_SetColumnOrderArray(hwnd, iCount, pi) \
+// (BOOL)SNDMSG((hwnd), LVM_SETCOLUMNORDERARRAY, (WPARAM)(iCount), (LPARAM)(LPINT)(pi))
+
+Function ListView_SetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETCOLUMNORDERARRAY, iCount, LPARAM(pi)));
+end;
+
+
+// Macro 103
+// #define ListView_GetColumnOrderArray(hwnd, iCount, pi) \
+// (BOOL)SNDMSG((hwnd), LVM_GETCOLUMNORDERARRAY, (WPARAM)(iCount), (LPARAM)(LPINT)(pi))
+
+Function ListView_GetColumnOrderArray( hwnd : hwnd; iCount : WPARAM; pi : LPINT):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETCOLUMNORDERARRAY, iCount, LPARAM(pi)))
+end;
+
+
+// Macro 104
+// #define ListView_SetHotItem(hwnd, i) \
+// (int)SNDMSG((hwnd), LVM_SETHOTITEM, (WPARAM)(i), 0)
+
+Function ListView_SetHotItem( hwnd : hwnd; i : WPARAM):cint;
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_SETHOTITEM, (i), 0))
+end;
+
+// Macro 105
+// #define ListView_GetHotItem(hwnd) \
+// (int)SNDMSG((hwnd), LVM_GETHOTITEM, 0, 0)
+
+Function ListView_GetHotItem( hwnd : hwnd):cint;
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_GETHOTITEM, 0, 0))
+end;
+
+// Macro 106
+// #define ListView_SetHotCursor(hwnd, hcur) \
+// (HCURSOR)SNDMSG((hwnd), LVM_SETHOTCURSOR, 0, (LPARAM)(hcur))
+
+Function ListView_SetHotCursor( hwnd : hwnd; hcur : LPARAM):HCURSOR;
+Begin
+ Result:=HCURSOR(SendMessage((hwnd), LVM_SETHOTCURSOR, 0, hcur))
+end;
+
+// Macro 107
+// #define ListView_GetHotCursor(hwnd) \
+// (HCURSOR)SNDMSG((hwnd), LVM_GETHOTCURSOR, 0, 0)
+
+Function ListView_GetHotCursor( hwnd : hwnd):HCURSOR;
+Begin
+ Result:=HCURSOR(SendMessage((hwnd), LVM_GETHOTCURSOR, 0, 0))
+end;
+
+
+// Macro 108
+// #define ListView_ApproximateViewRect(hwnd, iWidth, iHeight, iCount) \
+// (DWORD)SNDMSG((hwnd), LVM_APPROXIMATEVIEWRECT, iCount, MAKELPARAM(iWidth, iHeight))
+
+Function ListView_ApproximateViewRect( hwnd : hwnd; iWidth, iHeight, iCount : cint ):DWORD;
+Begin
+ Result:=DWORD(SendMessage((hwnd), LVM_APPROXIMATEVIEWRECT, iCount, MAKELPARAM(iWidth, iHeight)));
+end;
+
+
+// Macro 109
+// #define ListView_SetWorkAreas(hwnd, nWorkAreas, prc) \
+// (BOOL)SNDMSG((hwnd), LVM_SETWORKAREAS, (WPARAM)(int)(nWorkAreas), (LPARAM)(RECT *)(prc))
+
+Function ListView_SetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;inline;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETWORKAREAS, nWorkAreas, LPARAM(@prc)))
+end;
+
+
+Function ListView_SetWorkAreas( hwnd : hwnd; nWorkAreas : cint; prc : PRECT ):BOOL;inline;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETWORKAREAS, nWorkAreas, LPARAM(prc)))
+end;
+
+// Macro 110
+// #define ListView_GetWorkAreas(hwnd, nWorkAreas, prc) \
+// (BOOL)SNDMSG((hwnd), LVM_GETWORKAREAS, (WPARAM)(int)(nWorkAreas), (LPARAM)(RECT *)(prc))
+
+Function ListView_GetWorkAreas( hwnd : hwnd; nWorkAreas : cint;var prc : RECT ):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETWORKAREAS, nWorkAreas, LPARAM(@prc)))
+end;
+
+
+// Macro 111
+// #define ListView_GetNumberOfWorkAreas(hwnd, pnWorkAreas) \
+// (BOOL)SNDMSG((hwnd), LVM_GETNUMBEROFWORKAREAS, 0, (LPARAM)(UINT *)(pnWorkAreas))
+
+Function ListView_GetNumberOfWorkAreas( hwnd : hwnd;var pnWorkAreas : UINT ):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETNUMBEROFWORKAREAS, 0, LPARAM(@pnWorkAreas)))
+end;
+
+
+// Macro 112
+// #define ListView_GetSelectionMark(hwnd) \
+// (int)SNDMSG((hwnd), LVM_GETSELECTIONMARK, 0, 0)
+
+Function ListView_GetSelectionMark( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_GETSELECTIONMARK, 0, 0))
+end;
+
+
+// Macro 113
+// #define ListView_SetSelectionMark(hwnd, i) \
+// (int)SNDMSG((hwnd), LVM_SETSELECTIONMARK, 0, (LPARAM)(i))
+
+Function ListView_SetSelectionMark( hwnd : hwnd; i : LPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_SETSELECTIONMARK, 0, (i)))
+end;
+
+
+// Macro 114
+// #define ListView_SetHoverTime(hwndLV, dwHoverTimeMs)\
+// (DWORD)SNDMSG((hwndLV), LVM_SETHOVERTIME, 0, (LPARAM)(dwHoverTimeMs))
+
+Function ListView_SetHoverTime( hwndLV : hwnd; dwHoverTimeMs : LPARAM):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwndLV), LVM_SETHOVERTIME, 0, dwHoverTimeMs))
+end;
+
+
+// Macro 115
+// #define ListView_GetHoverTime(hwndLV)\
+// (DWORD)SNDMSG((hwndLV), LVM_GETHOVERTIME, 0, 0)
+
+Function ListView_GetHoverTime( hwndLV : hwnd):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwndLV), LVM_GETHOVERTIME, 0, 0))
+end;
+
+
+// Macro 116
+// #define ListView_SetToolTips(hwndLV, hwndNewHwnd)\
+// (HWND)SNDMSG((hwndLV), LVM_SETTOOLTIPS, (WPARAM)(hwndNewHwnd), 0)
+
+Function ListView_SetToolTips( hwndLV : hwnd; hwndNewHwnd : WPARAM):HWND;
+
+Begin
+ Result:=HWND(SendMessage((hwndLV), LVM_SETTOOLTIPS, hwndNewHwnd, 0))
+end;
+
+
+// Macro 117
+// #define ListView_GetToolTips(hwndLV)\
+// (HWND)SNDMSG((hwndLV), LVM_GETTOOLTIPS, 0, 0)
+
+Function ListView_GetToolTips( hwndLV : hwnd):HWND;
+
+Begin
+ Result:=HWND(SendMessage((hwndLV), LVM_GETTOOLTIPS, 0, 0))
+end;
+
+
+// Macro 118
+// #define ListView_SortItemsEx(hwndLV, _pfnCompare, _lPrm) \
+// (BOOL)SNDMSG((hwndLV), LVM_SORTITEMSEX, (WPARAM)(LPARAM)(_lPrm), (LPARAM)(PFNLVCOMPARE)(_pfnCompare))
+
+Function ListView_SortItemsEx( hwndLV : hwnd; _pfnCompare : PFNLVCOMPARE; _lPrm : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_SORTITEMSEX, _lPrm, LPAram(@_pfnCompare)))
+end;
+
+{$ifdef win32xp}
+// Macro 119
+// #define ListView_SetSelectedColumn(hwnd, iCol) \
+// SNDMSG((hwnd), LVM_SETSELECTEDCOLUMN, (WPARAM)iCol, 0)
+
+Procedure ListView_SetSelectedColumn( hwnd : hwnd; iCol : WPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_SETSELECTEDCOLUMN, iCol, 0)
+end;
+
+// Macro 120
+// #define ListView_SetTileWidth(hwnd, cpWidth) \
+// SNDMSG((hwnd), LVM_SETTILEWIDTH, (WPARAM)cpWidth, 0)
+
+Procedure ListView_SetTileWidth( hwnd : hwnd; cpWidth : WPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_SETTILEWIDTH, cpWidth, 0)
+end;
+
+
+// Macro 121
+// #define ListView_SetView(hwnd, iView) \
+// (DWORD)SNDMSG((hwnd), LVM_SETVIEW, (WPARAM)(DWORD)iView, 0)
+
+Function ListView_SetView( hwnd : hwnd; iView : DWORD):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwnd), LVM_SETVIEW, iView, 0))
+end;
+
+
+// Macro 122
+// #define ListView_GetView(hwnd) \
+// (DWORD)SNDMSG((hwnd), LVM_GETVIEW, 0, 0)
+
+Function ListView_GetView( hwnd : hwnd):DWORD;
+Begin
+ Result:=DWORD(SendMessage((hwnd), LVM_GETVIEW, 0, 0))
+end;
+
+
+// Macro 123
+// #define ListView_InsertGroup(hwnd, index, pgrp) \
+// SNDMSG((hwnd), LVM_INSERTGROUP, (WPARAM)index, (LPARAM)pgrp)
+
+Procedure ListView_InsertGroup( hwnd : hwnd; index : WPARAM; pgrp : LPARAM);
+Begin
+ SendMessage((hwnd), LVM_INSERTGROUP, index, pgrp)
+end;
+
+
+// Macro 124
+// #define ListView_SetGroupInfo(hwnd, iGroupId, pgrp) \
+// SNDMSG((hwnd), LVM_SETGROUPINFO, (WPARAM)iGroupId, (LPARAM)pgrp)
+
+Procedure ListView_SetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
+Begin
+ SendMessage((hwnd), LVM_SETGROUPINFO, iGroupId, pgrp)
+end;
+
+
+// Macro 125
+// #define ListView_GetGroupInfo(hwnd, iGroupId, pgrp) \
+// SNDMSG((hwnd), LVM_GETGROUPINFO, (WPARAM)iGroupId, (LPARAM)pgrp)
+
+Procedure ListView_GetGroupInfo( hwnd : hwnd; iGroupId : WPARAM; pgrp : LPARAM);
+Begin
+ SendMessage((hwnd), LVM_GETGROUPINFO, iGroupId, pgrp)
+end;
+
+
+// Macro 126
+// #define ListView_RemoveGroup(hwnd, iGroupId) \
+// SNDMSG((hwnd), LVM_REMOVEGROUP, (WPARAM)iGroupId, 0)
+
+Procedure ListView_RemoveGroup( hwnd : hwnd; iGroupId : WPARAM);
+Begin
+ SendMessage((hwnd), LVM_REMOVEGROUP, iGroupId, 0)
+end;
+
+
+// Macro 127
+// #define ListView_MoveGroup(hwnd, iGroupId, toIndex) \
+// SNDMSG((hwnd), LVM_MOVEGROUP, (WPARAM)iGroupId, (LPARAM)toIndex)
+
+Procedure ListView_MoveGroup( hwnd : hwnd; iGroupId : WPARAM; toIndex : LPARAM);
+Begin
+ SendMessage((hwnd), LVM_MOVEGROUP, iGroupId, toIndex)
+end;
+
+
+// Macro 128
+// #define ListView_MoveItemToGroup(hwnd, idItemFrom, idGroupTo) \
+// SNDMSG((hwnd), LVM_MOVEITEMTOGROUP, (WPARAM)idItemFrom, (LPARAM)idGroupTo)
+
+Procedure ListView_MoveItemToGroup( hwnd : hwnd; idItemFrom : WPARAM; idGroupTo : LPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_MOVEITEMTOGROUP, idItemFrom, idGroupTo)
+end;
+
+
+// Macro 129
+// #define ListView_SetGroupMetrics(hwnd, pGroupMetrics) \
+// SNDMSG((hwnd), LVM_SETGROUPMETRICS, 0, (LPARAM)pGroupMetrics)
+
+Procedure ListView_SetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_SETGROUPMETRICS, 0, pGroupMetrics)
+end;
+
+
+// Macro 130
+// #define ListView_GetGroupMetrics(hwnd, pGroupMetrics) \
+// SNDMSG((hwnd), LVM_GETGROUPMETRICS, 0, (LPARAM)pGroupMetrics)
+
+Procedure ListView_GetGroupMetrics( hwnd : hwnd; pGroupMetrics : LPARAM);
+
+Begin
+SendMessage((hwnd), LVM_GETGROUPMETRICS, 0, pGroupMetrics)
+end;
+
+
+// Macro 131
+// #define ListView_EnableGroupView(hwnd, fEnable) \
+// SNDMSG((hwnd), LVM_ENABLEGROUPVIEW, (WPARAM)fEnable, 0)
+
+Procedure ListView_EnableGroupView( hwnd : hwnd; fEnable : WPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_ENABLEGROUPVIEW, fEnable, 0)
+end;
+
+
+// Macro 132
+// #define ListView_SortGroups(hwnd, _pfnGroupCompate, _plv) \
+// SNDMSG((hwnd), LVM_SORTGROUPS, (WPARAM)_pfnGroupCompate, (LPARAM)_plv)
+
+Procedure ListView_SortGroups( hwnd : hwnd; _pfnGroupCompate : WPARAM; _plv : LPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_SORTGROUPS, _pfnGroupCompate, _plv)
+end;
+
+// Macro 133
+// #define ListView_InsertGroupSorted(hwnd, structInsert) \
+// SNDMSG((hwnd), LVM_INSERTGROUPSORTED, (WPARAM)structInsert, 0)
+
+Procedure ListView_InsertGroupSorted( hwnd : hwnd; structInsert : WPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_INSERTGROUPSORTED, structInsert, 0)
+end;
+
+
+// Macro 134
+// #define ListView_RemoveAllGroups(hwnd) \
+// SNDMSG((hwnd), LVM_REMOVEALLGROUPS, 0, 0)
+
+Procedure ListView_RemoveAllGroups( hwnd : hwnd);
+
+Begin
+SendMessage((hwnd), LVM_REMOVEALLGROUPS, 0, 0)
+end;
+
+
+// Macro 135
+// #define ListView_HasGroup(hwnd, dwGroupId) \
+// SNDMSG((hwnd), LVM_HASGROUP, dwGroupId, 0)
+
+Procedure ListView_HasGroup( hwnd : hwnd; dwGroupId :DWORD );
+
+Begin
+ SendMessage((hwnd), LVM_HASGROUP, dwGroupId, 0)
+end;
+
+
+// Macro 136
+// #define ListView_SetTileViewInfo(hwnd, ptvi) \
+// SNDMSG((hwnd), LVM_SETTILEVIEWINFO, 0, (LPARAM)ptvi)
+
+Procedure ListView_SetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_SETTILEVIEWINFO, 0, ptvi)
+end;
+
+
+// Macro 137
+// #define ListView_GetTileViewInfo(hwnd, ptvi) \
+// SNDMSG((hwnd), LVM_GETTILEVIEWINFO, 0, (LPARAM)ptvi)
+
+Procedure ListView_GetTileViewInfo( hwnd : hwnd; ptvi : LPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_GETTILEVIEWINFO, 0, ptvi)
+end;
+
+
+// Macro 138
+// #define ListView_SetTileInfo(hwnd, pti) \
+// SNDMSG((hwnd), LVM_SETTILEINFO, 0, (LPARAM)pti)
+
+Procedure ListView_SetTileInfo( hwnd : hwnd; pti : LPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_SETTILEINFO, 0, pti)
+end;
+
+
+// Macro 139
+// #define ListView_GetTileInfo(hwnd, pti) \
+// SNDMSG((hwnd), LVM_GETTILEINFO, 0, (LPARAM)pti)
+
+Procedure ListView_GetTileInfo( hwnd : hwnd; pti : LPARAM);
+
+Begin
+ SendMessage((hwnd), LVM_GETTILEINFO, 0, pti)
+end;
+
+
+// Macro 140
+// #define ListView_SetInsertMark(hwnd, lvim) \
+// (BOOL)SNDMSG((hwnd), LVM_SETINSERTMARK, (WPARAM) 0, (LPARAM) (lvim))
+
+Function ListView_SetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETINSERTMARK, 0, lvim));
+end;
+
+
+// Macro 141
+// #define ListView_GetInsertMark(hwnd, lvim) \
+// (BOOL)SNDMSG((hwnd), LVM_GETINSERTMARK, (WPARAM) 0, (LPARAM) (lvim))
+
+Function ListView_GetInsertMark( hwnd : hwnd; lvim : lparam ):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETINSERTMARK, WPARAM (0), LPARAM (lvim)));
+end;
+
+
+// Macro 142
+// #define ListView_InsertMarkHitTest(hwnd, point, lvim) \
+// (int)SNDMSG((hwnd), LVM_INSERTMARKHITTEST, (WPARAM)(LPPOINT)(point), (LPARAM)(LPLVINSERTMARK)(lvim))
+
+Function ListView_InsertMarkHitTest( hwnd : hwnd; point : LPPOINT; lvim : LPLVINSERTMARK):cint;
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_INSERTMARKHITTEST, wparam(point), lparam(lvim)));
+end;
+
+
+// Macro 143
+// #define ListView_GetInsertMarkRect(hwnd, rc) \
+// (int)SNDMSG((hwnd), LVM_GETINSERTMARKRECT, (WPARAM)0, (LPARAM)(LPRECT)(rc))
+
+Function ListView_GetInsertMarkRect( hwnd : hwnd; rc : LPRECT):cint;
+Begin
+ Result:=cint(SendMessage((hwnd), LVM_GETINSERTMARKRECT, WPARAM(0), LPARAM(rc)))
+end;
+
+
+// Macro 144
+// #define ListView_SetInsertMarkColor(hwnd, color) \
+// (COLORREF)SNDMSG((hwnd), LVM_SETINSERTMARKCOLOR, (WPARAM)0, (LPARAM)(COLORREF)(color))
+
+Function ListView_SetInsertMarkColor( hwnd : hwnd; color : COLORREF):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), LVM_SETINSERTMARKCOLOR, WPARAM(0), color));
+end;
+
+// Macro 145
+// #define ListView_GetInsertMarkColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), LVM_GETINSERTMARKCOLOR, (WPARAM)0, (LPARAM)0)
+
+Function ListView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), LVM_GETINSERTMARKCOLOR, WPARAM(0), LPARAM(0)));
+end;
+
+// Macro 146
+// #define ListView_SetInfoTip(hwndLV, plvInfoTip)\
+// (BOOL)SNDMSG((hwndLV), LVM_SETINFOTIP, (WPARAM)0, (LPARAM)plvInfoTip)
+
+Function ListView_SetInfoTip( hwndLV : hwnd; plvInfoTip : LPARAM):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwndLV), LVM_SETINFOTIP, WPARAM(0), plvInfoTip));
+end;
+
+// Macro 147
+// #define ListView_GetSelectedColumn(hwnd) \
+// (UINT)SNDMSG((hwnd), LVM_GETSELECTEDCOLUMN, 0, 0)
+
+Function ListView_GetSelectedColumn( hwnd : hwnd):UINT;
+Begin
+ Result:=UINT(SendMessage((hwnd), LVM_GETSELECTEDCOLUMN, 0, 0));
+end;
+
+// Macro 148
+// #define ListView_IsGroupViewEnabled(hwnd) \
+// (BOOL)SNDMSG((hwnd), LVM_ISGROUPVIEWENABLED, 0, 0)
+
+Function ListView_IsGroupViewEnabled( hwnd : hwnd):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_ISGROUPVIEWENABLED, 0, 0));
+end;
+
+// Macro 149
+// #define ListView_GetOutlineColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), LVM_GETOUTLINECOLOR, 0, 0)
+
+Function ListView_GetOutlineColor( hwnd : hwnd):COLORREF;
+Begin
+ Result:=COLORREF(SendMessage((hwnd), LVM_GETOUTLINECOLOR, 0, 0));
+end;
+
+
+// Macro 150
+// #define ListView_SetOutlineColor(hwnd, color) \
+// (COLORREF)SNDMSG((hwnd), LVM_SETOUTLINECOLOR, (WPARAM)0, (LPARAM)(COLORREF)(color))
+
+Function ListView_SetOutlineColor( hwnd : hwnd; color : COLORREF):COLORREF;
+Begin
+ Result:=COLORREF(SendMessage((hwnd), LVM_SETOUTLINECOLOR, WPARAM(0), color));
+end;
+
+// Macro 151
+// #define ListView_CancelEditLabel(hwnd) \
+// (VOID)SNDMSG((hwnd), LVM_CANCELEDITLABEL, (WPARAM)0, (LPARAM)0)
+
+procedure ListView_CancelEditLabel( hwnd : hwnd);
+Begin
+ SendMessage((hwnd), LVM_CANCELEDITLABEL, WPARAM(0), LPARAM(0));
+end;
+
+// Macro 152
+// #define ListView_MapIndexToID(hwnd, index) \
+// (UINT)SNDMSG((hwnd), LVM_MAPINDEXTOID, (WPARAM)index, (LPARAM)0)
+
+Function ListView_MapIndexToID( hwnd : hwnd; index : WPARAM):UINT;
+
+Begin
+ Result:=UINT(SendMessage((hwnd), LVM_MAPINDEXTOID, index, LPARAM(0)));
+end;
+
+// Macro 153
+// #define ListView_MapIDToIndex(hwnd, id) \
+// (UINT)SNDMSG((hwnd), LVM_MAPIDTOINDEX, (WPARAM)id, (LPARAM)0)
+
+Function ListView_MapIDToIndex( hwnd : hwnd; id : WPARAM):UINT;
+Begin
+ Result:=UINT(SendMessage((hwnd), LVM_MAPIDTOINDEX, id, LPARAM(0)));
+end;
+
+function ListView_IsItemVisible(hwnd:hwnd; aindex:cuint):cuint;
+begin
+ Result:=UINT(SendMessage((hwnd),LVM_ISITEMVISIBLE, WPARAM(aindex), LPARAM(0)));
+end;
+{$ENDIF}
+
+{$ifdef win32vista}
+
+function ListView_SetGroupHeaderImageList(hwnd:HWNd;himl:HIMAGELIST):HIMAGELIST;
+begin
+ Result:=HIMAGELIST(SendMessage((hwnd),LVM_SETIMAGELIST, WPARAM(LVSIL_GROUPHEADER), LPARAM(HIMAGELIST((himl)))));
+end;
+
+function ListView_GetGroupHeaderImageList(hwnd:HWND):HIMAGELIST;
+begin
+ Result:=HIMAGELIST(SendMessage((hwnd),LVM_GETIMAGELIST, WPARAM(LVSIL_GROUPHEADER),LPARAM(0)));
+end;
+
+function ListView_GetEmptyText(hwnd:HWND;pszText:LPWSTR; cchText:CUINT):BOOL;
+begin
+ Result:=BOOL(SendMessage((hwnd),LVM_GETEMPTYTEXT, WPARAM(cchText), LPARAM(pszText)));
+end;
+
+function ListView_GetFooterRect(hwnd:HWND; prc:PRECT):BOOL;
+begin
+ Result:=BOOL(SendMessage((hwnd),LVM_GETFOOTERRECT, WPARAM(0), LPARAM(prc)));
+end;
+
+function ListView_GetFooterInfo(hwnd:HWND;plvfi: LPLVFOOTERINFO ):BOOL;
+begin
+ Result:=BOOL(SendMessage((hwnd),LVM_GETFOOTERINFO, WPARAM(0), LPARAM(plvfi)));
+end;
+
+function ListView_GetFooterItemRect(hwnd:HWND;iItem:CUINT;prc:PRECT):BOOL;
+begin
+ Result:=BOOL(SendMessage((hwnd),LVM_GETFOOTERITEMRECT, WPARAM(iItem), LPARAM(prc)));
+end;
+
+function ListView_GetFooterItem(hwnd:HWND;iItem:CUINT; pfi:PLVFOOTERITEM):BOOL;
+begin
+ Result:=BOOL(SendMessage((hwnd),LVM_GETFOOTERITEM, WPARAM(iItem), LPARAM(pfi)));
+end;
+
+// (hwnd), LVM_GETITEMINDEXRECT, (WPARAM)(LVITEMINDEX*)(plvii), \
+// ((prc) ? ((((LPRECT)(prc))->top = (iSubItem)), (((LPRECT)(prc))->left = (code)), (LPARAM)(prc)) : (LPARAM)(LPRECT)NULL))
+
+function ListView_GetItemIndexRect(hwnd:hwnd; plvii:PLVITEMINDEX; iSubItem:clong; code:clong; prc:LPRECT) :BOOL;
+begin
+ if assigned(prc) then
+ begin
+ prc^.top:=iSubItem;
+ prc^.left:=code;
+ end;
+ Result:=BOOL(SendMessage((hwnd), LVM_GETITEMINDEXRECT, WPARAM(pLVITEMINDEX(plvii)), LPARAM(PRC)));
+end;
+
+function ListView_SetItemIndexState(hwndLV:HWND; plvii:PLVITEMINDEX; data:CUINT; mask:CUINT):HRESULT;
+ var macro_lvi: LV_ITEM ;
+begin
+ macro_lvi.stateMask := (mask);
+ macro_lvi.state := (data);
+ Result:=HRESULT(SendMessage((hwndLV),LVM_SETITEMINDEXSTATE, WPARAM(pLVITEMINDEX(plvii)), LPARAM(PLV_ITEM(@macro_lvi))));
+end;
+
+function ListView_GetNextItemIndex(hwnd:HWND;plvii:PLVITEMINDEX; flags:LPARAM):BOOL;
+begin
+ Result:=BOOL(SendMessage((hwnd),LVM_GETNEXTITEMINDEX, WPARAM(pLVITEMINDEX(plvii)), MAKELPARAM(flags, 0)));
+end;
+{$endif}
+
+// Macro 154
+// #define ListView_SetBkImage(hwnd, plvbki) \
+// (BOOL)SNDMSG((hwnd), LVM_SETBKIMAGE, 0, (LPARAM)(plvbki))
+
+Function ListView_SetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_SETBKIMAGE, 0, plvbki));
+end;
+
+// Macro 155
+// #define ListView_GetBkImage(hwnd, plvbki) \
+// (BOOL)SNDMSG((hwnd), LVM_GETBKIMAGE, 0, (LPARAM)(plvbki))
+
+Function ListView_GetBkImage( hwnd : hwnd; plvbki : LPARAM):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), LVM_GETBKIMAGE, 0, plvbki));
+end;
+
+// Macro 156
+// #define TreeView_InsertItem(hwnd, lpis) \
+// (HTREEITEM)SNDMSG((hwnd), TVM_INSERTITEM, 0, (LPARAM)(LPTV_INSERTSTRUCT)(lpis))
+
+Function TreeView_InsertItem( hwnd : hwnd; lpis : LPTV_INSERTSTRUCT):HTREEITEM;inline;
+Begin
+ Result:=HTREEITEM(SendMessage((hwnd), TVM_INSERTITEM, 0, LPARAM(lpis)));
+end;
+
+
+Function TreeView_InsertItem( hwnd : hwnd; const lpis : TV_INSERTSTRUCT):HTREEITEM;inline;
+Begin
+ Result:=HTREEITEM(SendMessage((hwnd), TVM_INSERTITEM, 0, LPARAM(@lpis)));
+end;
+
+// Macro 157
+// #define TreeView_DeleteItem(hwnd, hitem) \
+// (BOOL)SNDMSG((hwnd), TVM_DELETEITEM, 0, (LPARAM)(HTREEITEM)(hitem))
+
+Function TreeView_DeleteItem( hwnd : hwnd; hitem : HTREEITEM):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_DELETEITEM, 0, LPARAM(hitem)));
+end;
+
+
+// Macro 158
+// #define TreeView_DeleteAllItems(hwnd) \
+// (BOOL)SNDMSG((hwnd), TVM_DELETEITEM, 0, (LPARAM)TVI_ROOT)
+
+Function TreeView_DeleteAllItems( hwnd : hwnd):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_DELETEITEM, 0, LPARAM(HTREEITEM(TVI_ROOT))));
+end;
+
+
+// Macro 159
+// #define TreeView_Expand(hwnd, hitem, code) \
+// (BOOL)SNDMSG((hwnd), TVM_EXPAND, (WPARAM)(code), (LPARAM)(HTREEITEM)(hitem))
+
+Function TreeView_Expand( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_EXPAND, code, lparam(hitem)))
+end;
+
+
+// Macro 160
+// #define TreeView_GetItemRect(hwnd, hitem, prc, code) \
+// (*(HTREEITEM *)prc = (hitem), (BOOL)SNDMSG((hwnd), TVM_GETITEMRECT, (WPARAM)(code), (LPARAM)(RECT *)(prc)))
+
+Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; code : WPARAM; prc : pRECT):BOOL;inline;
+Begin
+ HTREEITEM(prc):=HITEM;
+ Result:=Bool(SendMessage((hwnd), TVM_GETITEMRECT, code, LPARAM(prc)));
+end;
+
+Function TreeView_GetItemRect( hwnd : hwnd; hitem: HTREEITEM; var prc : TRECT;code : Bool):BOOL;inline;
+Begin
+ HTREEITEM(Pointer(@prc)^):=HITEM;
+ Result:=Bool(SendMessage((hwnd), TVM_GETITEMRECT, WPARAM(code), LPARAM(@prc)));
+end;
+
+// Macro 161
+// #define TreeView_GetCount(hwnd) \
+// (UINT)SNDMSG((hwnd), TVM_GETCOUNT, 0, 0)
+
+Function TreeView_GetCount( hwnd : hwnd):UINT;
+Begin
+ Result:=UINT(SendMessage((hwnd), TVM_GETCOUNT, 0, 0))
+end;
+
+// Macro 162
+// #define TreeView_GetIndent(hwnd) \
+// (UINT)SNDMSG((hwnd), TVM_GETINDENT, 0, 0)
+
+Function TreeView_GetIndent( hwnd : hwnd):UINT;
+Begin
+ Result:=UINT(SendMessage((hwnd), TVM_GETINDENT, 0, 0))
+end;
+
+
+// Macro 163
+// #define TreeView_SetIndent(hwnd, indent) \
+// (BOOL)SNDMSG((hwnd), TVM_SETINDENT, (WPARAM)(indent), 0)
+
+Function TreeView_SetIndent( hwnd : hwnd; indent : WPARAM):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SETINDENT, indent, 0))
+end;
+
+
+// Macro 164
+// #define TreeView_GetImageList(hwnd, iImage) \
+// (HIMAGELIST)SNDMSG((hwnd), TVM_GETIMAGELIST, iImage, 0)
+
+Function TreeView_GetImageList( hwnd : hwnd; iImage : cint ):HIMAGELIST;
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), TVM_GETIMAGELIST, iImage, 0))
+end;
+
+
+// Macro 165
+// #define TreeView_SetImageList(hwnd, himl, iImage) \
+// (HIMAGELIST)SNDMSG((hwnd), TVM_SETIMAGELIST, iImage, (LPARAM)(HIMAGELIST)(himl))
+
+Function TreeView_SetImageList( hwnd : hwnd; himl : HIMAGELIST; iImage : cint ):HIMAGELIST;
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), TVM_SETIMAGELIST, iImage, himl))
+end;
+
+// Macro 166
+// #define TreeView_GetNextItem(hwnd, hitem, code) \
+// (HTREEITEM)SNDMSG((hwnd), TVM_GETNEXTITEM, (WPARAM)(code), (LPARAM)(HTREEITEM)(hitem))
+
+Function TreeView_GetNextItem( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):HTREEITEM;
+
+Begin
+ Result:=HTREEITEM(SendMessage((hwnd), TVM_GETNEXTITEM, code, lparam(hitem)))
+end;
+
+
+// Macro 167
+
+function TreeView_GetChild(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;
+
+Begin
+ Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_CHILD)
+End;
+// Macro 168
+
+// #define TreeView_GetNextSibling(hwnd:hwnd; hitem:HTREEITEM);
+// (hwnd, hitem)
+// TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT)
+
+
+
+function TreeView_GetNextSibling(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;
+// (hwnd, hitem)
+// TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT)
+
+Begin
+ Result:=TreeView_getNextItem(hwnd,hitem,TVGN_NEXT);
+end;
+
+// Macro 169
+function TreeView_GetPrevSibling(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;
+begin
+ Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUS);
+end;
+
+// Macro 170
+
+function TreeView_GetParent(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;
+begin
+ Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_PARENT)
+end;
+
+// Macro 171
+// #define TreeView_GetFirstVisible(hwnd:hwnd);
+// TreeView_GetNextItem(hwnd, NULL, TVGN_FIRSTVISIBLE)
+
+function TreeView_GetFirstVisible(hwnd:hwnd) : HTREEITEM;inline;
+begin
+ Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_FIRSTVISIBLE)
+end;
+
+// Macro 172
+
+//#define TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM);
+//(hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
+function TreeView_GetNextVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+begin
+ Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE)
+end;
+
+// Macro 173
+//#define TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM);
+// (hwnd, hitem) TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE)
+
+
+function TreeView_GetPrevVisible(hwnd:hwnd; hitem:HTREEITEM) : HTREEITEM;inline;
+Begin
+ Result:=TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE);
+end;
+
+// Macro 174
+
+function TreeView_GetSelection(hwnd:hwnd) : HTREEITEM;inline;
+begin
+ Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_CARET);
+end;
+
+// Macro 175
+
+//#define TreeView_GetDropHilight(hwnd:hwnd);
+//TreeView_GetNextItem(hwnd, NULL, TVGN_DROPHILITE)
+
+function TreeView_GetDropHilight(hwnd:hwnd) : HTREEITEM;inline;
+
+begin
+ Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_DROPHILITE);
+end;
+
+function TreeView_GetDropHilite(hwnd:hwnd) : HTREEITEM;inline;
+
+begin
+ Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_DROPHILITE);
+end;
+
+
+// Macro 176
+
+function TreeView_GetRoot(hwnd:hwnd) : HTREEITEM;inline;
+
+begin
+ Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_ROOT);
+end;
+
+// Macro 177
+//#define TreeView_GetLastVisible(hwnd:hwnd);
+//TreeView_GetNextItem(hwnd, NULL, TVGN_LASTVISIBLE)
+
+function TreeView_GetLastVisible(hwnd:hwnd) : HTREEITEM;inline;
+begin
+ Result:=TreeView_GetNextItem(hwnd, NIL, TVGN_LASTVISIBLE)
+end;
+
+// Macro 178
+
+
+Function TreeView_Select( hwnd : hwnd; hitem : HTREEITEM; code : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SELECTITEM, code, LPARAM(hitem)))
+end;
+
+// Macro 179
+// #define TreeView_SelectItem(hwnd, hitem) TreeView_Select(hwnd, hitem, TVGN_CARET)
+// Macro 180
+// #define TreeView_SelectDropTarget(hwnd, hitem) TreeView_Select(hwnd, hitem, TVGN_DROPHILITE)
+// Macro 181
+// #define TreeView_SelectSetFirstVisible(hwnd, hitem) TreeView_Select(hwnd, hitem, TVGN_FIRSTVISIBLE)
+
+// Macro 179
+Procedure TreeView_SelectItem(hwnd:hwnd; hitem:HTREEITEM);
+Begin
+ TreeView_Select(hwnd, hitem, TVGN_CARET)
+End;
+
+// Macro 180
+Procedure TreeView_SelectDropTarget(hwnd:hwnd; hitem:HTREEITEM);
+Begin
+ TreeView_Select(hwnd, hitem, TVGN_DROPHILITE)
+End;
+
+// Macro 181
+Procedure TreeView_SelectSetFirstVisible(hwnd:hwnd; hitem:HTREEITEM);
+Begin
+ TreeView_Select(hwnd, hitem, TVGN_FIRSTVISIBLE)
+End;
+
+// Macro 182
+// #define TreeView_GetItem(hwnd, pitem) \
+// (BOOL)SNDMSG((hwnd), TVM_GETITEM, 0, (LPARAM)(TV_ITEM *)(pitem))
+
+Function TreeView_GetItem( hwnd : hwnd;var pitem : TV_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_GETITEM, 0, LPARAM(@pitem)))
+end;
+
+
+// Macro 183
+
+//#define TreeView_SetItem(hwnd, pitem) \
+// (BOOL)SNDMSG((hwnd), TVM_SETITEM, 0, (LPARAM)(const TV_ITEM *)(pitem))
+
+Function TreeView_SetItem( hwnd : hwnd;const pitem : TV_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SETITEM, 0, LParam(@pitem)))
+end;
+
+
+// Macro 184
+
+//#define TreeView_EditLabel(hwnd, hitem) \
+// (HWND)SNDMSG((hwnd), TVM_EDITLABEL, 0, (LPARAM)(HTREEITEM)(hitem))
+
+Function TreeView_EditLabel( hwnd : hwnd; hitem : HTREEITEM):HWND;
+
+Begin
+ Result:=Windows.HWND(SendMessage((hwnd), TVM_EDITLABEL, 0, LParam(hitem)))
+end;
+
+
+// Macro 185
+
+//#define TreeView_GetEditControl(hwnd) \
+// (HWND)SNDMSG((hwnd), TVM_GETEDITCONTROL, 0, 0)
+
+Function TreeView_GetEditControl( hwnd : hwnd):HWND;
+
+Begin
+ Result:=Windows.HWND(SendMessage((hwnd), TVM_GETEDITCONTROL, 0, 0))
+end;
+
+
+// Macro 186
+
+//#define TreeView_GetVisibleCount(hwnd) \
+// (UINT)SNDMSG((hwnd), TVM_GETVISIBLECOUNT, 0, 0)
+
+Function TreeView_GetVisibleCount( hwnd : hwnd):UINT;
+
+Begin
+ Result:=UINT(SendMessage((hwnd), TVM_GETVISIBLECOUNT, 0, 0))
+end;
+
+
+// Macro 187
+
+//#define TreeView_HitTest(hwnd, lpht) \
+// (HTREEITEM)SNDMSG((hwnd), TVM_HITTEST, 0, (LPARAM)(LPTV_HITTESTINFO)(lpht))
+
+Function TreeView_HitTest( hwnd : hwnd; lpht : LPTV_HITTESTINFO):HTREEITEM;inline;
+
+Begin
+ Result:=HTREEITEM(SendMessage((hwnd), TVM_HITTEST, 0, lparam(lpht)))
+end;
+
+
+Function TreeView_HitTest( hwnd : hwnd; var lpht : TV_HITTESTINFO):HTREEITEM;inline;
+
+Begin
+ Result:=HTREEITEM(SendMessage((hwnd), TVM_HITTEST, 0, lparam(@lpht)))
+end;
+// Macro 188
+
+//#define TreeView_CreateDragImage(hwnd, hitem) \
+// (HIMAGELIST)SNDMSG((hwnd), TVM_CREATEDRAGIMAGE, 0, (LPARAM)(HTREEITEM)(hitem))
+
+Function TreeView_CreateDragImage( hwnd : hwnd; hitem : HTREEITEM):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), TVM_CREATEDRAGIMAGE, 0, Lparam(hitem)))
+end;
+
+
+// Macro 189
+
+//#define TreeView_SortChildren(hwnd, hitem, recurse) \
+// (BOOL)SNDMSG((hwnd), TVM_SORTCHILDREN, (WPARAM)(recurse), (LPARAM)(HTREEITEM)(hitem))
+
+Function TreeView_SortChildren( hwnd : hwnd; hitem : HTREEITEM; recurse : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDREN, recurse, LParam(hitem)))
+end;
+
+
+// Macro 190
+
+//#define TreeView_EnsureVisible(hwnd, hitem) \
+// (BOOL)SNDMSG((hwnd), TVM_ENSUREVISIBLE, 0, (LPARAM)(HTREEITEM)(hitem))
+
+Function TreeView_EnsureVisible( hwnd : hwnd; hitem : HTREEITEM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_ENSUREVISIBLE, 0, LParam(hitem)))
+end;
+
+
+// Macro 191
+
+//#define TreeView_SortChildrenCB(hwnd, psort, recurse) \
+// (BOOL)SNDMSG((hwnd), TVM_SORTCHILDRENCB, (WPARAM)(recurse), \
+// (LPARAM)(LPTV_SORTCB)(psort))
+
+Function TreeView_SortChildrenCB( hwnd : hwnd;psort :lpTV_sortcb; recurse : WPARAM):BOOL;inline;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDRENCB, recurse, LPARAM(psort)))
+end;
+
+
+Function TreeView_SortChildrenCB( hwnd : hwnd;const psort :tagTVsortcb; recurse : WPARAM):BOOL;inline;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SORTCHILDRENCB, recurse, LPARAM(@psort)))
+end;
+
+
+// Macro 192
+
+//#define TreeView_EndEditLabelNow(hwnd, fCancel) \
+// (BOOL)SNDMSG((hwnd), TVM_ENDEDITLABELNOW, (WPARAM)(fCancel), 0)
+
+Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : WPARAM):BOOL;inline;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_ENDEDITLABELNOW, fCancel, 0))
+end;
+
+
+Function TreeView_EndEditLabelNow( hwnd : hwnd; fCancel : Bool):BOOL;inline;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_ENDEDITLABELNOW, WPARAM(fCancel), 0))
+end;
+
+
+// Macro 193
+
+//#define TreeView_SetToolTips(hwnd, hwndTT) \
+// (HWND)SNDMSG((hwnd), TVM_SETTOOLTIPS, (WPARAM)(hwndTT), 0)
+
+Function TreeView_SetToolTips( hwnd : hwnd; hwndTT : WPARAM):HWND;
+
+Begin
+ Result:=Windows.HWND(SendMessage((hwnd), TVM_SETTOOLTIPS, hwndTT, 0))
+end;
+
+
+// Macro 194
+
+//#define TreeView_GetToolTips(hwnd) \
+// (HWND)SNDMSG((hwnd), TVM_GETTOOLTIPS, 0, 0)
+
+Function TreeView_GetToolTips( hwnd : hwnd):HWND;
+
+Begin
+ Result:=Windows.HWND(SendMessage((hwnd), TVM_GETTOOLTIPS, 0, 0))
+end;
+
+
+// Macro 195
+
+//#define TreeView_GetISearchString(hwndTV, lpsz) \
+// (BOOL)SNDMSG((hwndTV), TVM_GETISEARCHSTRING, 0, (LPARAM)(LPTSTR)(lpsz))
+
+Function TreeView_GetISearchString( hwndTV : hwnd; lpsz : LPTSTR):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndTV), TVM_GETISEARCHSTRING, 0, LPARAM(lpsz)))
+end;
+
+
+// Macro 196
+
+//#define TreeView_SetInsertMark(hwnd, hItem, fAfter) \
+// (BOOL)SNDMSG((hwnd), TVM_SETINSERTMARK, (WPARAM) (fAfter), (LPARAM) (hItem))
+
+Function TreeView_SetInsertMark( hwnd : hwnd; hItem : LParam ; fAfter : WParam ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SETINSERTMARK, (fAfter), (hItem)))
+end;
+
+
+// Macro 197
+
+//#define TreeView_SetUnicodeFormat(hwnd, fUnicode) \
+// (BOOL)SNDMSG((hwnd), TVM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
+
+Function TreeView_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_SETUNICODEFORMAT, fUnicode, 0))
+end;
+
+
+// Macro 198
+
+//#define TreeView_GetUnicodeFormat(hwnd) \
+// (BOOL)SNDMSG((hwnd), TVM_GETUNICODEFORMAT, 0, 0)
+
+Function TreeView_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TVM_GETUNICODEFORMAT, 0, 0))
+end;
+
+
+// Macro 199
+
+//#define TreeView_SetItemHeight(hwnd, iHeight) \
+// (int)SNDMSG((hwnd), TVM_SETITEMHEIGHT, (WPARAM)(iHeight), 0)
+
+Function TreeView_SetItemHeight( hwnd : hwnd; iHeight : WPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TVM_SETITEMHEIGHT, iHeight, 0))
+end;
+
+
+// Macro 200
+
+//#define TreeView_GetItemHeight(hwnd) \
+// (int)SNDMSG((hwnd), TVM_GETITEMHEIGHT, 0, 0)
+
+Function TreeView_GetItemHeight( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TVM_GETITEMHEIGHT, 0, 0))
+end;
+
+
+// Macro 201
+
+//#define TreeView_SetBkColor(hwnd, clr) \
+// (COLORREF)SNDMSG((hwnd), TVM_SETBKCOLOR, 0, (LPARAM)(clr))
+
+Function TreeView_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_SETBKCOLOR, 0, clr))
+end;
+
+
+// Macro 202
+
+//#define TreeView_SetTextColor(hwnd, clr) \
+// (COLORREF)SNDMSG((hwnd), TVM_SETTEXTCOLOR, 0, (LPARAM)(clr))
+
+Function TreeView_SetTextColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_SETTEXTCOLOR, 0, clr))
+end;
+
+
+// Macro 203
+
+//#define TreeView_GetBkColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), TVM_GETBKCOLOR, 0, 0)
+
+Function TreeView_GetBkColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_GETBKCOLOR, 0, 0))
+end;
+
+
+// Macro 204
+
+//#define TreeView_GetTextColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), TVM_GETTEXTCOLOR, 0, 0)
+
+Function TreeView_GetTextColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_GETTEXTCOLOR, 0, 0))
+end;
+
+
+// Macro 205
+
+//#define TreeView_SetScrollTime(hwnd, uTime) \
+// (UINT)SNDMSG((hwnd), TVM_SETSCROLLTIME, uTime, 0)
+
+Function TreeView_SetScrollTime( hwnd : hwnd; uTime : wparam ):UINT;
+
+Begin
+ Result:=UINT(SendMessage((hwnd), TVM_SETSCROLLTIME, uTime, 0))
+end;
+
+
+// Macro 206
+
+//#define TreeView_GetScrollTime(hwnd) \
+// (UINT)SNDMSG((hwnd), TVM_GETSCROLLTIME, 0, 0)
+
+Function TreeView_GetScrollTime( hwnd : hwnd):UINT;
+
+Begin
+ Result:=UINT(SendMessage((hwnd), TVM_GETSCROLLTIME, 0, 0))
+end;
+
+
+// Macro 207
+
+//#define TreeView_SetInsertMarkColor(hwnd, clr) \
+// (COLORREF)SNDMSG((hwnd), TVM_SETINSERTMARKCOLOR, 0, (LPARAM)(clr))
+
+Function TreeView_SetInsertMarkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_SETINSERTMARKCOLOR, 0, clr))
+end;
+
+
+// Macro 208
+
+//#define TreeView_GetInsertMarkColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), TVM_GETINSERTMARKCOLOR, 0, 0)
+
+Function TreeView_GetInsertMarkColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_GETINSERTMARKCOLOR, 0, 0))
+end;
+
+
+// Macro 209
+
+//#define TreeView_SetItemState(hwndTV, hti, data, _mask) \
+// { TVITEM _ms_TVi;\
+// _ms_TVi.mask = TVIF_STATE; \
+// _ms_TVi.hItem = hti; \
+// _ms_TVi.stateMask = _mask;\
+// _ms_TVi.state = data;\
+// SNDMSG((hwndTV), TVM_SETITEM, 0, (LPARAM)(TV_ITEM *)&_ms_TVi);\
+// }
+
+Procedure TreeView_SetItemState(hwndTV:HWND;hti:HTreeItem;data:UINT;_mask:UINT);
+
+var _ms_TVi : TVITEM;
+
+Begin
+ _ms_TVi.mask:=TVIF_STATE;
+ _ms_TVi.hItem := hti;
+ _ms_TVi.stateMask := _mask;
+ _ms_TVi.state := data;
+ SendMessage(hwndTV,TVM_SETITEM, 0, LPARAM(@_ms_TVi));
+end;
+
+
+// Macro 210
+
+//#define TreeView_SetCheckState(hwndTV, hti, fCheck) \
+// TreeView_SetItemState(hwndTV, hti, INDEXTOSTATEIMAGEMASK((fCheck)?2:1), TVIS_STATEIMAGEMASK)
+
+Procedure TreeView_SetCheckState( hwndTV : hwnd; hti : HTreeItem ; fCheck : bool );
+
+var j : cint;
+
+Begin
+ IF not fCheck Then // (or inc(longint(fCheck)) if you like it dirty)
+ j:=1
+ Else
+ j:=2;
+
+ TreeView_SetItemState(hwndTV, hti, INDEXTOSTATEIMAGEMASK(j), TVIS_STATEIMAGEMASK)
+end;
+
+
+{$ifdef IE5plus}
+
+// Macro 211
+
+//#define TreeView_GetItemState(hwndTV, hti, mask) \
+// (UINT)SNDMSG((hwndTV), TVM_GETITEMSTATE, (WPARAM)(hti), (LPARAM)(mask))
+
+Function TreeView_GetItemState( hwndTV : hwnd; hti : HTreeItem; statemask : UINT):UINT;
+
+Begin
+ Result:=UINT(SendMessage((hwndTV), TVM_GETITEMSTATE, WPARAM(hti), LPARAM(statemask)))
+end;
+
+// Macro 212
+// #define TreeView_GetCheckState(hwndTV, hti) \
+// ((((UINT)(SNDMSG((hwndTV), TVM_GETITEMSTATE, (WPARAM)(hti), TVIS_STATEIMAGEMASK))) >> 12) -1)
+
+Function TreeView_GetCheckState( hwndTV : hwnd; hti : HTreeItem):UINT;
+
+Begin
+ Result:=((UINT(SendMessage((hwndTV), TVM_GETITEMSTATE, wparam(hti), TVIS_STATEIMAGEMASK) shr 12) -1));
+end;
+
+
+// Macro 213
+
+// #define TreeView_SetLineColor(hwnd, clr) \
+// (COLORREF)SNDMSG((hwnd), TVM_SETLINECOLOR, 0, (LPARAM)(clr))
+
+Function TreeView_SetLineColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_SETLINECOLOR, 0, clr))
+end;
+
+
+// Macro 214
+
+// #define TreeView_GetLineColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), TVM_GETLINECOLOR, 0, 0)
+
+Function TreeView_GetLineColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), TVM_GETLINECOLOR, 0, 0))
+end;
+
+
+// Macro 215
+// #define TreeView_MapAccIDToHTREEITEM(hwnd, id) \
+// (HTREEITEM)SNDMSG((hwnd), TVM_MAPACCIDTOHTREEITEM, id, 0)
+
+Function TreeView_MapAccIDToHTREEITEM( hwnd : hwnd; id :uint):HTREEITEM;
+
+Begin
+ Result:=HTREEITEM(SendMessage((hwnd), TVM_MAPACCIDTOHTREEITEM, id, 0))
+end;
+
+
+// Macro 216
+// #define TreeView_MapHTREEITEMToAccID(hwnd, htreeitem) \
+// (UINT)SNDMSG((hwnd), TVM_MAPHTREEITEMTOACCID, (WPARAM)htreeitem, 0)
+
+Function TreeView_MapHTREEITEMToAccID( hwnd : hwnd; htreeitem : WPARAM):UINT;
+
+Begin
+ Result:=UINT(SendMessage((hwnd), TVM_MAPHTREEITEMTOACCID, htreeitem, 0))
+end;
+{$endif}
+
+{$ifdef win32vista}
+function TreeView_GetSelectedCount(hwnd:hwnd):DWORD;
+Begin
+ Result:=DWORD(SendMessage((hwnd),TVM_GETSELECTEDCOUNT, 0, 0));
+end;
+
+function TreeView_ShowInfoTip(hwnd:HWND; hitem:HTREEITEM):DWORD;
+Begin
+ Result:=DWORD(SendMessage((hwnd),TVM_SHOWINFOTIP, 0, LPARAM(hitem)));
+end;
+
+function TreeView_GetItemPartRect(hwnd:HWND; hitem:HTREEITEM; prc:prect; partid:TVITEMPART):bool;
+var info : TVGETITEMPARTRECTINFO;
+Begin
+ info.hti := (hitem);
+ info.prc := (prc);
+ info.partID := (partid);
+ Result:=BOOL(SendMessage((hwnd), TVM_GETITEMPARTRECT, 0, LPARAM(@info)));
+end;
+{$endif}
+
+// Macro 217
+
+//#define TabCtrl_GetImageList(hwnd) \
+// (HIMAGELIST)SNDMSG((hwnd), TCM_GETIMAGELIST, 0, DWord(0))
+
+Function TabCtrl_GetImageList( hwnd : hwnd):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), TCM_GETIMAGELIST, 0, LPARAM(0)))
+end;
+
+
+// Macro 218
+
+//#define TabCtrl_SetImageList(hwnd, himl) \
+// (HIMAGELIST)SNDMSG((hwnd), TCM_SETIMAGELIST, 0, (LPARAM)(HIMAGELIST)(himl))
+
+Function TabCtrl_SetImageList( hwnd : hwnd; himl : HIMAGELIST):HIMAGELIST;
+
+Begin
+ Result:=HIMAGELIST(SendMessage((hwnd), TCM_SETIMAGELIST, 0, himl))
+end;
+
+
+// Macro 219
+
+//#define TabCtrl_GetItemCount(hwnd) \
+// (int)SNDMSG((hwnd), TCM_GETITEMCOUNT, 0, DWord(0))
+
+Function TabCtrl_GetItemCount( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TCM_GETITEMCOUNT, 0, LPARAM(0)))
+end;
+
+
+// Macro 220
+
+//#define TabCtrl_GetItem(hwnd, iItem, pitem) \
+// (BOOL)SNDMSG((hwnd), TCM_GETITEM, (WPARAM)(int)(iItem), (LPARAM)(TC_ITEM *)(pitem))
+
+Function TabCtrl_GetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_GETITEM, iItem, LPARAM(@pitem)))
+end;
+
+
+// Macro 221
+
+//#define TabCtrl_SetItem(hwnd, iItem, pitem) \
+// (BOOL)SNDMSG((hwnd), TCM_SETITEM, (WPARAM)(int)(iItem), (LPARAM)(TC_ITEM *)(pitem))
+
+Function TabCtrl_SetItem( hwnd : hwnd; iItem : cint;var pitem : TC_ITEM ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_SETITEM, iItem, LPARAM(@pitem)))
+end;
+
+
+// Macro 222
+
+//#define TabCtrl_InsertItem(hwnd, iItem, pitem) \
+// (int)SNDMSG((hwnd), TCM_INSERTITEM, (WPARAM)(int)(iItem), (LPARAM)(const TC_ITEM *)(pitem))
+
+Function TabCtrl_InsertItem( hwnd : hwnd; iItem : cint;const pitem : TC_ITEM ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TCM_INSERTITEM, iItem, LPARAM(@pitem)));
+end;
+
+
+// Macro 223
+
+//#define TabCtrl_DeleteItem(hwnd, i) \
+// (BOOL)SNDMSG((hwnd), TCM_DELETEITEM, (WPARAM)(int)(i), DWord(0))
+
+Function TabCtrl_DeleteItem( hwnd : hwnd; i : cint):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_DELETEITEM, (i), LPARAM(0)))
+end;
+
+
+// Macro 224
+
+//#define TabCtrl_DeleteAllItems(hwnd) \
+// (BOOL)SNDMSG((hwnd), TCM_DELETEALLITEMS, 0, DWord(0))
+
+Function TabCtrl_DeleteAllItems( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_DELETEALLITEMS, 0, LPARAM(0)))
+end;
+
+
+// Macro 225
+
+//#define TabCtrl_GetItemRect(hwnd, i, prc) \
+// (BOOL)SNDMSG((hwnd), TCM_GETITEMRECT, (WPARAM)(int)(i), (LPARAM)(RECT *)(prc))
+
+Function TabCtrl_GetItemRect( hwnd : hwnd; i : cint;var prc : RECT ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_GETITEMRECT, (i), LPARAM(@prc)))
+end;
+
+
+// Macro 226
+
+//#define TabCtrl_GetCurSel(hwnd) \
+// (int)SNDMSG((hwnd), TCM_GETCURSEL, 0, 0)
+
+Function TabCtrl_GetCurSel( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TCM_GETCURSEL, 0, 0))
+end;
+
+
+// Macro 227
+
+//#define TabCtrl_SetCurSel(hwnd, i) \
+// (int)SNDMSG((hwnd), TCM_SETCURSEL, (WPARAM)(i), 0)
+
+Function TabCtrl_SetCurSel( hwnd : hwnd; i : WPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TCM_SETCURSEL, (i), 0))
+end;
+
+
+// Macro 228
+
+//#define TabCtrl_HitTest(hwndTC, pinfo) \
+// (int)SNDMSG((hwndTC), TCM_HITTEST, 0, (LPARAM)(TC_HITTESTINFO *)(pinfo))
+
+Function TabCtrl_HitTest( hwndTC : hwnd;var pinfo : TC_HITTESTINFO ):cint;inline;
+
+Begin
+ Result:=cint(SendMessage((hwndTC), TCM_HITTEST, 0, LPARAM(@pinfo)))
+end;
+
+
+Function TabCtrl_HitTest( hwndTC : hwnd;pinfo : LPTCHITTESTINFO ):cint;inline;
+
+Begin
+ Result:=cint(SendMessage((hwndTC), TCM_HITTEST, 0, LPARAM(@pinfo)))
+end;
+
+
+// Macro 229
+
+//#define TabCtrl_SetItemExtra(hwndTC, cb) \
+// (BOOL)SNDMSG((hwndTC), TCM_SETITEMEXTRA, (WPARAM)(cb), DWord(0))
+
+Function TabCtrl_SetItemExtra( hwndTC : hwnd; cb : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwndTC), TCM_SETITEMEXTRA, cb, LPARAM(0)))
+end;
+
+
+// Macro 230
+
+//#define TabCtrl_AdjustRect(hwnd, bLarger, prc) \
+// (int)SNDMSG(hwnd, TCM_ADJUSTRECT, (WPARAM)(BOOL)(bLarger), (LPARAM)(RECT *)prc)
+
+Function TabCtrl_AdjustRect( hwnd : hwnd; bLarger : BOOL;var prc : RECT ):cint;
+
+Begin
+ Result:=cint(SendMessage(hwnd, TCM_ADJUSTRECT, Wparam(bLarger), Lparam(@prc)));
+end;
+
+
+// Macro 231
+
+//#define TabCtrl_SetItemSize(hwnd, x, y) \
+// (DWORD)SNDMSG((hwnd), TCM_SETITEMSIZE, 0, MAKELPARAM(x,y))
+
+Function TabCtrl_SetItemSize( hwnd : hwnd; x : wparam ; y : lparam ):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwnd), TCM_SETITEMSIZE, 0, MAKELPARAM(x,y)))
+end;
+
+
+// Macro 232
+
+//#define TabCtrl_RemoveImage(hwnd, i) \
+// (void)SNDMSG((hwnd), TCM_REMOVEIMAGE, i, DWord(0))
+
+Procedure TabCtrl_RemoveImage( hwnd : hwnd; i : WPARAM);
+
+Begin
+SendMessage((hwnd), TCM_REMOVEIMAGE, i, LPARAM(0))
+end;
+
+
+// Macro 233
+
+//#define TabCtrl_SetPadding(hwnd, cx, cy) \
+// (void)SNDMSG((hwnd), TCM_SETPADDING, 0, MAKELPARAM(cx, cy))
+
+Procedure TabCtrl_SetPadding( hwnd : hwnd; cx : WPARAM ; cy : LPARAM );
+
+Begin
+SendMessage((hwnd), TCM_SETPADDING, 0, MAKELPARAM(cx, cy))
+end;
+
+
+// Macro 234
+
+//#define TabCtrl_GetRowCount(hwnd) \
+// (int)SNDMSG((hwnd), TCM_GETROWCOUNT, 0, DWord(0))
+
+Function TabCtrl_GetRowCount( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TCM_GETROWCOUNT, 0, LPARAM(0)))
+end;
+
+
+// Macro 235
+
+//#define TabCtrl_GetToolTips(hwnd) \
+// (HWND)SNDMSG((hwnd), TCM_GETTOOLTIPS, 0, DWord(0))
+
+Function TabCtrl_GetToolTips( hwnd : hwnd):HWND;
+
+Begin
+ Result:=Windows.HWND(SendMessage((hwnd), TCM_GETTOOLTIPS, 0, LPARAM(0)))
+end;
+
+
+// Macro 236
+
+//#define TabCtrl_SetToolTips(hwnd, hwndTT) \
+// (void)SNDMSG((hwnd), TCM_SETTOOLTIPS, (WPARAM)(hwndTT), DWord(0))
+
+Procedure TabCtrl_SetToolTips( hwnd : hwnd; hwndTT : WPARAM);
+
+Begin
+SendMessage((hwnd), TCM_SETTOOLTIPS, hwndTT, LPARAM(0))
+end;
+
+
+// Macro 237
+
+//#define TabCtrl_GetCurFocus(hwnd) \
+// (int)SNDMSG((hwnd), TCM_GETCURFOCUS, 0, 0)
+
+Function TabCtrl_GetCurFocus( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TCM_GETCURFOCUS, 0, 0))
+end;
+
+
+// Macro 238
+
+//#define TabCtrl_SetCurFocus(hwnd, i) \
+// SNDMSG((hwnd),TCM_SETCURFOCUS, i, 0)
+
+Procedure TabCtrl_SetCurFocus( hwnd : hwnd; i : LPARAM );
+
+Begin
+SendMessage((hwnd),TCM_SETCURFOCUS, i, 0)
+end;
+
+
+// Macro 239
+
+//#define TabCtrl_SetMinTabWidth(hwnd, x) \
+// (int)SNDMSG((hwnd), TCM_SETMINTABWIDTH, 0, x)
+
+Function TabCtrl_SetMinTabWidth( hwnd : hwnd; x : WPARAM ):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), TCM_SETMINTABWIDTH, 0, x))
+end;
+
+
+// Macro 240
+
+//#define TabCtrl_DeselectAll(hwnd, fExcludeFocus)\
+// (void)SNDMSG((hwnd), TCM_DESELECTALL, fExcludeFocus, 0)
+
+Procedure TabCtrl_DeselectAll( hwnd : hwnd; fExcludeFocus : WPARAM );
+
+Begin
+SendMessage((hwnd), TCM_DESELECTALL, fExcludeFocus, 0)
+end;
+
+
+// Macro 241
+
+//#define TabCtrl_HighlightItem(hwnd, i, fHighlight) \
+// (BOOL)SNDMSG((hwnd), TCM_HIGHLIGHTITEM, (WPARAM)(i), (LPARAM)MAKELONG (fHighlight, 0))
+
+Function TabCtrl_HighlightItem( hwnd : hwnd; i : WPARAM; fHighlight :bool ):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_HIGHLIGHTITEM, (i), LPARAM(MAKELONG (cint(fHighlight), 0))))
+end;
+
+
+// Macro 242
+
+//#define TabCtrl_SetExtendedStyle(hwnd, dw)\
+// (DWORD)SNDMSG((hwnd), TCM_SETEXTENDEDSTYLE, 0, dw)
+
+Function TabCtrl_SetExtendedStyle( hwnd : hwnd; dw : LPARAM):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwnd), TCM_SETEXTENDEDSTYLE, 0,lparam(dw)))
+end;
+
+
+// Macro 243
+
+//#define TabCtrl_GetExtendedStyle(hwnd)\
+// (DWORD)SNDMSG((hwnd), TCM_GETEXTENDEDSTYLE, 0, 0)
+
+Function TabCtrl_GetExtendedStyle( hwnd : hwnd):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwnd), TCM_GETEXTENDEDSTYLE, 0, 0))
+end;
+
+
+// Macro 244
+
+//#define TabCtrl_SetUnicodeFormat(hwnd, fUnicode) \
+// (BOOL)SNDMSG((hwnd), TCM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
+
+Function TabCtrl_SetUnicodeFormat( hwnd : hwnd; fUnicode : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_SETUNICODEFORMAT, fUnicode, 0))
+end;
+
+
+// Macro 245
+
+//#define TabCtrl_GetUnicodeFormat(hwnd) \
+// (BOOL)SNDMSG((hwnd), TCM_GETUNICODEFORMAT, 0, 0)
+
+Function TabCtrl_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), TCM_GETUNICODEFORMAT, 0, 0));
+end;
+
+
+// Macro 246
+
+//#define Animate_Create(hwndP, id, dwStyle, hInstance) \
+// CreateWindow(ANIMATE_CLASS, NULL, \
+// dwStyle, 0, 0, 0, 0, hwndP, (HMENU)(id), hInstance, NULL)
+
+Function Animate_Create(hwndP :HWND;id:HMENU;dwStyle:dword;hInstance:HINST):HWND;
+
+Begin
+ result:=CreateWindow(ANIMATE_CLASS, NIL,
+ dwStyle, 0, 0, 0, 0, hwndP, id, hInstance, NIL);
+end;
+
+
+// Macro 247
+//#define Animate_Open(hwnd, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, 0, (LPARAM)(LPTSTR)(szName))
+
+Function Animate_Open(hwndP :HWND;szName:LPTSTR):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage(hwndp, ACM_OPEN, 0, LPARAM(szName)));
+end;
+
+
+// Macro 248
+//#define Animate_OpenEx(hwnd, hInst, szName) (BOOL)SNDMSG(hwnd, ACM_OPEN, (WPARAM)(hInst), (LPARAM)(LPTSTR)(szName))
+
+Function Animate_OpenEx(hwndP :HWND;HInst:HInst; szName:LPTSTR):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage(hwndp, ACM_OPEN, hinst, LPARAM(szName)));
+end;
+
+
+// Macro 249
+//#define Animate_Play(hwnd, from, to, rep) (BOOL)SNDMSG(hwnd, ACM_PLAY, (WPARAM)(rep), (LPARAM)MAKELONG(from, to))
+
+Function Animate_Play(hwndP :HWND;from,_to,rep:uint):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage(hwndP, ACM_PLAY, wparam(rep), LPARAM(MAKELONG(From,_to))));
+end;
+
+
+// Macro 250
+//#define Animate_Stop(hwnd) (BOOL)SNDMSG(hwnd, ACM_STOP, 0, 0)
+
+Function Animate_stop(hwndP :HWND):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage(hwndP, ACM_STOP, 0, 0));
+end;
+
+
+// Macro 251
+//#define Animate_Close(hwnd) Animate_Open(hwnd, NULL)
+
+Function Animate_close(hwndP :HWND):BOOL;
+
+Begin
+ Result:=BOOL(Animate_Open(hwndP,NIL));
+end;
+
+
+// Macro 252
+//#define Animate_Seek(hwnd, frame) Animate_Play(hwnd, frame, frame, 1)
+
+Function Animate_Seek(hwndP :HWND;frame:uint):BOOL;
+
+Begin
+ Result:=BOOL(Animate_Play(hwndP,frame,frame,1));
+end;
+
+// Macro 253
+//#define MonthCal_GetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETCURSEL, 0, (LPARAM)(pst))
+
+function MonthCal_GetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETCURSEL , 0, LPARAM(lpsystime)));
+end;
+
+// Macro 254
+//#define MonthCal_SetCurSel(hmc, pst) (BOOL)SNDMSG(hmc, MCM_SETCURSEL, 0, (LPARAM)(pst))
+
+function MonthCal_SetCurSel(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool; inline;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_SETCURSEL, 0, LPARAM(lpsystime)));
+end;
+
+function MonthCal_SetCurSel(hwndMC:HWND; var lpSysTime :SYSTEMTIME):Bool; inline;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_SETCURSEL, 0, LPARAM(@lpsystime)));
+end;
+
+// Macro 255
+//#define MonthCal_GetMaxSelCount(hmc) (DWORD)SNDMSG(hmc, MCM_GETMAXSELCOUNT, 0, DWord(0))
+
+function MonthCal_GetMaxSelCount(hwndMC:HWND):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETMAXSELCOUNT, 0, LPARAM(0)));
+end;
+
+// Macro 256
+//#define MonthCal_SetMaxSelCount(hmc, n) (BOOL)SNDMSG(hmc, MCM_SETMAXSELCOUNT, (WPARAM)(n), DWord(0))
+
+function MonthCal_SetMaxSelCount(hwndMC:HWND;n:uint):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_SETMAXSELCOUNT,WPARAM(N), LPARAM(0)));
+end;
+
+// Macro 257
+//#define MonthCal_GetSelRange(hmc, rgst) SNDMSG(hmc, MCM_GETSELRANGE, 0, (LPARAM)(rgst))
+
+function MonthCal_GetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETSELRANGE,WPARAM(0), LPARAM(lpsystime)));
+end;
+
+// Macro 258
+//#define MonthCal_SetSelRange(hmc, rgst) SNDMSG(hmc, MCM_SETSELRANGE, 0, (LPARAM)(rgst))
+
+function MonthCal_SetSelRange(hwndMC:HWND; lpSysTime :LPSYSTEMTIME):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_SETSELRANGE,WPARAM(0), LPARAM(lpsystime)));
+end;
+
+
+// Macro 259
+//#define MonthCal_GetMonthRange(hmc, gmr, rgst) (DWORD)SNDMSG(hmc, MCM_GETMONTHRANGE, (WPARAM)(gmr), (LPARAM)(rgst))
+
+function MonthCal_GetMonthRange(hwndMC:HWND; gmr: DWORD;lpSysTime :LPSYSTEMTIME):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETMONTHRANGE,WPARAM(gmr), LPARAM(lpsystime)));
+end;
+
+// Macro 260
+//#define MonthCal_SetDayState(hmc, cbds, rgds) SNDMSG(hmc, MCM_SETDAYSTATE, (WPARAM)(cbds), (LPARAM)(rgds))
+
+function MonthCal_SetDayState(hwndMC:HWND; gmr: Longint;lpDay :LPMONTHDAYSTATE):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_SETDAYSTATE,WPARAM(gmr), LPARAM(lpDay)));
+end;
+
+// Macro 261
+// #define MonthCal_GetMinReqRect(hmc, prc) SNDMSG(hmc, MCM_GETMINREQRECT, 0, (LPARAM)(prc))
+
+function MonthCal_GetMinReqRect(hwndMC:HWND; lpr :LPRect):Bool;inline;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETMINREQRECT,0, LPARAM(lpr)));
+end;
+
+function MonthCal_GetMinReqRect(hwndMC:HWND;var lpr :TRect):Bool;inline;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETMINREQRECT,0, LPARAM(@lpr)));
+end;
+
+// Macro 262
+// #define MonthCal_SetColor(hmc, iColor, clr) SNDMSG(hmc, MCM_SETCOLOR, iColor, clr)
+
+function MonthCal_SetColor(hwndMC:HWND; ic:longint;clr:COLORREF):DWORD;inline;
+
+begin
+ Result:=DWORD(SendMessage(hwndmc, MCM_SETCOLOR,ic, LPARAM(clr)));
+end;
+
+// Macro 263
+// #define MonthCal_GetColor(hmc, iColor) SNDMSG(hmc, MCM_GETCOLOR, iColor, 0)
+
+function MonthCal_GetColor(hwndMC:HWND; ic:longint):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETCOLOR,ic, 0));
+end;
+
+// Macro 264
+// #define MonthCal_SetToday(hmc, pst) SNDMSG(hmc, MCM_SETTODAY, 0, (LPARAM)(pst))
+
+function MonthCal_SetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_SETTODAY,0, LPARAM(lps)));
+end;
+
+// Macro 265
+// #define MonthCal_GetToday(hmc, pst) (BOOL)SNDMSG(hmc, MCM_GETTODAY, 0, (LPARAM)(pst))
+
+function MonthCal_GetToday(hwndMC:HWND; lps:LPSYSTEMTIME):Bool;
+
+begin
+ Result:=BOOL(SendMessage(hwndmc, MCM_GETTODAY,0, LPARAM(lps)));
+end;
+
+
+// Macro 266
+// #define MonthCal_HitTest(hmc, pinfo) \
+// SNDMSG(hmc, MCM_HITTEST, 0, (LPARAM)(PMCHITTESTINFO)(pinfo))
+
+FUNCTION MonthCal_HitTest( hmc :HWND ; pinfo : PMCHITTESTINFO):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage(hmc, MCM_HITTEST, 0, LPARAM(pinfo)));
+end;
+
+
+// Macro 267
+// #define MonthCal_SetFirstDayOfWeek(hmc, iDay) \
+// SNDMSG(hmc, MCM_SETFIRSTDAYOFWEEK, 0, iDay)
+
+function MonthCal_SetFirstDayOfWeek( hmc : HWND ; iDay :LONGINT ):DWORD;
+
+Begin
+ Result:=SendMessage(hmc, MCM_SETFIRSTDAYOFWEEK, 0, iDay);
+end;
+
+
+// Macro 268
+// #define MonthCal_GetFirstDayOfWeek(hmc) \
+// (DWORD)SNDMSG(hmc, MCM_GETFIRSTDAYOFWEEK, 0, 0)
+
+Function MonthCal_GetFirstDayOfWeek( hmc : HWND ):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage(hmc, MCM_GETFIRSTDAYOFWEEK, 0, 0))
+end;
+
+
+// Macro 269
+// #define MonthCal_GetRange(hmc, rgst) \
+// (DWORD)SNDMSG(hmc, MCM_GETRANGE, 0, (LPARAM)(rgst))
+
+Function MonthCal_GetRange( hmc : HWND ; rgst : LPSYSTEMTIME):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage(hmc, MCM_GETRANGE, 0, lparam(rgst)));
+end;
+
+
+// Macro 270
+// #define MonthCal_SetRange(hmc, gd, rgst) \
+// (BOOL)SNDMSG(hmc, MCM_SETRANGE, (WPARAM)(gd), (LPARAM)(rgst))
+
+Function MonthCal_SetRange( hmc : HWND ; gd : DWORD; rgst : LPSYSTEMTIME):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage(hmc, MCM_SETRANGE, gd,LPARAM(rgst)))
+end;
+
+
+// Macro 271
+// #define MonthCal_GetMonthDelta(hmc) \
+// (int)SNDMSG(hmc, MCM_GETMONTHDELTA, 0, 0)
+
+Function MonthCal_GetMonthDelta( hmc :hwnd ):cint;
+
+Begin
+ Result:=cint(SendMessage(hmc, MCM_GETMONTHDELTA, 0, 0))
+end;
+
+
+// Macro 272
+// #define MonthCal_SetMonthDelta(hmc, n) \
+// (int)SNDMSG(hmc, MCM_SETMONTHDELTA, n, 0)
+
+Function MonthCal_SetMonthDelta( hmc :hwnd ; n :cint ):cint;
+
+Begin
+ Result:=cint(SendMessage(hmc, MCM_SETMONTHDELTA, n, 0))
+end;
+
+
+// Macro 273
+
+// #define MonthCal_GetMaxTodayWidth(hmc) \
+// (DWORD)SNDMSG(hmc, MCM_GETMAXTODAYWIDTH, 0, 0)
+
+Function MonthCal_GetMaxTodayWidth( hmc :hwnd ):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage(hmc, MCM_GETMAXTODAYWIDTH, 0, 0))
+end;
+
+
+// Macro 274
+// #define MonthCal_SetUnicodeFormat(hwnd, fUnicode) \
+// (BOOL)SNDMSG((hwnd), MCM_SETUNICODEFORMAT, (WPARAM)(fUnicode), 0)
+
+Function MonthCal_SetUnicodeFormat( hwnd : hwnd; fUnicode : bool):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), MCM_SETUNICODEFORMAT, wparam(fUnicode), 0))
+end;
+
+
+// Macro 275
+
+// #define MonthCal_GetUnicodeFormat(hwnd) \
+// (BOOL)SNDMSG((hwnd), MCM_GETUNICODEFORMAT, 0, 0)
+
+Function MonthCal_GetUnicodeFormat( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), MCM_GETUNICODEFORMAT, 0, 0))
+end;
+
+
+// Macro 276
+// #define DateTime_GetSystemtime(hdp, pst) (DWORD)SNDMSG(hdp, DTM_GETSYSTEMTIME, 0, (LPARAM)(pst))
+
+// Macro 277
+
+//#define DateTime_SetSystemtime(hdp, gd, pst) (BOOL)SNDMSG(hdp, DTM_SETSYSTEMTIME, (WPARAM)(gd), (LPARAM)(pst))
+function DateTime_SetSystemTime(hdp: HWND; gd: DWORD; const pst: TSystemTime): BOOL;inline;
+begin
+ result:=BOOL(SendMessage(hdp, DTM_SETSYSTEMTIME, WPARAM(gd), LPARAM(@pst)));
+end;
+
+// Macro 278
+
+//#define DateTime_GetRange(hdp, rgst) (DWORD)SNDMSG(hdp, DTM_GETRANGE, 0, (LPARAM)(rgst))
+
+// Macro 279
+
+//#define DateTime_SetRange(hdp, gd, rgst) (BOOL)SNDMSG(hdp, DTM_SETRANGE, (WPARAM)(gd), (LPARAM)(rgst))
+function DateTime_SetRange(hdp: HWND; gdtr: DWORD; rgst: PSystemTime): BOOL;inline;
+begin
+ result:=BOOL(SendMessage(hdp, DTM_SETRANGE, WPARAM(gdtr), LPARAM(rgst)));
+end;
+
+// Macro 280
+
+//#define DateTime_SetFormat(hdp, sz) (BOOL)SNDMSG(hdp, DTM_SETFORMAT, 0, (LPARAM)(sz))
+
+// Macro 281
+
+//#define DateTime_SetMonthCalColor(hdp, iColor, clr) SNDMSG(hdp, DTM_SETMCCOLOR, iColor, clr)
+function DateTime_SetMonthCalColor(hdp: HWND; iColor: DWORD; clr: TColorRef): TColorRef;inline;
+begin
+ result:=TColorRef(SendMessage(hdp, DTM_SETMCCOLOR, iColor, clr));
+end;
+
+// Macro 282
+
+//#define DateTime_GetMonthCalColor(hdp, iColor) SNDMSG(hdp, DTM_GETMCCOLOR, iColor, 0)
+
+// Macro 283
+
+//#define DateTime_GetMonthCal(hdp) (HWND)SNDMSG(hdp, DTM_GETMONTHCAL, 0, 0)
+function DateTime_GetMonthCal(hdp: HWND): HWND;inline;
+begin
+ result:=HWND(SendMessage(hdp, DTM_GETMONTHCAL, 0, 0));
+end;
+
+// Macro 284
+
+//#define DateTime_SetMonthCalFont(hdp, hfont, fRedraw) SNDMSG(hdp, DTM_SETMCFONT, (WPARAM)(hfont), (LPARAM)(fRedraw))
+
+// Macro 285
+
+//#define DateTime_GetMonthCalFont(hdp) SNDMSG(hdp, DTM_GETMCFONT, 0, 0)
+
+// Macro 286
+
+//#define MAKEIPRANGE(low, high) ((LPARAM)(WORD)(((BYTE)(high) << 8) + (BYTE)(low)))
+
+// Macro 287
+
+//#define MAKEIPADDRESS(b1,b2,b3,b4) ((LPARAM)(((DWORD)(b1)<<24)+((DWORD)(b2)<<16)+((DWORD)(b3)<<8)+((DWORD)(b4))))
+
+// Macro 288
+
+//#define FIRST_IPADDRESS(x) ((x>>24) & 0xff)
+
+// Macro 289
+
+//#define SECOND_IPADDRESS(x) ((x>>16) & 0xff)
+
+// Macro 290
+
+//#define THIRD_IPADDRESS(x) ((x>>8) & 0xff)
+
+// Macro 291
+
+//#define FOURTH_IPADDRESS(x) (x & 0xff)
+
+// Macro 292
+
+//#define Pager_SetChild(hwnd, hwndChild) \
+// (void)SNDMSG((hwnd), PGM_SETCHILD, 0, (LPARAM)(hwndChild))
+
+Procedure Pager_SetChild( hwnd : hwnd; hwndChild : LPARAM);
+
+Begin
+SendMessage((hwnd), PGM_SETCHILD, 0, hwndChild)
+end;
+
+
+// Macro 293
+
+//#define Pager_RecalcSize(hwnd) \
+// (void)SNDMSG((hwnd), PGM_RECALCSIZE, 0, 0)
+
+Procedure Pager_RecalcSize( hwnd : hwnd);
+
+Begin
+SendMessage((hwnd), PGM_RECALCSIZE, 0, 0)
+end;
+
+
+// Macro 294
+
+//#define Pager_ForwardMouse(hwnd, bForward) \
+// (void)SNDMSG((hwnd), PGM_FORWARDMOUSE, (WPARAM)(bForward), 0)
+
+Procedure Pager_ForwardMouse( hwnd : hwnd; bForward : WPARAM);
+
+Begin
+SendMessage((hwnd), PGM_FORWARDMOUSE, bForward, 0)
+end;
+
+
+// Macro 295
+
+//#define Pager_SetBkColor(hwnd, clr) \
+// (COLORREF)SNDMSG((hwnd), PGM_SETBKCOLOR, 0, (LPARAM)(clr))
+
+Function Pager_SetBkColor( hwnd : hwnd; clr : LPARAM):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), PGM_SETBKCOLOR, 0, clr))
+end;
+
+
+// Macro 296
+
+//#define Pager_GetBkColor(hwnd) \
+// (COLORREF)SNDMSG((hwnd), PGM_GETBKCOLOR, 0, 0)
+
+Function Pager_GetBkColor( hwnd : hwnd):COLORREF;
+
+Begin
+ Result:=COLORREF(SendMessage((hwnd), PGM_GETBKCOLOR, 0, 0))
+end;
+
+
+// Macro 297
+
+//#define Pager_SetBorder(hwnd, iBorder) \
+// (int)SNDMSG((hwnd), PGM_SETBORDER, 0, (LPARAM)(iBorder))
+
+Function Pager_SetBorder( hwnd : hwnd; iBorder : LPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), PGM_SETBORDER, 0, iBorder))
+end;
+
+
+// Macro 298
+// #define Pager_GetBorder(hwnd) \
+// (int)SNDMSG((hwnd), PGM_GETBORDER, 0, 0)
+
+Function Pager_GetBorder( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), PGM_GETBORDER, 0, 0))
+end;
+
+
+// Macro 299
+
+//#define Pager_SetPos(hwnd, iPos) \
+// (int)SNDMSG((hwnd), PGM_SETPOS, 0, (LPARAM)(iPos))
+
+Function Pager_SetPos( hwnd : hwnd; iPos : LPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), PGM_SETPOS, 0, iPos))
+end;
+
+
+// Macro 300
+
+//#define Pager_GetPos(hwnd) \
+// (int)SNDMSG((hwnd), PGM_GETPOS, 0, 0)
+
+Function Pager_GetPos( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), PGM_GETPOS, 0, 0))
+end;
+
+
+// Macro 301
+
+//#define Pager_SetButtonSize(hwnd, iSize) \
+// (int)SNDMSG((hwnd), PGM_SETBUTTONSIZE, 0, (LPARAM)(iSize))
+
+Function Pager_SetButtonSize( hwnd : hwnd; iSize : LPARAM):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), PGM_SETBUTTONSIZE, 0, iSize))
+end;
+
+
+// Macro 302
+
+//#define Pager_GetButtonSize(hwnd) \
+// (int)SNDMSG((hwnd), PGM_GETBUTTONSIZE, 0,0)
+
+Function Pager_GetButtonSize( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), PGM_GETBUTTONSIZE, 0,0))
+end;
+
+
+// Macro 303
+
+//#define Pager_GetButtonState(hwnd, iButton) \
+// (DWORD)SNDMSG((hwnd), PGM_GETBUTTONSTATE, 0, (LPARAM)(iButton))
+
+Function Pager_GetButtonState( hwnd : hwnd; iButton : LPARAM):DWORD;
+
+Begin
+ Result:=DWORD(SendMessage((hwnd), PGM_GETBUTTONSTATE, 0, iButton))
+end;
+
+
+// Macro 304
+// #define Pager_GetDropTarget(hwnd, ppdt) \
+// (void)SNDMSG((hwnd), PGM_GETDROPTARGET, 0, (LPARAM)(ppdt))
+
+Procedure Pager_GetDropTarget( hwnd : hwnd; ppdt : LPARAM);
+
+Begin
+SendMessage((hwnd), PGM_GETDROPTARGET, 0, ppdt)
+end;
+
+
+// Macro 305
+// #define Button_GetIdealSize(hwnd, psize)\
+// (BOOL)SNDMSG((hwnd), BCM_GETIDEALSIZE, 0, (LPARAM)(psize))
+
+Function Button_GetIdealSize( hwnd : hwnd; psize : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_GETIDEALSIZE, 0, psize))
+end;
+
+
+// Macro 306
+// #define Button_SetImageList(hwnd, pbuttonImagelist)\
+// (BOOL)SNDMSG((hwnd), BCM_SETIMAGELIST, 0, (LPARAM)(pbuttonImagelist))
+
+Function Button_SetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_SETIMAGELIST, 0, pbuttonImagelist))
+end;
+
+// Macro 307
+// #define Button_GetImageList(hwnd, pbuttonImagelist)\
+// (BOOL)SNDMSG((hwnd), BCM_GETIMAGELIST, 0, (LPARAM)(pbuttonImagelist))
+
+Function Button_GetImageList( hwnd : hwnd; pbuttonImagelist : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_GETIMAGELIST, 0, pbuttonImagelist))
+end;
+
+
+// Macro 308
+// #define Button_SetTextMargin(hwnd, pmargin)\
+// (BOOL)SNDMSG((hwnd), BCM_SETTEXTMARGIN, 0, (LPARAM)(pmargin))
+
+Function Button_SetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_SETTEXTMARGIN, 0, pmargin))
+end;
+
+
+// Macro 309
+// #define Button_GetTextMargin(hwnd, pmargin)\
+// (BOOL)SNDMSG((hwnd), BCM_GETTEXTMARGIN, 0, (LPARAM)(pmargin))
+
+Function Button_GetTextMargin( hwnd : hwnd; pmargin : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_GETTEXTMARGIN, 0, pmargin))
+end;
+
+
+// Macro 310
+// #define Edit_SetCueBannerText(hwnd, lpcwText) \
+// (BOOL)SNDMSG((hwnd), EM_SETCUEBANNER, 0, (LPARAM)(lpcwText))
+
+Function Edit_SetCueBannerText( hwnd : hwnd; lpcwText : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), EM_SETCUEBANNER, 0, lpcwText))
+end;
+
+
+// Macro 311
+//#define Edit_GetCueBannerText(hwnd, lpwText, cchText) \
+// (BOOL)SNDMSG((hwnd), EM_GETCUEBANNER, (WPARAM)(lpwText), (LPARAM)(cchText))
+
+Function Edit_GetCueBannerText( hwnd : hwnd; lpwText : WPARAM; cchText : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), EM_GETCUEBANNER, lpwText, cchText))
+end;
+
+
+// Macro 312
+// #define Edit_ShowBalloonTip(hwnd, peditballoontip) \
+// (BOOL)SNDMSG((hwnd), EM_SHOWBALLOONTIP, 0, (LPARAM)(peditballoontip))
+
+Function Edit_ShowBalloonTip( hwnd : hwnd; peditballoontip : LPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), EM_SHOWBALLOONTIP, 0, peditballoontip))
+end;
+
+
+// Macro 313
+// #define Edit_HideBalloonTip(hwnd) \
+// (BOOL)SNDMSG((hwnd), EM_HIDEBALLOONTIP, 0, 0)
+
+Function Edit_HideBalloonTip( hwnd : hwnd):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), EM_HIDEBALLOONTIP, 0, 0))
+end;
+
+
+// Macro 314
+//#define ComboBox_SetMinVisible(hwnd, iMinVisible) \
+// (BOOL)SNDMSG((hwnd), CB_SETMINVISIBLE, (WPARAM)iMinVisible, 0)
+
+Function ComboBox_SetMinVisible( hwnd : hwnd; iMinVisible : WPARAM):BOOL;
+
+Begin
+ Result:=BOOL(SendMessage((hwnd), CB_SETMINVISIBLE, iMinVisible, 0))
+end;
+
+
+// Macro 315
+// #define ComboBox_GetMinVisible(hwnd) \
+// (int)SNDMSG((hwnd), CB_GETMINVISIBLE, 0, 0)
+
+Function ComboBox_GetMinVisible( hwnd : hwnd):cint;
+
+Begin
+ Result:=cint(SendMessage((hwnd), CB_GETMINVISIBLE, 0, 0))
+end;
+
+{$ifdef win32vista}
+function TreeView_GetNextSelected(hwnd:hwnd; hitem:HTREEITEM):HTREEITEM;inline;
+begin
+ result:=TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTSELECTED)
+end;
+{$endif}
+
+{$ifdef win32vista}
+function Button_SetDropDownState(hwnd:HWND; fDropDown:BOOL) : BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_SETDROPDOWNSTATE, WPARAM(fDropDown), 0));
+end;
+
+function Button_SetSplitInfo(hwnd:HWND; pInfo:PBUTTON_SPLITINFO):BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_SETSPLITINFO, 0, LPARAM(pInfo)));
+end;
+
+function Button_GetSplitInfo(hwnd:HWND; pInfo:PBUTTON_SPLITINFO) :BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_GETSPLITINFO, 0, LPARAM(pInfo)));
+end;
+
+function Button_SetNote(hwnd:HWND; psz:LPCWSTR) :BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_SETNOTE, 0, LPARAM(psz)));
+end;
+
+function Button_GetNote(hwnd:HWND; psz:LPCWSTR; pcc:cint) :BOOL;
+Begin
+ Result:=BOOL(SendMessage((hwnd), BCM_GETNOTE, WPARAM(pcc), LPARAM(psz)));
+end;
+
+function Button_GetNoteLength(hwnd:HWND) :LRESULT;
+Begin
+ Result:=LRESULT(SendMessage((hwnd), BCM_GETNOTELENGTH, 0, 0));
+end;
+
+// Macro to use on a button or command link to display an elevated icon
+
+function Button_SetElevationRequiredState(hwnd:HWND; fRequired:BOOL) :LRESULT;
+Begin
+ Result:=LRESULT(SendMessage((hwnd), BCM_SETSHIELD, 0, LPARAM(fRequired)));
+end;
+{$endif}
+{$ifdef win32vista}
+procedure Edit_SetHilite(hwndCtl:hwnd; ichStart:Wparam; ichEnd:lparam);
+begin
+ sendmessage(hwndctl, EM_SETHILITE, (ichStart), (ichEnd));
+end;
+
+function Edit_GetHilite(hwndCtl:hwnd):Dword;
+begin
+ result:=SendMessage((hwndCtl), EM_GETHILITE, 0, 0);
+end;
+{$endif}
+
+{$ifdef ntddi_vista}
+function MonthCal_GetCurrentView(hmc:HWND):DWORD;
+Begin
+ Result:=DWord(SendMessage(hmc, MCM_GETCURRENTVIEW, 0, 0));
+end;
+
+function MonthCal_GetCalendarCount(hmc:HWND):DWORD;
+Begin
+ Result:=DWord(SendMessage(hmc,MCM_GETCALENDARCOUNT, 0, 0));
+end;
+
+function MonthCal_GetCalendarGridInfo(hmc:HWND; pmc:pMCGRIDINFO):BOOL;
+Begin
+ Result:=BOOL(SendMessage(hmc, MCM_GETCALENDARGRIDINFO, 0, LPARAM(PMCGRIDINFO(pmc))));
+end;
+
+function MonthCal_GetCALID(hmc:HWND):CALID;
+Begin
+ Result:=CALID(SendMessage(hmc, MCM_GETCALID, 0, 0));
+end;
+
+function MonthCal_SetCALID(hmc:HWND; calid:cuint):LRESULT;
+Begin
+ Result:=LRESULT(SendMessage(hmc, MCM_SETCALID, WPARAM(calid), 0));
+end;
+
+function MonthCal_SizeRectToMin(hmc:HWND; prc:prect):LRESULT;
+Begin
+ Result:=LRESULT(SendMessage(hmc, MCM_SIZERECTTOMIN, 0, LPARAM(prc)));
+end;
+
+function MonthCal_SetCalendarBorder(hmc:HWND; fset:bool; xyborder:cint):LRESULT;
+Begin
+ Result:=LRESULT(SendMessage(hmc, MCM_SETCALENDARBORDER, WPARAM(fset), LPARAM(xyborder)));
+end;
+
+function MonthCal_GetCalendarBorder(hmc:HWND):cint;
+Begin
+ Result:=cint(SendMessage(hmc, MCM_GETCALENDARBORDER, 0, 0));
+end;
+
+function MonthCal_SetCurrentView(hmc:HWND; dwNewView:DWord):BOOL;
+Begin
+ Result:=BOOL(SendMessage(hmc, MCM_SETCURRENTVIEW, 0, LPARAM(dwNewView)));
+end;
+
+{$endif}
+
+{$ifdef NTDDI_VISTA}
+function DateTime_SetMonthCalStyle(hdp:HWND; dwStyle:DWord):LResult;
+Begin
+ Result:=LRESULT(SendMessage(hdp,DTM_SETMCSTYLE, 0, LPARAM(dwStyle)));
+end;
+
+function DateTime_GetMonthCalStyle(hdp:HWND):LRESULT;
+Begin
+ Result:=LRESULT(SendMessage(hdp,DTM_GETMCSTYLE, 0, 0));
+end;
+
+function DateTime_CloseMonthCal(hdp:HWND):LRESULT;
+Begin
+ Result:=LRESULT(SendMessage(hdp,DTM_CLOSEMONTHCAL, 0, 0));
+end;
+
+// DateTime_GetDateTimePickerInfo(HWND hdp, DATETIMEPICKERINFO* pdtpi)
+// Retrieves information about the selected date time picker.
+
+function DateTime_GetDateTimePickerInfo(hdp:HWND; pdtpi:PDATETIMEPICKERINFO):LRESULT;
+Begin
+ Result:=LRESULT(SendMessage(hdp, DTM_GETDATETIMEPICKERINFO, 0, LPARAM(pdtpi)));
+end;
+
+function DateTime_GetIdealSize(hdp:HWND; ps:PSIZE): LResult;
+Begin
+ Result:=LRESULT(SendMessage(hdp, DTM_GETIDEALSIZE, 0, LPARAM(ps)));
+end;
+
+{$endif}
+
+// Macro 284
+procedure DateTime_SetMonthCalFont(hdp:HWND; hfont:HFONT; fRedraw:LPARAM);
+begin
+ SendMessage(hdp, DTM_SETMCFONT, WPARAM(hfont), LPARAM(fRedraw));
+end;
+
+// Macro 285
+function DateTime_GetMonthCalFont(hdp:HWND):HFONT;
+begin
+ Result:=HFONT(SendMessage(hdp, DTM_GETMCFONT, 0, 0));
+end;
+
+const
+ comctl32lib = 'comctl32.dll';
+
+var
+ comctl32handle: THandle = 0;
+
+function _TaskDialogIndirect(const pTaskConfig: PTASKDIALOGCONFIG; pnButton: PInteger; pnRadioButton: PInteger; pfVerificationFlagChecked: PBOOL): HRESULT; stdcall;
+begin
+ Result := E_NOTIMPL;
+end;
+
+function _TaskDialog(hwndParent: HWND; hInstance: HINST; pszWindowTitle: PCWSTR; pszMainInstruction: PCWSTR; pszContent: PCWSTR;
+ dwCommonButtons: TASKDIALOG_COMMON_BUTTON_FLAGS; pszIcon: PCWSTR; pnButton: PInteger): HRESULT; stdcall;
+begin
+ Result := E_NOTIMPL;
+end;
+
+procedure Initialize;
+var
+ p: Pointer;
+begin
+ // Defaults
+ Pointer(TaskDialogIndirect) := @_TaskDialogIndirect;
+ Pointer(TaskDialog) := @_TaskDialog;
+
+ comctl32handle := LoadLibrary(comctl32lib);
+ if comctl32handle <> 0 then
+ begin
+ p := GetProcAddress(comctl32handle, 'TaskDialogIndirect');
+ if p <> nil
+ then Pointer(TaskDialogIndirect) := p;
+
+ p := GetProcAddress(comctl32handle, 'TaskDialog');
+ if p <> nil
+ then Pointer(TaskDialog) := p;
+ end;
+end;
+
+procedure Finalize;
+begin
+ if comctl32handle <> 0 then
+ FreeLibrary(comctl32handle);
+ comctl32handle := 0;
+end;
+
+initialization
+ Initialize;
+Finalization
+ Finalize;
+End.
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-18 06:54:01 +0000