home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Source / Vcl / MESSAGES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-01-26  |  43.0 KB  |  1,771 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Runtime Library                  }
  5. {       Windows Messages and Types                      }
  6. {                                                       }
  7. {       Copyright (C) 1991,98 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Messages;
  12.  
  13. {$A-}
  14. {$WEAKPACKAGEUNIT}
  15.  
  16. interface
  17.  
  18. uses Windows;
  19.  
  20. { Window Messages }
  21.  
  22. const
  23.   {$EXTERNALSYM WM_NULL}
  24.   WM_NULL             = $0000;
  25.   {$EXTERNALSYM WM_CREATE}
  26.   WM_CREATE           = $0001;
  27.   {$EXTERNALSYM WM_DESTROY}
  28.   WM_DESTROY          = $0002;
  29.   {$EXTERNALSYM WM_MOVE}
  30.   WM_MOVE             = $0003;
  31.   {$EXTERNALSYM WM_SIZE}
  32.   WM_SIZE             = $0005;
  33.   {$EXTERNALSYM WM_ACTIVATE}
  34.   WM_ACTIVATE         = $0006;
  35.   {$EXTERNALSYM WM_SETFOCUS}
  36.   WM_SETFOCUS         = $0007;
  37.   {$EXTERNALSYM WM_KILLFOCUS}
  38.   WM_KILLFOCUS        = $0008;
  39.   {$EXTERNALSYM WM_ENABLE}
  40.   WM_ENABLE           = $000A;
  41.   {$EXTERNALSYM WM_SETREDRAW}
  42.   WM_SETREDRAW        = $000B;
  43.   {$EXTERNALSYM WM_SETTEXT}
  44.   WM_SETTEXT          = $000C;
  45.   {$EXTERNALSYM WM_GETTEXT}
  46.   WM_GETTEXT          = $000D;
  47.   {$EXTERNALSYM WM_GETTEXTLENGTH}
  48.   WM_GETTEXTLENGTH    = $000E;
  49.   {$EXTERNALSYM WM_PAINT}
  50.   WM_PAINT            = $000F;
  51.   {$EXTERNALSYM WM_CLOSE}
  52.   WM_CLOSE            = $0010;
  53.   {$EXTERNALSYM WM_QUERYENDSESSION}
  54.   WM_QUERYENDSESSION  = $0011;
  55.   {$EXTERNALSYM WM_QUIT}
  56.   WM_QUIT             = $0012;
  57.   {$EXTERNALSYM WM_QUERYOPEN}
  58.   WM_QUERYOPEN        = $0013;
  59.   {$EXTERNALSYM WM_ERASEBKGND}
  60.   WM_ERASEBKGND       = $0014;
  61.   {$EXTERNALSYM WM_SYSCOLORCHANGE}
  62.   WM_SYSCOLORCHANGE   = $0015;
  63.   {$EXTERNALSYM WM_ENDSESSION}
  64.   WM_ENDSESSION       = $0016;
  65.   {$EXTERNALSYM WM_SYSTEMERROR}
  66.   WM_SYSTEMERROR      = $0017;
  67.   {$EXTERNALSYM WM_SHOWWINDOW}
  68.   WM_SHOWWINDOW       = $0018;
  69.   {$EXTERNALSYM WM_CTLCOLOR}
  70.   WM_CTLCOLOR         = $0019;
  71.   {$EXTERNALSYM WM_WININICHANGE}
  72.   WM_WININICHANGE     = $001A;
  73.   {$EXTERNALSYM WM_SETTINGCHANGE}
  74.   WM_SETTINGCHANGE = WM_WININICHANGE;
  75.   {$EXTERNALSYM WM_DEVMODECHANGE}
  76.   WM_DEVMODECHANGE    = $001B;
  77.   {$EXTERNALSYM WM_ACTIVATEAPP}
  78.   WM_ACTIVATEAPP      = $001C;
  79.   {$EXTERNALSYM WM_FONTCHANGE}
  80.   WM_FONTCHANGE       = $001D;
  81.   {$EXTERNALSYM WM_TIMECHANGE}
  82.   WM_TIMECHANGE       = $001E;
  83.   {$EXTERNALSYM WM_CANCELMODE}
  84.   WM_CANCELMODE       = $001F;
  85.   {$EXTERNALSYM WM_SETCURSOR}
  86.   WM_SETCURSOR        = $0020;
  87.   {$EXTERNALSYM WM_MOUSEACTIVATE}
  88.   WM_MOUSEACTIVATE    = $0021;
  89.   {$EXTERNALSYM WM_CHILDACTIVATE}
  90.   WM_CHILDACTIVATE    = $0022;
  91.   {$EXTERNALSYM WM_QUEUESYNC}
  92.   WM_QUEUESYNC        = $0023;
  93.   {$EXTERNALSYM WM_GETMINMAXINFO}
  94.   WM_GETMINMAXINFO    = $0024;
  95.   {$EXTERNALSYM WM_PAINTICON}
  96.   WM_PAINTICON        = $0026;
  97.   {$EXTERNALSYM WM_ICONERASEBKGND}
  98.   WM_ICONERASEBKGND   = $0027;
  99.   {$EXTERNALSYM WM_NEXTDLGCTL}
  100.   WM_NEXTDLGCTL       = $0028;
  101.   {$EXTERNALSYM WM_SPOOLERSTATUS}
  102.   WM_SPOOLERSTATUS    = $002A;
  103.   {$EXTERNALSYM WM_DRAWITEM}
  104.   WM_DRAWITEM         = $002B;
  105.   {$EXTERNALSYM WM_MEASUREITEM}
  106.   WM_MEASUREITEM      = $002C;
  107.   {$EXTERNALSYM WM_DELETEITEM}
  108.   WM_DELETEITEM       = $002D;
  109.   {$EXTERNALSYM WM_VKEYTOITEM}
  110.   WM_VKEYTOITEM       = $002E;
  111.   {$EXTERNALSYM WM_CHARTOITEM}
  112.   WM_CHARTOITEM       = $002F;
  113.   {$EXTERNALSYM WM_SETFONT}
  114.   WM_SETFONT          = $0030;
  115.   {$EXTERNALSYM WM_GETFONT}
  116.   WM_GETFONT          = $0031;
  117.   {$EXTERNALSYM WM_SETHOTKEY}
  118.   WM_SETHOTKEY        = $0032;
  119.   {$EXTERNALSYM WM_GETHOTKEY}
  120.   WM_GETHOTKEY        = $0033;
  121.   {$EXTERNALSYM WM_QUERYDRAGICON}
  122.   WM_QUERYDRAGICON    = $0037;
  123.   {$EXTERNALSYM WM_COMPAREITEM}
  124.   WM_COMPAREITEM      = $0039;
  125.   {$EXTERNALSYM WM_GETOBJECT}
  126.   WM_GETOBJECT        = $003D;
  127.   {$EXTERNALSYM WM_COMPACTING}
  128.   WM_COMPACTING       = $0041;
  129.  
  130.   {$EXTERNALSYM WM_COMMNOTIFY}
  131.   WM_COMMNOTIFY       = $0044;    { obsolete in Win32}
  132.  
  133.   {$EXTERNALSYM WM_WINDOWPOSCHANGING}
  134.   WM_WINDOWPOSCHANGING = $0046;
  135.   {$EXTERNALSYM WM_WINDOWPOSCHANGED}
  136.   WM_WINDOWPOSCHANGED = $0047;
  137.   {$EXTERNALSYM WM_POWER}
  138.   WM_POWER            = $0048;
  139.  
  140.   {$EXTERNALSYM WM_COPYDATA}
  141.   WM_COPYDATA         = $004A;
  142.   {$EXTERNALSYM WM_CANCELJOURNAL}
  143.   WM_CANCELJOURNAL    = $004B;
  144.   {$EXTERNALSYM WM_NOTIFY}
  145.   WM_NOTIFY           = $004E;
  146.   {$EXTERNALSYM WM_INPUTLANGCHANGEREQUEST}
  147.   WM_INPUTLANGCHANGEREQUEST = $0050;
  148.   {$EXTERNALSYM WM_INPUTLANGCHANGE}
  149.   WM_INPUTLANGCHANGE  = $0051;
  150.   {$EXTERNALSYM WM_TCARD}
  151.   WM_TCARD            = $0052;
  152.   {$EXTERNALSYM WM_HELP}
  153.   WM_HELP             = $0053;
  154.   {$EXTERNALSYM WM_USERCHANGED}
  155.   WM_USERCHANGED      = $0054;
  156.   {$EXTERNALSYM WM_NOTIFYFORMAT}
  157.   WM_NOTIFYFORMAT     = $0055;
  158.  
  159.   {$EXTERNALSYM WM_CONTEXTMENU}
  160.   WM_CONTEXTMENU      = $007B;
  161.   {$EXTERNALSYM WM_STYLECHANGING}
  162.   WM_STYLECHANGING    = $007C;
  163.   {$EXTERNALSYM WM_STYLECHANGED}
  164.   WM_STYLECHANGED     = $007D;
  165.   {$EXTERNALSYM WM_DISPLAYCHANGE}
  166.   WM_DISPLAYCHANGE    = $007E;
  167.   {$EXTERNALSYM WM_GETICON}
  168.   WM_GETICON          = $007F;
  169.   {$EXTERNALSYM WM_SETICON}
  170.   WM_SETICON          = $0080;
  171.  
  172.   {$EXTERNALSYM WM_NCCREATE}
  173.   WM_NCCREATE         = $0081;
  174.   {$EXTERNALSYM WM_NCDESTROY}
  175.   WM_NCDESTROY        = $0082;
  176.   {$EXTERNALSYM WM_NCCALCSIZE}
  177.   WM_NCCALCSIZE       = $0083;
  178.   {$EXTERNALSYM WM_NCHITTEST}
  179.   WM_NCHITTEST        = $0084;
  180.   {$EXTERNALSYM WM_NCPAINT}
  181.   WM_NCPAINT          = $0085;
  182.   {$EXTERNALSYM WM_NCACTIVATE}
  183.   WM_NCACTIVATE       = $0086;
  184.   {$EXTERNALSYM WM_GETDLGCODE}
  185.   WM_GETDLGCODE       = $0087;
  186.   {$EXTERNALSYM WM_NCMOUSEMOVE}
  187.   WM_NCMOUSEMOVE      = $00A0;
  188.   {$EXTERNALSYM WM_NCLBUTTONDOWN}
  189.   WM_NCLBUTTONDOWN    = $00A1;
  190.   {$EXTERNALSYM WM_NCLBUTTONUP}
  191.   WM_NCLBUTTONUP      = $00A2;
  192.   {$EXTERNALSYM WM_NCLBUTTONDBLCLK}
  193.   WM_NCLBUTTONDBLCLK  = $00A3;
  194.   {$EXTERNALSYM WM_NCRBUTTONDOWN}
  195.   WM_NCRBUTTONDOWN    = $00A4;
  196.   {$EXTERNALSYM WM_NCRBUTTONUP}
  197.   WM_NCRBUTTONUP      = $00A5;
  198.   {$EXTERNALSYM WM_NCRBUTTONDBLCLK}
  199.   WM_NCRBUTTONDBLCLK  = $00A6;
  200.   {$EXTERNALSYM WM_NCMBUTTONDOWN}
  201.   WM_NCMBUTTONDOWN    = $00A7;
  202.   {$EXTERNALSYM WM_NCMBUTTONUP}
  203.   WM_NCMBUTTONUP      = $00A8;
  204.   {$EXTERNALSYM WM_NCMBUTTONDBLCLK}
  205.   WM_NCMBUTTONDBLCLK  = $00A9;
  206.  
  207.   {$EXTERNALSYM WM_KEYFIRST}
  208.   WM_KEYFIRST         = $0100;
  209.   {$EXTERNALSYM WM_KEYDOWN}
  210.   WM_KEYDOWN          = $0100;
  211.   {$EXTERNALSYM WM_KEYUP}
  212.   WM_KEYUP            = $0101;
  213.   {$EXTERNALSYM WM_CHAR}
  214.   WM_CHAR             = $0102;
  215.   {$EXTERNALSYM WM_DEADCHAR}
  216.   WM_DEADCHAR         = $0103;
  217.   {$EXTERNALSYM WM_SYSKEYDOWN}
  218.   WM_SYSKEYDOWN       = $0104;
  219.   {$EXTERNALSYM WM_SYSKEYUP}
  220.   WM_SYSKEYUP         = $0105;
  221.   {$EXTERNALSYM WM_SYSCHAR}
  222.   WM_SYSCHAR          = $0106;
  223.   {$EXTERNALSYM WM_SYSDEADCHAR}
  224.   WM_SYSDEADCHAR      = $0107;
  225.   {$EXTERNALSYM WM_KEYLAST}
  226.   WM_KEYLAST          = $0108;
  227.  
  228.   {$EXTERNALSYM WM_INITDIALOG}
  229.   WM_INITDIALOG       = $0110;
  230.   {$EXTERNALSYM WM_COMMAND}
  231.   WM_COMMAND          = $0111;
  232.   {$EXTERNALSYM WM_SYSCOMMAND}
  233.   WM_SYSCOMMAND       = $0112;
  234.   {$EXTERNALSYM WM_TIMER}
  235.   WM_TIMER            = $0113;
  236.   {$EXTERNALSYM WM_HSCROLL}
  237.   WM_HSCROLL          = $0114;
  238.   {$EXTERNALSYM WM_VSCROLL}
  239.   WM_VSCROLL          = $0115;
  240.   {$EXTERNALSYM WM_INITMENU}
  241.   WM_INITMENU         = $0116;
  242.   {$EXTERNALSYM WM_INITMENUPOPUP}
  243.   WM_INITMENUPOPUP    = $0117;
  244.   {$EXTERNALSYM WM_MENUSELECT}
  245.   WM_MENUSELECT       = $011F;
  246.   {$EXTERNALSYM WM_MENUCHAR}
  247.   WM_MENUCHAR         = $0120;
  248.   {$EXTERNALSYM WM_ENTERIDLE}
  249.   WM_ENTERIDLE        = $0121;
  250.  
  251.   {$EXTERNALSYM WM_MENURBUTTONUP}
  252.   WM_MENURBUTTONUP    = $0122;
  253.   {$EXTERNALSYM WM_MENUDRAG}
  254.   WM_MENUDRAG         = $0123;
  255.   {$EXTERNALSYM WM_MENUGETOBJECT}
  256.   WM_MENUGETOBJECT    = $0124;
  257.   {$EXTERNALSYM WM_UNINITMENUPOPUP}
  258.   WM_UNINITMENUPOPUP  = $0125;
  259.   {$EXTERNALSYM WM_MENUCOMMAND}
  260.   WM_MENUCOMMAND      = $0126;
  261.  
  262.   {$EXTERNALSYM WM_CTLCOLORMSGBOX}
  263.   WM_CTLCOLORMSGBOX   = $0132;
  264.   {$EXTERNALSYM WM_CTLCOLOREDIT}
  265.   WM_CTLCOLOREDIT     = $0133;
  266.   {$EXTERNALSYM WM_CTLCOLORLISTBOX}
  267.   WM_CTLCOLORLISTBOX  = $0134;
  268.   {$EXTERNALSYM WM_CTLCOLORBTN}
  269.   WM_CTLCOLORBTN      = $0135;
  270.   {$EXTERNALSYM WM_CTLCOLORDLG}
  271.   WM_CTLCOLORDLG      = $0136;
  272.   {$EXTERNALSYM WM_CTLCOLORSCROLLBAR}
  273.   WM_CTLCOLORSCROLLBAR= $0137;
  274.   {$EXTERNALSYM WM_CTLCOLORSTATIC}
  275.   WM_CTLCOLORSTATIC   = $0138;
  276.  
  277.   {$EXTERNALSYM WM_MOUSEFIRST}
  278.   WM_MOUSEFIRST       = $0200;
  279.   {$EXTERNALSYM WM_MOUSEMOVE}
  280.   WM_MOUSEMOVE        = $0200;
  281.   {$EXTERNALSYM WM_LBUTTONDOWN}
  282.   WM_LBUTTONDOWN      = $0201;
  283.   {$EXTERNALSYM WM_LBUTTONUP}
  284.   WM_LBUTTONUP        = $0202;
  285.   {$EXTERNALSYM WM_LBUTTONDBLCLK}
  286.   WM_LBUTTONDBLCLK    = $0203;
  287.   {$EXTERNALSYM WM_RBUTTONDOWN}
  288.   WM_RBUTTONDOWN      = $0204;
  289.   {$EXTERNALSYM WM_RBUTTONUP}
  290.   WM_RBUTTONUP        = $0205;
  291.   {$EXTERNALSYM WM_RBUTTONDBLCLK}
  292.   WM_RBUTTONDBLCLK    = $0206;
  293.   {$EXTERNALSYM WM_MBUTTONDOWN}
  294.   WM_MBUTTONDOWN      = $0207;
  295.   {$EXTERNALSYM WM_MBUTTONUP}
  296.   WM_MBUTTONUP        = $0208;
  297.   {$EXTERNALSYM WM_MBUTTONDBLCLK}
  298.   WM_MBUTTONDBLCLK    = $0209;
  299.   {$EXTERNALSYM WM_MOUSEWHEEL}
  300.   WM_MOUSEWHEEL       = $020A; 
  301.   {$EXTERNALSYM WM_MOUSELAST}
  302.   WM_MOUSELAST        = $020A;
  303.  
  304.   {$EXTERNALSYM WM_PARENTNOTIFY}
  305.   WM_PARENTNOTIFY     = $0210;
  306.   {$EXTERNALSYM WM_ENTERMENULOOP}
  307.   WM_ENTERMENULOOP    = $0211;
  308.   {$EXTERNALSYM WM_EXITMENULOOP}
  309.   WM_EXITMENULOOP     = $0212;
  310.   {$EXTERNALSYM WM_NEXTMENU}
  311.   WM_NEXTMENU         = $0213;
  312.  
  313.   {$EXTERNALSYM WM_SIZING}
  314.   WM_SIZING           = 532;
  315.   {$EXTERNALSYM WM_CAPTURECHANGED}
  316.   WM_CAPTURECHANGED   = 533;
  317.   {$EXTERNALSYM WM_MOVING}
  318.   WM_MOVING           = 534;
  319.   {$EXTERNALSYM WM_POWERBROADCAST}
  320.   WM_POWERBROADCAST   = 536;
  321.   {$EXTERNALSYM WM_DEVICECHANGE}
  322.   WM_DEVICECHANGE     = 537;
  323.  
  324.   {$EXTERNALSYM WM_IME_STARTCOMPOSITION}
  325.   WM_IME_STARTCOMPOSITION        = $010D;
  326.   {$EXTERNALSYM WM_IME_ENDCOMPOSITION}
  327.   WM_IME_ENDCOMPOSITION          = $010E;
  328.   {$EXTERNALSYM WM_IME_COMPOSITION}
  329.   WM_IME_COMPOSITION             = $010F;
  330.   {$EXTERNALSYM WM_IME_KEYLAST}
  331.   WM_IME_KEYLAST                 = $010F;
  332.  
  333.   {$EXTERNALSYM WM_IME_SETCONTEXT}
  334.   WM_IME_SETCONTEXT              = $0281;
  335.   {$EXTERNALSYM WM_IME_NOTIFY}
  336.   WM_IME_NOTIFY                  = $0282;
  337.   {$EXTERNALSYM WM_IME_CONTROL}
  338.   WM_IME_CONTROL                 = $0283;
  339.   {$EXTERNALSYM WM_IME_COMPOSITIONFULL}
  340.   WM_IME_COMPOSITIONFULL         = $0284;
  341.   {$EXTERNALSYM WM_IME_SELECT}
  342.   WM_IME_SELECT                  = $0285;
  343.   {$EXTERNALSYM WM_IME_CHAR}
  344.   WM_IME_CHAR                    = $0286;
  345.   {$EXTERNALSYM WM_IME_REQUEST}
  346.   WM_IME_REQUEST                 = $0288;
  347.  
  348.   {$EXTERNALSYM WM_IME_KEYDOWN}
  349.   WM_IME_KEYDOWN                 = $0290;
  350.   {$EXTERNALSYM WM_IME_KEYUP}
  351.   WM_IME_KEYUP                   = $0291;
  352.  
  353.   {$EXTERNALSYM WM_MDICREATE}
  354.   WM_MDICREATE        = $0220;
  355.   {$EXTERNALSYM WM_MDIDESTROY}
  356.   WM_MDIDESTROY       = $0221;
  357.   {$EXTERNALSYM WM_MDIACTIVATE}
  358.   WM_MDIACTIVATE      = $0222;
  359.   {$EXTERNALSYM WM_MDIRESTORE}
  360.   WM_MDIRESTORE       = $0223;
  361.   {$EXTERNALSYM WM_MDINEXT}
  362.   WM_MDINEXT          = $0224;
  363.   {$EXTERNALSYM WM_MDIMAXIMIZE}
  364.   WM_MDIMAXIMIZE      = $0225;
  365.   {$EXTERNALSYM WM_MDITILE}
  366.   WM_MDITILE          = $0226;
  367.   {$EXTERNALSYM WM_MDICASCADE}
  368.   WM_MDICASCADE       = $0227;
  369.   {$EXTERNALSYM WM_MDIICONARRANGE}
  370.   WM_MDIICONARRANGE   = $0228;
  371.   {$EXTERNALSYM WM_MDIGETACTIVE}
  372.   WM_MDIGETACTIVE     = $0229;
  373.   {$EXTERNALSYM WM_MDISETMENU}
  374.   WM_MDISETMENU       = $0230;
  375.  
  376.   {$EXTERNALSYM WM_ENTERSIZEMOVE}
  377.   WM_ENTERSIZEMOVE    = $0231;
  378.   {$EXTERNALSYM WM_EXITSIZEMOVE}
  379.   WM_EXITSIZEMOVE     = $0232;
  380.   {$EXTERNALSYM WM_DROPFILES}
  381.   WM_DROPFILES        = $0233;
  382.   {$EXTERNALSYM WM_MDIREFRESHMENU}
  383.   WM_MDIREFRESHMENU   = $0234;
  384.  
  385.   {$EXTERNALSYM WM_MOUSEHOVER}
  386.   WM_MOUSEHOVER       = $02A1; 
  387.   {$EXTERNALSYM WM_MOUSELEAVE}
  388.   WM_MOUSELEAVE       = $02A3;
  389.  
  390.   {$EXTERNALSYM WM_CUT}
  391.   WM_CUT              = $0300;
  392.   {$EXTERNALSYM WM_COPY}
  393.   WM_COPY             = $0301;
  394.   {$EXTERNALSYM WM_PASTE}
  395.   WM_PASTE            = $0302;
  396.   {$EXTERNALSYM WM_CLEAR}
  397.   WM_CLEAR            = $0303;
  398.   {$EXTERNALSYM WM_UNDO}
  399.   WM_UNDO             = $0304;
  400.   {$EXTERNALSYM WM_RENDERFORMAT}
  401.   WM_RENDERFORMAT     = $0305;
  402.   {$EXTERNALSYM WM_RENDERALLFORMATS}
  403.   WM_RENDERALLFORMATS = $0306;
  404.   {$EXTERNALSYM WM_DESTROYCLIPBOARD}
  405.   WM_DESTROYCLIPBOARD = $0307;
  406.   {$EXTERNALSYM WM_DRAWCLIPBOARD}
  407.   WM_DRAWCLIPBOARD    = $0308;
  408.   {$EXTERNALSYM WM_PAINTCLIPBOARD}
  409.   WM_PAINTCLIPBOARD   = $0309;
  410.   {$EXTERNALSYM WM_VSCROLLCLIPBOARD}
  411.   WM_VSCROLLCLIPBOARD = $030A;
  412.   {$EXTERNALSYM WM_SIZECLIPBOARD}
  413.   WM_SIZECLIPBOARD    = $030B;
  414.   {$EXTERNALSYM WM_ASKCBFORMATNAME}
  415.   WM_ASKCBFORMATNAME  = $030C;
  416.   {$EXTERNALSYM WM_CHANGECBCHAIN}
  417.   WM_CHANGECBCHAIN    = $030D;
  418.   {$EXTERNALSYM WM_HSCROLLCLIPBOARD}
  419.   WM_HSCROLLCLIPBOARD = $030E;
  420.   {$EXTERNALSYM WM_QUERYNEWPALETTE}
  421.   WM_QUERYNEWPALETTE  = $030F;
  422.   {$EXTERNALSYM WM_PALETTEISCHANGING}
  423.   WM_PALETTEISCHANGING= $0310;
  424.   {$EXTERNALSYM WM_PALETTECHANGED}
  425.   WM_PALETTECHANGED   = $0311;
  426.   {$EXTERNALSYM WM_HOTKEY}
  427.   WM_HOTKEY           = $0312;
  428.  
  429.   {$EXTERNALSYM WM_PRINT}
  430.   WM_PRINT            = 791;
  431.   {$EXTERNALSYM WM_PRINTCLIENT}
  432.   WM_PRINTCLIENT      = 792;
  433.  
  434.   {$EXTERNALSYM WM_HANDHELDFIRST}
  435.   WM_HANDHELDFIRST    = 856;
  436.   {$EXTERNALSYM WM_HANDHELDLAST}
  437.   WM_HANDHELDLAST     = 863;
  438.  
  439.   {$EXTERNALSYM WM_PENWINFIRST}
  440.   WM_PENWINFIRST      = $0380;
  441.   {$EXTERNALSYM WM_PENWINLAST}
  442.   WM_PENWINLAST       = $038F;
  443.  
  444.   {$EXTERNALSYM WM_COALESCE_FIRST}
  445.   WM_COALESCE_FIRST   = $0390;
  446.   {$EXTERNALSYM WM_COALESCE_LAST}
  447.   WM_COALESCE_LAST    = $039F;
  448.  
  449.   {$EXTERNALSYM WM_DDE_FIRST}
  450.   WM_DDE_FIRST        = $03E0;
  451.   {$EXTERNALSYM WM_DDE_INITIATE}
  452.   WM_DDE_INITIATE     = WM_DDE_FIRST + 0;
  453.   {$EXTERNALSYM WM_DDE_TERMINATE}
  454.   WM_DDE_TERMINATE    = WM_DDE_FIRST + 1;
  455.   {$EXTERNALSYM WM_DDE_ADVISE}
  456.   WM_DDE_ADVISE       = WM_DDE_FIRST + 2;
  457.   {$EXTERNALSYM WM_DDE_UNADVISE}
  458.   WM_DDE_UNADVISE     = WM_DDE_FIRST + 3;
  459.   {$EXTERNALSYM WM_DDE_ACK}
  460.   WM_DDE_ACK          = WM_DDE_FIRST + 4;
  461.   {$EXTERNALSYM WM_DDE_DATA}
  462.   WM_DDE_DATA         = WM_DDE_FIRST + 5;
  463.   {$EXTERNALSYM WM_DDE_REQUEST}
  464.   WM_DDE_REQUEST      = WM_DDE_FIRST + 6;
  465.   {$EXTERNALSYM WM_DDE_POKE}
  466.   WM_DDE_POKE         = WM_DDE_FIRST + 7;
  467.   {$EXTERNALSYM WM_DDE_EXECUTE}
  468.   WM_DDE_EXECUTE      = WM_DDE_FIRST + 8;
  469.   {$EXTERNALSYM WM_DDE_LAST}
  470.   WM_DDE_LAST         = WM_DDE_FIRST + 8;
  471.  
  472.   {$EXTERNALSYM WM_APP}
  473.   WM_APP = $8000;
  474.  
  475. { NOTE: All Message Numbers below 0x0400 are RESERVED }
  476.  
  477. { Private Window Messages Start Here }
  478.  
  479.   {$EXTERNALSYM WM_USER}
  480.   WM_USER             = $0400;
  481.  
  482. { Button Notification Codes }
  483.  
  484. const
  485.   {$EXTERNALSYM BN_CLICKED}
  486.   BN_CLICKED       = 0;
  487.   {$EXTERNALSYM BN_PAINT}
  488.   BN_PAINT         = 1;
  489.   {$EXTERNALSYM BN_HILITE}
  490.   BN_HILITE        = 2;
  491.   {$EXTERNALSYM BN_UNHILITE}
  492.   BN_UNHILITE      = 3;
  493.   {$EXTERNALSYM BN_DISABLE}
  494.   BN_DISABLE       = 4;
  495.   {$EXTERNALSYM BN_DOUBLECLICKED}
  496.   BN_DOUBLECLICKED = 5;
  497.   {$EXTERNALSYM BN_PUSHED}
  498.   BN_PUSHED = BN_HILITE;
  499.   {$EXTERNALSYM BN_UNPUSHED}
  500.   BN_UNPUSHED = BN_UNHILITE;
  501.   {$EXTERNALSYM BN_DBLCLK}
  502.   BN_DBLCLK = BN_DOUBLECLICKED;
  503.   {$EXTERNALSYM BN_SETFOCUS}
  504.   BN_SETFOCUS = 6;
  505.   {$EXTERNALSYM BN_KILLFOCUS}
  506.   BN_KILLFOCUS = 7;
  507.  
  508. { Button Control Messages }
  509. const
  510.   {$EXTERNALSYM BM_GETCHECK}
  511.   BM_GETCHECK = $00F0;
  512.   {$EXTERNALSYM BM_SETCHECK}
  513.   BM_SETCHECK = $00F1;
  514.   {$EXTERNALSYM BM_GETSTATE}
  515.   BM_GETSTATE = $00F2;
  516.   {$EXTERNALSYM BM_SETSTATE}
  517.   BM_SETSTATE = $00F3;
  518.   {$EXTERNALSYM BM_SETSTYLE}
  519.   BM_SETSTYLE = $00F4;
  520.   {$EXTERNALSYM BM_CLICK}
  521.   BM_CLICK    = $00F5;
  522.   {$EXTERNALSYM BM_GETIMAGE}
  523.   BM_GETIMAGE = $00F6;
  524.   {$EXTERNALSYM BM_SETIMAGE}
  525.   BM_SETIMAGE = $00F7;
  526.  
  527. { Listbox Notification Codes }
  528.  
  529. const
  530.   {$EXTERNALSYM LBN_ERRSPACE}
  531.   LBN_ERRSPACE  = (-2);
  532.   {$EXTERNALSYM LBN_SELCHANGE}
  533.   LBN_SELCHANGE = 1;
  534.   {$EXTERNALSYM LBN_DBLCLK}
  535.   LBN_DBLCLK    = 2;
  536.   {$EXTERNALSYM LBN_SELCANCEL}
  537.   LBN_SELCANCEL = 3;
  538.   {$EXTERNALSYM LBN_SETFOCUS}
  539.   LBN_SETFOCUS  = 4;
  540.   {$EXTERNALSYM LBN_KILLFOCUS}
  541.   LBN_KILLFOCUS = 5;
  542.  
  543. { Listbox messages }
  544.  
  545. const
  546.   {$EXTERNALSYM LB_ADDSTRING}
  547.   LB_ADDSTRING            = $0180;
  548.   {$EXTERNALSYM LB_INSERTSTRING}
  549.   LB_INSERTSTRING         = $0181;
  550.   {$EXTERNALSYM LB_DELETESTRING}
  551.   LB_DELETESTRING         = $0182;
  552.   {$EXTERNALSYM LB_SELITEMRANGEEX}
  553.   LB_SELITEMRANGEEX       = $0183;
  554.   {$EXTERNALSYM LB_RESETCONTENT}
  555.   LB_RESETCONTENT         = $0184;
  556.   {$EXTERNALSYM LB_SETSEL}
  557.   LB_SETSEL               = $0185;
  558.   {$EXTERNALSYM LB_SETCURSEL}
  559.   LB_SETCURSEL            = $0186;
  560.   {$EXTERNALSYM LB_GETSEL}
  561.   LB_GETSEL               = $0187;
  562.   {$EXTERNALSYM LB_GETCURSEL}
  563.   LB_GETCURSEL            = $0188;
  564.   {$EXTERNALSYM LB_GETTEXT}
  565.   LB_GETTEXT              = $0189;
  566.   {$EXTERNALSYM LB_GETTEXTLEN}
  567.   LB_GETTEXTLEN           = $018A;
  568.   {$EXTERNALSYM LB_GETCOUNT}
  569.   LB_GETCOUNT             = $018B;
  570.   {$EXTERNALSYM LB_SELECTSTRING}
  571.   LB_SELECTSTRING         = $018C;
  572.   {$EXTERNALSYM LB_DIR}
  573.   LB_DIR                  = $018D;
  574.   {$EXTERNALSYM LB_GETTOPINDEX}
  575.   LB_GETTOPINDEX          = $018E;
  576.   {$EXTERNALSYM LB_FINDSTRING}
  577.   LB_FINDSTRING           = $018F;
  578.   {$EXTERNALSYM LB_GETSELCOUNT}
  579.   LB_GETSELCOUNT          = $0190;
  580.   {$EXTERNALSYM LB_GETSELITEMS}
  581.   LB_GETSELITEMS          = $0191;
  582.   {$EXTERNALSYM LB_SETTABSTOPS}
  583.   LB_SETTABSTOPS          = $0192;
  584.   {$EXTERNALSYM LB_GETHORIZONTALEXTENT}
  585.   LB_GETHORIZONTALEXTENT  = $0193;
  586.   {$EXTERNALSYM LB_SETHORIZONTALEXTENT}
  587.   LB_SETHORIZONTALEXTENT  = $0194;
  588.   {$EXTERNALSYM LB_SETCOLUMNWIDTH}
  589.   LB_SETCOLUMNWIDTH       = $0195;
  590.   {$EXTERNALSYM LB_ADDFILE}
  591.   LB_ADDFILE              = $0196;
  592.   {$EXTERNALSYM LB_SETTOPINDEX}
  593.   LB_SETTOPINDEX          = $0197;
  594.   {$EXTERNALSYM LB_GETITEMRECT}
  595.   LB_GETITEMRECT          = $0198;
  596.   {$EXTERNALSYM LB_GETITEMDATA}
  597.   LB_GETITEMDATA          = $0199;
  598.   {$EXTERNALSYM LB_SETITEMDATA}
  599.   LB_SETITEMDATA          = $019A;
  600.   {$EXTERNALSYM LB_SELITEMRANGE}
  601.   LB_SELITEMRANGE         = $019B;
  602.   {$EXTERNALSYM LB_SETANCHORINDEX}
  603.   LB_SETANCHORINDEX       = $019C;
  604.   {$EXTERNALSYM LB_GETANCHORINDEX}
  605.   LB_GETANCHORINDEX       = $019D;
  606.   {$EXTERNALSYM LB_SETCARETINDEX}
  607.   LB_SETCARETINDEX        = $019E;
  608.   {$EXTERNALSYM LB_GETCARETINDEX}
  609.   LB_GETCARETINDEX        = $019F;
  610.   {$EXTERNALSYM LB_SETITEMHEIGHT}
  611.   LB_SETITEMHEIGHT        = $01A0;
  612.   {$EXTERNALSYM LB_GETITEMHEIGHT}
  613.   LB_GETITEMHEIGHT        = $01A1;
  614.   {$EXTERNALSYM LB_FINDSTRINGEXACT}
  615.   LB_FINDSTRINGEXACT      = $01A2;
  616.   {$EXTERNALSYM LB_SETLOCALE}
  617.   LB_SETLOCALE            = $01A5;
  618.   {$EXTERNALSYM LB_GETLOCALE}
  619.   LB_GETLOCALE            = $01A6;
  620.   {$EXTERNALSYM LB_SETCOUNT}
  621.   LB_SETCOUNT             = $01A7;
  622.   {$EXTERNALSYM LB_INITSTORAGE}
  623.   LB_INITSTORAGE          = $01A8;
  624.   {$EXTERNALSYM LB_ITEMFROMPOINT}
  625.   LB_ITEMFROMPOINT        = $01A9;
  626.   {$EXTERNALSYM LB_MSGMAX}
  627.   LB_MSGMAX               = 432;
  628.  
  629. { Combo Box Notification Codes }
  630.  
  631. const
  632.   {$EXTERNALSYM CBN_ERRSPACE}
  633.   CBN_ERRSPACE   = (-1);
  634.   {$EXTERNALSYM CBN_SELCHANGE}
  635.   CBN_SELCHANGE  = 1;
  636.   {$EXTERNALSYM CBN_DBLCLK}
  637.   CBN_DBLCLK     = 2;
  638.   {$EXTERNALSYM CBN_SETFOCUS}
  639.   CBN_SETFOCUS   = 3;
  640.   {$EXTERNALSYM CBN_KILLFOCUS}
  641.   CBN_KILLFOCUS  = 4;
  642.   {$EXTERNALSYM CBN_EDITCHANGE}
  643.   CBN_EDITCHANGE = 5;
  644.   {$EXTERNALSYM CBN_EDITUPDATE}
  645.   CBN_EDITUPDATE = 6;
  646.   {$EXTERNALSYM CBN_DROPDOWN}
  647.   CBN_DROPDOWN   = 7;
  648.   {$EXTERNALSYM CBN_CLOSEUP}
  649.   CBN_CLOSEUP    = 8;
  650.   {$EXTERNALSYM CBN_SELENDOK}
  651.   CBN_SELENDOK   = 9;
  652.   {$EXTERNALSYM CBN_SELENDCANCEL}
  653.   CBN_SELENDCANCEL = 10;
  654.  
  655. { Combo Box messages }
  656.  
  657.   {$EXTERNALSYM CB_GETEDITSEL}
  658.   CB_GETEDITSEL            = $0140;
  659.   {$EXTERNALSYM CB_LIMITTEXT}
  660.   CB_LIMITTEXT             = $0141;
  661.   {$EXTERNALSYM CB_SETEDITSEL}
  662.   CB_SETEDITSEL            = $0142;
  663.   {$EXTERNALSYM CB_ADDSTRING}
  664.   CB_ADDSTRING             = $0143;
  665.   {$EXTERNALSYM CB_DELETESTRING}
  666.   CB_DELETESTRING          = $0144;
  667.   {$EXTERNALSYM CB_DIR}
  668.   CB_DIR                   = $0145;
  669.   {$EXTERNALSYM CB_GETCOUNT}
  670.   CB_GETCOUNT              = $0146;
  671.   {$EXTERNALSYM CB_GETCURSEL}
  672.   CB_GETCURSEL             = $0147;
  673.   {$EXTERNALSYM CB_GETLBTEXT}
  674.   CB_GETLBTEXT             = $0148;
  675.   {$EXTERNALSYM CB_GETLBTEXTLEN}
  676.   CB_GETLBTEXTLEN          = $0149;
  677.   {$EXTERNALSYM CB_INSERTSTRING}
  678.   CB_INSERTSTRING          = $014A;
  679.   {$EXTERNALSYM CB_RESETCONTENT}
  680.   CB_RESETCONTENT          = $014B;
  681.   {$EXTERNALSYM CB_FINDSTRING}
  682.   CB_FINDSTRING            = $014C;
  683.   {$EXTERNALSYM CB_SELECTSTRING}
  684.   CB_SELECTSTRING          = $014D;
  685.   {$EXTERNALSYM CB_SETCURSEL}
  686.   CB_SETCURSEL             = $014E;
  687.   {$EXTERNALSYM CB_SHOWDROPDOWN}
  688.   CB_SHOWDROPDOWN          = $014F;
  689.   {$EXTERNALSYM CB_GETITEMDATA}
  690.   CB_GETITEMDATA           = $0150;
  691.   {$EXTERNALSYM CB_SETITEMDATA}
  692.   CB_SETITEMDATA           = $0151;
  693.   {$EXTERNALSYM CB_GETDROPPEDCONTROLRECT}
  694.   CB_GETDROPPEDCONTROLRECT = $0152;
  695.   {$EXTERNALSYM CB_SETITEMHEIGHT}
  696.   CB_SETITEMHEIGHT         = $0153;
  697.   {$EXTERNALSYM CB_GETITEMHEIGHT}
  698.   CB_GETITEMHEIGHT         = $0154;
  699.   {$EXTERNALSYM CB_SETEXTENDEDUI}
  700.   CB_SETEXTENDEDUI         = $0155;
  701.   {$EXTERNALSYM CB_GETEXTENDEDUI}
  702.   CB_GETEXTENDEDUI         = $0156;
  703.   {$EXTERNALSYM CB_GETDROPPEDSTATE}
  704.   CB_GETDROPPEDSTATE       = $0157;
  705.   {$EXTERNALSYM CB_FINDSTRINGEXACT}
  706.   CB_FINDSTRINGEXACT       = $0158;
  707.   {$EXTERNALSYM CB_SETLOCALE}
  708.   CB_SETLOCALE             = 345;
  709.   {$EXTERNALSYM CB_GETLOCALE}
  710.   CB_GETLOCALE             = 346;
  711.   {$EXTERNALSYM CB_GETTOPINDEX}
  712.   CB_GETTOPINDEX           = 347;
  713.   {$EXTERNALSYM CB_SETTOPINDEX}
  714.   CB_SETTOPINDEX           = 348;
  715.   {$EXTERNALSYM CB_GETHORIZONTALEXTENT}
  716.   CB_GETHORIZONTALEXTENT   = 349;
  717.   {$EXTERNALSYM CB_SETHORIZONTALEXTENT}
  718.   CB_SETHORIZONTALEXTENT   = 350;
  719.   {$EXTERNALSYM CB_GETDROPPEDWIDTH}
  720.   CB_GETDROPPEDWIDTH       = 351;
  721.   {$EXTERNALSYM CB_SETDROPPEDWIDTH}
  722.   CB_SETDROPPEDWIDTH       = 352;
  723.   {$EXTERNALSYM CB_INITSTORAGE}
  724.   CB_INITSTORAGE           = 353;
  725.   {$EXTERNALSYM CB_MSGMAX}
  726.   CB_MSGMAX                = 354;
  727.  
  728. { Edit Control Notification Codes }
  729.  
  730. const
  731.   {$EXTERNALSYM EN_SETFOCUS}
  732.   EN_SETFOCUS  = $0100;
  733.   {$EXTERNALSYM EN_KILLFOCUS}
  734.   EN_KILLFOCUS = $0200;
  735.   {$EXTERNALSYM EN_CHANGE}
  736.   EN_CHANGE    = $0300;
  737.   {$EXTERNALSYM EN_UPDATE}
  738.   EN_UPDATE    = $0400;
  739.   {$EXTERNALSYM EN_ERRSPACE}
  740.   EN_ERRSPACE  = $0500;
  741.   {$EXTERNALSYM EN_MAXTEXT}
  742.   EN_MAXTEXT   = $0501;
  743.   {$EXTERNALSYM EN_HSCROLL}
  744.   EN_HSCROLL   = $0601;
  745.   {$EXTERNALSYM EN_VSCROLL}
  746.   EN_VSCROLL   = $0602;
  747.  
  748. { Edit Control Messages }
  749.  
  750. const
  751.   {$EXTERNALSYM EM_GETSEL}
  752.   EM_GETSEL              = $00B0;
  753.   {$EXTERNALSYM EM_SETSEL}
  754.   EM_SETSEL              = $00B1;
  755.   {$EXTERNALSYM EM_GETRECT}
  756.   EM_GETRECT             = $00B2;
  757.   {$EXTERNALSYM EM_SETRECT}
  758.   EM_SETRECT             = $00B3;
  759.   {$EXTERNALSYM EM_SETRECTNP}
  760.   EM_SETRECTNP           = $00B4;
  761.   {$EXTERNALSYM EM_SCROLL}
  762.   EM_SCROLL              = $00B5;
  763.   {$EXTERNALSYM EM_LINESCROLL}
  764.   EM_LINESCROLL          = $00B6;
  765.   {$EXTERNALSYM EM_SCROLLCARET}
  766.   EM_SCROLLCARET         = $00B7;
  767.   {$EXTERNALSYM EM_GETMODIFY}
  768.   EM_GETMODIFY           = $00B8;
  769.   {$EXTERNALSYM EM_SETMODIFY}
  770.   EM_SETMODIFY           = $00B9;
  771.   {$EXTERNALSYM EM_GETLINECOUNT}
  772.   EM_GETLINECOUNT        = $00BA;
  773.   {$EXTERNALSYM EM_LINEINDEX}
  774.   EM_LINEINDEX           = $00BB;
  775.   {$EXTERNALSYM EM_SETHANDLE}
  776.   EM_SETHANDLE           = $00BC;
  777.   {$EXTERNALSYM EM_GETHANDLE}
  778.   EM_GETHANDLE           = $00BD;
  779.   {$EXTERNALSYM EM_GETTHUMB}
  780.   EM_GETTHUMB            = $00BE;
  781.   {$EXTERNALSYM EM_LINELENGTH}
  782.   EM_LINELENGTH          = $00C1;
  783.   {$EXTERNALSYM EM_REPLACESEL}
  784.   EM_REPLACESEL          = $00C2;
  785.   {$EXTERNALSYM EM_GETLINE}
  786.   EM_GETLINE             = $00C4;
  787.   {$EXTERNALSYM EM_LIMITTEXT}
  788.   EM_LIMITTEXT           = $00C5;
  789.   {$EXTERNALSYM EM_CANUNDO}
  790.   EM_CANUNDO             = $00C6;
  791.   {$EXTERNALSYM EM_UNDO}
  792.   EM_UNDO                = $00C7;
  793.   {$EXTERNALSYM EM_FMTLINES}
  794.   EM_FMTLINES            = $00C8;
  795.   {$EXTERNALSYM EM_LINEFROMCHAR}
  796.   EM_LINEFROMCHAR        = $00C9;
  797.   {$EXTERNALSYM EM_SETTABSTOPS}
  798.   EM_SETTABSTOPS         = $00CB;
  799.   {$EXTERNALSYM EM_SETPASSWORDCHAR}
  800.   EM_SETPASSWORDCHAR     = $00CC;
  801.   {$EXTERNALSYM EM_EMPTYUNDOBUFFER}
  802.   EM_EMPTYUNDOBUFFER     = $00CD;
  803.   {$EXTERNALSYM EM_GETFIRSTVISIBLELINE}
  804.   EM_GETFIRSTVISIBLELINE = $00CE;
  805.   {$EXTERNALSYM EM_SETREADONLY}
  806.   EM_SETREADONLY         = $00CF;
  807.   {$EXTERNALSYM EM_SETWORDBREAKPROC}
  808.   EM_SETWORDBREAKPROC    = $00D0;
  809.   {$EXTERNALSYM EM_GETWORDBREAKPROC}
  810.   EM_GETWORDBREAKPROC    = $00D1;
  811.   {$EXTERNALSYM EM_GETPASSWORDCHAR}
  812.   EM_GETPASSWORDCHAR     = $00D2;
  813.   {$EXTERNALSYM EM_SETMARGINS}
  814.   EM_SETMARGINS          = 211;
  815.   {$EXTERNALSYM EM_GETMARGINS}
  816.   EM_GETMARGINS          = 212;
  817.   {$EXTERNALSYM EM_SETLIMITTEXT}
  818.   EM_SETLIMITTEXT        = EM_LIMITTEXT;    //win40 Name change
  819.   {$EXTERNALSYM EM_GETLIMITTEXT}
  820.   EM_GETLIMITTEXT        = 213;
  821.   {$EXTERNALSYM EM_POSFROMCHAR}
  822.   EM_POSFROMCHAR         = 214;
  823.   {$EXTERNALSYM EM_CHARFROMPOS}
  824.   EM_CHARFROMPOS         = 215;
  825.   {$EXTERNALSYM EM_SETIMESTATUS}
  826.   EM_SETIMESTATUS        = 216;
  827.   {$EXTERNALSYM EM_GETIMESTATUS}
  828.   EM_GETIMESTATUS        = 217;
  829.  
  830. const
  831.   { Scroll bar messages }
  832.   {$EXTERNALSYM SBM_SETPOS}
  833.   SBM_SETPOS = 224;             { not in win3.1  }
  834.   {$EXTERNALSYM SBM_GETPOS}
  835.   SBM_GETPOS = 225;             { not in win3.1  }
  836.   {$EXTERNALSYM SBM_SETRANGE}
  837.   SBM_SETRANGE = 226;           { not in win3.1  }
  838.   {$EXTERNALSYM SBM_SETRANGEREDRAW}
  839.   SBM_SETRANGEREDRAW = 230;     { not in win3.1  }
  840.   {$EXTERNALSYM SBM_GETRANGE}
  841.   SBM_GETRANGE = 227;           { not in win3.1  }
  842.   {$EXTERNALSYM SBM_ENABLE_ARROWS}
  843.   SBM_ENABLE_ARROWS = 228;      { not in win3.1  }
  844.   {$EXTERNALSYM SBM_SETSCROLLINFO}
  845.   SBM_SETSCROLLINFO = 233;
  846.   {$EXTERNALSYM SBM_GETSCROLLINFO}
  847.   SBM_GETSCROLLINFO = 234;
  848.  
  849. { Dialog messages }
  850.  
  851.   {$EXTERNALSYM DM_GETDEFID}
  852.   DM_GETDEFID = (WM_USER+0);
  853.   {$EXTERNALSYM DM_SETDEFID}
  854.   DM_SETDEFID = (WM_USER+1);
  855.   {$EXTERNALSYM DM_REPOSITION}
  856.   DM_REPOSITION = (WM_USER+2);
  857.  
  858.   {$EXTERNALSYM PSM_PAGEINFO}
  859.   PSM_PAGEINFO = (WM_USER+100);
  860.   {$EXTERNALSYM PSM_SHEETINFO}
  861.   PSM_SHEETINFO = (WM_USER+101);
  862.  
  863. type
  864.  
  865. { Generic window message record }
  866.  
  867.   PMessage = ^TMessage;
  868.   TMessage = record
  869.     Msg: Cardinal;
  870.     case Integer of
  871.       0: (
  872.         WParam: Longint;
  873.         LParam: Longint;
  874.         Result: Longint);
  875.       1: (
  876.         WParamLo: Word;
  877.         WParamHi: Word;
  878.         LParamLo: Word;
  879.         LParamHi: Word;
  880.         ResultLo: Word;
  881.         ResultHi: Word);
  882.   end;
  883.  
  884. { Common message format records }
  885.  
  886.   TWMNoParams = record
  887.     Msg: Cardinal;
  888.     Unused: array[0..3] of Word;
  889.     Result: Longint;
  890.   end;
  891.  
  892.   TWMKey = record
  893.     Msg: Cardinal;
  894.     CharCode: Word;
  895.     Unused: Word;
  896.     KeyData: Longint;
  897.     Result: Longint;
  898.   end;
  899.  
  900.   TWMMouse = record
  901.     Msg: Cardinal;
  902.     Keys: Longint;
  903.     case Integer of
  904.       0: (
  905.         XPos: Smallint;
  906.         YPos: Smallint);
  907.       1: (
  908.         Pos: TSmallPoint;
  909.         Result: Longint);
  910.   end;
  911.  
  912.   TWMMouseWheel = record
  913.     Msg: Cardinal;
  914.     Keys: SmallInt;
  915.     WheelDelta: SmallInt;
  916.     case Integer of
  917.       0: (
  918.         XPos: Smallint;
  919.         YPos: Smallint);
  920.       1: (
  921.         Pos: TSmallPoint;
  922.         Result: Longint);
  923.   end;
  924.  
  925.   TMSHMouseWheel = record
  926.     Msg: Cardinal;
  927.     WheelDelta: Integer;
  928.     case Integer of
  929.       0: (
  930.         XPos: Smallint;
  931.         YPos: Smallint);
  932.       1: (
  933.         Pos: TSmallPoint;
  934.         Result: Longint);
  935.   end;
  936.  
  937.   TWMWindowPosMsg = record
  938.     Msg: Cardinal;
  939.     Unused: Integer;
  940.     WindowPos: PWindowPos;
  941.     Result: Longint;
  942.   end;
  943.  
  944.   TWMScroll = record
  945.     Msg: Cardinal;
  946.     ScrollCode: Smallint; { SB_xxxx }
  947.     Pos: Smallint;
  948.     ScrollBar: HWND;
  949.     Result: Longint;
  950.   end;
  951.  
  952. { Message records }
  953.  
  954.   TWMActivate = record
  955.     Msg: Cardinal;
  956.     Active: Word; { WA_INACTIVE, WA_ACTIVE, WA_CLICKACTIVE }
  957.     Minimized: WordBool;
  958.     ActiveWindow: HWND;
  959.     Result: Longint;
  960.   end;
  961.  
  962.   TWMActivateApp = record
  963.     Msg: Cardinal;
  964.     Active: BOOL;
  965.     ThreadId: Longint;
  966.     Result: Longint;
  967.   end;
  968.  
  969.   TWMAskCBFormatName = record
  970.     Msg: Cardinal;
  971.     NameLen: Word;
  972.     Unused: Word;
  973.     FormatName: PChar;
  974.     Result: Longint;
  975.   end;
  976.  
  977.   TWMCancelMode = TWMNoParams;
  978.  
  979.   TWMChangeCBChain = record
  980.     Msg: Cardinal;
  981.     Remove: HWND;
  982.     Next: HWND;
  983.     Result: Longint;
  984.   end;
  985.  
  986.   TWMChar = TWMKey;
  987.  
  988.   TWMCharToItem = record
  989.     Msg: Cardinal;
  990.     Key: Word;
  991.     CaretPos: Word;
  992.     ListBox: HWND;
  993.     Result: Longint;
  994.   end;
  995.  
  996.   TWMChildActivate = TWMNoParams;
  997.  
  998.   TWMChooseFont_GetLogFont = record
  999.     Msg: Cardinal;
  1000.     Unused: Longint;
  1001.     LogFont: PLogFont;
  1002.     Result: Longint;
  1003.   end;
  1004.  
  1005.   TWMClear = TWMNoParams;
  1006.   TWMClose = TWMNoParams;
  1007.  
  1008.   TWMCommand = record
  1009.     Msg: Cardinal;
  1010.     ItemID: Word;
  1011.     NotifyCode: Word;
  1012.     Ctl: HWND;
  1013.     Result: Longint;
  1014.   end;
  1015.  
  1016.   TWMCompacting = record
  1017.     Msg: Cardinal;
  1018.     CompactRatio: Longint;
  1019.     Unused: Longint;
  1020.     Result: Longint;
  1021.   end;
  1022.  
  1023.   TWMCompareItem = record
  1024.     Msg: Cardinal;
  1025.     Ctl: HWnd;
  1026.     CompareItemStruct: PCompareItemStruct;
  1027.     Result: Longint;
  1028.   end;
  1029.  
  1030.   TWMCopy = TWMNoParams;
  1031.  
  1032.   TWMCopyData = record
  1033.     Msg: Cardinal;
  1034.     From: HWND;
  1035.     CopyDataStruct: PCopyDataStruct;
  1036.     Result: Longint;
  1037.   end;
  1038.  
  1039.   { ?? WM_CLP_LAUNCH, WM_CPL_LAUNCHED }
  1040.  
  1041.   TWMCreate = record
  1042.     Msg: Cardinal;
  1043.     Unused: Integer;
  1044.     CreateStruct: PCreateStruct;
  1045.     Result: Longint;
  1046.   end;
  1047.  
  1048.   TWMCtlColor = record
  1049.     Msg: Cardinal;
  1050.     ChildDC: HDC;
  1051.     ChildWnd: HWND;
  1052.     Result: Longint;
  1053.   end;
  1054.  
  1055.   TWMCtlColorBtn = TWMCtlColor;
  1056.   TWMCtlColorDlg = TWMCtlColor;
  1057.   TWMCtlColorEdit = TWMCtlColor;
  1058.   TWMCtlColorListbox = TWMCtlColor;
  1059.   TWMCtlColorMsgbox = TWMCtlColor;
  1060.   TWMCtlColorScrollbar = TWMCtlColor;
  1061.   TWMCtlColorStatic = TWMCtlColor;
  1062.  
  1063.   TWMCut = TWMNoParams;
  1064.  
  1065.   TWMDDE_Ack = record
  1066.     Msg: Cardinal;
  1067.     PostingApp: HWND;
  1068.     case Word of
  1069.       WM_DDE_INITIATE: (
  1070.         App: Word;
  1071.         Topic: Word;
  1072.         Result: Longint);
  1073.       WM_DDE_EXECUTE {and all others}: (
  1074.         PackedVal: Longint);
  1075.   end;
  1076.  
  1077.   TWMDDE_Advise = record
  1078.     Msg: Cardinal;
  1079.     PostingApp: HWND;
  1080.     PackedVal: Longint;
  1081.     Result: Longint;
  1082.   end;
  1083.  
  1084.   TWMDDE_Data = record
  1085.     Msg: Cardinal;
  1086.     PostingApp: HWND;
  1087.     PackedVal: Longint;
  1088.     Result: Longint;
  1089.   end;
  1090.  
  1091.   TWMDDE_Execute = record
  1092.     Msg: Cardinal;
  1093.     PostingApp: HWND;
  1094.     Commands: THandle;
  1095.     Result: Longint;
  1096.   end;
  1097.  
  1098.   TWMDDE_Initiate = record
  1099.     Msg: Cardinal;
  1100.     PostingApp: HWND;
  1101.     App: Word;
  1102.     Topic: Word;
  1103.     Result: Longint;
  1104.   end;
  1105.  
  1106.   TWMDDE_Poke = record
  1107.     Msg: Cardinal;
  1108.     PostingApp: HWND;
  1109.     PackedVal: Longint;
  1110.     Result: Longint;
  1111.   end;
  1112.  
  1113.   TWMDDE_Request = record
  1114.     Msg: Cardinal;
  1115.     PostingApp: HWND;
  1116.     Format: Word;
  1117.     Item: Word;
  1118.     Result: Longint;
  1119.   end;
  1120.  
  1121.   TWMDDE_Terminate = record
  1122.     Msg: Cardinal;
  1123.     PostingApp: HWND;
  1124.     Unused: Longint;
  1125.     Result: Longint;
  1126.   end;
  1127.  
  1128.   TWMDDE_Unadvise = record
  1129.     Msg: Cardinal;
  1130.     PostingApp: HWND;
  1131.     Format: Word;
  1132.     Item: Word;
  1133.     Result: Longint;
  1134.   end;
  1135.  
  1136.   TWMDeadChar = TWMChar;
  1137.  
  1138.   TWMDeleteItem = record
  1139.     Msg: Cardinal;
  1140.     Ctl: HWND;
  1141.     DeleteItemStruct: PDeleteItemStruct;
  1142.     Result: Longint;
  1143.   end;
  1144.  
  1145.   TWMDestroy = TWMNoParams;
  1146.   TWMDestroyClipboard = TWMNoParams;
  1147.  
  1148.   TWMDevModeChange = record
  1149.     Msg: Cardinal;
  1150.     Unused: Integer;
  1151.     Device: PChar;
  1152.     Result: Longint;
  1153.   end;
  1154.  
  1155.   TWMDrawClipboard = TWMNoParams;
  1156.  
  1157.   TWMDrawItem = record
  1158.     Msg: Cardinal;
  1159.     Ctl: HWND;
  1160.     DrawItemStruct: PDrawItemStruct;
  1161.     Result: Longint;
  1162.   end;
  1163.  
  1164.   TWMDropFiles = record
  1165.     Msg: Cardinal;
  1166.     Drop: THANDLE;
  1167.     Unused: Longint;
  1168.     Result: Longint;
  1169.   end;
  1170.  
  1171.   TWMEnable = record
  1172.     Msg: Cardinal;
  1173.     Enabled: LongBool;
  1174.     Unused: Longint;
  1175.     Result: Longint;
  1176.   end;
  1177.  
  1178.   TWMEndSession = record
  1179.     Msg: Cardinal;
  1180.     EndSession: LongBool;
  1181.     Unused: Longint;
  1182.     Result: Longint;
  1183.   end;
  1184.  
  1185.   TWMEnterIdle = record
  1186.     Msg: Cardinal;
  1187.     Source: Longint; { MSGF_DIALOGBOX, MSGF_MENU }
  1188.     IdleWnd: HWND;
  1189.     Result: Longint;
  1190.   end;
  1191.  
  1192.   TWMEnterMenuLoop = record
  1193.     Msg: Cardinal;
  1194.     IsTrackPopupMenu: LongBool;
  1195.     Unused: Longint;
  1196.     Result: Longint;
  1197.   end;
  1198.  
  1199.   TWMExitMenuLoop = TWMEnterMenuLoop;
  1200.  
  1201.   TWMEraseBkgnd = record
  1202.     Msg: Cardinal;
  1203.     DC: HDC;
  1204.     Unused: Longint;
  1205.     Result: Longint;
  1206.   end;
  1207.  
  1208.   TWMFontChange = TWMNoParams;
  1209.   TWMGetDlgCode = TWMNoParams;
  1210.   TWMGetFont = TWMNoParams;
  1211.  
  1212.   TWMGetIcon = record
  1213.     Msg: Cardinal;
  1214.     BigIcon: Longbool;
  1215.     Unused: Longint;
  1216.     Result: Longint;
  1217.   end;
  1218.  
  1219.   TWMGetHotKey = TWMNoParams;
  1220.  
  1221.   TWMGetMinMaxInfo = record
  1222.     Msg: Cardinal;
  1223.     Unused: Integer;
  1224.     MinMaxInfo: PMinMaxInfo;
  1225.     Result: Longint;
  1226.   end;
  1227.  
  1228.   TWMGetText = record
  1229.     Msg: Cardinal;
  1230.     TextMax: Integer;
  1231.     Text: PChar;
  1232.     Result: Longint;
  1233.   end;
  1234.  
  1235.   TWMGetTextLength = TWMNoParams;
  1236.  
  1237.   TWMHotKey = record
  1238.     Msg: Cardinal;
  1239.     HotKey: Longint;
  1240.     Unused: Longint;
  1241.     Result: Longint;
  1242.   end;
  1243.  
  1244.   TWMHScroll = TWMScroll;
  1245.  
  1246.   TWMHScrollClipboard = record
  1247.     Msg: Cardinal;
  1248.     Viewer: HWND;
  1249.     ScrollCode: Word; {SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,
  1250.                        SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,
  1251.                        SB_THUMBTRACK, SB_TOP }
  1252.     Pos: Word;
  1253.     Result: Longint;
  1254.   end;
  1255.  
  1256.   TWMIconEraseBkgnd = TWMEraseBkgnd;
  1257.  
  1258.   TWMInitDialog = record
  1259.     Msg: Cardinal;
  1260.     Focus: HWND;
  1261.     InitParam: Longint;
  1262.     Result: Longint;
  1263.   end;
  1264.  
  1265.   TWMInitMenu = record
  1266.     Msg: Cardinal;
  1267.     Menu: HMENU;
  1268.     Unused: Longint;
  1269.     Result: Longint;
  1270.   end;
  1271.  
  1272.   TWMInitMenuPopup = record
  1273.     Msg: Cardinal;
  1274.     MenuPopup: HMENU;
  1275.     Pos: Smallint;
  1276.     SystemMenu: WordBool;
  1277.     Result: Longint;
  1278.   end;
  1279.  
  1280.   TWMKeyDown = TWMKey;
  1281.   TWMKeyUp = TWMKey;
  1282.  
  1283.   TWMKillFocus = record
  1284.     Msg: Cardinal;
  1285.     FocusedWnd: HWND;
  1286.     Unused: Longint;
  1287.     Result: Longint;
  1288.   end;
  1289.  
  1290.   TWMLButtonDblClk = TWMMouse;
  1291.   TWMLButtonDown   = TWMMouse;
  1292.   TWMLButtonUp     = TWMMouse;
  1293.   TWMMButtonDblClk = TWMMouse;
  1294.   TWMMButtonDown   = TWMMouse;
  1295.   TWMMButtonUp     = TWMMouse;
  1296.  
  1297.   TWMMDIActivate = record
  1298.     Msg: Cardinal;
  1299.     case Integer of
  1300.       0: (
  1301.         ChildWnd: HWND);
  1302.       1: (
  1303.         DeactiveWnd: HWND;
  1304.         ActiveWnd: HWND;
  1305.         Result: Longint);
  1306.   end;
  1307.  
  1308.   TWMMDICascade = record
  1309.     Msg: Cardinal;
  1310.     Cascade: Longint; { 0, MDITILE_SKIPDISABLED }
  1311.     Unused: Longint;
  1312.     Result: Longint;
  1313.   end;
  1314.  
  1315.   TWMMDICreate = record
  1316.     Msg: Cardinal;
  1317.     Unused: Integer;
  1318.     MDICreateStruct: PMDICreateStruct;
  1319.     Result: Longint;
  1320.   end;
  1321.  
  1322.   TWMMDIDestroy = record
  1323.     Msg: Cardinal;
  1324.     Child: HWND;
  1325.     Unused: Longint;
  1326.     Result: Longint;
  1327.   end;
  1328.  
  1329.   TWMMDIGetActive = TWMNoParams;
  1330.   TWMMDIIconArrange = TWMNoParams;
  1331.  
  1332.   TWMMDIMaximize = record
  1333.     Msg: Cardinal;
  1334.     Maximize: HWND;
  1335.     Unused: Longint;
  1336.     Result: Longint;
  1337.   end;
  1338.  
  1339.   TWMMDINext = record
  1340.     Msg: Cardinal;
  1341.     Child: HWND;
  1342.     Next: Longint;
  1343.     Result: Longint;
  1344.   end;
  1345.  
  1346.   TWMMDIRefreshMenu = TWMNoParams;
  1347.  
  1348.   TWMMDIRestore = record
  1349.     Msg: Cardinal;
  1350.     IDChild: HWND;
  1351.     Unused: Longint;
  1352.     Result: Longint;
  1353.   end;
  1354.  
  1355.   TWMMDISetMenu = record
  1356.     Msg: Cardinal;
  1357.     MenuFrame: HMENU;
  1358.     MenuWindow: HMENU;
  1359.     Result: Longint;
  1360.   end;
  1361.  
  1362.   TWMMDITile = record
  1363.     Msg: Cardinal;
  1364.     Tile: Longint; { MDITILE_HORIZONTAL, MDITILE_SKIPDISABLE,
  1365.                      MDITILE_VERTICAL }
  1366.     Unused: Longint;
  1367.     Result: Longint;
  1368.   end;
  1369.  
  1370.   TWMMeasureItem = record
  1371.     Msg: Cardinal;
  1372.     IDCtl: HWnd;
  1373.     MeasureItemStruct: PMeasureItemStruct;
  1374.     Result: Longint;
  1375.   end;
  1376.  
  1377.   TWMMenuChar = record
  1378.     Msg: Cardinal;
  1379.     User: Char;
  1380.     Unused: Byte;
  1381.     MenuFlag: Word; { MF_POPUP, MF_SYSMENU }
  1382.     Menu: HMENU;
  1383.     Result: Longint;
  1384.   end;
  1385.  
  1386.   TWMMenuSelect = record
  1387.     Msg: Cardinal;
  1388.     IDItem: Word;
  1389.     MenuFlag: Word; { MF_BITMAP, MF_CHECKED, MF_DISABLED, MF_GRAYED,
  1390.                       MF_MOUSESELECT, MF_OWNERDRAW, MF_POPUP, MF_SEPARATOR,
  1391.                       MF_SYSMENU }
  1392.     Menu: HMENU;
  1393.     Result: Longint;
  1394.   end;
  1395.  
  1396.   TWMMouseActivate = record
  1397.     Msg: Cardinal;
  1398.     TopLevel: HWND;
  1399.     HitTestCode: Word;
  1400.     MouseMsg: Word;
  1401.     Result: Longint;
  1402.   end;
  1403.  
  1404.   TWMMouseMove = TWMMouse;
  1405.  
  1406.   TWMMove = record
  1407.     Msg: Cardinal;
  1408.     Unused: Integer;
  1409.     case Integer of
  1410.       0: (
  1411.         XPos: Smallint;
  1412.         YPos: Smallint);
  1413.       1: (
  1414.         Pos: TSmallPoint;
  1415.         Result: Longint);
  1416.   end;
  1417.  
  1418.   TWMNCActivate = record
  1419.     Msg: Cardinal;
  1420.     Active: BOOL;
  1421.     Unused: Longint;
  1422.     Result: Longint;
  1423.   end;
  1424.  
  1425.   TWMNCCalcSize = record
  1426.     Msg: Cardinal;
  1427.     CalcValidRects: BOOL;
  1428.     CalcSize_Params: PNCCalcSizeParams;
  1429.     Result: Longint;
  1430.   end;
  1431.  
  1432.   TWMNCCreate = record
  1433.     Msg: Cardinal;
  1434.     Unused: Integer;
  1435.     CreateStruct: PCreateStruct;
  1436.     Result: Longint;
  1437.   end;
  1438.  
  1439.   TWMNCDestroy = TWMNoParams;
  1440.  
  1441.   TWMNCHitTest = record
  1442.     Msg: Cardinal;
  1443.     Unused: Longint;
  1444.     case Integer of
  1445.       0: (
  1446.         XPos: Smallint;
  1447.         YPos: Smallint);
  1448.       1: (
  1449.         Pos: TSmallPoint;
  1450.         Result: Longint);
  1451.   end;
  1452.  
  1453.   TWMNCHitMessage = record
  1454.     Msg: Cardinal;
  1455.     HitTest: Longint;
  1456.     XCursor: Smallint;
  1457.     YCursor: Smallint;
  1458.     Result: Longint;
  1459.   end;
  1460.  
  1461.   TWMNCLButtonDblClk = TWMNCHitMessage;
  1462.   TWMNCLButtonDown   = TWMNCHitMessage;
  1463.   TWMNCLButtonUp     = TWMNCHitMessage;
  1464.   TWMNCMButtonDblClk = TWMNCHitMessage;
  1465.   TWMNCMButtonDown   = TWMNCHitMessage;
  1466.   TWMNCMButtonUp     = TWMNCHitMessage;
  1467.   TWMNCMouseMove     = TWMNCHitMessage;
  1468.  
  1469.   TWMNCPaint = TWMNoParams;
  1470.  
  1471.   TWMNCRButtonDblClk = TWMNCHitMessage;
  1472.   TWMNCRButtonDown   = TWMNCHitMessage;
  1473.   TWMNCRButtonUp     = TWMNCHitMessage;
  1474.  
  1475.   TWMNextDlgCtl = record
  1476.     Msg: Cardinal;
  1477.     CtlFocus: Longint;
  1478.     Handle: WordBool;
  1479.     Unused: Word;
  1480.     Result: Longint;
  1481.   end;
  1482.  
  1483.   TWMNotify = record
  1484.     Msg: Cardinal;
  1485.     IDCtrl: Longint;
  1486.     NMHdr: PNMHdr;
  1487.     Result: Longint;
  1488.   end;
  1489.            
  1490.   TWMNotifyFormat = record
  1491.     Msg: Cardinal;
  1492.     From: HWND;
  1493.     Command: Longint;
  1494.     Result: Longint;
  1495.   end;
  1496.  
  1497.   TWMPaint = record
  1498.     Msg: Cardinal;
  1499.     DC: HDC;
  1500.     Unused: Longint;
  1501.     Result: Longint;
  1502.   end;
  1503.  
  1504.   TWMPaintClipboard = record
  1505.     Msg: Cardinal;
  1506.     Viewer: HWND;
  1507.     PaintStruct: THandle;
  1508.     Result: Longint;
  1509.   end;
  1510.  
  1511.   TWMPaintIcon = TWMNoParams;
  1512.  
  1513.   TWMPaletteChanged = record
  1514.     Msg: Cardinal;
  1515.     PalChg: HWND;
  1516.     Unused: Longint;
  1517.     Result: Longint;
  1518.   end;
  1519.  
  1520.   TWMPaletteIsChanging = record
  1521.     Msg: Cardinal;
  1522.     Realize: HWND;
  1523.     Unused: Longint;
  1524.     Result: Longint;
  1525.   end;
  1526.  
  1527.   TWMParentNotify = record
  1528.     Msg: Cardinal;
  1529.     case Event: Word of
  1530.       WM_CREATE, WM_DESTROY: (
  1531.         ChildID: Word;
  1532.         ChildWnd: HWnd);
  1533.       WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN: (
  1534.         Value: Word;
  1535.         XPos: Smallint;
  1536.         YPos: Smallint);
  1537.       0: (
  1538.         Value1: Word;
  1539.         Value2: Longint;
  1540.         Result: Longint);
  1541.   end;
  1542.  
  1543.   TWMPaste = TWMNoParams;
  1544.  
  1545.   TWMPower = record
  1546.     Msg: Cardinal;
  1547.     PowerEvt: Longint; { PWR_SUSPENDREQUEST, PWR_SUSPENDRESUME,
  1548.                          PWR_CRITICALRESUME }
  1549.     Unused: Longint;
  1550.     Result: Longint;
  1551.   end;
  1552.  
  1553.   TWMQueryDragIcon = TWMNoParams;
  1554.  
  1555.   TWMQueryEndSession = record
  1556.     Msg: Cardinal;
  1557.     Source: Longint;
  1558.     Unused: Longint;
  1559.     Result: Longint;
  1560.   end;
  1561.  
  1562.   TWMQueryNewPalette = TWMNoParams;
  1563.   TWMQueryOpen = TWMNoParams;
  1564.   TWMQueueSync = TWMNoParams;
  1565.  
  1566.   TWMQuit = record
  1567.     Msg: Cardinal;
  1568.     ExitCode: Longint;
  1569.     Unused: Longint;
  1570.     Result: Longint;
  1571.   end;
  1572.  
  1573.   TWMRButtonDblClk = TWMMouse;
  1574.   TWMRButtonDown = TWMMouse;
  1575.   TWMRButtonUp = TWMMouse;
  1576.  
  1577.   TWMRenderAllFormats = TWMNoParams;
  1578.  
  1579.   TWMRenderFormat = record
  1580.     Msg: Cardinal;
  1581.     Format: Longint;
  1582.     Unused: Longint;
  1583.     Result: Longint;
  1584.   end;
  1585.  
  1586.   TWMSetCursor = record
  1587.     Msg: Cardinal;
  1588.     CursorWnd: HWND;
  1589.     HitTest: Word;
  1590.     MouseMsg: Word;
  1591.     Result: Longint;
  1592.   end;
  1593.  
  1594.   TWMSetFocus = record
  1595.     Msg: Cardinal;
  1596.     FocusedWnd: HWND;
  1597.     Unused: Longint;
  1598.     Result: Longint;
  1599.   end;
  1600.  
  1601.   TWMSetFont = record
  1602.     Msg: Cardinal;
  1603.     Font: HFONT;
  1604.     Redraw: WordBool;
  1605.     Unused: Word;
  1606.     Result: Longint;
  1607.   end;
  1608.  
  1609.   TWMSetHotKey = record
  1610.     Msg: Cardinal;
  1611.     Key: Longint;
  1612.     Unused: Longint;
  1613.     Result: Longint;
  1614.   end;
  1615.  
  1616.   TWMSetIcon = record
  1617.     Msg: Cardinal;
  1618.     BigIcon: Longbool;
  1619.     Icon: HICON;
  1620.     Result: Longint;
  1621.   end;
  1622.  
  1623.   TWMSetRedraw = record
  1624.     Msg: Cardinal;
  1625.     Redraw: Longint;
  1626.     Unused: Longint;
  1627.     Result: Longint;
  1628.   end;
  1629.  
  1630.   TWMSetText = record
  1631.     Msg: Cardinal;
  1632.     Unused: Longint;
  1633.     Text: PChar;
  1634.     Result: Longint;
  1635.   end;
  1636.  
  1637.   TWMShowWindow = record
  1638.     Msg: Cardinal;
  1639.     Show: BOOL;
  1640.     Status: Longint;
  1641.     Result: Longint;
  1642.   end;
  1643.  
  1644.   TWMSize = record
  1645.     Msg: Cardinal;
  1646.     SizeType: Longint; { SIZE_MAXIMIZED, SIZE_MINIMIZED, SIZE_RESTORED,
  1647.                          SIZE_MAXHIDE, SIZE_MAXSHOW }
  1648.     Width: Word;
  1649.     Height: Word;
  1650.     Result: Longint;
  1651.   end;
  1652.  
  1653.   TWMSizeClipboard = record
  1654.     Msg: Cardinal;
  1655.     Viewer: HWND;
  1656.     RC: THandle;
  1657.     Result: Longint;
  1658.   end;
  1659.  
  1660.   TWMSpoolerStatus = record
  1661.     Msg: Cardinal;
  1662.     JobStatus: Longint;
  1663.     JobsLeft: Word;
  1664.     Unused: Word;
  1665.     Result: Longint;
  1666.   end;
  1667.  
  1668.   TWMStyleChange = record
  1669.     Msg: Cardinal;
  1670.     StyleType: Longint;
  1671.     StyleStruct: PStyleStruct;
  1672.     Result: Longint;
  1673.   end;
  1674.  
  1675.   TWMStyleChanged = TWMStyleChange;
  1676.   TWMStyleChanging = TWMStyleChange;
  1677.  
  1678.   TWMSysChar = TWMKey;
  1679.   TWMSysColorChange = TWMNoParams;
  1680.  
  1681.   TWMSysCommand = record
  1682.     Msg: Cardinal;
  1683.     case CmdType: Longint of
  1684.       SC_HOTKEY: (
  1685.         ActivateWnd: HWND);
  1686.       SC_KEYMENU: (
  1687.         Key: Word);
  1688.       SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
  1689.       SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
  1690.       SC_TASKLIST, SC_VSCROLL: (
  1691.         XPos: Smallint;
  1692.         YPos: Smallint;
  1693.         Result: Longint);
  1694.   end;
  1695.  
  1696.   TWMSysDeadChar = record
  1697.     Msg: Cardinal;
  1698.     CharCode: Word;
  1699.     Unused: Word;
  1700.     KeyData: Longint;
  1701.     Result: Longint;
  1702.   end;
  1703.  
  1704.   TWMSysKeyDown = TWMKey;
  1705.   TWMSysKeyUp = TWMKey;
  1706.  
  1707.   TWMSystemError = record
  1708.     Msg: Cardinal;
  1709.     ErrSpec: Word;
  1710.     Unused: Longint;
  1711.     Result: Longint;
  1712.   end;
  1713.  
  1714.   TWMTimeChange = TWMNoParams;
  1715.  
  1716.   TWMTimer = record
  1717.     Msg: Cardinal;
  1718.     TimerID: Longint;
  1719.     TimerProc: TFarProc;
  1720.     Result: Longint;
  1721.   end;
  1722.  
  1723.   TWMUndo = TWMNoParams;
  1724.  
  1725.   TWMVKeyToItem = TWMCharToItem;
  1726.  
  1727.   TWMVScroll = TWMScroll;
  1728.  
  1729.   TWMVScrollClipboard = record
  1730.     Msg: Cardinal;
  1731.     Viewer: HWND;
  1732.     ScollCode: Word;
  1733.     ThumbPos: Word;
  1734.     Result: Longint;
  1735.   end;
  1736.  
  1737.   TWMWindowPosChanged = TWMWindowPosMsg;
  1738.   TWMWindowPosChanging = TWMWindowPosMsg;
  1739.  
  1740.   TWMWinIniChange = record
  1741.     Msg: Cardinal;
  1742.     Unused: Integer;
  1743.     Section: PChar;
  1744.     Result: Longint;
  1745.   end;
  1746.  
  1747.   TWMSettingChange = record
  1748.     Msg: Cardinal;
  1749.     Flag: Integer;
  1750.     Section: PChar;
  1751.     Result: Longint;
  1752.   end;
  1753.  
  1754.   TWMHelp = record
  1755.     Msg: Cardinal;
  1756.     Unused: Integer;
  1757.     HelpInfo: PHelpInfo;
  1758.     Result: Longint;
  1759.   end;
  1760.  
  1761.   TWMDisplayChange = record
  1762.     Msg: Cardinal;
  1763.     BitsPerPixel: Integer;
  1764.     Width: Word;
  1765.     Height: Word;
  1766.   end;
  1767.  
  1768. implementation
  1769.  
  1770. end.
  1771.