|
|
@@ -1,12471 +0,0 @@
|
|
|
-{
|
|
|
- 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 ie501plus}
|
|
|
-
|
|
|
-{$ifdef win32}
|
|
|
- {$define _win32}
|
|
|
-{$endif win32}
|
|
|
-
|
|
|
-{$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.
|
|
|
-//
|
|
|
-//=============================================================================
|
|
|
-
|
|
|
-// 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}
|
|
|
-
|
|
|
- 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}
|
|
|
- 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}
|
|
|
-
|
|
|
-{$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;
|
|
|
-
|
|
|
-
|
|
|
-{$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;
|
|
|
-
|
|
|
-// 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}
|
|
|
-
|
|
|
-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;
|
|
|
- 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}
|
|
|
-
|
|
|
-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;
|
|
|
-
|
|
|
- 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;
|
|
|
-
|
|
|
-function ImageList_Draw(himl:HIMAGELIST;i:cint;hdcDst:HDC;x:cint;y:cint;fStyle:UINT):BOOL; stdcall; external commctrldll name 'ImageList_Draw';
|
|
|
-
|
|
|
-
|
|
|
-{$IFDEF _WIN32}
|
|
|
-
|
|
|
-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
|
|
|
-Procedure ImageList_ExtractIcon(hi:longint; {dummy?} himl:HIMAGELIST;i:cint);
|
|
|
-
|
|
|
-
|
|
|
-// 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}
|
|
|
-// 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}
|
|
|
- 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}
|
|
|
- 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}
|
|
|
-
|
|
|
- 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}
|
|
|
-
|
|
|
- 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;
|
|
|
-
|
|
|
-
|
|
|
-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}
|
|
|
-
|
|
|
-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 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}
|
|
|
- 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}
|
|
|
-
|
|
|
-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}
|
|
|
-
|
|
|
-// 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 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}
|
|
|
-
|
|
|
-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}
|
|
|
- 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}
|
|
|
- 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 ie5plus}
|
|
|
- RB_PUSHCHEVRON = (WM_USER + 43);
|
|
|
-{$ENDIF} // _WIN32_IE >= 0x0500
|
|
|
-
|
|
|
- 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 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 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}
|
|
|
-
|
|
|
-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}
|
|
|
-
|
|
|
-// 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;
|
|
|
-
|
|
|
-// 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';
|
|
|
-
|
|
|
-
|
|
|
-{$IFDEF UNICODE}
|
|
|
-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';
|
|
|
-{$ELSE}
|
|
|
-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';
|
|
|
-{$ENDIF}
|
|
|
-
|
|
|
-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}
|
|
|
-
|
|
|
-// 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}
|
|
|
-
|
|
|
-{$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
|
|
|
-
|
|
|
-
|
|
|
-{$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;
|
|
|
-
|
|
|
- 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}
|
|
|
-
|
|
|
- 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}
|
|
|
- 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}
|
|
|
- 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;
|
|
|
-
|
|
|
-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}
|
|
|
- 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}
|
|
|
- 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}
|
|
|
- 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}
|
|
|
-
|
|
|
- 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}
|
|
|
-
|
|
|
- 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}
|
|
|
-
|
|
|
- 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;
|
|
|
-
|
|
|
- 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;
|
|
|
- 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;
|
|
|
-
|
|
|
- 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;
|
|
|
- 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;
|
|
|
-{$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 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);
|
|
|
-
|
|
|
-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}
|
|
|
- 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}
|
|
|
-
|
|
|
-{$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}
|
|
|
-{$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}
|
|
|
- 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;
|
|
|
-
|
|
|
- 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;
|
|
|
- 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;
|
|
|
- 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 win32xp}
|
|
|
- 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;
|
|
|
-
|
|
|
-
|
|
|
-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 : WPARAM; mask : LPARAM):UINT;
|
|
|
-
|
|
|
-
|
|
|
-// Macro 212
|
|
|
-Function TreeView_GetCheckState( hwndTV : hwnd; hti : WPARAM):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}
|
|
|
-
|
|
|
-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 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;
|
|
|
-
|
|
|
-{$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
|
|
|
-
|
|
|
-{$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;
|
|
|
-
|
|
|
-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;
|
|
|
- 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;
|
|
|
-
|
|
|
-{$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}
|
|
|
-
|
|
|
-
|
|
|
-// end_r_commctrl
|
|
|
-
|
|
|
- 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}
|
|
|
-
|
|
|
-TYPE
|
|
|
- DATETIMEPICK_CLASS = DATETIMEPICK_CLASSW;
|
|
|
-{$ELSE}
|
|
|
- DATETIMEPICK_CLASS = DATETIMEPICK_CLASSA;
|
|
|
-{$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
|
|
|
-
|
|
|
-// #define DateTime_SetMonthCalFont(hdp, hfont, fRedraw) SNDMSG(hdp, DTM_SETMCFONT, (WPARAM)(hfont), (LPARAM)(fRedraw))
|
|
|
-
|
|
|
-
|
|
|
-CONST
|
|
|
- DTM_GETMCFONT = (DTM_FIRST + 10);
|
|
|
-// Macro 285
|
|
|
-
|
|
|
-// #define DateTime_GetMonthCalFont(hdp) SNDMSG(hdp, DTM_GETMCFONT, 0, 0)
|
|
|
-
|
|
|
-{$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;
|
|
|
-
|
|
|
-{$ENDIF}
|
|
|
-
|
|
|
-
|
|
|
-{$ENDIF} // NOBUTTON
|
|
|
-
|
|
|
-/// ===================== End Button Control =========================
|
|
|
-
|
|
|
-/// ====================== Static Control =============================
|
|
|
-
|
|
|
-{$IFNDEF NOSTATIC}
|
|
|
-
|
|
|
-{$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;
|
|
|
-
|
|
|
-{$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);
|
|
|
- MAX_LINKID_TEXT = 48;
|
|
|
- L_MAX_URL_LENGTH = (2048 + 32 + length('://'));
|
|
|
-
|
|
|
- WC_LINK = {L}'SysLink';
|
|
|
-
|
|
|
- LWS_TRANSPARENT = $0001;
|
|
|
- LWS_IGNORERETURN = $0002;
|
|
|
-
|
|
|
- LIF_ITEMINDEX = $00000001;
|
|
|
- LIF_STATE = $00000002;
|
|
|
- LIF_ITEMID = $00000004;
|
|
|
- LIF_URL = $00000008;
|
|
|
-
|
|
|
- LIS_FOCUSED = $00000001;
|
|
|
- LIS_ENABLED = $00000002;
|
|
|
- LIS_VISITED = $00000004;
|
|
|
-
|
|
|
-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;
|
|
|
-
|
|
|
-
|
|
|
- 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 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}
|
|
|
-
|
|
|
-
|
|
|
-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)
|
|
|
-
|
|
|
-Procedure ImageList_ExtractIcon(hi:longint; {dummy?} himl:HIMAGELIST;i:cint);
|
|
|
-
|
|
|
-Begin
|
|
|
- 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}
|
|
|
-
|
|
|
-// 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) shl 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;
|
|
|
-{$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
|
|
|
- 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
|
|
|
- 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 : WPARAM; mask : LPARAM):UINT;
|
|
|
-
|
|
|
-Begin
|
|
|
- Result:=UINT(SendMessage((hwndTV), TVM_GETITEMSTATE, hti, mask))
|
|
|
-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 : WPARAM):UINT;
|
|
|
-
|
|
|
-Begin
|
|
|
- Result:=((UINT(SendMessage((hwndTV), TVM_GETITEMSTATE, 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}
|
|
|
-
|
|
|
-// 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;
|
|
|
-
|
|
|
-
|
|
|
-End.
|
marco