home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d56 / RMCTL.ZIP / rmMsgList.pas < prev    next >
Pascal/Delphi Source File  |  2001-06-22  |  22KB  |  377 lines
  1. {================================================================================
  2. Copyright (C) 1997-2001 Mills Enterprise
  3.  
  4. Unit     : rmMsgList
  5. Purpose  : To provide a simple method of identifying window messages or even
  6.            control messages.
  7. Date     : 11-13-1999
  8. Author   : Ryan J. Mills
  9. Version  : 1.80
  10. Notes    : This code was originally give to me by Daniel Parnell, and I've
  11.            continued to add to it.
  12. ================================================================================}
  13.  
  14. unit rmMSGList;
  15.  
  16. interface
  17.  
  18. {$I CompilerDefines.INC}
  19.  
  20. uses Messages;
  21.  
  22. type
  23.    TrmMsgEvent = procedure(Message:TMessage) of object;
  24.  
  25. function GetMessageName(Msg: Integer): string;
  26.  
  27. implementation
  28.  
  29. uses
  30.   SysUtils, Classes;
  31.  
  32. var
  33.   MsgList: TStringList;
  34.  
  35. function GetMessageName (Msg: Integer): string;
  36. var
  37.   N: Integer;
  38. begin
  39.   N := MsgList.IndexOfObject (TObject(Msg));
  40.   if N >= 0 then
  41.     Result := MsgList.Strings [N]
  42.   else if (Msg >= wm_User) and
  43.       (Msg <= $7FFF) then
  44.     Result := Format (
  45.       'wm_User message (%d)', [Msg])
  46.   else
  47.     Result := Format (
  48.       'Undocumented (%d)', [Msg]);
  49. end;
  50.  
  51. initialization
  52.   MsgList := TStringList.Create;
  53.   MsgList.AddObject ('wm_Null',              TObject($0000));
  54.   MsgList.AddObject ('wm_Create',            TObject($0001));
  55.   MsgList.AddObject ('wm_Destroy',           TObject($0002));
  56.   MsgList.AddObject ('wm_Move',              TObject($0003));
  57.   MsgList.AddObject ('wm_Size',              TObject($0005));
  58.   MsgList.AddObject ('wm_Activate',          TObject($0006));
  59.   MsgList.AddObject ('wm_SetFocus',          TObject($0007));
  60.   MsgList.AddObject ('wm_KillFocus',         TObject($0008));
  61.   MsgList.AddObject ('wm_Enable',            TObject($000A));
  62.   MsgList.AddObject ('wm_SetRedraw',         TObject($000B));
  63.   MsgList.AddObject ('wm_SetText',           TObject($000C));
  64.   MsgList.AddObject ('wm_GetText',           TObject($000D));
  65.   MsgList.AddObject ('wm_GetTextLength',     TObject($000E));
  66.   MsgList.AddObject ('wm_Paint',             TObject($000F));
  67.   MsgList.AddObject ('wm_Close',             TObject($0010));
  68.   MsgList.AddObject ('wm_QueryEndSession',   TObject($0011));
  69.   MsgList.AddObject ('wm_Quit',              TObject($0012));
  70.   MsgList.AddObject ('wm_QueryOpen',         TObject($0013));
  71.   MsgList.AddObject ('wm_EraseBkGnd',        TObject($0014));
  72.   MsgList.AddObject ('wm_SysColorChange',    TObject($0015));
  73.   MsgList.AddObject ('wm_EndSession',        TObject($0016));
  74.   MsgList.AddObject ('wm_SystemError',       TObject($0017));
  75.   MsgList.AddObject ('wm_ShowWindow',        TObject($0018));
  76.   MsgList.AddObject ('wm_CtlColor',          TObject($0019));
  77.   MsgList.AddObject ('wm_WinIniChange',      TObject($001A));
  78.   MsgList.AddObject ('wm_DevModeChange',     TObject($001B));
  79.   MsgList.AddObject ('wm_ActivateApp',       TObject($001C));
  80.   MsgList.AddObject ('wm_FontChange',        TObject($001D));
  81.   MsgList.AddObject ('wm_TimeChange',        TObject($001E));
  82.   MsgList.AddObject ('wm_CancelMode',        TObject($001F));
  83.   MsgList.AddObject ('wm_SetCursor',         TObject($0020));
  84.   MsgList.AddObject ('wm_MouseActivate',     TObject($0021));
  85.   MsgList.AddObject ('wm_ChildActivate',     TObject($0022));
  86.   MsgList.AddObject ('wm_QueueSync',         TObject($0023));
  87.   MsgList.AddObject ('wm_GetMinMaxInfo',     TObject($0024));
  88.   MsgList.AddObject ('wm_PaintIcon',         TObject($0026));
  89.   MsgList.AddObject ('wm_IconEraseBkGnd',    TObject($0027));
  90.   MsgList.AddObject ('wm_NextDlgCtl',        TObject($0028));
  91.   MsgList.AddObject ('wm_SpoolerStatus',     TObject($002A));
  92.   MsgList.AddObject ('wm_DrawItem',          TObject($002B));
  93.   MsgList.AddObject ('wm_MeasureItem',       TObject($002C));
  94.   MsgList.AddObject ('wm_DeleteItem',        TObject($002D));
  95.   MsgList.AddObject ('wm_VKeyToItem',        TObject($002E));
  96.   MsgList.AddObject ('wm_CharToItem',        TObject($002F));
  97.   MsgList.AddObject ('wm_SetFont',           TObject($0030));
  98.   MsgList.AddObject ('wm_GetFont',           TObject($0031));
  99.   MsgList.AddObject ('wm_SetHotKey',         TObject($0032));
  100.   MsgList.AddObject ('wm_GetHotKey',         TObject($0033));
  101.   MsgList.AddObject ('wm_QueryDragIcon',     TObject($0037));
  102.   MsgList.AddObject ('wm_CompareItem',       TObject($0039));
  103.   MsgList.AddObject ('wm_Compacting',        TObject($0041));
  104.   MsgList.AddObject ('wm_CommNotify',        TObject($0044));
  105.   MsgList.AddObject ('wm_WindowPosChanging', TObject($0046));
  106.   MsgList.AddObject ('wm_WindowPosChanged',  TObject($0047));
  107.   MsgList.AddObject ('wm_Power',             TObject($0048));
  108.   MsgList.AddObject ('wm_CopyData',          TObject($004A));
  109.   MsgList.AddObject ('wm_CancelJournal',     TObject($004B));
  110.   MsgList.AddObject ('wm_Notify',            TObject($004E));
  111.   MsgList.AddObject ('wm_InputLangChangeRequest', TObject($0050));
  112.   MsgList.AddObject ('wm_InputLangChange',        TObject($0051));
  113.   MsgList.AddObject ('wm_tCard',                  TObject($0052));
  114.   MsgList.AddObject ('wm_Help',                   TObject($0053));
  115.   MsgList.AddObject ('wm_UserChanged',            TObject($0054));
  116.   MsgList.AddObject ('wm_NotifyFormat',           TObject($0055));
  117.   MsgList.AddObject ('wm_ContextMenu',            TObject($007B));
  118.   MsgList.AddObject ('wm_StyleChanging',          TObject($007C));
  119.   MsgList.AddObject ('wm_StyleChanged',           TObject($007D));
  120.   MsgList.AddObject ('wm_DisplayChange',          TObject($007E));
  121.   MsgList.AddObject ('wm_GetIcon',                TObject($007F));
  122.   MsgList.AddObject ('wm_SetIcon',                TObject($0080));
  123.   MsgList.AddObject ('wm_NCCreate',               TObject($0081));
  124.   MsgList.AddObject ('wm_NCDestroy',              TObject($0082));
  125.   MsgList.AddObject ('wm_NCCalcSize',             TObject($0083));
  126.   MsgList.AddObject ('wm_NCHitTest',              TObject($0084));
  127.   MsgList.AddObject ('wm_NCPaint',                TObject($0085));
  128.   MsgList.AddObject ('wm_NCActivate',             TObject($0086));
  129.   MsgList.AddObject ('wm_GetDlgCode',             TObject($0087));
  130.   MsgList.AddObject ('wm_NCMouseMove',       TObject($00A0));
  131.   MsgList.AddObject ('wm_NCLButtonDown',     TObject($00A1));
  132.   MsgList.AddObject ('wm_NCLButtonUp',       TObject($00A2));
  133.   MsgList.AddObject ('wm_NCLButtonDblClk',   TObject($00A3));
  134.   MsgList.AddObject ('wm_NCRButtonDown',     TObject($00A4));
  135.   MsgList.AddObject ('wm_NCRButtonUp',       TObject($00A5));
  136.   MsgList.AddObject ('wm_NCRButtonDblClk',   TObject($00A6));
  137.   MsgList.AddObject ('wm_NCMButtonDown',     TObject($00A7));
  138.   MsgList.AddObject ('wm_NCMButtonUp',       TObject($00A8));
  139.   MsgList.AddObject ('wm_NCMButtonDblClk',   TObject($00A9));
  140.   MsgList.AddObject ('wm_KeyDown',           TObject($0100));
  141.   MsgList.AddObject ('wm_KeyUp',             TObject($0101));
  142.   MsgList.AddObject ('wm_Char',              TObject($0102));
  143.   MsgList.AddObject ('wm_DeadChar',          TObject($0103));
  144.   MsgList.AddObject ('wm_SysKeyDown',        TObject($0104));
  145.   MsgList.AddObject ('wm_SysKeyUp',          TObject($0105));
  146.   MsgList.AddObject ('wm_SysChar',           TObject($0106));
  147.   MsgList.AddObject ('wm_SysDeadChar',       TObject($0107));
  148.   MsgList.AddObject ('wm_KeyLast',           TObject($0108));
  149.   MsgList.AddObject ('wm_IME_StartComposition', TObject($010D));
  150.   MsgList.AddObject ('wm_IME_EndComposition',   TObject($010E));
  151.   MsgList.AddObject ('wm_IME_Composition/KeyLast', TObject($010F));
  152.   MsgList.AddObject ('wm_InitDialog',        TObject($0110));
  153.   MsgList.AddObject ('wm_Command',           TObject($0111));
  154.   MsgList.AddObject ('wm_SysCommand',        TObject($0112));
  155.   MsgList.AddObject ('wm_Timer',             TObject($0113));
  156.   MsgList.AddObject ('wm_HScroll',           TObject($0114));
  157.   MsgList.AddObject ('wm_VScroll',           TObject($0115));
  158.   MsgList.AddObject ('wm_InitMenu',          TObject($0116));
  159.   MsgList.AddObject ('wm_InitMenuPopup',     TObject($0117));
  160.   MsgList.AddObject ('wm_MenuSelect',        TObject($011F));
  161.   MsgList.AddObject ('wm_MenuChar',          TObject($0120));
  162.   MsgList.AddObject ('wm_EnterIdle',         TObject($0121));
  163.   MsgList.AddObject ('wm_CtlColorMsgbox',    TObject($0132));
  164.   MsgList.AddObject ('wm_CtlColorEdit',      TObject($0133));
  165.   MsgList.AddObject ('wm_CtlColorListbox',   TObject($0134));
  166.   MsgList.AddObject ('wm_CtlColorBtn',       TObject($0135));
  167.   MsgList.AddObject ('wm_CtlColorDlg',       TObject($0136));
  168.   MsgList.AddObject ('wm_CtlColorScrollbar', TObject($0137));
  169.   MsgList.AddObject ('wm_CtlColorStatic',    TObject($0138));
  170.   MsgList.AddObject ('wm_MouseMove',         TObject($0200));
  171.   MsgList.AddObject ('wm_LButtonDown',       TObject($0201));
  172.   MsgList.AddObject ('wm_LButtonUp',         TObject($0202));
  173.   MsgList.AddObject ('wm_LButtonDblClk',     TObject($0203));
  174.   MsgList.AddObject ('wm_RButtonDown',       TObject($0204));
  175.   MsgList.AddObject ('wm_RButtonUp',         TObject($0205));
  176.   MsgList.AddObject ('wm_RButtonDblClk',     TObject($0206));
  177.   MsgList.AddObject ('wm_MButtonDown',       TObject($0207));
  178.   MsgList.AddObject ('wm_MButtonUp',         TObject($0208));
  179.   MsgList.AddObject ('wm_MButtonDblClk',     TObject($0209));
  180.   MsgList.AddObject ('wm_MouseLast/Wheel',   TObject($020A));
  181.   MsgList.AddObject ('wm_ParentNotify',      TObject($0210));
  182.   MsgList.AddObject ('wm_EnterMenuLoop',     TObject($0211));
  183.   MsgList.AddObject ('wm_ExitMenuLoop',      TObject($0212));
  184.   MsgList.AddObject ('wm_NextMenu',          TObject($0213));
  185.   MsgList.AddObject ('wm_Sizing',            TObject($0214));
  186.   MsgList.AddObject ('wm_CaptureChanged',    TObject($0215));
  187.   MsgList.AddObject ('wm_Moving',            TObject($0216));
  188.   MsgList.AddObject ('wm_PowerBroadcast',    TObject($0218));
  189.   MsgList.AddObject ('wm_DeviceChange',      TObject($0219));
  190.   MsgList.AddObject ('wm_MDICreate',         TObject($0220));
  191.   MsgList.AddObject ('wm_MDIDestroy',        TObject($0221));
  192.   MsgList.AddObject ('wm_MDIActivate',       TObject($0222));
  193.   MsgList.AddObject ('wm_MDIRestore',        TObject($0223));
  194.   MsgList.AddObject ('wm_MDINext',           TObject($0224));
  195.   MsgList.AddObject ('wm_MDIMaximize',       TObject($0225));
  196.   MsgList.AddObject ('wm_MDITile',           TObject($0226));
  197.   MsgList.AddObject ('wm_MDICascade',        TObject($0227));
  198.   MsgList.AddObject ('wm_MDIIconArrange',    TObject($0228));
  199.   MsgList.AddObject ('wm_MDIGetActive',      TObject($0229));
  200.   MsgList.AddObject ('wm_MDISetMenu',        TObject($0230));
  201.   MsgList.AddObject ('wm_EnterSizeMove',    TObject($0231));
  202.   MsgList.AddObject ('wm_ExitSizeMove',     TObject($0232));
  203.   MsgList.AddObject ('wm_DropFiles',         TObject($0233));
  204.   MsgList.AddObject ('wm_MDIRefreshMenu',    TObject($0234));
  205.   MsgList.AddObject ('wm_IME_Setcontext',              TObject($0281));
  206.   MsgList.AddObject ('wm_IME_Notify',                  TObject($0282));
  207.   MsgList.AddObject ('wm_IME_Control',                 TObject($0283));
  208.   MsgList.AddObject ('wm_IME_Compositionfull',         TObject($0284));
  209.   MsgList.AddObject ('wm_IME_Select',                  TObject($0285));
  210.   MsgList.AddObject ('wm_IME_Char',                    TObject($0286));
  211.   MsgList.AddObject ('wm_IME_Keydown',                 TObject($0290));
  212.   MsgList.AddObject ('wm_IME_Keyup',                   TObject($0291));
  213.   MsgList.AddObject ('wm_MouseHover',       TObject($02a1));
  214.   MsgList.AddObject ('wm_MouseLeave',       TObject($02a3));
  215.   MsgList.AddObject ('wm_Cut',               TObject($0300));
  216.   MsgList.AddObject ('wm_Copy',              TObject($0301));
  217.   MsgList.AddObject ('wm_Paste',             TObject($0302));
  218.   MsgList.AddObject ('wm_Clear',             TObject($0303));
  219.   MsgList.AddObject ('wm_Undo',              TObject($0304));
  220.   MsgList.AddObject ('wm_RenderFormat',      TObject($0305));
  221.   MsgList.AddObject ('wm_RenderAllFormats',  TObject($0306));
  222.   MsgList.AddObject ('wm_DestroyClipboard',  TObject($0307));
  223.   MsgList.AddObject ('wm_DrawClipboard',     TObject($0308));
  224.   MsgList.AddObject ('wm_PaintClipboard',    TObject($0309));
  225.   MsgList.AddObject ('wm_VScrollClipboard',  TObject($030A));
  226.   MsgList.AddObject ('wm_SizeClipboard',     TObject($030B));
  227.   MsgList.AddObject ('wm_AskCBFormatName',   TObject($030C));
  228.   MsgList.AddObject ('wm_ChangeCBChain',     TObject($030D));
  229.   MsgList.AddObject ('wm_HScrollClipboard',  TObject($030E));
  230.   MsgList.AddObject ('wm_QueryNewPalette',   TObject($030F));
  231.   MsgList.AddObject ('wm_PaletteIsChanging', TObject($0310));
  232.   MsgList.AddObject ('wm_PaletteChanged',    TObject($0311));
  233.   MsgList.AddObject ('wm_HotKey',           TObject($0312));
  234.   MsgList.AddObject ('wm_Print',            TObject($0317));
  235.   MsgList.AddObject ('wm_PrintClient',      TObject($0318));
  236.  
  237.   MsgList.AddObject ('CM_ACTIVATE',                TObject($B000 + 0));
  238.   MsgList.AddObject ('CM_DEACTIVATE',              TObject($B000 + 1));
  239.   MsgList.AddObject ('CM_GOTFOCUS',                TObject($B000 + 2));
  240.   MsgList.AddObject ('CM_LOSTFOCUS',               TObject($B000 + 3));
  241.   MsgList.AddObject ('CM_CANCELMODE',              TObject($B000 + 4));
  242.   MsgList.AddObject ('CM_DIALOGKEY',               TObject($B000 + 5));
  243.   MsgList.AddObject ('CM_DIALOGCHAR',              TObject($B000 + 6));
  244.   MsgList.AddObject ('CM_FOCUSCHANGED',            TObject($B000 + 7));
  245.   MsgList.AddObject ('CM_PARENTFONTCHANGED',       TObject($B000 + 8));
  246.   MsgList.AddObject ('CM_PARENTCOLORCHANGED',      TObject($B000 + 9));
  247.   MsgList.AddObject ('CM_HITTEST',                 TObject($B000 + 10));
  248.   MsgList.AddObject ('CM_VISIBLECHANGED',          TObject($B000 + 11));
  249.   MsgList.AddObject ('CM_ENABLEDCHANGED',          TObject($B000 + 12));
  250.   MsgList.AddObject ('CM_COLORCHANGED',            TObject($B000 + 13));
  251.   MsgList.AddObject ('CM_FONTCHANGED',             TObject($B000 + 14));
  252.   MsgList.AddObject ('CM_CURSORCHANGED',           TObject($B000 + 15));
  253.   MsgList.AddObject ('CM_CTL3DCHANGED',            TObject($B000 + 16));
  254.   MsgList.AddObject ('CM_PARENTCTL3DCHANGED',      TObject($B000 + 17));
  255.   MsgList.AddObject ('CM_TEXTCHANGED',             TObject($B000 + 18));
  256.   MsgList.AddObject ('CM_MOUSEENTER',              TObject($B000 + 19));
  257.   MsgList.AddObject ('CM_MOUSELEAVE',              TObject($B000 + 20));
  258.   MsgList.AddObject ('CM_MENUCHANGED',             TObject($B000 + 21));
  259.   MsgList.AddObject ('CM_APPKEYDOWN',              TObject($B000 + 22));
  260.   MsgList.AddObject ('CM_APPSYSCOMMAND',           TObject($B000 + 23));
  261.   MsgList.AddObject ('CM_BUTTONPRESSED',           TObject($B000 + 24));
  262.   MsgList.AddObject ('CM_SHOWINGCHANGED',          TObject($B000 + 25));
  263.   MsgList.AddObject ('CM_ENTER',                   TObject($B000 + 26));
  264.   MsgList.AddObject ('CM_EXIT',                    TObject($B000 + 27));
  265.   MsgList.AddObject ('CM_DESIGNHITTEST',           TObject($B000 + 28));
  266.   MsgList.AddObject ('CM_ICONCHANGED',             TObject($B000 + 29));
  267.   MsgList.AddObject ('CM_WANTSPECIALKEY',          TObject($B000 + 30));
  268.   MsgList.AddObject ('CM_INVOKEHELP',              TObject($B000 + 31));
  269.   MsgList.AddObject ('CM_WINDOWHOOK',              TObject($B000 + 32));
  270.   MsgList.AddObject ('CM_RELEASE',                 TObject($B000 + 33));
  271.   MsgList.AddObject ('CM_SHOWHINTCHANGED',         TObject($B000 + 34));
  272.   MsgList.AddObject ('CM_PARENTSHOWHINTCHANGED',   TObject($B000 + 35));
  273.   MsgList.AddObject ('CM_SYSCOLORCHANGE',          TObject($B000 + 36));
  274.   MsgList.AddObject ('CM_WININICHANGE',            TObject($B000 + 37));
  275.   MsgList.AddObject ('CM_FONTCHANGE',              TObject($B000 + 38));
  276.   MsgList.AddObject ('CM_TIMECHANGE',              TObject($B000 + 39));
  277.   MsgList.AddObject ('CM_TABSTOPCHANGED',          TObject($B000 + 40));
  278.   MsgList.AddObject ('CM_UIACTIVATE',              TObject($B000 + 41));
  279.   MsgList.AddObject ('CM_UIDEACTIVATE',            TObject($B000 + 42));
  280.   MsgList.AddObject ('CM_DOCWINDOWACTIVATE',       TObject($B000 + 43));
  281.   MsgList.AddObject ('CM_CONTROLLISTCHANGE',       TObject($B000 + 44));
  282.   MsgList.AddObject ('CM_GETDATALINK',             TObject($B000 + 45));
  283.   MsgList.AddObject ('CM_CHILDKEY',                TObject($B000 + 46));
  284.   MsgList.AddObject ('CM_DRAG',                    TObject($B000 + 47));
  285.   MsgList.AddObject ('CM_HINTSHOW',                TObject($B000 + 48));
  286.   MsgList.AddObject ('CM_DIALOGHANDLE',            TObject($B000 + 49));
  287.   MsgList.AddObject ('CM_ISTOOLCONTROL',           TObject($B000 + 50));
  288.   MsgList.AddObject ('CM_RECREATEWND',             TObject($B000 + 51));
  289.   MsgList.AddObject ('CM_INVALIDATE',              TObject($B000 + 52));
  290.   MsgList.AddObject ('CM_SYSFONTCHANGED',          TObject($B000 + 53));
  291.   MsgList.AddObject ('CM_CONTROLCHANGE',           TObject($B000 + 54));
  292.   MsgList.AddObject ('CM_CHANGED',                 TObject($B000 + 55));
  293.   MsgList.AddObject('CM_DOCKCLIENT', TObject($B000 + 56));
  294.   MsgList.AddObject('CM_UNDOCKCLIENT', TObject($B000 + 57));
  295.   MsgList.AddObject('CM_FLOAT', TObject($B000 + 58));
  296.   MsgList.AddObject('CM_BORDERCHANGED', TObject($B000 + 59));
  297.   MsgList.AddObject('CM_BIDIMODECHANGED', TObject($B000 + 60));
  298.   MsgList.AddObject('CM_PARENTBIDIMODECHANGED', TObject($B000 + 61));
  299.   MsgList.AddObject('CM_ALLCHILDRENFLIPPED', TObject($B000 + 62));
  300.   MsgList.AddObject('CM_ACTIONUPDATE', TObject($B000 + 63));
  301.   MsgList.AddObject('CM_ACTIONEXECUTE', TObject($B000 + 64));
  302.   MsgList.AddObject('CM_HINTSHOWPAUSE', TObject($B000 + 65));
  303.   MsgList.AddObject('CM_DOCKNOTIFICATION', TObject($B000 + 66));
  304.   MsgList.AddObject('CM_MOUSEWHEEL', TObject($B000 + 67));
  305.  
  306.  
  307.   MsgList.AddObject('CN_CHARTOITEM', TObject($BC00 + WM_CHARTOITEM));
  308.   MsgList.AddObject('CN_COMMAND', TObject($BC00 + WM_COMMAND));
  309.   MsgList.AddObject('CN_COMPAREITEM', TObject($BC00 + WM_COMPAREITEM));
  310.   MsgList.AddObject('CN_CTLCOLORBTN', TObject($BC00 + WM_CTLCOLORBTN));
  311.   MsgList.AddObject('CN_CTLCOLORDLG', TObject($BC00 + WM_CTLCOLORDLG));
  312.   MsgList.AddObject('CN_CTLCOLOREDIT', TObject($BC00 + WM_CTLCOLOREDIT));
  313.   MsgList.AddObject('CN_CTLCOLORLISTBOX', TObject($BC00 + WM_CTLCOLORLISTBOX));
  314.   MsgList.AddObject('CN_CTLCOLORMSGBOX', TObject($BC00 + WM_CTLCOLORMSGBOX));
  315.   MsgList.AddObject('CN_CTLCOLORSCROLLBAR', TObject($BC00 + WM_CTLCOLORSCROLLBAR));
  316.   MsgList.AddObject('CN_CTLCOLORSTATIC', TObject($BC00 + WM_CTLCOLORSTATIC));
  317.   MsgList.AddObject('CN_DELETEITEM', TObject($BC00 + WM_DELETEITEM));
  318.   MsgList.AddObject('CN_DRAWITEM', TObject($BC00 + WM_DRAWITEM));
  319.   MsgList.AddObject('CN_HSCROLL', TObject($BC00 + WM_HSCROLL));
  320.   MsgList.AddObject('CN_MEASUREITEM', TObject($BC00 + WM_MEASUREITEM));
  321.   MsgList.AddObject('CN_PARENTNOTIFY', TObject($BC00 + WM_PARENTNOTIFY));
  322.   MsgList.AddObject('CN_VKEYTOITEM', TObject($BC00 + WM_VKEYTOITEM));
  323.   MsgList.AddObject('CN_VSCROLL', TObject($BC00 + WM_VSCROLL));
  324.   MsgList.AddObject('CN_KEYDOWN', TObject($BC00 + WM_KEYDOWN));
  325.   MsgList.AddObject('CN_KEYUP', TObject($BC00 + WM_KEYUP));
  326.   MsgList.AddObject('CN_CHAR', TObject($BC00 + WM_CHAR));
  327.   MsgList.AddObject('CN_SYSKEYDOWN', TObject($BC00 + WM_SYSKEYDOWN));
  328.   MsgList.AddObject ('CN_SYSKEYUP', TObject($BC00 + WM_SYSKEYUP));
  329.   MsgList.AddObject('CN_SYSCHAR', TObject($BC00 + WM_SYSCHAR));
  330.   MsgList.AddObject('CN_NOTIFY', TObject($BC00 + WM_NOTIFY));
  331.  
  332.   MsgList.AddObject('TVM_INSERTITEMA', TObject($1100 + 0));
  333.   MsgList.AddObject('TVM_INSERTITEMW', TObject($1100 + 50));
  334.   MsgList.AddObject('TVM_DELETEITEM', TObject($1100 + 1));
  335.   MsgList.AddObject('TVM_EXPAND', TObject($1100 + 2));
  336.   MsgList.AddObject('TVM_GETITEMRECT', TObject($1100 + 4));
  337.   MsgList.AddObject('TVM_GETCOUNT', TObject($1100 + 5));
  338.   MsgList.AddObject('TVM_GETINDENT', TObject($1100 + 6));
  339.   MsgList.AddObject('TVM_SETINDENT', TObject($1100 + 7));
  340.   MsgList.AddObject('TVM_GETIMAGELIST', TObject($1100 + 8));
  341.   MsgList.AddObject('TVM_SETIMAGELIST', TObject($1100 + 9));
  342.   MsgList.AddObject('TVM_GETNEXTITEM', TObject($1100 + 10));
  343.   MsgList.AddObject('TVM_SELECTITEM', TObject($1100 + 11));
  344.   MsgList.AddObject('TVM_GETITEMA', TObject($1100 + 12));
  345.   MsgList.AddObject('TVM_GETITEMW', TObject($1100 + 62));
  346.   MsgList.AddObject('TVM_SETITEMA', TObject($1100 + 13));
  347.   MsgList.AddObject('TVM_SETITEMW', TObject($1100 + 63));
  348.   MsgList.AddObject('TVM_EDITLABELA', TObject($1100 + 14));
  349.   MsgList.AddObject('TVM_EDITLABELW', TObject($1100 + 65));
  350.   MsgList.AddObject('TVM_GETEDITCONTROL', TObject($1100 + 15));
  351.   MsgList.AddObject('TVM_GETVISIBLECOUNT', TObject($1100 + 16));
  352.   MsgList.AddObject('TVM_HITTEST', TObject($1100 + 17));
  353.   MsgList.AddObject('TVM_CREATEDRAGIMAGE', TObject($1100 + 18));
  354.   MsgList.AddObject('TVM_SORTCHILDREN', TObject($1100 + 19));
  355.   MsgList.AddObject('TVM_ENSUREVISIBLE', TObject($1100 + 20));
  356.   MsgList.AddObject('TVM_SORTCHILDRENCB', TObject($1100 + 21));
  357.   MsgList.AddObject('TVM_ENDEDITLABELNOW', TObject($1100 + 22));
  358.   MsgList.AddObject('TVM_GETISEARCHSTRINGA', TObject($1100 + 23));
  359.   MsgList.AddObject('TVM_GETISEARCHSTRINGW', TObject($1100 + 64));
  360.   MsgList.AddObject('TVM_SETTOOLTIPS', TObject($1100 + 24));
  361.   MsgList.AddObject('TVM_GETTOOLTIPS', TObject($1100 + 25));
  362.   MsgList.AddObject('TVM_SETINSERTMARK', TObject($1100 + 26));
  363.   MsgList.AddObject('TVM_SETITEMHEIGHT', TObject($1100 + 27));
  364.   MsgList.AddObject('TVM_GETITEMHEIGHT', TObject($1100 + 28));
  365.   MsgList.AddObject('TVM_SETBKCOLOR', TObject($1100 + 29));
  366.   MsgList.AddObject('TVM_SETTEXTCOLOR', TObject($1100 + 30));
  367.   MsgList.AddObject('TVM_GETBKCOLOR', TObject($1100 + 31));
  368.   MsgList.AddObject('TVM_GETTEXTCOLOR', TObject($1100 + 32));
  369.   MsgList.AddObject('TVM_SETSCROLLTIME', TObject($1100 + 33));
  370.   MsgList.AddObject('TVM_GETSCROLLTIME', TObject($1100 + 34));
  371.   MsgList.AddObject('Unknown (TVM-$1123)', TObject($1100 + 35));
  372.   MsgList.AddObject('Unknown (TVM-$1124)', TObject($1100 + 36));
  373.   MsgList.AddObject('TVM_SETINSERTMARKCOLOR', TObject($1100 + 37));
  374.   MsgList.AddObject('TVM_GETINSERTMARKCOLOR', TObject($1100 + 38));
  375.  
  376. end.
  377.