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