home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 August / VPR9608A.BIN / del20try / install / data.z / COMMCTRL.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-08  |  97KB  |  3,250 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Run-time Library                         }
  5. {       Windows 32bit API Interface Unit                }
  6. {                                                       }
  7. {       Copyright (c) 1996 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit CommCtrl;
  12.  
  13. interface
  14.  
  15. uses Messages, Windows;
  16.  
  17. { Interface for the Windows Property Sheet Pages }
  18.  
  19. const
  20.   MAXPROPPAGES = 100;
  21.  
  22.   PSP_DEFAULT             = $0000;
  23.   PSP_DLGINDIRECT         = $0001;
  24.   PSP_USEHICON            = $0002;
  25.   PSP_USEICONID           = $0004;
  26.   PSP_USETITLE            = $0008;
  27.  
  28.   PSP_HASHELP             = $0020;
  29.   PSP_USEREFPARENT        = $0040;
  30.   PSP_USECALLBACK         = $0080;
  31.  
  32.   PSPCB_RELEASE           = 1;
  33.   PSPCB_CREATE            = 2;
  34.  
  35.   PSH_DEFAULT             = $0000;
  36.   PSH_PROPTITLE           = $0001;
  37.   PSH_USEHICON            = $0002;
  38.   PSH_USEICONID           = $0004;
  39.   PSH_PROPSHEETPAGE       = $0008;
  40.   PSH_MULTILINETABS       = $0010;
  41.   PSH_WIZARD              = $0020;
  42.   PSH_USEPSTARTPAGE       = $0040;
  43.   PSH_NOAPPLYNOW          = $0080;
  44.   PSH_USECALLBACK         = $0100;
  45.   PSH_HASHELP             = $0200;
  46.   PSH_MODELESS            = $0400;
  47.  
  48.   PSCB_INITIALIZED  = 1;
  49.  
  50.   PSN_FIRST               = -200;
  51.   PSN_LAST                = -299;
  52.  
  53.   PSN_SETACTIVE           = PSN_FIRST - 0;
  54.   PSN_KILLACTIVE          = PSN_FIRST - 1;
  55.   PSN_APPLY               = PSN_FIRST - 2;
  56.   PSN_RESET               = PSN_FIRST - 3;
  57.   PSN_HELP                = PSN_FIRST - 5;
  58.   PSN_WIZBACK             = PSN_FIRST - 6;
  59.   PSN_WIZNEXT             = PSN_FIRST - 7;
  60.   PSN_WIZFINISH           = PSN_FIRST - 8;
  61.   PSN_QUERYCANCEL         = PSN_FIRST - 9;
  62.  
  63.   PSNRET_NOERROR              = 0;
  64.   PSNRET_INVALID              = 1;
  65.   PSNRET_INVALID_NOCHANGEPAGE = 2;
  66.  
  67.   PSM_SETCURSEL           = WM_USER + 101;
  68.   PSM_REMOVEPAGE          = WM_USER + 102;
  69.   PSM_ADDPAGE             = WM_USER + 103;
  70.   PSM_CHANGED             = WM_USER + 104;
  71.   PSM_RESTARTWINDOWS      = WM_USER + 105;
  72.   PSM_REBOOTSYSTEM        = WM_USER + 106;
  73.   PSM_CANCELTOCLOSE       = WM_USER + 107;
  74.   PSM_QUERYSIBLINGS       = WM_USER + 108;
  75.   PSM_UNCHANGED           = WM_USER + 109;
  76.   PSM_APPLY               = WM_USER + 110;
  77.   PSM_SETTITLE            = WM_USER + 111;
  78.   PSM_SETTITLEW           = WM_USER + 120;
  79.   PSM_SETWIZBUTTONS       = WM_USER + 112;
  80.   PSM_PRESSBUTTON         = WM_USER + 113;
  81.   PSM_SETCURSELID         = WM_USER + 114;
  82.   PSM_SETFINISHTEXT       = WM_USER + 115;
  83.   PSM_SETFINISHTEXTW      = WM_USER + 121;
  84.   PSM_GETTABCONTROL       = WM_USER + 116;
  85.   PSM_ISDIALOGMESSAGE     = WM_USER + 117;
  86.  
  87.   PSWIZB_BACK             = $00000001;
  88.   PSWIZB_NEXT             = $00000002;
  89.   PSWIZB_FINISH           = $00000004;
  90.   PSWIZB_DISABLEDFINISH   = $00000008;
  91.  
  92.   PSBTN_BACK              = 0;
  93.   PSBTN_NEXT              = 1;
  94.   PSBTN_FINISH            = 2;
  95.   PSBTN_OK                = 3;
  96.   PSBTN_APPLYNOW          = 4;
  97.   PSBTN_CANCEL            = 5;
  98.   PSBTN_HELP              = 6;
  99.   PSBTN_MAX               = 6;
  100.  
  101.   ID_PSRESTARTWINDOWS     = 2;
  102.   ID_PSREBOOTSYSTEM       = ID_PSRESTARTWINDOWS or 1;
  103.  
  104.   WIZ_CXDLG               = 276;
  105.   WIZ_CYDLG               = 140;
  106.  
  107.   WIZ_CXBMP               = 80;
  108.  
  109.   WIZ_BODYX               = 92;
  110.   WIZ_BODYCX              = 184;
  111.  
  112.   PROP_SM_CXDLG           = 212;
  113.   PROP_SM_CYDLG           = 188;
  114.  
  115.   PROP_MED_CXDLG          = 227;
  116.   PROP_MED_CYDLG          = 215;
  117.  
  118.   PROP_LG_CXDLG           = 252;
  119.   PROP_LG_CYDLG           = 218;
  120.  
  121. type
  122.   HPropSheetPage = Pointer;
  123.  
  124.   PPropSheetPageA = ^TPropSheetPageA;
  125.   PPropSheetPageW = ^TPropSheetPageW;
  126.   PPropSheetPage = PPropSheetPageA;
  127.  
  128.   TFNPSPCallbackA = function(Wnd: HWnd; Msg: Integer;
  129.     PPSP: PPropSheetPageA): Integer stdcall;
  130.   TFNPSPCallbackW = function(Wnd: HWnd; Msg: Integer;
  131.     PPSP: PPropSheetPageW): Integer stdcall;
  132.   TFNPSPCallback = TFNPSPCallbackA;
  133.  
  134.   TPropSheetPageA = record
  135.     dwSize: Longint;
  136.     dwFlags: Longint;
  137.     hInstance: THandle;
  138.     case Integer of
  139.       0: (
  140.         pszTemplate: PAnsiChar);
  141.       1: (
  142.         pResource: Pointer;
  143.         case Integer of
  144.           0: (
  145.             hIcon: THandle);
  146.           1: (
  147.             pszIcon: PAnsiChar;
  148.             pszTitle: PAnsiChar;
  149.             pfnDlgProc: Pointer;
  150.             lParam: Longint;
  151.             pfnCallback: TFNPSPCallbackA;
  152.             pcRefParent: PInteger));
  153.   end;
  154.   TPropSheetPageW = record
  155.     dwSize: Longint;
  156.     dwFlags: Longint;
  157.     hInstance: THandle;
  158.     case Integer of
  159.       0: (
  160.         pszTemplate: PWideChar);
  161.       1: (
  162.         pResource: Pointer;
  163.         case Integer of
  164.           0: (
  165.             hIcon: THandle);
  166.           1: (
  167.             pszIcon: PWideChar;
  168.             pszTitle: PWideChar;
  169.             pfnDlgProc: Pointer;
  170.             lParam: Longint;
  171.             pfnCallback: TFNPSPCallbackW;
  172.             pcRefParent: PInteger));
  173.   end;
  174.   TPropSheetPage = TPropSheetPageA;
  175.  
  176.   TFNPropSheetCallback = function(Wnd: HWnd; Msg: Integer;
  177.     LParam: Integer): Integer stdcall;
  178.  
  179.   PPropSheetHeaderA = ^TPropSheetHeaderA;
  180.   PPropSheetHeaderW = ^TPropSheetHeaderW;
  181.   PPropSheetHeader = PPropSheetHeaderA;
  182.   TPropSheetHeaderA = record
  183.     dwSize: Longint;
  184.     dwFlags: Longint;
  185.     hwndParent: HWnd;
  186.     hInstance: THandle;
  187.     case Integer of
  188.       0: (
  189.         hIcon: THandle);
  190.       1: (
  191.         pszIcon: PAnsiChar;
  192.         pszCaption: PAnsiChar;
  193.         nPages: Integer;
  194.         case Integer of
  195.           0: (
  196.             nStartPage: Integer);
  197.           1: (
  198.             pStartPage: PAnsiChar;
  199.             case Integer of
  200.               0: (
  201.                 ppsp: PPropSheetPageA);
  202.               1: (
  203.                 phpage: Pointer;
  204.                 pfnCallback: TFNPropSheetCallback)));
  205.   end;
  206.   TPropSheetHeaderW = record
  207.     dwSize: Longint;
  208.     dwFlags: Longint;
  209.     hwndParent: HWnd;
  210.     hInstance: THandle;
  211.     case Integer of
  212.       0: (
  213.         hIcon: THandle);
  214.       1: (
  215.         pszIcon: PWideChar;
  216.         pszCaption: PWideChar;
  217.         nPages: Integer;
  218.         case Integer of
  219.           0: (
  220.             nStartPage: Integer);
  221.           1: (
  222.             pStartPage: PWideChar;
  223.             case Integer of
  224.               0: (
  225.                 ppsp: PPropSheetPageW);
  226.               1: (
  227.                 phpage: Pointer;
  228.                 pfnCallback: TFNPropSheetCallback)));
  229.   end;
  230.   TPropSheetHeader = TPropSheetHeaderA;
  231.  
  232.   TFNAddPropSheetPage = function(hPSP: HPropSheetPage;
  233.     lParam: Longint): BOOL stdcall;
  234.  
  235. function CreatePropertySheetPageA(var PSP: TPropSheetPageA): HPropSheetPage; stdcall;
  236. function CreatePropertySheetPageW(var PSP: TPropSheetPageW): HPropSheetPage; stdcall;
  237. function CreatePropertySheetPage(var PSP: TPropSheetPage): HPropSheetPage; stdcall;
  238. function DestroyPropertySheetPage(hPSP: HPropSheetPage): BOOL; stdcall;
  239. function PropertySheetA(var PSH: TPropSheetHeaderA): Integer; stdcall;
  240. function PropertySheetW(var PSH: TPropSheetHeaderW): Integer; stdcall;
  241. function PropertySheet(var PSH: TPropSheetHeader): Integer; stdcall;
  242.  
  243. procedure InitCommonControls; stdcall;
  244.  
  245. const
  246.   IMAGE_BITMAP = 0;
  247.  
  248. const
  249.   ODT_HEADER              = 100;
  250.   ODT_TAB                 = 101;
  251.   ODT_LISTVIEW            = 102;
  252.  
  253.  
  254. { ====== Ranges for control message IDs ======================= }
  255.  
  256. const
  257.   LVM_FIRST               = $1000;      { ListView messages }
  258.   TV_FIRST                = $1100;      { TreeView messages }
  259.   HDM_FIRST               = $1200;      { Header messages }
  260.  
  261.  
  262.  
  263. { ====== WM_NOTIFY codes (NMHDR.code values) ================== }
  264.  
  265. const
  266.   NM_FIRST                 = 0-  0;       { generic to all controls }
  267.   NM_LAST                  = 0- 99;
  268.   LVN_FIRST                = 0-100;       { listview }
  269.   LVN_LAST                 = 0-199;
  270.   HDN_FIRST                = 0-300;       { header }
  271.   HDN_LAST                 = 0-399;
  272.  
  273.   TVN_FIRST                = 0-400;       { treeview }
  274.   TVN_LAST                 = 0-499;
  275.  
  276.   TTN_FIRST                = 0-520;       { tooltips }
  277.   TTN_LAST                 = 0-549;
  278.  
  279.   TCN_FIRST                = 0-550;       { tab control }
  280.   TCN_LAST                 = 0-580;
  281.  
  282. { Shell reserved           (0-580) -  (0-589)
  283.  
  284.   CDN_FIRST                = 0-601;       { common dialog (new) }
  285.   CDN_LAST                 = 0-699;
  286.  
  287.   TBN_FIRST                = 0-700;       { toolbar }
  288.   TBN_LAST                 = 0-720;
  289.  
  290.   UDN_FIRST                = 0-721;        { updown }
  291.   UDN_LAST                 = 0-740;
  292.  
  293.   MSGF_COMMCTRL_BEGINDRAG     = $4200;
  294.   MSGF_COMMCTRL_SIZEHEADER    = $4201;
  295.   MSGF_COMMCTRL_DRAGSELECT    = $4202;
  296.   MSGF_COMMCTRL_TOOLBARCUST   = $4203;
  297.  
  298.  
  299. { ====== Generic WM_NOTIFY notification codes ================= }
  300.  
  301. const
  302.   NM_OUTOFMEMORY           = NM_FIRST-1;
  303.   NM_CLICK                 = NM_FIRST-2;
  304.   NM_DBLCLK                = NM_FIRST-3;
  305.   NM_RETURN                = NM_FIRST-4;
  306.   NM_RCLICK                = NM_FIRST-5;
  307.   NM_RDBLCLK               = NM_FIRST-6;
  308.   NM_SETFOCUS              = NM_FIRST-7;
  309.   NM_KILLFOCUS             = NM_FIRST-8;
  310.   NM_STARTWAIT             = NM_FIRST-9;
  311.   NM_ENDWAIT               = NM_FIRST-10;
  312.   NM_BTNCLK                = NM_FIRST-10;
  313.  
  314.  
  315.  
  316. { ====== IMAGE LIST =========================================== }
  317.  
  318.  
  319. const
  320.   CLR_NONE                = $FFFFFFFF;
  321.   CLR_DEFAULT             = $FF000000;
  322.  
  323. type
  324.   HImageList = THandle;
  325.  
  326. const
  327.   ILC_MASK                = $0001;
  328.   ILC_COLOR               = $00FE;
  329.   ILC_COLORDDB            = $00FE;
  330.   ILC_COLOR4              = $0004;
  331.   ILC_COLOR8              = $0008;
  332.   ILC_COLOR16             = $0010;
  333.   ILC_COLOR24             = $0018;
  334.   ILC_COLOR32             = $0020;
  335.   ILC_PALETTE             = $0800;
  336.  
  337. function ImageList_Create(CX, CY: Integer; Flags: UINT;
  338.   Initial, Grow: Integer): HImageList; stdcall;
  339. function ImageList_Destroy(ImageList: HImageList): Bool; stdcall;
  340. function ImageList_GetImageCount(ImageList: HImageList): Integer; stdcall;
  341. function ImageList_Add(ImageList: HImageList; Image, Mask: HBitmap): Integer; stdcall;
  342. function ImageList_ReplaceIcon(ImageList: HImageList; Index: Integer;
  343.   Icon: HIcon): Integer; stdcall;
  344. function ImageList_SetBkColor(ImageList: HImageList; ClrBk: TColorRef): TColorRef; stdcall;
  345. function ImageList_GetBkColor(ImageList: HImageList): TColorRef; stdcall;
  346. function ImageList_SetOverlayImage(ImageList: HImageList; Image: Integer;
  347.   Overlay: Integer): Bool; stdcall;
  348.  
  349. function ImageList_AddIcon(ImageList: HImageList; Icon: HIcon): Integer;
  350.  
  351. const
  352.   ILD_NORMAL              = $0000;
  353.   ILD_TRANSPARENT         = $0001;
  354.   ILD_MASK                = $0010;
  355.   ILD_IMAGE               = $0020;
  356.   ILD_BLEND               = $000E;
  357.   ILD_BLEND25             = $0002;
  358.   ILD_BLEND50             = $0004;
  359.   ILD_OVERLAYMASK         = $0F00;
  360.  
  361. function IndexToOverlayMask(Index: Integer): Integer;
  362.  
  363. const
  364.   ILD_SELECTED            = ILD_BLEND50;
  365.   ILD_FOCUS               = ILD_BLEND25;
  366.   CLR_HILIGHT             = CLR_DEFAULT;
  367.  
  368. function ImageList_Draw(ImageList: HImageList; Index: Integer;
  369.   Dest: HDC; X, Y: Integer; Style: UINT): Bool; stdcall;
  370.  
  371. function ImageList_Replace(ImageList: HImageList; Index: Integer;
  372.   Image, Mask: HBitmap): Bool; stdcall;
  373. function ImageList_AddMasked(ImageList: HImageList; Image: HBitmap;
  374.   Mask: TColorRef): Integer; stdcall;
  375. function ImageList_DrawEx(ImageList: HImageList; Index: Integer;
  376.   Dest: HDC; X, Y, DX, DY: Integer; Bk, Fg: TColorRef; Style: Cardinal): Bool; stdcall;
  377. function ImageList_Remove(ImageList: HImageList; Index: Integer): Bool; stdcall;
  378. function ImageList_GetIcon(ImageList: HImageList; Index: Integer;
  379.   Flags: Cardinal): HIcon; stdcall;
  380. function ImageList_LoadImage(Instance: THandle; Bmp: LPCSTR; CX, Grow: Integer;
  381.   Mask: TColorRef; pType, Flags: Cardinal): HImageList; stdcall;
  382. function ImageList_BeginDrag(ImageList: HImageList; Track: Integer;
  383.   XHotSpot, YHotSpot: Integer): Bool; stdcall;
  384. function ImageList_EndDrag: Bool; stdcall;
  385. function ImageList_DragEnter(LockWnd: HWnd; X, Y: Integer): Bool; stdcall;
  386. function ImageList_DragLeave(LockWnd: HWnd): Bool; stdcall;
  387. function ImageList_DragMove(X, Y: Integer): Bool; stdcall;
  388. function ImageList_SetDragCursorImage(ImageList: HImageList; Drag: Integer;
  389.   XHotSpot, YHotSpot: Integer): Bool; stdcall;
  390. function ImageList_DragShowNolock(Show: Bool): Bool; stdcall;
  391. function ImageList_GetDragImage(Point, HotSpot: PPoint): HImageList; stdcall;
  392.  
  393. { macros }
  394. procedure ImageList_RemoveAll(ImageList: HImageList);
  395. function ImageList_ExtractIcon(Instance: THandle; ImageList: HImageList;
  396.   Image: Integer): HIcon;
  397. function ImageList_LoadBitmap(Instance: THandle; Bmp: PChar;
  398.   CX, Grow: Integer; MasK: TColorRef): HImageList;
  399.  
  400. type
  401.   PImageInfo = ^TImageInfo;
  402.   TImageInfo = packed record
  403.     hbmImage: HBitmap;
  404.     hbmMask: HBitmap;
  405.     Unused1: Integer;
  406.     Unused2: Integer;
  407.     rcImage: TRect;
  408.   end;
  409.  
  410. function ImageList_GetIconSize(ImageList: HImageList; var CX, CY: Integer): Bool; stdcall;
  411. function ImageList_SetIconSize(ImageList: HImageList; CX, CY: Integer): Bool; stdcall;
  412. function ImageList_GetImageInfo(ImageList: HImageList; Index: Integer;
  413.   var ImageInfo: TImageInfo): Bool; stdcall;
  414. function ImageList_Merge(ImageList1: HImageList; Index1: Integer;
  415.   ImageList2: HImageList; Index2: Integer; DX, DY: Integer): Bool; stdcall;
  416.  
  417.  
  418. { ====== HEADER CONTROL ========================== }
  419.  
  420. const
  421.   WC_HEADER = 'SysHeader32';
  422.  
  423.   HDS_HORZ                = $00000000;
  424.   HDS_BUTTONS             = $00000002;
  425.   HDS_HIDDEN              = $00000008;
  426.  
  427. type
  428.   PHDItemA = ^THDItemA;
  429.   PHDItemW = ^THDItemW;
  430.   PHDItem = PHDItemA;
  431.   THDItemA = packed record
  432.     Mask: Cardinal;
  433.     cxy: Integer;
  434.     pszText: PAnsiChar;
  435.     hbm: HBITMAP;
  436.     cchTextMax: Integer;
  437.     fmt: Integer;
  438.     lParam: LPARAM;
  439.   end;
  440.   THDItemW = packed record
  441.     Mask: Cardinal;
  442.     cxy: Integer;
  443.     pszText: PWideChar;
  444.     hbm: HBITMAP;
  445.     cchTextMax: Integer;
  446.     fmt: Integer;
  447.     lParam: LPARAM;
  448.   end;
  449.   THDItem = THDItemA;
  450.  
  451. const
  452.   HDI_WIDTH               = $0001;
  453.   HDI_HEIGHT              = HDI_WIDTH;
  454.   HDI_TEXT                = $0002;
  455.   HDI_FORMAT              = $0004;
  456.   HDI_LPARAM              = $0008;
  457.   HDI_BITMAP              = $0010;
  458.  
  459.   HDF_LEFT                = 0;
  460.   HDF_RIGHT               = 1;
  461.   HDF_CENTER              = 2;
  462.   HDF_JUSTIFYMASK         = $0003;
  463.  
  464.   HDF_OWNERDRAW           = $8000;
  465.   HDF_STRING              = $4000;
  466.   HDF_BITMAP              = $2000;
  467.  
  468.   HDM_GETITEMCOUNT        = HDM_FIRST + 0;
  469.  
  470. function Header_GetItemCount(Header: HWnd): Integer;
  471.  
  472. const
  473.   HDM_INSERTITEMW          = HDM_FIRST + 10;
  474.   HDM_INSERTITEMA          = HDM_FIRST + 1;
  475. {$IFDEF UNICODE}
  476.   HDM_INSERTITEM           = HDM_INSERTITEMW;
  477. {$ELSE}
  478.   HDM_INSERTITEM           = HDM_INSERTITEMA;
  479. {$ENDIF}
  480.  
  481. function Header_InsertItem(Header: HWnd; Index: Integer;
  482.   const Item: THDItem): Integer;
  483.  
  484. const
  485.   HDM_DELETEITEM          = HDM_FIRST + 2;
  486.  
  487. function Header_DeleteItem(Header: HWnd; Index: Integer): Bool;
  488.  
  489. const
  490.   HDM_GETITEMW             = HDM_FIRST + 11;
  491.   HDM_GETITEMA             = HDM_FIRST + 3;
  492. {$IFDEF UNICODE}
  493.   HDM_GETITEM              = HDM_GETITEMW;
  494. {$ELSE}
  495.   HDM_GETITEM              = HDM_GETITEMA;
  496. {$ENDIF}
  497.  
  498. function Header_GetItem(Header: HWnd; Index: Integer;
  499.   var Item: THDItem): Bool;
  500.  
  501. const
  502.   HDM_SETITEMA            = HDM_FIRST + 4;
  503.   HDM_SETITEMW            = HDM_FIRST + 12;
  504. {$IFDEF UNICODE}
  505.   HDM_SETITEM             = HDM_SETITEMW;
  506. {$ELSE}
  507.   HDM_SETITEM             = HDM_SETITEMA;
  508. {$ENDIF}
  509.  
  510. function Header_SetItem(Header: HWnd; Index: Integer; const Item: THDItem): Bool;
  511.  
  512. type
  513.   PHDLayout = ^THDLayout;
  514.   THDLayout = packed record
  515.     Rect: ^TRect;
  516.     WindowPos: PWindowPos;
  517.   end;
  518.  
  519. const
  520.   HDM_LAYOUT              = HDM_FIRST + 5;
  521.  
  522. function Header_Layout(Header: HWnd; Layout: PHDLayout): Bool;
  523.  
  524. const
  525.   HHT_NOWHERE             = $0001;
  526.   HHT_ONHEADER            = $0002;
  527.   HHT_ONDIVIDER           = $0004;
  528.   HHT_ONDIVOPEN           = $0008;
  529.   HHT_ABOVE               = $0100;
  530.   HHT_BELOW               = $0200;
  531.   HHT_TORIGHT             = $0400;
  532.   HHT_TOLEFT              = $0800;
  533.  
  534. type
  535.   PHDHitTestInfo = ^THDHitTestInfo;
  536.   THDHitTestInfo = packed record
  537.     Point: TPoint;
  538.     Flags: Cardinal;
  539.     Item: Integer;
  540.   end;
  541.  
  542. const
  543.   HDM_HITTEST             = HDM_FIRST + 6;
  544.  
  545. const
  546.   HDN_ITEMCHANGINGA        = HDN_FIRST-0;
  547.   HDN_ITEMCHANGEDA         = HDN_FIRST-1;
  548.   HDN_ITEMCLICKA           = HDN_FIRST-2;
  549.   HDN_ITEMDBLCLICKA        = HDN_FIRST-3;
  550.   HDN_DIVIDERDBLCLICKA     = HDN_FIRST-5;
  551.   HDN_BEGINTRACKA          = HDN_FIRST-6;
  552.   HDN_ENDTRACKA            = HDN_FIRST-7;
  553.   HDN_TRACKA               = HDN_FIRST-8;
  554.  
  555.   HDN_ITEMCHANGINGW        = HDN_FIRST-20;
  556.   HDN_ITEMCHANGEDW         = HDN_FIRST-21;
  557.   HDN_ITEMCLICKW           = HDN_FIRST-22;
  558.   HDN_ITEMDBLCLICKW        = HDN_FIRST-23;
  559.   HDN_DIVIDERDBLCLICKW     = HDN_FIRST-25;
  560.   HDN_BEGINTRACKW          = HDN_FIRST-26;
  561.   HDN_ENDTRACKW            = HDN_FIRST-27;
  562.   HDN_TRACKW               = HDN_FIRST-28;
  563.  
  564. {$IFDEF UNICODE}
  565.   HDN_ITEMCHANGING        = HDN_ITEMCHANGINGW;
  566.   HDN_ITEMCHANGED         = HDN_ITEMCHANGEDW;
  567.   HDN_ITEMCLICK           = HDN_ITEMCLICKW;
  568.   HDN_ITEMDBLCLICK        = HDN_ITEMDBLCLICKW;
  569.   HDN_DIVIDERDBLCLICK     = HDN_DIVIDERDBLCLICKW;
  570.   HDN_BEGINTRACK          = HDN_BEGINTRACKW;
  571.   HDN_ENDTRACK            = HDN_ENDTRACKW;
  572.   HDN_TRACK               = HDN_TRACKW;
  573. {$ELSE}
  574.   HDN_ITEMCHANGING        = HDN_ITEMCHANGINGA;
  575.   HDN_ITEMCHANGED         = HDN_ITEMCHANGEDA;
  576.   HDN_ITEMCLICK           = HDN_ITEMCLICKA;
  577.   HDN_ITEMDBLCLICK        = HDN_ITEMDBLCLICKA;
  578.   HDN_DIVIDERDBLCLICK     = HDN_DIVIDERDBLCLICKA;
  579.   HDN_BEGINTRACK          = HDN_BEGINTRACKA;
  580.   HDN_ENDTRACK            = HDN_ENDTRACKA;
  581.   HDN_TRACK               = HDN_TRACKA;
  582. {$ENDIF}
  583.  
  584. type
  585.   PHDNotifyA = ^THDNotifyA;
  586.   PHDNotifyW = ^THDNotifyW;
  587.   PHDNotify = PHDNotifyA;
  588.   THDNotifyA = packed record
  589.     Hdr: TNMHDR;
  590.     Item: Integer;
  591.     Button: Integer;
  592.     PItem: PHDItemA;
  593.   end;
  594.   THDNotifyW = packed record
  595.     Hdr: TNMHDR;
  596.     Item: Integer;
  597.     Button: Integer;
  598.     PItem: PHDItemW;
  599.   end;
  600.   THDNotify = THDNotifyA;
  601.  
  602.  
  603. { ====== TOOLBAR CONTROL =================== }
  604.  
  605. const
  606.   TOOLBARCLASSNAME = 'ToolbarWindow32';
  607.  
  608. type
  609.   PTBButton = ^TTBButton;
  610.   TTBButton = packed record
  611.     iBitmap: Integer;
  612.     idCommand: Integer;
  613.     fsState: Byte;
  614.     fsStyle: Byte;
  615.     bReserved: array[1..2] of Byte;
  616.     dwData: Longint;
  617.     iString: Integer;
  618.   end;
  619.  
  620.   PColorMap = ^TColorMap;
  621.   TColorMap = packed record
  622.     cFrom: TColorRef;
  623.     cTo: TColorRef;
  624.   end;
  625.  
  626. function CreateToolBarEx(Wnd: HWnd; ws: Longint; ID: UINT;
  627.   Bitmaps: Integer; BMInst: THandle; BMID: Cardinal; Buttons: PTBButton;
  628.   NumButtons: Integer; dxButton, dyButton: Integer;
  629.   dxBitmap, dyBitmap: Integer; StructSize: UINT): HWnd; stdcall;
  630.  
  631. function CreateMappedBitmap(Instance: THandle; Bitmap: Integer;
  632.   Flags: UINT; ColorMap: PColorMap; NumMaps: Integer): HBitmap; stdcall;
  633.  
  634. const
  635.  
  636.   CMB_MASKED              = $02;
  637.  
  638.   TBSTATE_CHECKED         = $01;
  639.   TBSTATE_PRESSED         = $02;
  640.   TBSTATE_ENABLED         = $04;
  641.   TBSTATE_HIDDEN          = $08;
  642.   TBSTATE_INDETERMINATE   = $10;
  643.   TBSTATE_WRAP            = $20;
  644.  
  645.   TBSTYLE_BUTTON          = $00;
  646.   TBSTYLE_SEP             = $01;
  647.   TBSTYLE_CHECK           = $02;
  648.   TBSTYLE_GROUP           = $04;
  649.   TBSTYLE_CHECKGROUP      = TBSTYLE_GROUP or TBSTYLE_CHECK;
  650.  
  651.   TBSTYLE_TOOLTIPS        = $0100;
  652.   TBSTYLE_WRAPABLE        = $0200;
  653.   TBSTYLE_ALTDRAG         = $0400;
  654.  
  655.   TB_ENABLEBUTTON         = WM_USER + 1;
  656.   TB_CHECKBUTTON          = WM_USER + 2;
  657.   TB_PRESSBUTTON          = WM_USER + 3;
  658.   TB_HIDEBUTTON           = WM_USER + 4;
  659.   TB_INDETERMINATE        = WM_USER + 5;
  660.   TB_ISBUTTONENABLED      = WM_USER + 9;
  661.   TB_ISBUTTONCHECKED      = WM_USER + 10;
  662.   TB_ISBUTTONPRESSED      = WM_USER + 11;
  663.   TB_ISBUTTONHIDDEN       = WM_USER + 12;
  664.   TB_ISBUTTONINDETERMINATE = WM_USER + 13;
  665.   TB_SETSTATE             = WM_USER + 17;
  666.   TB_GETSTATE             = WM_USER + 18;
  667.   TB_ADDBITMAP            = WM_USER + 19;
  668.  
  669. type
  670.   PTBAddBitmap = ^TTBAddBitmap;
  671.   TTBAddBitmap = packed record
  672.     hInst: THandle;
  673.     nID: UINT;
  674.   end;
  675.  
  676. const
  677.   HINST_COMMCTRL = THandle(-1);
  678.  
  679.   IDB_STD_SMALL_COLOR     = 0;
  680.   IDB_STD_LARGE_COLOR     = 1;
  681.   IDB_VIEW_SMALL_COLOR    = 4;
  682.   IDB_VIEW_LARGE_COLOR    = 5;
  683.  
  684. { icon indexes for standard bitmap }
  685.   STD_CUT                 = 0;
  686.   STD_COPY                = 1;
  687.   STD_PASTE               = 2;
  688.   STD_UNDO                = 3;
  689.   STD_REDOW               = 4;
  690.   STD_DELETE              = 5;
  691.   STD_FILENEW             = 6;
  692.   STD_FILEOPEN            = 7;
  693.   STD_FILESAVE            = 8;
  694.   STD_PRINTPRE            = 9;
  695.   STD_PROPERTIES          = 10;
  696.   STD_HELP                = 11;
  697.   STD_FIND                = 12;
  698.   STD_REPLACE             = 13;
  699.   STD_PRINT               = 14;
  700.  
  701. { icon indexes for standard view bitmap }
  702.  
  703.   VIEW_LARGEICONS         = 0;
  704.   VIEW_SMALLICONS         = 1;
  705.   VIEW_LIST               = 2;
  706.   VIEW_DETAILS            = 3;
  707.   VIEW_SORTNAME           = 4;
  708.   VIEW_SORTSIZE           = 5;
  709.   VIEW_SORTDATE           = 6;
  710.   VIEW_SORTTYPE           = 7;
  711.   VIEW_PARENTFOLDER       = 8;
  712.   VIEW_NETCONNECT         = 9;
  713.   VIEW_NETDISCONNECT      = 10;
  714.   VIEW_NEWFOLDER          = 11;
  715.  
  716.   TB_ADDBUTTONS           = WM_USER + 20;
  717.   TB_INSERTBUTTON         = WM_USER + 21;
  718.   TB_DELETEBUTTON         = WM_USER + 22;
  719.   TB_GETBUTTON            = WM_USER + 23;
  720.   TB_BUTTONCOUNT          = WM_USER + 24;
  721.   TB_COMMANDTOINDEX       = WM_USER + 25;
  722.  
  723. type
  724.   PTBSaveParamsA = ^TTBSaveParamsA;
  725.   PTBSaveParamsW = ^TTBSaveParamsW;
  726.   PTBSaveParams = PTBSaveParamsA;
  727.   TTBSaveParamsA = packed record
  728.     hkr: THandle;
  729.     pszSubKey: PAnsiChar;
  730.     pszValueName: PAnsiChar;
  731.   end;
  732.   TTBSaveParamsW = packed record
  733.     hkr: THandle;
  734.     pszSubKey: PWideChar;
  735.     pszValueName: PWideChar;
  736.   end;
  737.   TTBSaveParams = TTBSaveParamsA;
  738.  
  739. const
  740.   TB_SAVERESTOREA          = WM_USER + 26;
  741.   TB_ADDSTRINGA            = WM_USER + 28;
  742.   TB_GETBUTTONTEXTA        = WM_USER + 45;
  743.   TBN_GETBUTTONINFOA       = TBN_FIRST-0;
  744.  
  745.   TB_SAVERESTOREW          = WM_USER + 47;
  746.   TB_ADDSTRINGW            = WM_USER + 48;
  747.   TB_GETBUTTONTEXTW        = WM_USER + 46;
  748.   TBN_GETBUTTONINFOW       = TBN_FIRST-20;
  749.  
  750. {$IFDEF UNICODE}
  751.   TB_SAVERESTORE          = TB_SAVERESTOREW;
  752.   TB_ADDSTRING            = TB_ADDSTRINGW;
  753.   TB_GETBUTTONTEXT        = TB_GETBUTTONTEXTW;
  754.   TBN_GETBUTTONINFO       = TBN_GETBUTTONINFOW;
  755. {$ELSE}
  756.   TB_SAVERESTORE          = TB_SAVERESTOREA;
  757.   TB_ADDSTRING            = TB_ADDSTRINGA;
  758.   TB_GETBUTTONTEXT        = TB_GETBUTTONTEXTA;
  759.   TBN_GETBUTTONINFO       = TBN_GETBUTTONINFOA;
  760. {$ENDIF}
  761.  
  762.   TB_CUSTOMIZE            = WM_USER + 27;
  763.   TB_GETITEMRECT          = WM_USER + 29;
  764.   TB_BUTTONSTRUCTSIZE     = WM_USER + 30;
  765.   TB_SETBUTTONSIZE        = WM_USER + 31;
  766.   TB_SETBITMAPSIZE        = WM_USER + 32;
  767.   TB_AUTOSIZE             = WM_USER + 33;
  768.   TB_SETBUTTONTYPE        = WM_USER + 34;
  769.   TB_GETTOOLTIPS          = WM_USER + 35;
  770.   TB_SETTOOLTIPS          = WM_USER + 36;
  771.   TB_SETPARENT            = WM_USER + 37;
  772.   TB_SETROWS              = WM_USER + 39;
  773.   TB_GETROWS              = WM_USER + 40;
  774.   TB_SETCMDID             = WM_USER + 42;
  775.   TB_CHANGEBITMAP         = WM_USER + 43;
  776.   TB_GETBITMAP            = WM_USER + 44;
  777.  
  778.   TB_GETBITMAPFLAGS       = WM_USER + 41;
  779.  
  780.   TBN_BEGINDRAG           = TBN_FIRST-1;
  781.   TBN_ENDDRAG             = TBN_FIRST-2;
  782.   TBN_BEGINADJUST         = TBN_FIRST-3;
  783.   TBN_ENDADJUST           = TBN_FIRST-4;
  784.   TBN_RESET               = TBN_FIRST-5;
  785.   TBN_QUERYINSERT         = TBN_FIRST-6;
  786.   TBN_QUERYDELETE         = TBN_FIRST-7;
  787.   TBN_TOOLBARCHANGE       = TBN_FIRST-8;
  788.   TBN_CUSTHELP            = TBN_FIRST-9;
  789.  
  790.   TBBF_LARGE              = $0001;
  791.  
  792. type
  793.   PTBNotifyA = ^TTBNotifyA;
  794.   PTBNotifyW = ^TTBNotifyW;
  795.   PTBNotify = PTBNotifyA;
  796.   TTBNotifyA = packed record
  797.     hdr: TNMHdr;
  798.     tbButton: TTBButton;
  799.     cchText: Integer;
  800.     pszText: PAnsiChar;
  801.   end;
  802.   TTBNotifyW = packed record
  803.     hdr: TNMHdr;
  804.     tbButton: TTBButton;
  805.     cchText: Integer;
  806.     pszText: PWideChar;
  807.   end;
  808.   TTBNotify = TTBNotifyA;
  809.  
  810.  
  811. { ====== TOOLTIPS CONTROL ========================== }
  812.  
  813. const
  814.   TOOTIPS_CLASS = 'tooltips_class32';
  815.  
  816. type
  817.   PToolInfoA = ^TToolInfoA;
  818.   PToolInfoW = ^TToolInfoW;
  819.   PToolInfo = PToolInfoA;
  820.   TToolInfoA = packed record
  821.     cbSize: UINT;
  822.     uFlags: UINT;
  823.     hwnd: HWND;
  824.     uId: UINT;
  825.     Rect: TRect;
  826.     hInst: THandle;
  827.     lpszText: PAnsiChar;
  828.   end;
  829.   TToolInfoW = packed record
  830.     cbSize: UINT;
  831.     uFlags: UINT;
  832.     hwnd: HWND;
  833.     uId: UINT;
  834.     Rect: TRect;
  835.     hInst: THandle;
  836.     lpszText: PWideChar;
  837.   end;
  838.   TToolInfo = TToolInfoA;
  839.  
  840. const
  841.   TTS_ALWAYSTIP           = $01;
  842.   TTS_NOPREFIX            = $02;
  843.  
  844.   TTF_IDISHWND            = $01;
  845.   TTF_CENTERTIP           = $02;
  846.  
  847.   TTDT_AUTOMATIC          = 0;
  848.   TTDT_RESHOW             = 1;
  849.   TTDT_AUTOPOP            = 2;
  850.   TTDT_INITIAL            = 3;
  851.  
  852.   TTM_ACTIVATE            = WM_USER + 1;
  853.   TTM_SETDELAYTIME        = WM_USER + 3;
  854.  
  855.   TTM_ADDTOOLA             = WM_USER + 4;
  856.   TTM_DELTOOLA             = WM_USER + 5;
  857.   TTM_NEWTOOLRECTA         = WM_USER + 6;
  858.   TTM_GETTOOLINFOA         = WM_USER + 8;
  859.   TTM_SETTOOLINFOA         = WM_USER + 9;
  860.   TTM_HITTESTA             = WM_USER + 10;
  861.   TTM_GETTEXTA             = WM_USER + 11;
  862.   TTM_UPDATETIPTEXTA       = WM_USER + 12;
  863.   TTM_ENUMTOOLSA           = WM_USER + 14;
  864.   TTM_GETCURRENTTOOLA      = WM_USER + 15;
  865.  
  866.   TTM_ADDTOOLW             = WM_USER + 50;
  867.   TTM_DELTOOLW             = WM_USER + 51;
  868.   TTM_NEWTOOLRECTW         = WM_USER + 52;
  869.   TTM_GETTOOLINFOW         = WM_USER + 53;
  870.   TTM_SETTOOLINFOW         = WM_USER + 54;
  871.   TTM_HITTESTW             = WM_USER + 55;
  872.   TTM_GETTEXTW             = WM_USER + 56;
  873.   TTM_UPDATETIPTEXTW       = WM_USER + 57;
  874.   TTM_ENUMTOOLSW           = WM_USER + 58;
  875.   TTM_GETCURRENTTOOLW      = WM_USER + 59;
  876.  
  877. {$IFDEF UNICODE}
  878.   TTM_ADDTOOL             = TTM_ADDTOOLW;
  879.   TTM_DELTOOL             = TTM_DELTOOLW;
  880.   TTM_NEWTOOLRECT         = TTM_NEWTOOLRECTW;
  881.   TTM_GETTOOLINFO         = TTM_GETTOOLINFOW;
  882.   TTM_SETTOOLINFO         = TTM_SETTOOLINFOW;
  883.   TTM_HITTEST             = TTM_HITTESTW;
  884.   TTM_GETTEXT             = TTM_GETTEXTW;
  885.   TTM_UPDATETIPTEXT       = TTM_UPDATETIPTEXTW;
  886.   TTM_ENUMTOOLS           = TTM_ENUMTOOLSW;
  887.   TTM_GETCURRENTTOOL      = TTM_GETCURRENTTOOLW;
  888. {$ELSE}
  889.   TTM_ADDTOOL             = TTM_ADDTOOLA;
  890.   TTM_DELTOOL             = TTM_DELTOOLA;
  891.   TTM_NEWTOOLRECT         = TTM_NEWTOOLRECTA;
  892.   TTM_GETTOOLINFO         = TTM_GETTOOLINFOA;
  893.   TTM_SETTOOLINFO         = TTM_SETTOOLINFOA;
  894.   TTM_HITTEST             = TTM_HITTESTA;
  895.   TTM_GETTEXT             = TTM_GETTEXTA;
  896.   TTM_UPDATETIPTEXT       = TTM_UPDATETIPTEXTA;
  897.   TTM_ENUMTOOLS           = TTM_ENUMTOOLSA;
  898.   TTM_GETCURRENTTOOL      = TTM_GETCURRENTTOOLA;
  899. {$ENDIF}
  900.  
  901.   TTM_RELAYEVENT          = WM_USER + 7;
  902.   TTM_GETTOOLCOUNT        = WM_USER +13;
  903.  
  904.  
  905. type
  906.   PTTHitTestInfoA = ^TTTHitTestInfoA;
  907.   PTTHitTestInfoW = ^TTTHitTestInfoW;
  908.   PTTHitTestInfo = PTTHitTestInfoA;
  909.   TTTHitTestInfoA = packed record
  910.     hwnd: HWND;
  911.     pt: TPoint;
  912.     ti: TToolInfoA;
  913.   end;
  914.   TTTHitTestInfoW = packed record
  915.     hwnd: HWND;
  916.     pt: TPoint;
  917.     ti: TToolInfoW;
  918.   end;
  919.   TTTHitTestInfo = TTTHitTestInfoA;
  920.  
  921.  
  922. const
  923.   TTN_NEEDTEXTA            = TTN_FIRST - 0;
  924.   TTN_NEEDTEXTW            = TTN_FIRST - 10;
  925.  
  926. {$IFDEF UNICODE}
  927.   TTN_NEEDTEXT            = TTN_NEEDTEXTW;
  928. {$ELSE}
  929.   TTN_NEEDTEXT            = TTN_NEEDTEXTA;
  930. {$ENDIF}
  931.  
  932.   TTN_SHOW                = TTN_FIRST - 1;
  933.   TTN_POP                 = TTN_FIRST - 2;
  934.  
  935. type
  936.   PToolTipTextA = ^TToolTipTextA;
  937.   PToolTipTextW = ^TToolTipTextW;
  938.   PToolTipText = PToolTipTextA;
  939.   TToolTipTextA = packed record
  940.     hdr: TNMHDR;
  941.     lpszText: PAnsiChar;
  942.     szText: array[0..79] of Char;
  943.     hinst: THandle;
  944.     uFlags: UINT;
  945.   end;
  946.   TToolTipTextW = packed record
  947.     hdr: TNMHDR;
  948.     lpszText: PWideChar;
  949.     szText: array[0..79] of Char;
  950.     hinst: THandle;
  951.     uFlags: UINT;
  952.   end;
  953.   TToolTipText = TToolTipTextA;
  954.  
  955.  
  956. { ====== STATUS BAR CONTROL ================= }
  957.  
  958. const
  959.   SBARS_SIZEGRIP          = $0100;
  960.  
  961. procedure DrawStatusTextA(hDC: HDC; lprc: PRect; pzsText: PAnsiChar;
  962.   uFlags: UINT); stdcall;
  963. procedure DrawStatusTextW(hDC: HDC; lprc: PRect; pzsText: PWideChar;
  964.   uFlags: UINT); stdcall;
  965. procedure DrawStatusText(hDC: HDC; lprc: PRect; pzsText: PChar;
  966.   uFlags: UINT); stdcall;
  967. function CreateStatusWindowA(Style: Longint; lpszText: PAnsiChar;
  968.   hwndParent: HWND; wID: UINT): HWND; stdcall;
  969. function CreateStatusWindowW(Style: Longint; lpszText: PWideChar;
  970.   hwndParent: HWND; wID: UINT): HWND; stdcall;
  971. function CreateStatusWindow(Style: Longint; lpszText: PChar;
  972.   hwndParent: HWND; wID: UINT): HWND; stdcall;
  973.  
  974. const
  975.   STATUSCLASSNAME = 'msctls_statusbar32';
  976.  
  977. const
  978.   SB_SETTEXTA             = WM_USER+1;
  979.   SB_GETTEXTA             = WM_USER+2;
  980.   SB_GETTEXTLENGTHA       = WM_USER+3;
  981.  
  982.   SB_SETTEXTW             = WM_USER+11;
  983.   SB_GETTEXTW             = WM_USER+13;
  984.   SB_GETTEXTLENGTHW       = WM_USER+12;
  985.  
  986. {$IFDEF UNICODE}
  987.   SB_SETTEXT             = SB_SETTEXTW;
  988.   SB_GETTEXT             = SB_GETTEXTW;
  989.   SB_GETTEXTLENGTH       = SB_GETTEXTLENGTHW;
  990. {$ELSE}
  991.   SB_SETTEXT             = SB_SETTEXTA;
  992.   SB_GETTEXT             = SB_GETTEXTA;
  993.   SB_GETTEXTLENGTH       = SB_GETTEXTLENGTHA;
  994. {$ENDIF}
  995.  
  996.   SB_SETPARTS             = WM_USER+4;
  997.   SB_GETPARTS             = WM_USER+6;
  998.   SB_GETBORDERS           = WM_USER+7;
  999.   SB_SETMINHEIGHT         = WM_USER+8;
  1000.   SB_SIMPLE               = WM_USER+9;
  1001.   SB_GETRECT              = WM_USER + 10;
  1002.  
  1003.   SBT_OWNERDRAW            = $1000;
  1004.   SBT_NOBORDERS            = $0100;
  1005.   SBT_POPOUT               = $0200;
  1006.   HBT_SPRING               = $0400;
  1007.  
  1008.  
  1009. { ====== MENU HELP ========================== }
  1010.  
  1011. procedure MenuHelp(Msg: UINT; wParam: WPARAM; lParam: LPARAM;
  1012.   hMainMenu: HMENU; hInst: THandle; hwndStatus: HWND; lpwIDs: PUINT); stdcall;
  1013. function ShowHideMenuCtl(hWnd: HWND; uFlags: UINT; lpInfo: PINT): Bool; stdcall;
  1014. procedure GetEffectiveClientRect(hWnd: HWND; lprc: PRect; lpInfo: PINT); stdcall;
  1015.  
  1016. const
  1017.   MINSYSCOMMAND   = SC_SIZE;
  1018.  
  1019.  
  1020. { ====== TRACKBAR CONTROL =================== }
  1021.  
  1022.   TRACKBAR_CLASS = 'msctls_trackbar32';
  1023.  
  1024. const
  1025.   TBS_AUTOTICKS           = $0001;
  1026.   TBS_VERT                = $0002;
  1027.   TBS_HORZ                = $0000;
  1028.   TBS_TOP                 = $0004;
  1029.   TBS_BOTTOM              = $0000;
  1030.   TBS_LEFT                = $0004;
  1031.   TBS_RIGHT               = $0000;
  1032.   TBS_BOTH                = $0008;
  1033.   TBS_NOTICKS             = $0010;
  1034.   TBS_ENABLESELRANGE      = $0020;
  1035.   TBS_FIXEDLENGTH         = $0040;
  1036.   TBS_NOTHUMB             = $0080;
  1037.  
  1038.   TBM_GETPOS              = WM_USER;
  1039.   TBM_GETRANGEMIN         = WM_USER+1;
  1040.   TBM_GETRANGEMAX         = WM_USER+2;
  1041.   TBM_GETTIC              = WM_USER+3;
  1042.   TBM_SETTIC              = WM_USER+4;
  1043.   TBM_SETPOS              = WM_USER+5;
  1044.   TBM_SETRANGE            = WM_USER+6;
  1045.   TBM_SETRANGEMIN         = WM_USER+7;
  1046.   TBM_SETRANGEMAX         = WM_USER+8;
  1047.   TBM_CLEARTICS           = WM_USER+9;
  1048.   TBM_SETSEL              = WM_USER+10;
  1049.   TBM_SETSELSTART         = WM_USER+11;
  1050.   TBM_SETSELEND           = WM_USER+12;
  1051.   TBM_GETPTICS            = WM_USER+14;
  1052.   TBM_GETTICPOS           = WM_USER+15;
  1053.   TBM_GETNUMTICS          = WM_USER+16;
  1054.   TBM_GETSELSTART         = WM_USER+17;
  1055.   TBM_GETSELEND           = WM_USER+18;
  1056.   TBM_CLEARSEL            = WM_USER+19;
  1057.   TBM_SETTICFREQ          = WM_USER+20;
  1058.   TBM_SETPAGESIZE         = WM_USER+21;
  1059.   TBM_GETPAGESIZE         = WM_USER+22;
  1060.   TBM_SETLINESIZE         = WM_USER+23;
  1061.   TBM_GETLINESIZE         = WM_USER+24;
  1062.   TBM_GETTHUMBRECT        = WM_USER+25;
  1063.   TBM_GETCHANNELRECT      = WM_USER+26;
  1064.   TBM_SETTHUMBLENGTH      = WM_USER+27;
  1065.   TBM_GETTHUMBLENGTH      = WM_USER+28;
  1066.  
  1067.   TB_LINEUP               = 0;
  1068.   TB_LINEDOWN             = 1;
  1069.   TB_PAGEUP               = 2;
  1070.   TB_PAGEDOWN             = 3;
  1071.   TB_THUMBPOSITION        = 4;
  1072.   TB_THUMBTRACK           = 5;
  1073.   TB_TOP                  = 6;
  1074.   TB_BOTTOM               = 7;
  1075.   TB_ENDTRACK             = 8;
  1076.  
  1077.  
  1078.  
  1079. { ====== DRAG LIST CONTROL ================== }
  1080.  
  1081. type
  1082.   PDragListInfo = ^TDragListInfo;
  1083.   TDragListInfo = packed record
  1084.     uNotification: UINT;
  1085.     hWnd: HWND;
  1086.     ptCursor: TPoint;
  1087.   end;
  1088.  
  1089. const
  1090.   DL_BEGINDRAG            = WM_USER+133;
  1091.   DL_DRAGGING             = WM_USER+134;
  1092.   DL_DROPPED              = WM_USER+135;
  1093.   DL_CANCELDRAG           = WM_USER+136;
  1094.  
  1095.   DL_CURSORSET            = 0;
  1096.   DL_STOPCURSOR           = 1;
  1097.   DL_COPYCURSOR           = 2;
  1098.   DL_MOVECURSOR           = 3;
  1099.  
  1100. const
  1101.   DRAGLISTMSGSTRING = 'commctrl_DragListMsg';
  1102.  
  1103. procedure MakeDragList(hLB: HWND); stdcall;
  1104. procedure DrawInsert(hwndParent: HWND; hLB: HWND; nItem: Integer); stdcall;
  1105. function LBItemFromPt(hLB: HWND; pt: TPoint; bAutoScroll: Bool): Integer; stdcall;
  1106.  
  1107.  
  1108. { ====== UPDOWN CONTROL ========================== }
  1109.  
  1110. const
  1111.   UPDOWN_CLASS = 'msctls_updown32';
  1112.  
  1113. type
  1114.   PUDAccel = ^TUDAccel;
  1115.   TUDAccel = packed record
  1116.     nSec: UINT;
  1117.     nInc: UINT;
  1118.   end;
  1119.  
  1120. const
  1121.   UD_MAXVAL               = $7fff;
  1122.   UD_MINVAL               = -UD_MAXVAL;
  1123.  
  1124.   UDS_WRAP                = $0001;
  1125.   UDS_SETBUDDYINT         = $0002;
  1126.   UDS_ALIGNRIGHT          = $0004;
  1127.   UDS_ALIGNLEFT           = $0008;
  1128.   UDS_AUTOBUDDY           = $0010;
  1129.   UDS_ARROWKEYS           = $0020;
  1130.   UDS_HORZ                = $0040;
  1131.   UDS_NOTHOUSANDS         = $0080;
  1132.  
  1133.  
  1134.   UDM_SETRANGE            = WM_USER+101;
  1135.   UDM_GETRANGE            = WM_USER+102;
  1136.   UDM_SETPOS              = WM_USER+103;
  1137.   UDM_GETPOS              = WM_USER+104;
  1138.   UDM_SETBUDDY            = WM_USER+105;
  1139.   UDM_GETBUDDY            = WM_USER+106;
  1140.   UDM_SETACCEL            = WM_USER+107;
  1141.   UDM_GETACCEL            = WM_USER+108;
  1142.   UDM_SETBASE             = WM_USER+109;
  1143.   UDM_GETBASE             = WM_USER+110;
  1144.  
  1145. function CreateUpDownControl(dwStyle: Longint; X, Y, CX, CY: Integer;
  1146.   hParent: HWND;  nID: Integer; hInst: THandle; hBuddy: HWND;
  1147.   nUpper, nLower, nPos: Integer): HWND; stdcall;
  1148.  
  1149. type
  1150.   PNMUpDown = ^TNMUpDown;
  1151.   TNMUpDown = packed record
  1152.     hdr: TNMHDR;
  1153.     iPos: Integer;
  1154.     iDelta: Integer;
  1155.   end;
  1156.  
  1157. const
  1158.   UDN_DELTAPOS = UDN_FIRST - 1;
  1159.  
  1160.  
  1161. { ====== PROGRESS CONTROL ========================= }
  1162.  
  1163. const
  1164.   PROGRESS_CLASS = 'msctls_progress32';
  1165.  
  1166. const
  1167.   PBM_SETRANGE            = WM_USER+1;
  1168.   PBM_SETPOS              = WM_USER+2;
  1169.   PBM_DELTAPOS            = WM_USER+3;
  1170.   PBM_SETSTEP             = WM_USER+4;
  1171.   PBM_STEPIT              = WM_USER+5;
  1172.  
  1173.  
  1174. {  ====== HOTKEY CONTROL ========================== }
  1175.  
  1176. const
  1177.   HOTKEYF_SHIFT           = $01;
  1178.   HOTKEYF_CONTROL         = $02;
  1179.   HOTKEYF_ALT             = $04;
  1180.   HOTKEYF_EXT             = $08;
  1181.  
  1182.   HKCOMB_NONE             = $0001;
  1183.   HKCOMB_S                = $0002;
  1184.   HKCOMB_C                = $0004;
  1185.   HKCOMB_A                = $0008;
  1186.   HKCOMB_SC               = $0010;
  1187.   HKCOMB_SA               = $0020;
  1188.   HKCOMB_CA               = $0040;
  1189.   HKCOMB_SCA              = $0080;
  1190.  
  1191.  
  1192.   HKM_SETHOTKEY           = WM_USER+1;
  1193.   HKM_GETHOTKEY           = WM_USER+2;
  1194.   HKM_SETRULES            = WM_USER+3;
  1195.  
  1196. const
  1197.   HOTKEYCLASS = 'msctls_hotkey32';
  1198.  
  1199.  
  1200. { ====== COMMON CONTROL STYLES ================ }
  1201.  
  1202. const
  1203.   CCS_TOP                 = $00000001;
  1204.   CCS_NOMOVEY             = $00000002;
  1205.   CCS_BOTTOM              = $00000003;
  1206.   CCS_NORESIZE            = $00000004;
  1207.   CCS_NOPARENTALIGN       = $00000008;
  1208.   CCS_NOHILITE            = $00000010;
  1209.   CCS_ADJUSTABLE          = $00000020;
  1210.   CCS_NODIVIDER           = $00000040;
  1211.  
  1212.  
  1213. { ====== LISTVIEW CONTROL ====================== }
  1214.  
  1215. const
  1216.   WC_LISTVIEW = 'SysListView32';
  1217.  
  1218. const
  1219.   LVS_ICON                = $0000;
  1220.   LVS_REPORT              = $0001;
  1221.   LVS_SMALLICON           = $0002;
  1222.   LVS_LIST                = $0003;
  1223.   LVS_TYPEMASK            = $0003;
  1224.   LVS_SINGLESEL           = $0004;
  1225.   LVS_SHOWSELALWAYS       = $0008;
  1226.   LVS_SORTASCENDING       = $0010;
  1227.   LVS_SORTDESCENDING      = $0020;
  1228.   LVS_SHAREIMAGELISTS     = $0040;
  1229.   LVS_NOLABELWRAP         = $0080;
  1230.   LVS_AUTOARRANGE         = $0100;
  1231.   LVS_EDITLABELS          = $0200;
  1232.   LVS_NOSCROLL            = $2000;
  1233.  
  1234.   LVS_TYPESTYLEMASK       = $FC00;
  1235.  
  1236.   LVS_ALIGNTOP            = $0000;
  1237.   LVS_ALIGNLEFT           = $0800;
  1238.   LVS_ALIGNMASK           = $0c00;
  1239.  
  1240.   LVS_OWNERDRAWFIXED      = $0400;
  1241.   LVS_NOCOLUMNHEADER      = $4000;
  1242.   LVS_NOSORTHEADER        = $8000;
  1243.  
  1244. const
  1245.   LVM_GETBKCOLOR          = LVM_FIRST + 0;
  1246.  
  1247. function ListView_GetBkColor(hWnd: HWND): TColorRef;
  1248.  
  1249. const
  1250.   LVM_SETBKCOLOR          = LVM_FIRST + 1;
  1251.  
  1252. function ListView_SetBkColor(hWnd: HWND; clrBk: TColorRef): Bool;
  1253.  
  1254. const
  1255.   LVM_GETIMAGELIST        = LVM_FIRST + 2;
  1256.  
  1257. function ListView_GetImageList(hWnd: HWND; iImageList: Integer): HImageList;
  1258.  
  1259. const
  1260.   LVSIL_NORMAL            = 0;
  1261.   LVSIL_SMALL             = 1;
  1262.   LVSIL_STATE             = 2;
  1263.  
  1264. const
  1265.   LVM_SETIMAGELIST        = LVM_FIRST + 3;
  1266.  
  1267. function ListView_SetImageList(hWnd: HWND; himl: HImageList;
  1268.   iImageList: Integer): HImageList;
  1269.  
  1270. const
  1271.   LVM_GETITEMCOUNT        = LVM_FIRST + 4;
  1272.  
  1273. function ListView_GetItemCount(hWnd: HWND): Integer;
  1274.  
  1275. const
  1276.   LVIF_TEXT               = $0001;
  1277.   LVIF_IMAGE              = $0002;
  1278.   LVIF_PARAM              = $0004;
  1279.   LVIF_STATE              = $0008;
  1280.  
  1281.   LVIS_FOCUSED            = $0001;
  1282.   LVIS_SELECTED           = $0002;
  1283.   LVIS_CUT                = $0004;
  1284.   LVIS_DROPHILITED        = $0008;
  1285.   LVIS_LINK               = $0040;
  1286.  
  1287.   LVIS_OVERLAYMASK        = $0F00;
  1288.   LVIS_STATEIMAGEMASK     = $F000;
  1289.  
  1290. function IndexToStateImageMask(I: Longint): Longint;
  1291.  
  1292. type
  1293.   PLVItemA = ^TLVItemA;
  1294.   PLVItemW = ^TLVItemW;
  1295.   PLVItem = PLVItemA;
  1296.   TLVItemA = packed record
  1297.     mask: UINT;
  1298.     iItem: Integer;
  1299.     iSubItem: Integer;
  1300.     state: UINT;
  1301.     stateMask: UINT;
  1302.     pszText: PAnsiChar;
  1303.     cchTextMax: Integer;
  1304.     iImage: Integer;
  1305.     lParam: LPARAM;
  1306.   end;
  1307.   TLVItemW = packed record
  1308.     mask: UINT;
  1309.     iItem: Integer;
  1310.     iSubItem: Integer;
  1311.     state: UINT;
  1312.     stateMask: UINT;
  1313.     pszText: PWideChar;
  1314.     cchTextMax: Integer;
  1315.     iImage: Integer;
  1316.     lParam: LPARAM;
  1317.   end;
  1318.   TLVItem = TLVItemA;
  1319.  
  1320. const
  1321.   LPSTR_TEXTCALLBACKA = LPSTR(-1);
  1322.   LPSTR_TEXTCALLBACKW = LPWSTR(-1);
  1323.  
  1324. {$IFDEF UNICODE}
  1325.   LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKW;
  1326. {$ELSE}
  1327.   LPSTR_TEXTCALLBACK = LPSTR_TEXTCALLBACKA;
  1328. {$ENDIF}
  1329.  
  1330.   I_IMAGECALLBACK         = -1;
  1331.  
  1332. const
  1333.   LVM_GETITEMA            = LVM_FIRST + 5;
  1334.   LVM_SETITEMA            = LVM_FIRST + 6;
  1335.   LVM_INSERTITEMA         = LVM_FIRST + 7;
  1336.  
  1337.   LVM_GETITEMW            = LVM_FIRST + 75;
  1338.   LVM_SETITEMW            = LVM_FIRST + 76;
  1339.   LVM_INSERTITEMW         = LVM_FIRST + 77;
  1340.  
  1341. {$IFDEF UNICODE}
  1342.   LVM_GETITEM            = LVM_GETITEMW;
  1343.   LVM_SETITEM            = LVM_SETITEMW;
  1344.   LVM_INSERTITEM         = LVM_INSERTITEMW;
  1345. {$ELSE}
  1346.   LVM_GETITEM            = LVM_GETITEMA;
  1347.   LVM_SETITEM            = LVM_SETITEMA;
  1348.   LVM_INSERTITEM         = LVM_INSERTITEMA;
  1349. {$ENDIF}
  1350.  
  1351.   LVM_DELETEITEM          = LVM_FIRST + 8;
  1352.   LVM_DELETEALLITEMS      = LVM_FIRST + 9;
  1353.   LVM_GETCALLBACKMASK     = LVM_FIRST + 10;
  1354.   LVM_SETCALLBACKMASK     = LVM_FIRST + 11;
  1355.  
  1356. function ListView_GetItemA(hWnd: HWND; var pItem: TLVItemA): Bool;
  1357. function ListView_GetItemW(hWnd: HWND; var pItem: TLVItemW): Bool;
  1358. function ListView_GetItem(hWnd: HWND; var pItem: TLVItem): Bool;
  1359. function ListView_SetItemA(hWnd: HWND; const pItem: TLVItemA): Bool;
  1360. function ListView_SetItemW(hWnd: HWND; const pItem: TLVItemW): Bool;
  1361. function ListView_SetItem(hWnd: HWND; const pItem: TLVItem): Bool;
  1362. function ListView_InsertItemA(hWnd: HWND; const pItem: TLVItemA): Integer;
  1363. function ListView_InsertItemW(hWnd: HWND; const pItem: TLVItemW): Integer;
  1364. function ListView_InsertItem(hWnd: HWND; const pItem: TLVItem): Integer;
  1365. function ListView_DeleteItem(hWnd: HWND; i: Integer): Bool;
  1366. function ListView_DeleteAllItems(hWnd: HWND): Bool;
  1367. function ListView_GetCallbackMask(hWnd: HWND): UINT;
  1368. function ListView_SetCallbackMask(hWnd: HWND; mask: UINT): Bool;
  1369.  
  1370. const
  1371.   LVNI_ALL                = $0000;
  1372.   LVNI_FOCUSED            = $0001;
  1373.   LVNI_SELECTED           = $0002;
  1374.   LVNI_CUT                = $0004;
  1375.   LVNI_DROPHILITED        = $0008;
  1376.   LVNI_PREVIOUS           = $0020;
  1377.  
  1378.   LVNI_ABOVE              = $0100;
  1379.   LVNI_BELOW              = $0200;
  1380.   LVNI_TOLEFT             = $0400;
  1381.   LVNI_TORIGHT            = $0800;
  1382.  
  1383.  
  1384. const
  1385.   LVM_GETNEXTITEM         = LVM_FIRST + 12;
  1386.  
  1387. function ListView_GetNextItem(hWnd: HWND; iStart: Integer; Flags: UINT): Integer;
  1388.  
  1389. const
  1390.   LVFI_PARAM              = $0001;
  1391.   LVFI_STRING             = $0002;
  1392.   LVFI_PARTIAL            = $0008;
  1393.   LVFI_WRAP               = $0020;
  1394.   LVFI_NEARESTXY          = $0040;
  1395.  
  1396.  
  1397. type
  1398.   PLVFindInfoA = ^TLVFindInfoA;
  1399.   PLVFindInfoW = ^TLVFindInfoW;
  1400.   PLVFindInfo = PLVFindInfoA;
  1401.   TLVFindInfoA = packed record
  1402.     flags: UINT;
  1403.     psz: PAnsiChar;
  1404.     lParam: LPARAM;
  1405.     pt: TPoint;
  1406.     vkDirection: UINT;
  1407.   end;
  1408.   TLVFindInfoW = packed record
  1409.     flags: UINT;
  1410.     psz: PWideChar;
  1411.     lParam: LPARAM;
  1412.     pt: TPoint;
  1413.     vkDirection: UINT;
  1414.   end;
  1415.   TLVFindInfo = TLVFindInfoA;
  1416.  
  1417. const
  1418.   LVM_FINDITEMA            = LVM_FIRST + 13;
  1419.   LVM_FINDITEMW            = LVM_FIRST + 83;
  1420. {$IFDEF UNICODE}
  1421.   LVM_FINDITEM            = LVM_FINDITEMW;
  1422. {$ELSE}
  1423.   LVM_FINDITEM            = LVM_FINDITEMA;
  1424. {$ENDIF}
  1425.  
  1426. function ListView_FindItemA(hWnd: HWND; iStart: Integer;
  1427.   const plvfi: TLVFindInfoA): Integer;
  1428. function ListView_FindItemW(hWnd: HWND; iStart: Integer;
  1429.   const plvfi: TLVFindInfoW): Integer;
  1430. function ListView_FindItem(hWnd: HWND; iStart: Integer;
  1431.   const plvfi: TLVFindInfo): Integer;
  1432.  
  1433. const
  1434.   LVIR_BOUNDS             = 0;
  1435.   LVIR_ICON               = 1;
  1436.   LVIR_LABEL              = 2;
  1437.   LVIR_SELECTBOUNDS       = 3;
  1438.  
  1439.  
  1440. const
  1441.   LVM_GETITEMRECT         = LVM_FIRST + 14;
  1442.  
  1443. function ListView_GetItemRect(hWnd: HWND; i: Integer; var prc: TRect;
  1444.   Code: Integer): Bool;
  1445.  
  1446. const
  1447.   LVM_SETITEMPOSITION     = LVM_FIRST + 15;
  1448.  
  1449. function ListView_SetItemPosition(hWnd: HWND; i, x, y: Integer): Bool;
  1450.  
  1451. const
  1452.   LVM_GETITEMPOSITION     = LVM_FIRST + 16;
  1453.  
  1454. function ListView_GetItemPosition(hwndLV: HWND; i: Integer; var ppt: TPoint): Bool;
  1455.  
  1456. const
  1457.   LVM_GETSTRINGWIDTHA      = LVM_FIRST + 17;
  1458.   LVM_GETSTRINGWIDTHW      = LVM_FIRST + 87;
  1459. {$IFDEF UNICODE}
  1460.   LVM_GETSTRINGWIDTH      = LVM_GETSTRINGWIDTHW;
  1461. {$ELSE}
  1462.   LVM_GETSTRINGWIDTH      = LVM_GETSTRINGWIDTHA;
  1463. {$ENDIF}
  1464.  
  1465. function ListView_GetStringWidthA(hwndLV: HWND; psz: PAnsiChar): Integer;
  1466. function ListView_GetStringWidthW(hwndLV: HWND; psz: PWideChar): Integer;
  1467. function ListView_GetStringWidth(hwndLV: HWND; psz: PChar): Integer;
  1468.  
  1469. const
  1470.   LVHT_NOWHERE            = $0001;
  1471.   LVHT_ONITEMICON         = $0002;
  1472.   LVHT_ONITEMLABEL        = $0004;
  1473.   LVHT_ONITEMSTATEICON    = $0008;
  1474.   LVHT_ONITEM             = LVHT_ONITEMICON or LVHT_ONITEMLABEL or
  1475.                             LVHT_ONITEMSTATEICON;
  1476.   LVHT_ABOVE              = $0008;
  1477.   LVHT_BELOW              = $0010;
  1478.   LVHT_TORIGHT            = $0020;
  1479.   LVHT_TOLEFT             = $0040;
  1480.  
  1481. type
  1482.   PLVHitTestInfo = ^TLVHitTestInfo;
  1483.   TLVHitTestInfo = packed record
  1484.     pt: TPoint;
  1485.     flags: UINT;
  1486.     iItem: Integer;
  1487.   end;
  1488.  
  1489. const
  1490.   LVM_HITTEST             = LVM_FIRST + 18;
  1491.  
  1492. function ListView_HitTest(hwndLV: HWND; var pinfo: TLVHitTestInfo): Integer;
  1493.  
  1494. const
  1495.   LVM_ENSUREVISIBLE       = LVM_FIRST + 19;
  1496.  
  1497. function ListView_EnsureVisible(hwndLV: HWND; i: Integer; fPartialOK: Bool): Bool;
  1498.  
  1499. const
  1500.   LVM_SCROLL              = LVM_FIRST + 20;
  1501.  
  1502. function ListView_Scroll(hwndLV: HWnd; DX, DY: Integer): Bool;
  1503.  
  1504. const
  1505.   LVM_REDRAWITEMS         = LVM_FIRST + 21;
  1506.  
  1507. function ListView_RedrawItems(hwndLV: HWND; iFirst, iLast: Integer): Bool;
  1508.  
  1509. const
  1510.   LVA_DEFAULT             = $0000;
  1511.   LVA_ALIGNLEFT           = $0001;
  1512.   LVA_ALIGNTOP            = $0002;
  1513.   LVA_ALIGNRIGHT          = $0003;
  1514.   LVA_ALIGNBOTTOM         = $0004;
  1515.   LVA_SNAPTOGRID          = $0005;
  1516.  
  1517.   LVA_SORTASCENDING       = $0100;
  1518.   LVA_SORTDESCENDING      = $0200;
  1519.  
  1520. const
  1521.   LVM_ARRANGE             = LVM_FIRST + 22;
  1522.  
  1523. function ListView_Arrange(hwndLV: HWND; Code: UINT): Bool;
  1524.  
  1525.  
  1526. const
  1527.   LVM_EDITLABELA           = LVM_FIRST + 23;
  1528.   LVM_EDITLABELW           = LVM_FIRST + 118;
  1529. {$IFDEF UNICODE}
  1530.   LVM_EDITLABEL           = LVM_EDITLABELW;
  1531. {$ELSE}
  1532.   LVM_EDITLABEL           = LVM_EDITLABELA;
  1533. {$ENDIF}
  1534.  
  1535. function ListView_EditLabelA(hwndLV: HWND; i: Integer): HWND;
  1536. function ListView_EditLabelW(hwndLV: HWND; i: Integer): HWND;
  1537. function ListView_EditLabel(hwndLV: HWND; i: Integer): HWND;
  1538.  
  1539. const
  1540.   LVM_GETEDITCONTROL      = LVM_FIRST + 24;
  1541.  
  1542. function ListView_GetEditControl(hwndLV: HWND): HWND;
  1543.  
  1544. type
  1545.   PLVColumnA = ^TLVColumnA;
  1546.   PLVColumnW = ^TLVColumnW;
  1547.   PLVColumn = PLVColumnA;
  1548.   TLVColumnA = packed record
  1549.     mask: UINT;
  1550.     fmt: Integer;
  1551.     cx: Integer;
  1552.     pszText: PAnsiChar;
  1553.     cchTextMax: Integer;
  1554.     iSubItem: Integer;
  1555.   end;
  1556.   TLVColumnW = packed record
  1557.     mask: UINT;
  1558.     fmt: Integer;
  1559.     cx: Integer;
  1560.     pszText: PWideChar;
  1561.     cchTextMax: Integer;
  1562.     iSubItem: Integer;
  1563.   end;
  1564.   TLVColumn = TLVColumnA;
  1565.  
  1566. const
  1567.   LVCF_FMT                = $0001;
  1568.   LVCF_WIDTH              = $0002;
  1569.   LVCF_TEXT               = $0004;
  1570.   LVCF_SUBITEM            = $0008;
  1571.  
  1572.   LVCFMT_LEFT             = 0;
  1573.   LVCFMT_RIGHT            = 1;
  1574.   LVCFMT_CENTER           = 2;
  1575.   LVCFMT_JUSTIFYMASK      = 3;
  1576.  
  1577.   LVM_GETCOLUMNA          = LVM_FIRST + 25;
  1578.   LVM_GETCOLUMNW          = LVM_FIRST + 95;
  1579. {$IFDEF UNICODE}
  1580.   LVM_GETCOLUMN           = LVM_GETCOLUMNW;
  1581. {$ELSE}
  1582.   LVM_GETCOLUMN           = LVM_GETCOLUMNA;
  1583. {$ENDIF}
  1584.  
  1585. function ListView_GetColumnA(hwnd: HWND; iCol: Integer;
  1586.   var pcol: TLVColumnA): Bool;
  1587. function ListView_GetColumnW(hwnd: HWND; iCol: Integer;
  1588.   var pcol: TLVColumnW): Bool;
  1589. function ListView_GetColumn(hwnd: HWND; iCol: Integer;
  1590.   var pcol: TLVColumn): Bool;
  1591.  
  1592. const
  1593.   LVM_SETCOLUMNA           = LVM_FIRST + 26;
  1594.   LVM_SETCOLUMNW           = LVM_FIRST + 96;
  1595. {$IFDEF UNICODE}
  1596.   LVM_SETCOLUMN           = LVM_SETCOLUMNW;
  1597. {$ELSE}
  1598.   LVM_SETCOLUMN           = LVM_SETCOLUMNA;
  1599. {$ENDIF}
  1600.  
  1601. function ListView_SetColumnA(hwnd: HWnd; iCol: Integer; const pcol: TLVColumnA): Bool;
  1602. function ListView_SetColumnW(hwnd: HWnd; iCol: Integer; const pcol: TLVColumnW): Bool;
  1603. function ListView_SetColumn(hwnd: HWnd; iCol: Integer; const pcol: TLVColumn): Bool;
  1604.  
  1605. const
  1606.   LVM_INSERTCOLUMNA        = LVM_FIRST + 27;
  1607.   LVM_INSERTCOLUMNW        = LVM_FIRST + 97;
  1608. {$IFDEF UNICODE}
  1609.   LVM_INSERTCOLUMN        = LVM_INSERTCOLUMNW;
  1610. {$ELSE}
  1611.   LVM_INSERTCOLUMN        = LVM_INSERTCOLUMNA;
  1612. {$ENDIF}
  1613.  
  1614. function ListView_InsertColumnA(hwnd: HWND; iCol: Integer;
  1615.   const pcol: TLVColumnA): Integer;
  1616. function ListView_InsertColumnW(hwnd: HWND; iCol: Integer;
  1617.   const pcol: TLVColumnW): Integer;
  1618. function ListView_InsertColumn(hwnd: HWND; iCol: Integer;
  1619.   const pcol: TLVColumn): Integer;
  1620.  
  1621. const
  1622.   LVM_DELETECOLUMN        = LVM_FIRST + 28;
  1623.  
  1624. function ListView_DeleteColumn(hwnd: HWND; iCol: Integer): Bool;
  1625.  
  1626. const
  1627.   LVM_GETCOLUMNWIDTH      = LVM_FIRST + 29;
  1628.  
  1629. function ListView_GetColumnWidth(hwnd: HWND; iCol: Integer): Integer;
  1630.  
  1631. const
  1632.   LVSCW_AUTOSIZE              = -1;
  1633.   LVSCW_AUTOSIZE_USEHEADER    = -2;
  1634.   LVM_SETCOLUMNWIDTH          = LVM_FIRST + 30;
  1635.  
  1636. function ListView_SetColumnWidth(hwnd: HWnd; iCol: Integer; cx: Integer): Bool;
  1637.  
  1638. const
  1639.   LVM_CREATEDRAGIMAGE     = LVM_FIRST + 33;
  1640.  
  1641. function ListView_CreateDragImage(hwnd: HWND; i: Integer;
  1642.   const lpptUpLeft: TPoint): HImageList;
  1643.  
  1644. const
  1645.   LVM_GETVIEWRECT         = LVM_FIRST + 34;
  1646.  
  1647. function ListView_GetViewRect(hwnd: HWND; var prc: TRect): Bool;
  1648.  
  1649. const
  1650.   LVM_GETTEXTCOLOR        = LVM_FIRST + 35;
  1651.  
  1652. function ListView_GetTextColor(hwnd: HWND): TColorRef;
  1653.  
  1654. const
  1655.   LVM_SETTEXTCOLOR        = LVM_FIRST + 36;
  1656.  
  1657. function ListView_SetTextColor(hwnd: HWND; clrText: TColorRef): Bool;
  1658.  
  1659. const
  1660.   LVM_GETTEXTBKCOLOR      = LVM_FIRST + 37;
  1661.  
  1662. function ListView_GetTextBkColor(hwnd: HWND): TColorRef;
  1663.  
  1664. const
  1665.   LVM_SETTEXTBKCOLOR      = LVM_FIRST + 38;
  1666.  
  1667. function ListView_SetTextBkColor(hwnd: HWND; clrTextBk: TColorRef): Bool;
  1668.  
  1669. const
  1670.   LVM_GETTOPINDEX         = LVM_FIRST + 39;
  1671.  
  1672. function ListView_GetTopIndex(hwndLV: HWND): Integer;
  1673.  
  1674. const
  1675.   LVM_GETCOUNTPERPAGE     = LVM_FIRST + 40;
  1676.  
  1677. function ListView_GetCountPerPage(hwndLV: HWND): Integer;
  1678.  
  1679. const
  1680.   LVM_GETORIGIN           = LVM_FIRST + 41;
  1681.  
  1682. function ListView_GetOrigin(hwndLV: HWND; var ppt: TPoint): Bool;
  1683.  
  1684. const
  1685.   LVM_UPDATE              = LVM_FIRST + 42;
  1686.  
  1687. function ListView_Update(hwndLV: HWND; i: Integer): Bool;
  1688.  
  1689. const
  1690.   LVM_SETITEMSTATE        = LVM_FIRST + 43;
  1691.  
  1692. function ListView_SetItemState(hwndLV: HWND; i: Integer; data, mask: UINT): Bool;
  1693.  
  1694. const
  1695.   LVM_GETITEMSTATE        = LVM_FIRST + 44;
  1696.  
  1697. function ListView_GetItemState(hwndLV: HWND; i, mask: Integer): Integer;
  1698.  
  1699. const
  1700.   LVM_GETITEMTEXTA         = LVM_FIRST + 45;
  1701.   LVM_GETITEMTEXTW         = LVM_FIRST + 115;
  1702. {$IFDEF UNICODE}
  1703.   LVM_GETITEMTEXT         = LVM_GETITEMTEXTW;
  1704. {$ELSE}
  1705.   LVM_GETITEMTEXT         = LVM_GETITEMTEXTA;
  1706. {$ENDIF}
  1707.  
  1708. function ListView_GetItemTextA(hwndLV: HWND; i, iSubItem: Integer;
  1709.   pszText: PAnsiChar; cchTextMax: Integer): Integer;
  1710. function ListView_GetItemTextW(hwndLV: HWND; i, iSubItem: Integer;
  1711.   pszText: PWideChar; cchTextMax: Integer): Integer;
  1712. function ListView_GetItemText(hwndLV: HWND; i, iSubItem: Integer;
  1713.   pszText: PChar; cchTextMax: Integer): Integer;
  1714.  
  1715. const
  1716.   LVM_SETITEMTEXTA         = LVM_FIRST + 46;
  1717.   LVM_SETITEMTEXTW         = LVM_FIRST + 116;
  1718. {$IFDEF UNICODE}
  1719.   LVM_SETITEMTEXT         = LVM_SETITEMTEXTW;
  1720. {$ELSE}
  1721.   LVM_SETITEMTEXT         = LVM_SETITEMTEXTA;
  1722. {$ENDIF}
  1723.  
  1724. function ListView_SetItemTextA(hwndLV: HWND; i, iSubItem: Integer;
  1725.   pszText: PAnsiChar): Bool;
  1726. function ListView_SetItemTextW(hwndLV: HWND; i, iSubItem: Integer;
  1727.   pszText: PWideChar): Bool;
  1728. function ListView_SetItemText(hwndLV: HWND; i, iSubItem: Integer;
  1729.   pszText: PChar): Bool;
  1730.  
  1731. const
  1732.   LVM_SETITEMCOUNT        = LVM_FIRST + 47;
  1733.  
  1734. procedure ListView_SetItemCount(hwndLV: HWND; cItems: Integer);
  1735.  
  1736. type
  1737.   TLVCompare = function(lParam1, lParam2, lParamSort: Integer): Integer stdcall;
  1738.  
  1739. const
  1740.   LVM_SORTITEMS           = LVM_FIRST + 48;
  1741.  
  1742. function ListView_SortItems(hwndLV: HWND; pfnCompare: TLVCompare;
  1743.   lPrm: Longint): Bool;
  1744.  
  1745. const
  1746.   LVM_SETITEMPOSITION32   = LVM_FIRST + 49;
  1747.  
  1748. procedure ListView_SetItemPosition32(hwndLV: HWND; i, x, y: Integer);
  1749.  
  1750. const
  1751.   LVM_GETSELECTEDCOUNT    = LVM_FIRST + 50;
  1752.  
  1753. function ListView_GetSelectedCount(hwndLV: HWND): UINT;
  1754.  
  1755. const
  1756.   LVM_GETITEMSPACING      = LVM_FIRST + 51;
  1757.  
  1758. function ListView_GetItemSpacing(hwndLV: HWND; fSmall: Integer): Longint;
  1759.  
  1760.  
  1761. const
  1762.   LVM_GETISEARCHSTRINGA    = LVM_FIRST + 52;
  1763.   LVM_GETISEARCHSTRINGW    = LVM_FIRST + 117;
  1764. {$IFDEF UNICODE}
  1765.   LVM_GETISEARCHSTRING    = LVM_GETISEARCHSTRINGW;
  1766. {$ELSE}
  1767.   LVM_GETISEARCHSTRING    = LVM_GETISEARCHSTRINGA;
  1768. {$ENDIF}
  1769.  
  1770. function ListView_GetISearchStringA(hwndLV: HWND; lpsz: PAnsiChar): Bool;
  1771. function ListView_GetISearchStringW(hwndLV: HWND; lpsz: PWideChar): Bool;
  1772. function ListView_GetISearchString(hwndLV: HWND; lpsz: PChar): Bool;
  1773.  
  1774. type
  1775.   PNMListView = ^TNMListView;
  1776.   TNMListView = packed record
  1777.     hdr: TNMHDR;
  1778.     iItem: Integer;
  1779.     iSubItem: Integer;
  1780.     uNewState: UINT;
  1781.     uOldState: UINT;
  1782.     uChanged: UINT;
  1783.     ptAction: TPoint;
  1784.     lParam: LPARAM;
  1785.   end;
  1786.  
  1787. const
  1788.   LVN_ITEMCHANGING        = LVN_FIRST-0;
  1789.   LVN_ITEMCHANGED         = LVN_FIRST-1;
  1790.   LVN_INSERTITEM          = LVN_FIRST-2;
  1791.   LVN_DELETEITEM          = LVN_FIRST-3;
  1792.   LVN_DELETEALLITEMS      = LVN_FIRST-4;
  1793.   LVN_COLUMNCLICK         = LVN_FIRST-8;
  1794.   LVN_BEGINDRAG           = LVN_FIRST-9;
  1795.   LVN_ENDDRAG             = LVN_FIRST-10;
  1796.   LVN_BEGINRDRAG          = LVN_FIRST-11;
  1797.   LVN_ENDRDRAG            = LVN_FIRST-12;
  1798.  
  1799.   LVN_BEGINLABELEDITA      = LVN_FIRST-5;
  1800.   LVN_ENDLABELEDITA        = LVN_FIRST-6;
  1801.   LVN_BEGINLABELEDITW      = LVN_FIRST-75;
  1802.   LVN_ENDLABELEDITW        = LVN_FIRST-76;
  1803. {$IFDEF UNICODE}
  1804.   LVN_BEGINLABELEDIT      = LVN_BEGINLABELEDITW;
  1805.   LVN_ENDLABELEDIT        = LVN_ENDLABELEDITW;
  1806. {$ELSE}
  1807.   LVN_BEGINLABELEDIT      = LVN_BEGINLABELEDITA;
  1808.   LVN_ENDLABELEDIT        = LVN_ENDLABELEDITA;
  1809. {$ENDIF}
  1810.  
  1811. {$IFDEF PW2}
  1812. const
  1813.   LVN_PEN                 = LVN_FIRST-20;
  1814. {$ENDIF}
  1815.  
  1816. const
  1817.   LVN_GETDISPINFOA        = LVN_FIRST-50;
  1818.   LVN_SETDISPINFOA        = LVN_FIRST-51;
  1819.   LVN_GETDISPINFOW        = LVN_FIRST-77;
  1820.   LVN_SETDISPINFOW        = LVN_FIRST-78;
  1821. {$IFDEF UNICODE}
  1822.   LVN_GETDISPINFO        = LVN_GETDISPINFOW;
  1823.   LVN_SETDISPINFO        = LVN_SETDISPINFOW;
  1824. {$ELSE}
  1825.   LVN_GETDISPINFO        = LVN_GETDISPINFOA;
  1826.   LVN_SETDISPINFO        = LVN_SETDISPINFOA;
  1827. {$ENDIF}
  1828.  
  1829.   LVIF_DI_SETITEM         = $1000;
  1830.  
  1831. type
  1832.   PLVDispInfoA = ^TLVDispInfoA;
  1833.   TLVDispInfoA = packed record
  1834.     hdr: TNMHDR;
  1835.     item: TLVItemA;
  1836.   end;
  1837.   PLVDispInfoW = ^TLVDispInfoW;
  1838.   TLVDispInfoW = packed record
  1839.     hdr: TNMHDR;
  1840.     item: TLVItemW;
  1841.   end;
  1842.   PLVDispInfo = PLVDispInfoA;
  1843.  
  1844. const
  1845.   LVN_KEYDOWN             = LVN_FIRST-55;
  1846.  
  1847. type
  1848.   PLVKeyDown = ^TLVKeyDown;
  1849.   TLVKeyDown = packed record
  1850.     hdr: TNMHDR;
  1851.     wVKey: Word;
  1852.     flags: UINT;
  1853.   end;
  1854.  
  1855. { ====== TREEVIEW CONTROL =================== }
  1856.  
  1857. const
  1858.   WC_TREEVIEW = 'SysTreeView32';
  1859.  
  1860. const
  1861.   TVS_HASBUTTONS          = $0001;
  1862.   TVS_HASLINES            = $0002;
  1863.   TVS_LINESATROOT         = $0004;
  1864.   TVS_EDITLABELS          = $0008;
  1865.   TVS_DISABLEDRAGDROP     = $0010;
  1866.   TVS_SHOWSELALWAYS       = $0020;
  1867.  
  1868. type
  1869.   HTreeItem = ^_TreeItem;    { !!  typedef struct _TREEITEM FAR* HTREEITEM; }
  1870.   _TreeItem = packed record
  1871.   end;
  1872.  
  1873. const
  1874.   TVIF_TEXT               = $0001;
  1875.   TVIF_IMAGE              = $0002;
  1876.   TVIF_PARAM              = $0004;
  1877.   TVIF_STATE              = $0008;
  1878.   TVIF_HANDLE             = $0010;
  1879.   TVIF_SELECTEDIMAGE      = $0020;
  1880.   TVIF_CHILDREN           = $0040;
  1881.  
  1882.   TVIS_FOCUSED            = $0001;
  1883.   TVIS_SELECTED           = $0002;
  1884.   TVIS_CUT                = $0004;
  1885.   TVIS_DROPHILITED        = $0008;
  1886.   TVIS_BOLD               = $0010;
  1887.   TVIS_EXPANDED           = $0020;
  1888.   TVIS_EXPANDEDONCE       = $0040;
  1889.  
  1890.   TVIS_OVERLAYMASK        = $0F00;
  1891.   TVIS_STATEIMAGEMASK     = $F000;
  1892.   TVIS_USERMASK           = $F000;
  1893.  
  1894.  
  1895. const
  1896.   I_CHILDRENCALLBACK  = -1;
  1897.  
  1898. type
  1899.   PTVItemA = ^TTVItemA;
  1900.   PTVItemW = ^TTVItemW;
  1901.   PTVItem = PTVItemA;
  1902.   TTVItemA = packed record
  1903.     mask: UINT;
  1904.     hItem: HTreeItem;
  1905.     state: UINT;
  1906.     stateMask: UINT;
  1907.     pszText: PAnsiChar;
  1908.     cchTextMax: Integer;
  1909.     iImage: Integer;
  1910.     iSelectedImage: Integer;
  1911.     cChildren: Integer;
  1912.     lParam: LPARAM;
  1913.   end;
  1914.   TTVItemW = packed record
  1915.     mask: UINT;
  1916.     hItem: HTreeItem;
  1917.     state: UINT;
  1918.     stateMask: UINT;
  1919.     pszText: PWideChar;
  1920.     cchTextMax: Integer;
  1921.     iImage: Integer;
  1922.     iSelectedImage: Integer;
  1923.     cChildren: Integer;
  1924.     lParam: LPARAM;
  1925.   end;
  1926.   TTVItem = TTVItemA;
  1927.  
  1928. const
  1929.   TVI_ROOT                = HTreeItem($FFFF0000);
  1930.   TVI_FIRST               = HTreeItem($FFFF0001);
  1931.   TVI_LAST                = HTreeItem($FFFF0002);
  1932.   TVI_SORT                = HTreeItem($FFFF0003);
  1933.  
  1934. type
  1935.   PTVInsertStructA = ^TTVInsertStructA;
  1936.   PTVInsertStructW = ^TTVInsertStructW;
  1937.   PTVInsertStruct = PTVInsertStructA;
  1938.   TTVInsertStructA = packed record
  1939.     hParent: HTreeItem;
  1940.     hInsertAfter: HTreeItem;
  1941.     item: TTVItemA;
  1942.   end;
  1943.   TTVInsertStructW = packed record
  1944.     hParent: HTreeItem;
  1945.     hInsertAfter: HTreeItem;
  1946.     item: TTVItemW;
  1947.   end;
  1948.   TTVInsertStruct = TTVInsertStructA;
  1949.  
  1950. const
  1951.   TVM_INSERTITEMA          = TV_FIRST + 0;
  1952.   TVM_INSERTITEMW          = TV_FIRST + 50;
  1953. {$IFDEF UNICODE}
  1954.   TVM_INSERTITEM          = TVM_INSERTITEMW;
  1955. {$ELSE}
  1956.   TVM_INSERTITEM          = TVM_INSERTITEMA;
  1957. {$ENDIF}
  1958.  
  1959. function TreeView_InsertItem(hwnd: HWND; const lpis: TTVInsertStruct): HTreeItem;
  1960.  
  1961. const
  1962.   TVM_DELETEITEM          = TV_FIRST + 1;
  1963.  
  1964. function TreeView_DeleteItem(hwnd: HWND; hitem: HTreeItem): Bool;
  1965.  
  1966. function TreeView_DeleteAllItems(hwnd: HWND): Bool;
  1967.  
  1968. const
  1969.   TVM_EXPAND              = TV_FIRST + 2;
  1970.  
  1971. function TreeView_Expand(hwnd: HWND; hitem: HTreeItem; code: Integer): Bool;
  1972.  
  1973. const
  1974.   TVE_COLLAPSE            = $0001;
  1975.   TVE_EXPAND              = $0002;
  1976.   TVE_TOGGLE              = $0003;
  1977.   TVE_COLLAPSERESET       = $8000;
  1978.  
  1979. const
  1980.   TVM_GETITEMRECT         = TV_FIRST + 4;
  1981.  
  1982. function TreeView_GetItemRect(hwnd: HWND; hitem: HTreeItem;
  1983.   var prc: TRect; code: Bool): Bool;
  1984.  
  1985. const
  1986.   TVM_GETCOUNT            = TV_FIRST + 5;
  1987.  
  1988. function TreeView_GetCount(hwnd: HWND): UINT;
  1989.  
  1990. const
  1991.   TVM_GETINDENT           = TV_FIRST + 6;
  1992.  
  1993. function TreeView_GetIndent(hwnd: HWND): UINT;
  1994.  
  1995. const
  1996.   TVM_SETINDENT           = TV_FIRST + 7;
  1997.  
  1998. function TreeView_SetIndent(hwnd: HWND; indent: Integer): Bool;
  1999.  
  2000. const
  2001.   TVM_GETIMAGELIST        = TV_FIRST + 8;
  2002.  
  2003. function TreeView_GetImageList(hwnd: HWND; iImage: Integer): HImageList;
  2004.  
  2005. const
  2006.   TVSIL_NORMAL            = 0;
  2007.   TVSIL_STATE             = 2;
  2008.  
  2009.  
  2010. const
  2011.   TVM_SETIMAGELIST        = TV_FIRST + 9;
  2012.  
  2013. function TreeView_SetImageList(hwnd: HWND; himl: HImageList;
  2014.   iImage: Integer): HImageList;
  2015.  
  2016. const
  2017.   TVM_GETNEXTITEM         = TV_FIRST + 10;
  2018.  
  2019. function TreeView_GetNextItem(hwnd: HWND; hitem: HTreeItem;
  2020.   code: Integer): HTreeItem;
  2021.  
  2022. const
  2023.   TVGN_ROOT               = $0000;
  2024.   TVGN_NEXT               = $0001;
  2025.   TVGN_PREVIOUS           = $0002;
  2026.   TVGN_PARENT             = $0003;
  2027.   TVGN_CHILD              = $0004;
  2028.   TVGN_FIRSTVISIBLE       = $0005;
  2029.   TVGN_NEXTVISIBLE        = $0006;
  2030.   TVGN_PREVIOUSVISIBLE    = $0007;
  2031.   TVGN_DROPHILITE         = $0008;
  2032.   TVGN_CARET              = $0009;
  2033.  
  2034. function TreeView_GetChild(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2035. function TreeView_GetNextSibling(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2036. function TreeView_GetPrevSibling(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2037. function TreeView_GetParent(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2038. function TreeView_GetFirstVisible(hwnd: HWND): HTreeItem;
  2039. function TreeView_GetNextVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2040. function TreeView_GetPrevVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2041. function TreeView_GetSelection(hwnd: HWND): HTreeItem;
  2042. function TreeView_GetDropHilite(hwnd: HWND): HTreeItem;
  2043. function TreeView_GetRoot(hwnd: HWND): HTreeItem;
  2044.  
  2045. const
  2046.   TVM_SELECTITEM          = TV_FIRST + 11;
  2047.  
  2048. function TreeView_Select(hwnd: HWND; hitem: HTreeItem;
  2049.   code: Integer): HTreeItem;
  2050.  
  2051. function TreeView_SelectItem(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2052. function TreeView_SelectDropTarget(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2053. function TreeView_SelectSetFirstVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  2054.  
  2055. const
  2056.   TVM_GETITEMA             = TV_FIRST + 12;
  2057.   TVM_GETITEMW             = TV_FIRST + 62;
  2058. {$IFDEF UNICODE}
  2059.   TVM_GETITEM             = TVM_GETITEMW;
  2060. {$ELSE}
  2061.   TVM_GETITEM             = TVM_GETITEMA;
  2062. {$ENDIF}
  2063.  
  2064. function TreeView_GetItemA(hwnd: HWND; var pitem: TTVItemA): Bool;
  2065. function TreeView_GetItemW(hwnd: HWND; var pitem: TTVItemW): Bool;
  2066. function TreeView_GetItem(hwnd: HWND; var pitem: TTVItem): Bool;
  2067.  
  2068. const
  2069.   TVM_SETITEMA             = TV_FIRST + 13;
  2070.   TVM_SETITEMW             = TV_FIRST + 63;
  2071. {$IFDEF UNICODE}
  2072.   TVM_SETITEM             = TVM_SETITEMW;
  2073. {$ELSE}
  2074.   TVM_SETITEM             = TVM_SETITEMA;
  2075. {$ENDIF}
  2076.  
  2077. function TreeView_SetItemA(hwnd: HWND; const pitem: TTVItemA): Bool;
  2078. function TreeView_SetItemW(hwnd: HWND; const pitem: TTVItemW): Bool;
  2079. function TreeView_SetItem(hwnd: HWND; const pitem: TTVItem): Bool;
  2080.  
  2081. const
  2082.   TVM_EDITLABELA           = TV_FIRST + 14;
  2083.   TVM_EDITLABELW           = TV_FIRST + 65;
  2084. {$IFDEF UNICODE}
  2085.   TVM_EDITLABEL           = TVM_EDITLABELW;
  2086. {$ELSE}
  2087.   TVM_EDITLABEL           = TVM_EDITLABELA;
  2088. {$ENDIF}
  2089.  
  2090. function TreeView_EditLabelA(hwnd: HWND; hitem: HTreeItem): HWND;
  2091. function TreeView_EditLabelW(hwnd: HWND; hitem: HTreeItem): HWND;
  2092. function TreeView_EditLabel(hwnd: HWND; hitem: HTreeItem): HWND;
  2093.  
  2094. const
  2095.   TVM_GETEDITCONTROL      = TV_FIRST + 15;
  2096.  
  2097. function TreeView_GetEditControl(hwnd: HWND): HWND;
  2098.  
  2099.  
  2100. const
  2101.   TVM_GETVISIBLECOUNT     = TV_FIRST + 16;
  2102.  
  2103. function TreeView_GetVisibleCount(hwnd: HWND): UINT;
  2104.  
  2105. const
  2106.   TVM_HITTEST             = TV_FIRST + 17;
  2107.  
  2108. type
  2109.   PTVHitTestInfo = ^TTVHitTestInfo;
  2110.   TTVHitTestInfo = packed record
  2111.     pt: TPoint;
  2112.     flags: UINT;
  2113.     hItem: HTreeItem;
  2114.   end;
  2115.  
  2116. function TreeView_HitTest(hwnd: HWND; var lpht: TTVHitTestInfo): HTreeItem;
  2117.  
  2118. const
  2119.   TVHT_NOWHERE            = $0001;
  2120.   TVHT_ONITEMICON         = $0002;
  2121.   TVHT_ONITEMLABEL        = $0004;
  2122.   TVHT_ONITEMINDENT       = $0008;
  2123.   TVHT_ONITEMBUTTON       = $0010;
  2124.   TVHT_ONITEMRIGHT        = $0020;
  2125.   TVHT_ONITEMSTATEICON    = $0040;
  2126.  
  2127.   TVHT_ONITEM             = TVHT_ONITEMICON or TVHT_ONITEMLABEL or
  2128.                               TVHT_ONITEMSTATEICON;
  2129.  
  2130.   TVHT_ABOVE              = $0100;
  2131.   TVHT_BELOW              = $0200;
  2132.   TVHT_TORIGHT            = $0400;
  2133.   TVHT_TOLEFT             = $0800;
  2134.  
  2135. const
  2136.   TVM_CREATEDRAGIMAGE     = TV_FIRST + 18;
  2137.  
  2138. function TreeView_CreateDragImage(hwnd: HWND; hitem: HTreeItem): HimageList;
  2139.  
  2140. const
  2141.   TVM_SORTCHILDREN        = TV_FIRST + 19;
  2142.  
  2143. function TreeView_SortChildren(hwnd: HWND; hitem: HTreeItem;
  2144.   recurse: Integer): Bool;
  2145.  
  2146. const
  2147.   TVM_ENSUREVISIBLE       = TV_FIRST + 20;
  2148.  
  2149. function TreeView_EnsureVisible(hwnd: HWND; hitem: HTreeItem): Bool;
  2150.  
  2151. const
  2152.   TVM_SORTCHILDRENCB      = TV_FIRST + 21;
  2153.  
  2154. type
  2155.   TTVCompare = function(lParam1, lParam2, lParamSort: Longint): Integer stdcall;
  2156.  
  2157. type
  2158.   TTVSortCB = packed record
  2159.     hParent: HTreeItem;
  2160.     lpfnCompare: TTVCompare;
  2161.     lParam: LPARAM;
  2162.   end;
  2163.  
  2164. function TreeView_SortChildrenCB(hwnd: HWND; const psort: TTVSortCB;
  2165.   recurse: Integer): Bool;
  2166.  
  2167. const
  2168.   TVM_ENDEDITLABELNOW     = TV_FIRST + 22;
  2169.  
  2170. function TreeView_EndEditLabelNow(hwnd: HWND; fCancel: Bool): Bool;
  2171.  
  2172. const
  2173.   TVM_GETISEARCHSTRINGA    = TV_FIRST + 23;
  2174.   TVM_GETISEARCHSTRINGW    = TV_FIRST + 64;
  2175. {$IFDEF UNICODE}
  2176.   TVM_GETISEARCHSTRING    = TVM_GETISEARCHSTRINGW;
  2177. {$ELSE}
  2178.   TVM_GETISEARCHSTRING    = TVM_GETISEARCHSTRINGA;
  2179. {$ENDIF}
  2180.  
  2181. function TreeView_GetISearchStringA(hwndTV: HWND; lpsz: PAnsiChar): Bool;
  2182. function TreeView_GetISearchStringW(hwndTV: HWND; lpsz: PWideChar): Bool;
  2183. function TreeView_GetISearchString(hwndTV: HWND; lpsz: PChar): Bool;
  2184.  
  2185. type
  2186.   PNMTreeViewA = ^TNMTreeViewA;
  2187.   PNMTreeViewW = ^TNMTreeViewW;
  2188.   PNMTreeView = PNMTreeViewA;
  2189.   TNMTreeViewA = packed record
  2190.     hdr: TNMHDR;
  2191.     action: UINT;
  2192.     itemOld: TTVItemA;
  2193.     itemNew: TTVItemA;
  2194.     ptDrag: TPoint;
  2195.   end;
  2196.   TNMTreeViewW = packed record
  2197.     hdr: TNMHDR;
  2198.     action: UINT;
  2199.     itemOld: TTVItemW;
  2200.     itemNew: TTVItemW;
  2201.     ptDrag: TPoint;
  2202.   end;
  2203.   TNMTreeView = TNMTreeViewA;
  2204.  
  2205. const
  2206.   TVN_SELCHANGINGA         = TVN_FIRST-1;
  2207.   TVN_SELCHANGEDA          = TVN_FIRST-2;
  2208.   TVN_SELCHANGINGW         = TVN_FIRST-50;
  2209.   TVN_SELCHANGEDW          = TVN_FIRST-51;
  2210. {$IFDEF UNICODE}
  2211.   TVN_SELCHANGING         = TVN_SELCHANGINGW;
  2212.   TVN_SELCHANGED          = TVN_SELCHANGEDW;
  2213. {$ELSE}
  2214.   TVN_SELCHANGING         = TVN_SELCHANGINGA;
  2215.   TVN_SELCHANGED          = TVN_SELCHANGEDA;
  2216. {$ENDIF}
  2217.  
  2218. const
  2219.   TVC_UNKNOWN             = $0000;
  2220.   TVC_BYMOUSE             = $0001;
  2221.   TVC_BYKEYBOARD          = $0002;
  2222.  
  2223. const
  2224.   TVN_GETDISPINFOA         = TVN_FIRST-3;
  2225.   TVN_SETDISPINFOA         = TVN_FIRST-4;
  2226.   TVN_GETDISPINFOW         = TVN_FIRST-52;
  2227.   TVN_SETDISPINFOW         = TVN_FIRST-53;
  2228. {$IFDEF UNICODE}
  2229.   TVN_GETDISPINFO         = TVN_GETDISPINFOW;
  2230.   TVN_SETDISPINFO         = TVN_SETDISPINFOW;
  2231. {$ELSE}
  2232.   TVN_GETDISPINFO         = TVN_GETDISPINFOA;
  2233.   TVN_SETDISPINFO         = TVN_SETDISPINFOA;
  2234. {$ENDIF}
  2235.  
  2236.   TVIF_DI_SETITEM         = $1000;
  2237.  
  2238. type
  2239.   PTVDispInfoA = ^TTVDispInfoA;
  2240.   PTVDispInfoW = ^TTVDispInfoW;
  2241.   PTVDispInfo = PTVDispInfoA;
  2242.   TTVDispInfoA = packed record
  2243.     hdr: TNMHDR;
  2244.     item: TTVItemA;
  2245.   end;
  2246.   TTVDispInfoW = packed record
  2247.     hdr: TNMHDR;
  2248.     item: TTVItemW;
  2249.   end;
  2250.   TTVDispInfo = TTVDispInfoA;
  2251.  
  2252. const
  2253.   TVN_ITEMEXPANDINGA       = TVN_FIRST-5;
  2254.   TVN_ITEMEXPANDEDA        = TVN_FIRST-6;
  2255.   TVN_BEGINDRAGA           = TVN_FIRST-7;
  2256.   TVN_BEGINRDRAGA          = TVN_FIRST-8;
  2257.   TVN_DELETEITEMA          = TVN_FIRST-9;
  2258.   TVN_BEGINLABELEDITA      = TVN_FIRST-10;
  2259.   TVN_ENDLABELEDITA        = TVN_FIRST-11;
  2260.   TVN_ITEMEXPANDINGW       = TVN_FIRST-54;
  2261.   TVN_ITEMEXPANDEDW        = TVN_FIRST-55;
  2262.   TVN_BEGINDRAGW           = TVN_FIRST-56;
  2263.   TVN_BEGINRDRAGW          = TVN_FIRST-57;
  2264.   TVN_DELETEITEMW          = TVN_FIRST-58;
  2265.   TVN_BEGINLABELEDITW      = TVN_FIRST-59;
  2266.   TVN_ENDLABELEDITW        = TVN_FIRST-60;
  2267. {$IFDEF UNICODE}
  2268.   TVN_ITEMEXPANDING       = TVN_ITEMEXPANDINGW;
  2269.   TVN_ITEMEXPANDED        = TVN_ITEMEXPANDEDW;
  2270.   TVN_BEGINDRAG           = TVN_BEGINDRAGW;
  2271.   TVN_BEGINRDRAG          = TVN_BEGINRDRAGW;
  2272.   TVN_DELETEITEM          = TVN_DELETEITEMW;
  2273.   TVN_BEGINLABELEDIT      = TVN_BEGINLABELEDITW;
  2274.   TVN_ENDLABELEDIT        = TVN_ENDLABELEDITW;
  2275. {$ELSE}
  2276.   TVN_ITEMEXPANDING       = TVN_ITEMEXPANDINGA;
  2277.   TVN_ITEMEXPANDED        = TVN_ITEMEXPANDEDA;
  2278.   TVN_BEGINDRAG           = TVN_BEGINDRAGA;
  2279.   TVN_BEGINRDRAG          = TVN_BEGINRDRAGA;
  2280.   TVN_DELETEITEM          = TVN_DELETEITEMA;
  2281.   TVN_BEGINLABELEDIT      = TVN_BEGINLABELEDITA;
  2282.   TVN_ENDLABELEDIT        = TVN_ENDLABELEDITA;
  2283. {$ENDIF}
  2284.  
  2285. const
  2286.   TVN_KEYDOWN             = TVN_FIRST-12;
  2287.  
  2288. type
  2289.   TTVKeyDown = packed record
  2290.     hdr: TNMHDR;
  2291.     wVKey: Word;
  2292.     flags: UINT;
  2293.   end;
  2294.  
  2295.  
  2296. { ====== TAB CONTROL ======================== }
  2297.  
  2298. const
  2299.   WC_TABCONTROL = 'SysTabControl32';
  2300.  
  2301. const
  2302.   TCS_FORCEICONLEFT     = $0010;
  2303.   TCS_FORCELABELLEFT    = $0020;
  2304.   TCS_SHAREIMAGELISTS   = $0040;
  2305.   TCS_TABS              = $0000;
  2306.   TCS_BUTTONS           = $0100;
  2307.   TCS_SINGLELINE        = $0000;
  2308.   TCS_MULTILINE         = $0200;
  2309.   TCS_RIGHTJUSTIFY      = $0000;
  2310.   TCS_FIXEDWIDTH        = $0400;
  2311.   TCS_RAGGEDRIGHT       = $0800;
  2312.   TCS_FOCUSONBUTTONDOWN = $1000;
  2313.   TCS_OWNERDRAWFIXED    = $2000;
  2314.   TCS_TOOLTIPS          = $4000;
  2315.   TCS_FOCUSNEVER        = $8000;
  2316.  
  2317. const
  2318.   TCM_FIRST              = $1300;
  2319.   TCM_GETBKCOLOR         = TCM_FIRST + 0;
  2320.   TCM_SETBKCOLOR         = TCM_FIRST + 1;
  2321.   TCM_GETIMAGELIST       = TCM_FIRST + 2;
  2322.   TCM_SETIMAGELIST       = TCM_FIRST + 3;
  2323.   TCM_GETITEMCOUNT       = TCM_FIRST + 4;
  2324.   TCM_DELETEITEM         = TCM_FIRST + 8;
  2325.   TCM_DELETEALLITEMS     = TCM_FIRST + 9;
  2326.   TCM_GETITEMRECT        = TCM_FIRST + 10;
  2327.   TCM_GETCURSEL          = TCM_FIRST + 11;
  2328.   TCM_SETCURSEL          = TCM_FIRST + 12;
  2329.   TCM_HITTEST            = TCM_FIRST + 13;
  2330.   TCM_SETITEMEXTRA       = TCM_FIRST + 14;
  2331.   TCM_ADJUSTRECT         = TCM_FIRST + 40;
  2332.   TCM_SETITEMSIZE        = TCM_FIRST + 41;
  2333.   TCM_REMOVEIMAGE        = TCM_FIRST + 42;
  2334.   TCM_SETPADDING         = TCM_FIRST + 43;
  2335.   TCM_GETROWCOUNT        = TCM_FIRST + 44;
  2336.   TCM_GETTOOLTIPS        = TCM_FIRST + 45;
  2337.   TCM_SETTOOLTIPS        = TCM_FIRST + 46;
  2338.   TCM_GETCURFOCUS        = TCM_FIRST + 47;
  2339.   TCM_SETCURFOCUS        = TCM_FIRST + 48;
  2340.  
  2341. const
  2342.   TCIF_TEXT  = $0001;
  2343.   TCIF_IMAGE = $0002;
  2344.   TCIF_PARAM = $0008;
  2345.  
  2346. type
  2347.   PTCItemHeaderA = ^TTCItemHeaderA;
  2348.   PTCItemHeaderW = ^TTCItemHeaderW;
  2349.   PTCItemHeader = PTCItemHeaderA;
  2350.   TTCItemHeaderA = packed record
  2351.     mask: UINT;
  2352.     lpReserved1: UINT;
  2353.     lpReserved2: UINT;
  2354.     pszText: PAnsiChar;
  2355.     cchTextMax: Integer;
  2356.     iImage: Integer;
  2357.   end;
  2358.   TTCItemHeaderW = packed record
  2359.     mask: UINT;
  2360.     lpReserved1: UINT;
  2361.     lpReserved2: UINT;
  2362.     pszText: PWideChar;
  2363.     cchTextMax: Integer;
  2364.     iImage: Integer;
  2365.   end;
  2366.   TTCItemHeader = TTCItemHeaderA;
  2367.  
  2368.   PTCItemA = ^TTCItemA;
  2369.   PTCItemW = ^TTCItemW;
  2370.   PTCItem = PTCItemA;
  2371.   TTCItemA = packed record
  2372.     mask: UINT;
  2373.     lpReserved1: UINT;
  2374.     lpReserved2: UINT;
  2375.     pszText: PAnsiChar;
  2376.     cchTextMax: Integer;
  2377.     iImage: Integer;
  2378.     lParam: LPARAM;
  2379.   end;
  2380.   TTCItemW = packed record
  2381.     mask: UINT;
  2382.     lpReserved1: UINT;
  2383.     lpReserved2: UINT;
  2384.     pszText: PWideChar;
  2385.     cchTextMax: Integer;
  2386.     iImage: Integer;
  2387.     lParam: LPARAM;
  2388.   end;
  2389.   TTCItem = TTCItemA;
  2390.  
  2391. const
  2392.   TCM_GETITEMA             = TCM_FIRST + 5;
  2393.   TCM_SETITEMA             = TCM_FIRST + 6;
  2394.   TCM_INSERTITEMA          = TCM_FIRST + 7;
  2395.   TCM_GETITEMW             = TCM_FIRST + 60;
  2396.   TCM_SETITEMW             = TCM_FIRST + 61;
  2397.   TCM_INSERTITEMW          = TCM_FIRST + 62;
  2398. {$IFDEF UNICODE}
  2399.   TCM_GETITEM             = TCM_GETITEMW;
  2400.   TCM_SETITEM             = TCM_SETITEMW;
  2401.   TCM_INSERTITEM          = TCM_INSERTITEMW;
  2402. {$ELSE}
  2403.   TCM_GETITEM             = TCM_GETITEMA;
  2404.   TCM_SETITEM             = TCM_SETITEMA;
  2405.   TCM_INSERTITEM          = TCM_INSERTITEMA;
  2406. {$ENDIF}
  2407.  
  2408. const
  2409.   TCHT_NOWHERE     = $0001;
  2410.   TCHT_ONITEMICON  = $0002;
  2411.   TCHT_ONITEMLABEL = $0004;
  2412.   TCHT_ONITEM      = TCHT_ONITEMICON or TCHT_ONITEMLABEL;
  2413.  
  2414. type
  2415.   PTCHitTestInfo = ^TTCHitTestInfo;
  2416.   TTCHitTestInfo = packed record
  2417.     pt: TPoint;
  2418.     flags: UINT;
  2419.   end;
  2420.  
  2421.   TTCKeyDown = packed record
  2422.     hdr: TNMHDR;
  2423.     wVKey: Word;
  2424.     flags: UINT;
  2425.   end;
  2426.  
  2427. const
  2428.   TCN_KEYDOWN             = TCN_FIRST - 0;
  2429.   TCN_SELCHANGE           = TCN_FIRST - 1;
  2430.   TCN_SELCHANGING         = TCN_FIRST - 2;
  2431.  
  2432.  
  2433. { ====== ANIMATE CONTROL ================= }
  2434.  
  2435. const
  2436.   ANIMATE_CLASS = 'SysAnimate32';
  2437.  
  2438. const
  2439.   ACS_CENTER              = $0001;
  2440.   ACS_TRANSPARENT         = $0002;
  2441.   ACS_AUTOPLAY            = $0004;
  2442.  
  2443.   ACM_OPENA                = WM_USER + 100;
  2444.   ACM_OPENW                = WM_USER + 103;
  2445. {$IFDEF UNICODE}
  2446.   ACM_OPEN                = ACM_OPENW;
  2447. {$ELSE}
  2448.   ACM_OPEN                = ACM_OPENA;
  2449. {$ENDIF}
  2450.  
  2451.   ACM_PLAY                = WM_USER + 101;
  2452.   ACM_STOP                = WM_USER + 102;
  2453.  
  2454.   ACN_START               = 1;
  2455.   ACN_STOP                = 2;
  2456.  
  2457. implementation
  2458.  
  2459. uses SysUtils;
  2460.  
  2461. const
  2462.   cctrl = 'comctl32.dll';
  2463.  
  2464. procedure InitCommonControls;  external cctrl name 'InitCommonControls';
  2465.  
  2466. { Property Sheets }
  2467. function CreatePropertySheetPageA; external cctrl name 'CreatePropertySheetPageA';
  2468. function CreatePropertySheetPageW; external cctrl name 'CreatePropertySheetPageW';
  2469. function CreatePropertySheetPage; external cctrl name 'CreatePropertySheetPageA';
  2470. function DestroyPropertySheetPage; external cctrl name 'DestroyPropertySheetPage';
  2471. function PropertySheetA; external cctrl name 'PropertySheetA';
  2472. function PropertySheetW; external cctrl name 'PropertySheetW';
  2473. function PropertySheet; external cctrl name 'PropertySheetA';
  2474.  
  2475. { Image List }
  2476. function ImageList_Create; external cctrl name 'ImageList_Create';
  2477. function ImageList_Destroy; external cctrl name 'ImageList_Destroy';
  2478. function ImageList_GetImageCount; external cctrl name 'ImageList_GetImageCount';
  2479. function ImageList_Add; external cctrl name 'ImageList_Add';
  2480. function ImageList_ReplaceIcon; external cctrl name 'ImageList_ReplaceIcon';
  2481. function ImageList_SetBkColor; external cctrl name 'ImageList_SetBkColor';
  2482. function ImageList_GetBkColor; external cctrl name 'ImageList_GetBkColor';
  2483. function ImageList_SetOverlayImage; external cctrl name 'ImageList_SetOverlayImage';
  2484.  
  2485. function ImageList_AddIcon(ImageList: HImageList; Icon: HIcon): Integer;
  2486. begin
  2487.   Result := ImageList_ReplaceIcon(ImageList, -1, Icon);
  2488. end;
  2489.  
  2490. function IndexToOverlayMask(Index: Integer): Integer;
  2491. begin
  2492.   Result := Index shl 8;
  2493. end;
  2494.  
  2495. function ImageList_Draw; external cctrl name 'ImageList_Draw';
  2496.  
  2497. function ImageList_Replace; external cctrl name 'ImageList_Replace';
  2498. function ImageList_AddMasked; external cctrl name 'ImageList_AddMasked';
  2499. function ImageList_DrawEx; external cctrl name 'ImageList_DrawEx';
  2500. function ImageList_Remove; external cctrl name 'ImageList_Remove';
  2501. function ImageList_GetIcon; external cctrl name 'ImageList_GetIcon';
  2502. function ImageList_LoadImage; external cctrl name 'ImageList_LoadImage';
  2503. function ImageList_BeginDrag; external cctrl name 'ImageList_BeginDrag';
  2504. function ImageList_EndDrag; external cctrl name 'ImageList_EndDrag';
  2505. function ImageList_DragEnter; external cctrl name 'ImageList_DragEnter';
  2506. function ImageList_DragLeave; external cctrl name 'ImageList_DragLeave';
  2507. function ImageList_DragMove; external cctrl name 'ImageList_DragMove';
  2508. function ImageList_SetDragCursorImage; external cctrl name 'ImageList_SetDragCursorImage';
  2509. function ImageList_DragShowNolock; external cctrl name 'ImageList_DragShowNolock';
  2510. function ImageList_GetDragImage; external cctrl name 'ImageList_GetDragImage';
  2511.  
  2512. { macros }
  2513. procedure ImageList_RemoveAll(ImageList: HImageList);
  2514. begin
  2515.   ImageList_Remove(ImageList, -1);
  2516. end;
  2517.  
  2518. function ImageList_ExtractIcon(Instance: THandle; ImageList: HImageList;
  2519.   Image: Integer): HIcon;
  2520. begin
  2521.   Result := ImageList_GetIcon(ImageList, Image, 0);
  2522. end;
  2523.  
  2524. function ImageList_LoadBitmap(Instance: THandle; Bmp: PChar;
  2525.   CX, Grow: Integer; Mask: TColorRef): HImageList;
  2526. begin
  2527.   Result := ImageList_LoadImage(Instance, Bmp, CX, Grow, Mask,
  2528.     IMAGE_BITMAP, 0);
  2529. end;
  2530.  
  2531. function ImageList_GetIconSize; external cctrl name 'ImageList_GetIconSize';
  2532. function ImageList_SetIconSize; external cctrl name 'ImageList_SetIconSize';
  2533. function ImageList_GetImageInfo; external cctrl name 'ImageList_GetImageInfo';
  2534. function ImageList_Merge; external cctrl name 'ImageList_Merge';
  2535.  
  2536. { Headers }
  2537.  
  2538. function Header_GetItemCount(Header: HWnd): Integer;
  2539. begin
  2540.   Result := SendMessage(Header, HDM_GETITEMCOUNT, 0, 0);
  2541. end;
  2542.  
  2543. function Header_InsertItem(Header: HWnd; Index: Integer;
  2544.   const Item: THDItem): Integer;
  2545. begin
  2546.   Result := SendMessage(Header, HDM_INSERTITEM, Index, Longint(@Item));
  2547. end;
  2548.  
  2549. function Header_DeleteItem(Header: HWnd; Index: Integer): Bool;
  2550. begin
  2551.   Result := Bool( SendMessage(Header, HDM_DELETEITEM, Index, 0) );
  2552. end;
  2553.  
  2554. function Header_GetItem(Header: HWnd; Index: Integer; var Item: THDItem): Bool;
  2555. begin
  2556.   Result := Bool( SendMessage(Header, HDM_GETITEM, Index, Longint(@Item)) );
  2557. end;
  2558.  
  2559. function Header_SetItem(Header: HWnd; Index: Integer; const Item: THDItem): Bool;
  2560. begin
  2561.   Result := Bool( SendMessage(Header, HDM_SETITEM, Index, Longint(@Item)) );
  2562. end;
  2563.  
  2564. function Header_Layout(Header: HWnd; Layout: PHDLayout): Bool;
  2565. begin
  2566.   Result := Bool( SendMessage(Header, HDM_LAYOUT, 0, Longint(Layout)) );
  2567. end;
  2568.  
  2569. { Toolbar }
  2570.  
  2571. function CreateToolBarEx; external cctrl name 'CreateToolbarEx';
  2572. function CreateMappedBitmap; external cctrl name 'CreateMappedBitmap';
  2573.  
  2574. { Status bar }
  2575. procedure DrawStatusTextA; external cctrl name 'DrawStatusTextA';
  2576. procedure DrawStatusTextW; external cctrl name 'DrawStatusTextW';
  2577. procedure DrawStatusText; external cctrl name 'DrawStatusTextA';
  2578. function CreateStatusWindowA; external cctrl name 'CreateStatusWindowA';
  2579. function CreateStatusWindowW; external cctrl name 'CreateStatusWindowW';
  2580. function CreateStatusWindow; external cctrl name 'CreateStatusWindowA';
  2581.  
  2582. { Menu Help }
  2583. procedure MenuHelp; external cctrl name 'MenuHelp';
  2584. function ShowHideMenuCtl; external cctrl name 'ShowHideMenuCtl';
  2585. procedure GetEffectiveClientRect; external cctrl name 'GetEffectiveClientRect';
  2586.  
  2587.  
  2588. { Drag List Box }
  2589. procedure MakeDragList; external cctrl name 'MakeDragList';
  2590. procedure DrawInsert; external cctrl name 'DrawInsert';
  2591. function LBItemFromPt; external cctrl name 'LBItemFromPt';
  2592.  
  2593. { UpDown control }
  2594. function CreateUpDownControl; external cctrl name 'CreateUpDownControl';
  2595.  
  2596.  
  2597. { List View }
  2598. function ListView_GetBkColor(hWnd: HWND): TColorRef;
  2599. begin
  2600.   Result := SendMessage(hWnd, LVM_GETBKCOLOR, 0, 0);
  2601. end;
  2602.  
  2603. function ListView_SetBkColor(hWnd: HWND; clrBk: TColorRef): Bool;
  2604. begin
  2605.   Result := Bool( SendMessage(hWnd, LVM_SETBKCOLOR, 0, clrBk) );
  2606. end;
  2607.  
  2608. function ListView_GetImageList(hWnd: HWND; iImageList: Integer): HImageList;
  2609. begin
  2610.   Result := HImageList( SendMessage(hWnd, LVM_GETIMAGELIST, iImageList, 0) );
  2611. end;
  2612.  
  2613. function ListView_SetImageList(hWnd: HWND; himl: HImageList; iImageList: Integer): HImageList;
  2614. begin
  2615.   Result := HImageList( SendMessage(hWnd, LVM_SETIMAGELIST, iImageList, Longint(himl)) );
  2616. end;
  2617.  
  2618. function ListView_GetItemCount(hWnd: HWND): Integer;
  2619. begin
  2620.   Result := SendMessage(hWnd, LVM_GETITEMCOUNT, 0, 0);
  2621. end;
  2622.  
  2623. function IndexToStateImageMask(I: Longint): Longint;
  2624. begin
  2625.   Result := I shl 12;
  2626. end;
  2627.  
  2628. function ListView_GetItemA(hWnd: HWND; var pItem: TLVItemA): Bool;
  2629. begin
  2630.   Result := Bool( SendMessage(hWnd, LVM_GETITEM, 0, Longint(@pItem)) );
  2631. end;
  2632. function ListView_GetItemW(hWnd: HWND; var pItem: TLVItemW): Bool;
  2633. begin
  2634.   Result := Bool( SendMessage(hWnd, LVM_GETITEM, 0, Longint(@pItem)) );
  2635. end;
  2636. function ListView_GetItem(hWnd: HWND; var pItem: TLVItem): Bool;
  2637. begin
  2638.   Result := Bool( SendMessage(hWnd, LVM_GETITEM, 0, Longint(@pItem)) );
  2639. end;
  2640.  
  2641. function ListView_SetItemA(hWnd: HWND; const pItem: TLVItemA): Bool;
  2642. begin
  2643.   Result := Bool( SendMessage(hWnd, LVM_SETITEM, 0, Longint(@pItem)) );
  2644. end;
  2645. function ListView_SetItemW(hWnd: HWND; const pItem: TLVItemW): Bool;
  2646. begin
  2647.   Result := Bool( SendMessage(hWnd, LVM_SETITEM, 0, Longint(@pItem)) );
  2648. end;
  2649. function ListView_SetItem(hWnd: HWND; const pItem: TLVItem): Bool;
  2650. begin
  2651.   Result := Bool( SendMessage(hWnd, LVM_SETITEM, 0, Longint(@pItem)) );
  2652. end;
  2653.  
  2654. function ListView_InsertItemA(hWnd: HWND; const pItem: TLVItemA): Integer;
  2655. begin
  2656.   Result := Integer( SendMessage(hWnd, LVM_INSERTITEM, 0, Longint(@pItem)) );
  2657. end;
  2658. function ListView_InsertItemW(hWnd: HWND; const pItem: TLVItemW): Integer;
  2659. begin
  2660.   Result := Integer( SendMessage(hWnd, LVM_INSERTITEM, 0, Longint(@pItem)) );
  2661. end;
  2662. function ListView_InsertItem(hWnd: HWND; const pItem: TLVItem): Integer;
  2663. begin
  2664.   Result := Integer( SendMessage(hWnd, LVM_INSERTITEM, 0, Longint(@pItem)) );
  2665. end;
  2666.  
  2667. function ListView_DeleteItem(hWnd: HWND; i: Integer): Bool;
  2668. begin
  2669.   Result := Bool( SendMessage(hWnd, LVM_DELETEITEM, i, 0) );
  2670. end;
  2671.  
  2672. function ListView_DeleteAllItems(hWnd: HWND): Bool;
  2673. begin
  2674.   Result := Bool( SendMessage(hWnd, LVM_DELETEALLITEMS, 0, 0) );
  2675. end;
  2676.  
  2677. function ListView_GetCallbackMask(hWnd: HWND): UINT;
  2678. begin
  2679.   Result := SendMessage(hWnd, LVM_GETCALLBACKMASK, 0, 0);
  2680. end;
  2681.  
  2682. function ListView_SetCallbackMask(hWnd: HWND; mask: UINT): Bool;
  2683. begin
  2684.   Result := Bool( SendMessage(hWnd, LVM_SETCALLBACKMASK, mask, 0) );
  2685. end;
  2686.  
  2687. function ListView_GetNextItem(hWnd: HWND; iStart: Integer; Flags: UINT): Integer;
  2688. begin
  2689.   Result := SendMessage(hWnd, LVM_GETNEXTITEM, iStart, MakeLong(Flags, 0));
  2690. end;
  2691.  
  2692. function ListView_FindItemA(hWnd: HWND; iStart: Integer;
  2693.   const plvfi: TLVFindInfoA): Integer;
  2694. begin
  2695.   Result := SendMessage(hWnd, LVM_FINDITEM, iStart, Longint(@plvfi));
  2696. end;
  2697. function ListView_FindItemW(hWnd: HWND; iStart: Integer;
  2698.   const plvfi: TLVFindInfoW): Integer;
  2699. begin
  2700.   Result := SendMessage(hWnd, LVM_FINDITEM, iStart, Longint(@plvfi));
  2701. end;
  2702. function ListView_FindItem(hWnd: HWND; iStart: Integer;
  2703.   const plvfi: TLVFindInfo): Integer;
  2704. begin
  2705.   Result := SendMessage(hWnd, LVM_FINDITEM, iStart, Longint(@plvfi));
  2706. end;
  2707.  
  2708. function ListView_GetItemRect(hWnd: HWND; i: Integer; var prc: TRect;
  2709.   Code: Integer): Bool;
  2710. begin
  2711.   prc.left := Code;
  2712.   Result := Bool( SendMessage(hWnd, LVM_GETITEMRECT, i, Longint(@prc)) );
  2713. end;
  2714.  
  2715. function ListView_SetItemPosition(hWnd: HWND; i, x, y: Integer): Bool;
  2716. begin
  2717.   Result := Bool( SendMessage(hWnd, LVM_SETITEMPOSITION, i, MakeLong(x, y)) );
  2718. end;
  2719.  
  2720. function ListView_GetItemPosition(hwndLV: HWND; i: Integer;
  2721.   var ppt: TPoint): Bool;
  2722. begin
  2723.   Result := Bool( SendMessage(hWndLV, LVM_GETITEMPOSITION, i, Longint(@ppt)) );
  2724. end;
  2725.  
  2726. function ListView_GetStringWidthA(hwndLV: HWND; psz: PAnsiChar): Integer;
  2727. begin
  2728.   Result := SendMessage(hwndLV, LVM_GETSTRINGWIDTH, 0, Longint(psz));
  2729. end;
  2730. function ListView_GetStringWidthW(hwndLV: HWND; psz: PWideChar): Integer;
  2731. begin
  2732.   Result := SendMessage(hwndLV, LVM_GETSTRINGWIDTH, 0, Longint(psz));
  2733. end;
  2734. function ListView_GetStringWidth(hwndLV: HWND; psz: PChar): Integer;
  2735. begin
  2736.   Result := SendMessage(hwndLV, LVM_GETSTRINGWIDTH, 0, Longint(psz));
  2737. end;
  2738.  
  2739. function ListView_HitTest(hwndLV: HWND; var pinfo: TLVHitTestInfo): Integer;
  2740. begin
  2741.   Result := SendMessage(hwndLV, LVM_HITTEST, 0, Longint(@pinfo));
  2742. end;
  2743.  
  2744. function ListView_EnsureVisible(hwndLV: HWND; i: Integer; fPartialOK: Bool): Bool;
  2745. begin
  2746.   Result := SendMessage(hwndLV, LVM_ENSUREVISIBLE, i,
  2747.     MakeLong(Integer(fPartialOK), 0)) <> 0;
  2748. end;
  2749.  
  2750. function ListView_Scroll(hwndLV: HWnd; DX, DY: Integer): Bool;
  2751. begin
  2752.   Result := Bool( SendMessage(hwndLV, LVM_SCROLL, DX, DY) );
  2753. end;
  2754.  
  2755. function ListView_RedrawItems(hwndLV: HWND; iFirst, iLast: Integer): Bool;
  2756. begin
  2757.   Result := Bool( SendMessage(hwndLV, LVM_REDRAWITEMS, iFirst, iLast) );
  2758. end;
  2759.  
  2760. function ListView_Arrange(hwndLV: HWND; Code: UINT): Bool;
  2761. begin
  2762.   Result := Bool( SendMessage(hwndLV, LVM_ARRANGE, Code, 0) );
  2763. end;
  2764.  
  2765. function ListView_EditLabelA(hwndLV: HWND; i: Integer): HWND;
  2766. begin
  2767.   Result := HWND( SendMessage(hwndLV, LVM_EDITLABEL, i, 0) );
  2768. end;
  2769. function ListView_EditLabelW(hwndLV: HWND; i: Integer): HWND;
  2770. begin
  2771.   Result := HWND( SendMessage(hwndLV, LVM_EDITLABEL, i, 0) );
  2772. end;
  2773. function ListView_EditLabel(hwndLV: HWND; i: Integer): HWND;
  2774. begin
  2775.   Result := HWND( SendMessage(hwndLV, LVM_EDITLABEL, i, 0) );
  2776. end;
  2777.  
  2778. function ListView_GetEditControl(hwndLV: HWND): HWND;
  2779. begin
  2780.   Result := HWND( SendMessage(hwndLV, LVM_GETEDITCONTROL, 0, 0) );
  2781. end;
  2782.  
  2783. function ListView_GetColumnA(hwnd: HWND; iCol: Integer; var pcol: TLVColumnA): Bool;
  2784. begin
  2785.   Result := Bool( SendMessage(hwnd, LVM_GETCOLUMN, iCol, Longint(@pcol)) );
  2786. end;
  2787. function ListView_GetColumnW(hwnd: HWND; iCol: Integer; var pcol: TLVColumnW): Bool;
  2788. begin
  2789.   Result := Bool( SendMessage(hwnd, LVM_GETCOLUMN, iCol, Longint(@pcol)) );
  2790. end;
  2791. function ListView_GetColumn(hwnd: HWND; iCol: Integer; var pcol: TLVColumn): Bool;
  2792. begin
  2793.   Result := Bool( SendMessage(hwnd, LVM_GETCOLUMN, iCol, Longint(@pcol)) );
  2794. end;
  2795.  
  2796. function ListView_SetColumnA(hwnd: HWND; iCol: Integer; const pcol: TLVColumnA): Bool;
  2797. begin
  2798.   Result := Bool( SendMessage(hwnd, LVM_SETCOLUMN, iCol, Longint(@pcol)) );
  2799. end;
  2800. function ListView_SetColumnW(hwnd: HWND; iCol: Integer; const pcol: TLVColumnW): Bool;
  2801. begin
  2802.   Result := Bool( SendMessage(hwnd, LVM_SETCOLUMN, iCol, Longint(@pcol)) );
  2803. end;
  2804. function ListView_SetColumn(hwnd: HWND; iCol: Integer; const pcol: TLVColumn): Bool;
  2805. begin
  2806.   Result := Bool( SendMessage(hwnd, LVM_SETCOLUMN, iCol, Longint(@pcol)) );
  2807. end;
  2808.  
  2809. function ListView_InsertColumnA(hwnd: HWND; iCol: Integer; const pcol: TLVColumnA): Integer;
  2810. begin
  2811.   Result := SendMessage(hWnd, LVM_INSERTCOLUMN, iCol, Longint(@pcol));
  2812. end;
  2813. function ListView_InsertColumnW(hwnd: HWND; iCol: Integer; const pcol: TLVColumnW): Integer;
  2814. begin
  2815.   Result := SendMessage(hWnd, LVM_INSERTCOLUMN, iCol, Longint(@pcol));
  2816. end;
  2817. function ListView_InsertColumn(hwnd: HWND; iCol: Integer; const pcol: TLVColumn): Integer;
  2818. begin
  2819.   Result := SendMessage(hWnd, LVM_INSERTCOLUMN, iCol, Longint(@pcol));
  2820. end;
  2821.  
  2822. function ListView_DeleteColumn(hwnd: HWND; iCol: Integer): Bool;
  2823. begin
  2824.   Result := Bool( SendMessage(hWnd, LVM_DELETECOLUMN, iCol, 0) );
  2825. end;
  2826.  
  2827. function ListView_GetColumnWidth(hwnd: HWND; iCol: Integer): Integer;
  2828. begin
  2829.   Result := Integer( SendMessage(hwnd, LVM_GETCOLUMNWIDTH, iCol, 0) );
  2830. end;
  2831.  
  2832. function ListView_SetColumnWidth(hwnd: HWnd; iCol: Integer; cx: Integer): Bool;
  2833. begin
  2834.   Result := Bool( SendMessage(hwnd, LVM_SETCOLUMNWIDTH, iCol,
  2835.     MakeLong((cx), 0)) );
  2836. end;
  2837.  
  2838. function ListView_CreateDragImage(hwnd: HWND; i: Integer;
  2839.   const lpptUpLeft: TPoint): HImageList;
  2840. begin
  2841.   Result := HIMAGELIST( SendMessage(hwnd, LVM_CREATEDRAGIMAGE, i,
  2842.     Longint(@lpptUpLeft)));
  2843. end;
  2844.  
  2845. function ListView_GetViewRect(hwnd: HWND; var prc: TRect): Bool;
  2846. begin
  2847.   Result := Bool( SendMessage(hwnd, LVM_GETVIEWRECT, 0, Longint(@prc)) );
  2848. end;
  2849.  
  2850. function ListView_GetTextColor(hwnd: HWND): TColorRef;
  2851. begin
  2852.   Result := SendMessage(hwnd, LVM_GETTEXTCOLOR, 0, 0);
  2853. end;
  2854.  
  2855. function ListView_SetTextColor(hwnd: HWND; clrText: TColorRef): Bool;
  2856. begin
  2857.   Result := Bool( SendMessage(hwnd, LVM_SETTEXTCOLOR, 0, clrText) );
  2858. end;
  2859.  
  2860. function ListView_GetTextBkColor(hwnd: HWND): TColorRef;
  2861. begin
  2862.   Result := SendMessage(hwnd, LVM_GETTEXTBKCOLOR, 0, 0);
  2863. end;
  2864.  
  2865. function ListView_SetTextBkColor(hwnd: HWND; clrTextBk: TColorRef): Bool;
  2866. begin
  2867.   Result := Bool( SendMessage(hwnd, LVM_SETTEXTBKCOLOR, 0, clrTextBk) );
  2868. end;
  2869.  
  2870. function ListView_GetTopIndex(hwndLV: HWND): Integer;
  2871. begin
  2872.   Result := SendMessage(hwndLV, LVM_GETTOPINDEX, 0, 0);
  2873. end;
  2874.  
  2875. function ListView_GetCountPerPage(hwndLV: HWND): Integer;
  2876. begin
  2877.   Result := SendMessage(hwndLV, LVM_GETCOUNTPERPAGE, 0, 0);
  2878. end;
  2879.  
  2880. function ListView_GetOrigin(hwndLV: HWND; var ppt: TPoint): Bool;
  2881. begin
  2882.   Result := Bool( SendMessage(hwndLV, LVM_GETORIGIN, 0, Longint(@ppt)) );
  2883. end;
  2884.  
  2885. function ListView_Update(hwndLV: HWND; i: Integer): Bool;
  2886. begin
  2887.   Result := SendMessage(hwndLV, LVM_UPDATE, i, 0) <> 0;
  2888. end;
  2889.  
  2890. function ListView_SetItemState(hwndLV: HWND; i: Integer; data, mask: UINT): Bool;
  2891. var
  2892.   Item: TLVItem;
  2893. begin
  2894.   Item.stateMask := mask;
  2895.   Item.state := data;
  2896.   Result := Bool( SendMessage(hwndLV, LVM_SETITEMSTATE, i, Longint(@Item)) );
  2897. end;
  2898.  
  2899. function ListView_GetItemState(hwndLV: HWND; i, mask: Integer): Integer;
  2900. begin
  2901.   Result := SendMessage(hwndLV, LVM_GETITEMSTATE, i, mask);
  2902. end;
  2903.  
  2904. function ListView_GetItemTextA(hwndLV: HWND; i, iSubItem: Integer;
  2905.   pszText: PAnsiChar; cchTextMax: Integer): Integer;
  2906. var
  2907.   Item: TLVItemA;
  2908. begin
  2909.   Item.iSubItem := iSubItem;
  2910.   Item.cchTextMax := cchTextMax;
  2911.   Item.pszText := pszText;
  2912.   Result := SendMessage(hwndLV, LVM_GETITEMTEXT, i, Longint(@Item));
  2913. end;
  2914. function ListView_GetItemTextW(hwndLV: HWND; i, iSubItem: Integer;
  2915.   pszText: PWideChar; cchTextMax: Integer): Integer;
  2916. var
  2917.   Item: TLVItemW;
  2918. begin
  2919.   Item.iSubItem := iSubItem;
  2920.   Item.cchTextMax := cchTextMax;
  2921.   Item.pszText := pszText;
  2922.   Result := SendMessage(hwndLV, LVM_GETITEMTEXT, i, Longint(@Item));
  2923. end;
  2924. function ListView_GetItemText(hwndLV: HWND; i, iSubItem: Integer;
  2925.   pszText: PChar; cchTextMax: Integer): Integer;
  2926. var
  2927.   Item: TLVItem;
  2928. begin
  2929.   Item.iSubItem := iSubItem;
  2930.   Item.cchTextMax := cchTextMax;
  2931.   Item.pszText := pszText;
  2932.   Result := SendMessage(hwndLV, LVM_GETITEMTEXT, i, Longint(@Item));
  2933. end;
  2934.  
  2935. function ListView_SetItemTextA(hwndLV: HWND; i, iSubItem: Integer;
  2936.   pszText: PAnsiChar): Bool;
  2937. var
  2938.   Item: TLVItemA;
  2939. begin
  2940.   Item.iSubItem := iSubItem;
  2941.   Item.pszText := pszText;
  2942.   Result := Bool( SendMessage(hwndLV, LVM_SETITEMTEXT, i, Longint(@Item)) );
  2943. end;
  2944. function ListView_SetItemTextW(hwndLV: HWND; i, iSubItem: Integer;
  2945.   pszText: PWideChar): Bool;
  2946. var
  2947.   Item: TLVItemW;
  2948. begin
  2949.   Item.iSubItem := iSubItem;
  2950.   Item.pszText := pszText;
  2951.   Result := Bool( SendMessage(hwndLV, LVM_SETITEMTEXT, i, Longint(@Item)) );
  2952. end;
  2953. function ListView_SetItemText(hwndLV: HWND; i, iSubItem: Integer;
  2954.   pszText: PChar): Bool;
  2955. var
  2956.   Item: TLVItem;
  2957. begin
  2958.   Item.iSubItem := iSubItem;
  2959.   Item.pszText := pszText;
  2960.   Result := Bool( SendMessage(hwndLV, LVM_SETITEMTEXT, i, Longint(@Item)) );
  2961. end;
  2962.  
  2963. procedure ListView_SetItemCount(hwndLV: HWND; cItems: Integer);
  2964. begin
  2965.   SendMessage(hwndLV, LVM_SETITEMCOUNT, cItems, 0);
  2966. end;
  2967.  
  2968. function ListView_SortItems(hwndLV: HWND; pfnCompare: TLVCompare;
  2969.   lPrm: Longint): Bool;
  2970. begin
  2971.   Result := Bool( SendMessage(hwndLV, LVM_SORTITEMS, lPrm,
  2972.     Longint(@pfnCompare)) );
  2973. end;
  2974.  
  2975. procedure ListView_SetItemPosition32(hwndLV: HWND; i, x, y: Integer);
  2976. var
  2977.   ptNewPos: TPoint;
  2978. begin
  2979.   ptNewPos.x := x;
  2980.   ptNewPos.y := y;
  2981.   SendMessage(hwndLV, LVM_SETITEMPOSITION32, i, Longint(@ptNewPos));
  2982. end;
  2983.  
  2984. function ListView_GetSelectedCount(hwndLV: HWND): UINT;
  2985. begin
  2986.   Result := SendMessage(hwndLV, LVM_GETSELECTEDCOUNT, 0, 0);
  2987. end;
  2988.  
  2989. function ListView_GetItemSpacing(hwndLV: HWND; fSmall: Integer): Longint;
  2990. begin
  2991.   Result := SendMessage(hwndLV, LVM_GETITEMSPACING, fSmall, 0);
  2992. end;
  2993.  
  2994. function ListView_GetISearchStringA(hwndLV: HWND; lpsz: PAnsiChar): Bool;
  2995. begin
  2996.   Result := Bool( SendMessage(hwndLV, LVM_GETISEARCHSTRING, 0,
  2997.     Longint(lpsz)) );
  2998. end;
  2999. function ListView_GetISearchStringW(hwndLV: HWND; lpsz: PWideChar): Bool;
  3000. begin
  3001.   Result := Bool( SendMessage(hwndLV, LVM_GETISEARCHSTRING, 0,
  3002.     Longint(lpsz)) );
  3003. end;
  3004. function ListView_GetISearchString(hwndLV: HWND; lpsz: PChar): Bool;
  3005. begin
  3006.   Result := Bool( SendMessage(hwndLV, LVM_GETISEARCHSTRING, 0,
  3007.     Longint(lpsz)) );
  3008. end;
  3009.  
  3010. { Tree View }
  3011.  
  3012. function TreeView_InsertItem(hwnd: HWND; const lpis: TTVInsertStruct): HTreeItem;
  3013. begin
  3014.   Result := HTreeItem( SendMessage(hwnd, TVM_INSERTITEM, 0, Longint(@lpis)) );
  3015. end;
  3016.  
  3017. function TreeView_DeleteItem(hwnd: HWND; hitem: HTreeItem): Bool;
  3018. begin
  3019.   Result := Bool( SendMessage(hwnd, TVM_DELETEITEM, 0, Longint(hitem)) );
  3020. end;
  3021.  
  3022. function TreeView_DeleteAllItems(hwnd: HWND): Bool;
  3023. begin
  3024.   Result := Bool( SendMessage(hwnd, TVM_DELETEITEM, 0, Longint(TVI_ROOT)) );
  3025. end;
  3026.  
  3027. function TreeView_Expand(hwnd: HWND; hitem: HTreeItem; code: Integer): Bool;
  3028. begin
  3029.   Result := Bool( SendMessage(hwnd, TVM_EXPAND, code, Longint(hitem)) );
  3030. end;
  3031.  
  3032. function TreeView_GetItemRect(hwnd: HWND; hitem: HTreeItem;
  3033.   var prc: TRect; code: Bool): Bool;
  3034. begin
  3035.   { !! Verify !! The contents of prc^ must contain the HTreeItem's value
  3036.     upon sending this message.  }
  3037.   HTreeItem(Pointer(@prc)^) := hitem;
  3038.   Result := Bool( SendMessage(hwnd, TVM_GETITEMRECT, Integer(code), Longint(@prc)) );
  3039. end;
  3040.  
  3041. function TreeView_GetCount(hwnd: HWND): UINT;
  3042. begin
  3043.   Result := SendMessage(hwnd, TVM_GETCOUNT, 0, 0);
  3044. end;
  3045.  
  3046. function TreeView_GetIndent(hwnd: HWND): UINT;
  3047. begin
  3048.   Result := SendMessage(hwnd, TVM_GETINDENT, 0, 0);
  3049. end;
  3050.  
  3051. function TreeView_SetIndent(hwnd: HWND; indent: Integer): Bool;
  3052. begin
  3053.   Result := Bool( SendMessage(hwnd, TVM_SETINDENT, indent, 0) );
  3054. end;
  3055.  
  3056. function TreeView_GetImageList(hwnd: HWND; iImage: Integer): HImageList;
  3057. begin
  3058.   Result := HImageList( SendMessage(hwnd, TVM_GETIMAGELIST, iImage, 0) );
  3059. end;
  3060.  
  3061. function TreeView_SetImageList(hwnd: HWND; himl: HImageList;
  3062.   iImage: Integer): HImageList;
  3063. begin
  3064.   Result := HImageList( SendMessage(hwnd, TVM_SETIMAGELIST, iImage,
  3065.     Longint(himl)) );
  3066. end;
  3067.  
  3068. function TreeView_GetNextItem(hwnd: HWND; hitem: HTreeItem;
  3069.   code: Integer): HTreeItem;
  3070. begin
  3071.   Result := HTreeItem( SendMessage(hwnd, TVM_GETNEXTITEM, code,
  3072.     Longint(hitem)) );
  3073. end;
  3074.  
  3075. function TreeView_GetChild(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3076. begin
  3077.   Result := TreeView_GetNextItem(hwnd, hitem, TVGN_CHILD);
  3078. end;
  3079.  
  3080. function TreeView_GetNextSibling(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3081. begin
  3082.   Result := TreeView_GetNextItem(hwnd, hitem, TVGN_NEXT);
  3083. end;
  3084.  
  3085. function TreeView_GetPrevSibling(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3086. begin
  3087.   Result := TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUS);
  3088. end;
  3089.  
  3090. function TreeView_GetParent(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3091. begin
  3092.   Result := TreeView_GetNextItem(hwnd, hitem, TVGN_PARENT);
  3093. end;
  3094.  
  3095. function TreeView_GetFirstVisible(hwnd: HWND): HTreeItem;
  3096. begin
  3097.   Result := TreeView_GetNextItem(hwnd, nil,  TVGN_FIRSTVISIBLE);
  3098. end;
  3099.  
  3100. function TreeView_GetNextVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3101. begin
  3102.   Result := TreeView_GetNextItem(hwnd, hitem, TVGN_NEXTVISIBLE);
  3103. end;
  3104.  
  3105. function TreeView_GetPrevVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3106. begin
  3107.   Result := TreeView_GetNextItem(hwnd, hitem, TVGN_PREVIOUSVISIBLE);
  3108. end;
  3109.  
  3110. function TreeView_GetSelection(hwnd: HWND): HTreeItem;
  3111. begin
  3112.   Result := TreeView_GetNextItem(hwnd, nil, TVGN_CARET);
  3113. end;
  3114.  
  3115. function TreeView_GetDropHilite(hwnd: HWND): HTreeItem;
  3116. begin
  3117.   Result := TreeView_GetNextItem(hwnd, nil, TVGN_DROPHILITE);
  3118. end;
  3119.  
  3120. function TreeView_GetRoot(hwnd: HWND): HTreeItem;
  3121. begin
  3122.   Result := TreeView_GetNextItem(hwnd, nil, TVGN_ROOT);
  3123. end;
  3124.  
  3125. function TreeView_Select(hwnd: HWND; hitem: HTreeItem;
  3126.   code: Integer): HTreeItem;
  3127. begin
  3128.   Result := HTreeItem( SendMessage(hwnd, TVM_SELECTITEM, code,
  3129.     Longint(hitem)) );
  3130. end;
  3131.  
  3132. function TreeView_SelectItem(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3133. begin
  3134.   Result := TreeView_Select(hwnd, hitem, TVGN_CARET);
  3135. end;
  3136.  
  3137. function TreeView_SelectDropTarget(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3138. begin
  3139.   Result := TreeView_Select(hwnd, hitem, TVGN_DROPHILITE);
  3140. end;
  3141.  
  3142. function TreeView_SelectSetFirstVisible(hwnd: HWND; hitem: HTreeItem): HTreeItem;
  3143. begin
  3144.   Result := TreeView_Select(hwnd, hitem, TVGN_FIRSTVISIBLE);
  3145. end;
  3146.  
  3147. function TreeView_GetItemA(hwnd: HWND; var pitem: TTVItemA): Bool;
  3148. begin
  3149.   Result := Bool( SendMessage(hwnd, TVM_GETITEM, 0, Longint(@pitem)) );
  3150. end;
  3151. function TreeView_GetItemW(hwnd: HWND; var pitem: TTVItemW): Bool;
  3152. begin
  3153.   Result := Bool( SendMessage(hwnd, TVM_GETITEM, 0, Longint(@pitem)) );
  3154. end;
  3155. function TreeView_GetItem(hwnd: HWND; var pitem: TTVItem): Bool;
  3156. begin
  3157.   Result := Bool( SendMessage(hwnd, TVM_GETITEM, 0, Longint(@pitem)) );
  3158. end;
  3159.  
  3160. function TreeView_SetItemA(hwnd: HWND; const pitem: TTVItemA): Bool;
  3161. begin
  3162.   Result := Bool( SendMessage(hwnd, TVM_SETITEM, 0, Longint(@pitem)) );
  3163. end;
  3164. function TreeView_SetItemW(hwnd: HWND; const pitem: TTVItemW): Bool;
  3165. begin
  3166.   Result := Bool( SendMessage(hwnd, TVM_SETITEM, 0, Longint(@pitem)) );
  3167. end;
  3168. function TreeView_SetItem(hwnd: HWND; const pitem: TTVItem): Bool;
  3169. begin
  3170.   Result := Bool( SendMessage(hwnd, TVM_SETITEM, 0, Longint(@pitem)) );
  3171. end;
  3172.  
  3173. function TreeView_EditLabelA(hwnd: HWND; hitem: HTreeItem): HWND;
  3174. begin
  3175.   Result := Windows.HWND( SendMessage(hwnd, TVM_EDITLABEL, 0, Longint(hitem)) );
  3176. end;
  3177. function TreeView_EditLabelW(hwnd: HWND; hitem: HTreeItem): HWND;
  3178. begin
  3179.   Result := Windows.HWND( SendMessage(hwnd, TVM_EDITLABEL, 0, Longint(hitem)) );
  3180. end;
  3181. function TreeView_EditLabel(hwnd: HWND; hitem: HTreeItem): HWND;
  3182. begin
  3183.   Result := Windows.HWND( SendMessage(hwnd, TVM_EDITLABEL, 0, Longint(hitem)) );
  3184. end;
  3185.  
  3186. function TreeView_GetEditControl(hwnd: HWND): HWND;
  3187. begin
  3188.   Result := Windows.HWND( SendMessage(hwnd, TVM_GETEDITCONTROL, 0, 0) );
  3189. end;
  3190.  
  3191. function TreeView_GetVisibleCount(hwnd: HWND): UINT;
  3192. begin
  3193.   Result := SendMessage(hwnd, TVM_GETVISIBLECOUNT, 0, 0);
  3194. end;
  3195.  
  3196. function TreeView_HitTest(hwnd: HWND; var lpht: TTVHitTestInfo): HTreeItem;
  3197. begin
  3198.   Result := HTreeItem( SendMessage(hwnd, TVM_HITTEST, 0, Longint(@lpht)) );
  3199. end;
  3200.  
  3201. function TreeView_CreateDragImage(hwnd: HWND; hitem: HTreeItem): HimageList;
  3202. begin
  3203.   Result := HImageList( SendMessage(hwnd, TVM_CREATEDRAGIMAGE, 0,
  3204.     Longint(hitem)) );
  3205. end;
  3206.  
  3207. function TreeView_SortChildren(hwnd: HWND; hitem: HTreeItem;
  3208.   recurse: Integer): Bool;
  3209. begin
  3210.   Result := Bool( SendMessage(hwnd, TVM_SORTCHILDREN, recurse,
  3211.     Longint(hitem)) );
  3212. end;
  3213.  
  3214. function TreeView_EnsureVisible(hwnd: HWND; hitem: HTreeItem): Bool;
  3215. begin
  3216.   Result := Bool( SendMessage(hwnd, TVM_ENSUREVISIBLE, 0, Longint(hitem)) );
  3217. end;
  3218.  
  3219. function TreeView_SortChildrenCB(hwnd: HWND; const psort: TTVSortCB;
  3220.   recurse: Integer): Bool;
  3221. begin
  3222.   Result := Bool( SendMessage(hwnd, TVM_SORTCHILDRENCB, recurse,
  3223.     Longint(@psort)) );
  3224. end;
  3225.  
  3226. function TreeView_EndEditLabelNow(hwnd: HWND; fCancel: Bool): Bool;
  3227. begin
  3228.   Result := Bool( SendMessage(hwnd, TVM_ENDEDITLABELNOW, Integer(fCancel),
  3229.     0) );
  3230. end;
  3231.  
  3232. function TreeView_GetISearchStringA(hwndTV: HWND; lpsz: PAnsiChar): Bool;
  3233. begin
  3234.   Result := Bool( SendMessage(hwndTV, TVM_GETISEARCHSTRING, 0,
  3235.     Longint(lpsz)) );
  3236. end;
  3237. function TreeView_GetISearchStringW(hwndTV: HWND; lpsz: PWideChar): Bool;
  3238. begin
  3239.   Result := Bool( SendMessage(hwndTV, TVM_GETISEARCHSTRING, 0,
  3240.     Longint(lpsz)) );
  3241. end;
  3242. function TreeView_GetISearchString(hwndTV: HWND; lpsz: PChar): Bool;
  3243. begin
  3244.   Result := Bool( SendMessage(hwndTV, TVM_GETISEARCHSTRING, 0,
  3245.     Longint(lpsz)) );
  3246. end;
  3247.  
  3248.  
  3249. end.
  3250.