home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk14 / doc.pak / MESSAGES.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  25.3 KB  |  1,151 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Runtime Library                          }
  5. {       Windows Messages and Types                      }
  6. {                                                       }
  7. {       Copyright (c) 1991,95 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Messages;
  12.  
  13. interface
  14.  
  15.  
  16. uses WinTypes;
  17.  
  18.  
  19. { Window Messages }
  20.  
  21. const
  22.   wm_Null             = $0000;
  23.   wm_Create           = $0001;
  24.   wm_Destroy          = $0002;
  25.   wm_Move             = $0003;
  26.   wm_Size             = $0005;
  27.   wm_Activate         = $0006;
  28.   wm_SetFocus         = $0007;
  29.   wm_KillFocus        = $0008;
  30.   wm_Enable           = $000A;
  31.   wm_SetRedraw        = $000B;
  32.   wm_SetText          = $000C;
  33.   wm_GetText          = $000D;
  34.   wm_GetTextLength    = $000E;
  35.   wm_Paint            = $000F;
  36.   wm_Close            = $0010;
  37.   wm_QueryEndSession  = $0011;
  38.   wm_Quit             = $0012;
  39.   wm_QueryOpen        = $0013;
  40.   wm_EraseBkGnd       = $0014;
  41.   wm_SysColorChange   = $0015;
  42.   wm_EndSession       = $0016;
  43.   wm_SystemError      = $0017;
  44.   wm_ShowWindow       = $0018;
  45.   wm_CtlColor         = $0019;
  46.   wm_WinIniChange     = $001A;
  47.   wm_DevModeChange    = $001B;
  48.   wm_ActivateApp      = $001C;
  49.   wm_FontChange       = $001D;
  50.   wm_TimeChange       = $001E;
  51.   wm_CancelMode       = $001F;
  52.   wm_SetCursor        = $0020;
  53.   wm_MouseActivate    = $0021;
  54.   wm_ChildActivate    = $0022;
  55.   wm_QueueSync        = $0023;
  56.   wm_GetMinMaxInfo    = $0024;
  57.   wm_PaintIcon        = $0026;
  58.   wm_IconEraseBkGnd   = $0027;
  59.   wm_NextDlgCtl       = $0028;
  60.   wm_SpoolerStatus    = $002A;
  61.   wm_DrawItem         = $002B;
  62.   wm_MeasureItem      = $002C;
  63.   wm_DeleteItem       = $002D;
  64.   wm_VKeyToItem       = $002E;
  65.   wm_CharToItem       = $002F;
  66.   wm_SetFont          = $0030;
  67.   wm_GetFont          = $0031;
  68.   wm_QueryDragIcon    = $0037;
  69.   wm_CompareItem      = $0039;
  70.   wm_Compacting       = $0041;
  71.  
  72.   wm_CommNotify        = $0044;
  73.  
  74.   wm_WindowPosChanging = $0046;
  75.   wm_WindowPosChanged  = $0047;
  76.   wm_Power             = $0048;
  77.  
  78.  
  79.   wm_NCCreate         = $0081;
  80.   wm_NCDestroy        = $0082;
  81.   wm_NCCalcSize       = $0083;
  82.   wm_NCHitTest        = $0084;
  83.   wm_NCPaint          = $0085;
  84.   wm_NCActivate       = $0086;
  85.   wm_GetDlgCode       = $0087;
  86.   wm_NCMouseMove      = $00A0;
  87.   wm_NCLButtonDown    = $00A1;
  88.   wm_NCLButtonUp      = $00A2;
  89.   wm_NCLButtonDblClk  = $00A3;
  90.   wm_NCRButtonDown    = $00A4;
  91.   wm_NCRButtonUp      = $00A5;
  92.   wm_NCRButtonDblClk  = $00A6;
  93.   wm_NCMButtonDown    = $00A7;
  94.   wm_NCMButtonUp      = $00A8;
  95.   wm_NCMButtonDblClk  = $00A9;
  96.  
  97.   wm_KeyFirst         = $0100;
  98.   wm_KeyDown          = $0100;
  99.   wm_KeyUp            = $0101;
  100.   wm_Char             = $0102;
  101.   wm_DeadChar         = $0103;
  102.   wm_SysKeyDown       = $0104;
  103.   wm_SysKeyUp         = $0105;
  104.   wm_SysChar          = $0106;
  105.   wm_SysDeadChar      = $0107;
  106.   wm_KeyLast          = $0108;
  107.  
  108.   wm_InitDialog       = $0110;
  109.   wm_Command          = $0111;
  110.   wm_SysCommand       = $0112;
  111.   wm_Timer            = $0113;
  112.   wm_HScroll          = $0114;
  113.   wm_VScroll          = $0115;
  114.   wm_InitMenu         = $0116;
  115.   wm_InitMenuPopup    = $0117;
  116.   wm_MenuSelect       = $011F;
  117.   wm_MenuChar         = $0120;
  118.   wm_EnterIdle        = $0121;
  119.  
  120.  
  121.   wm_MouseFirst       = $0200;
  122.   wm_MouseMove        = $0200;
  123.   wm_LButtonDown      = $0201;
  124.   wm_LButtonUp        = $0202;
  125.   wm_LButtonDblClk    = $0203;
  126.   wm_RButtonDown      = $0204;
  127.   wm_RButtonUp        = $0205;
  128.   wm_RButtonDblClk    = $0206;
  129.   wm_MButtonDown      = $0207;
  130.   wm_MButtonUp        = $0208;
  131.   wm_MButtonDblClk    = $0209;
  132.   wm_MouseLast        = $0209;
  133.  
  134.   wm_ParentNotify     = $0210;
  135.   wm_MDICreate        = $0220;
  136.   wm_MDIDestroy       = $0221;
  137.   wm_MDIActivate      = $0222;
  138.   wm_MDIRestore       = $0223;
  139.   wm_MDINext          = $0224;
  140.   wm_MDIMaximize      = $0225;
  141.   wm_MDITile          = $0226;
  142.   wm_MDICascade       = $0227;
  143.   wm_MDIIconArrange   = $0228;
  144.   wm_MDIGetActive     = $0229;
  145.   wm_MDISetMenu       = $0230;
  146.  
  147.   wm_DropFiles        = $0233;
  148.  
  149.   wm_Cut              = $0300;
  150.   wm_Copy             = $0301;
  151.   wm_Paste            = $0302;
  152.   wm_Clear            = $0303;
  153.   wm_Undo             = $0304;
  154.   wm_RenderFormat     = $0305;
  155.   wm_RenderAllFormats = $0306;
  156.   wm_DestroyClipboard = $0307;
  157.   wm_DrawClipboard    = $0308;
  158.   wm_PaintClipboard   = $0309;
  159.   wm_VScrollClipboard = $030A;
  160.   wm_SizeClipboard    = $030B;
  161.   wm_AskCBFormatName  = $030C;
  162.   wm_ChangeCBChain    = $030D;
  163.   wm_HScrollClipboard = $030E;
  164.   wm_QueryNewPalette  = $030F;
  165.   wm_PaletteIsChanging = $0310;
  166.   wm_PaletteChanged   = $0311;
  167.  
  168.   wm_PenWinFirst      = $0380;
  169.   wm_PenWinLast       = $038F;
  170.  
  171.   wm_Coalesce_First   = $0390;
  172.   wm_Coalesce_Last    = $039F;
  173.  
  174. { NOTE: All Message Numbers below 0x0400 are RESERVED }
  175.  
  176. { Private Window Messages Start Here }
  177.  
  178.   wm_User             = $0400;
  179.  
  180. { Button Notification Codes }
  181.  
  182. const
  183.   bn_Clicked       = 0;
  184.   bn_Paint         = 1;
  185.   bn_Hilite        = 2;
  186.   bn_Unhilite      = 3;
  187.   bn_Disable       = 4;
  188.   bn_DoubleClicked = 5;
  189.  
  190. { Listbox Notification Codes }
  191.  
  192. const
  193.   lbn_ErrSpace  = (-2);
  194.   lbn_SelChange = 1;
  195.   lbn_DblClk    = 2;
  196.   lbn_SelCancel = 3;
  197.   lbn_SetFocus  = 4;
  198.   lbn_KillFocus = 5;
  199.  
  200. { Listbox messages }
  201.  
  202.  
  203. const
  204.   lb_AddString           = (wm_User+1);
  205.   lb_InsertString        = (wm_User+2);
  206.   lb_DeleteString        = (wm_User+3);
  207.   lb_ResetContent        = (wm_User+5);
  208.   lb_SetSel              = (wm_User+6);
  209.   lb_SetCurSel           = (wm_User+7);
  210.   lb_GetSel              = (wm_User+8);
  211.   lb_GetCurSel           = (wm_User+9);
  212.   lb_GetText             = (wm_User+10);
  213.   lb_GetTextLen          = (wm_User+11);
  214.   lb_GetCount            = (wm_User+12);
  215.   lb_SelectString        = (wm_User+13);
  216.   lb_Dir                 = (wm_User+14);
  217.   lb_GetTopIndex         = (wm_User+15);
  218.   lb_FindString          = (wm_User+16);
  219.   lb_GetSelCount         = (wm_User+17);
  220.   lb_GetSelItems         = (wm_User+18);
  221.   lb_SetTabStops         = (wm_User+19);
  222.   lb_GetHorizontalExtent = (wm_User+20);
  223.   lb_SetHorizontalExtent = (wm_User+21);
  224.   lb_SetColumnWidth      = (wm_User+22);
  225.   lb_SetTopIndex         = (wm_User+24);
  226.   lb_GetItemRect         = (wm_User+25);
  227.   lb_GetItemData         = (wm_User+26);
  228.   lb_SetItemData         = (wm_User+27);
  229.   lb_SelItemRange        = (wm_User+28);
  230.   lb_MsgMax              = (wm_User+33);
  231.   lb_GetCaretIndex       = wm_User+32;
  232.   lb_SetCaretIndex       = wm_User+31;
  233.   lb_SetItemHeight       = wm_User+33;
  234.   lb_GetItemHeight       = wm_User+34;
  235.   lb_FindStringExact     = wm_User+35;
  236.  
  237.  
  238. { Combo Box Notification Codes }
  239.  
  240. const
  241.   cbn_ErrSpace   = (-1);
  242.   cbn_SelChange  = 1;
  243.   cbn_DblClk     = 2;
  244.   cbn_SetFocus   = 3;
  245.   cbn_KillFocus  = 4;
  246.   cbn_EditChange = 5;
  247.   cbn_EditUpdate = 6;
  248.   cbn_DropDown   = 7;
  249.   cbn_Closeup    = 8;
  250.   cbn_SelEndOk   = 9;
  251.   cbn_SelEndCancel = 10;
  252.  
  253. { Combo Box messages }
  254.  
  255.  
  256. const
  257.   cb_GetEditSel            = (wm_User+0);
  258.   cb_LimitText             = (wm_User+1);
  259.   cb_SetEditSel            = (wm_User+2);
  260.   cb_AddString             = (wm_User+3);
  261.   cb_DeleteString          = (wm_User+4);
  262.   cb_Dir                   = (wm_User+5);
  263.   cb_GetCount              = (wm_User+6);
  264.   cb_GetCurSel             = (wm_User+7);
  265.   cb_GetLBText             = (wm_User+8);
  266.   cb_GetLBTextLen          = (wm_User+9);
  267.   cb_InsertString          = (wm_User+10);
  268.   cb_ResetContent          = (wm_User+11);
  269.   cb_FindString            = (wm_User+12);
  270.   cb_SelectString          = (wm_User+13);
  271.   cb_SetCurSel             = (wm_User+14);
  272.   cb_ShowDropDown          = (wm_User+15);
  273.   cb_GetItemData           = (wm_User+16);
  274.   cb_SetItemData           = (wm_User+17);
  275.   cb_GetDroppedControlRect = (wm_User+18);
  276.   cb_MsgMax                = (wm_User+19);  { Removed in Windows 3.1 }
  277.   cb_SetItemHeight         = wm_User+19;
  278.   cb_GetItemHeight         = wm_User+20;
  279.   cb_SetExtendedUI         = wm_User+21;
  280.   cb_GetExtendedUI         = wm_User+22;
  281.   cb_GetDroppedState       = wm_User+23;
  282.   cb_FindStringExact       = wm_User+24;
  283.  
  284.  
  285. { Edit Control Notification Codes }
  286.  
  287. const
  288.   en_SetFocus  = $0100;
  289.   en_KillFocus = $0200;
  290.   en_Change    = $0300;
  291.   en_Update    = $0400;
  292.   en_ErrSpace  = $0500;
  293.   en_MaxText   = $0501;
  294.   en_HScroll   = $0601;
  295.   en_VScroll   = $0602;
  296.  
  297. { Edit Control Messages }
  298.  
  299.  
  300. const
  301.   em_GetSel          = (wm_User+0);
  302.   em_SetSel          = (wm_User+1);
  303.   em_GetRect         = (wm_User+2);
  304.   em_SetRect         = (wm_User+3);
  305.   em_SetRectNP       = (wm_User+4);
  306.   em_Scroll          = (wm_User+5);
  307.   em_LineScroll      = (wm_User+6);
  308.   em_GetModify       = (wm_User+8);
  309.   em_SetModify       = (wm_User+9);
  310.   em_GetLineCount    = (wm_User+10);
  311.   em_LineIndex       = (wm_User+11);
  312.   em_SetHandle       = (wm_User+12);
  313.   em_GetHandle       = (wm_User+13);
  314.   em_GetThumb        = (wm_User+14);
  315.   em_LineLength      = (wm_User+17);
  316.   em_ReplaceSel      = (wm_User+18);
  317.   em_SetFont         = (wm_User+19);
  318.   em_GetLine         = (wm_User+20);
  319.   em_LimitText       = (wm_User+21);
  320.   em_CanUndo         = (wm_User+22);
  321.   em_Undo            = (wm_User+23);
  322.   em_FmtLines        = (wm_User+24);
  323.   em_LineFromChar    = (wm_User+25);
  324.   em_SetWordBreak    = (wm_User+26);
  325.   em_SetTabStops     = (wm_User+27);
  326.   em_SetPasswordChar = (wm_User+28);
  327.   em_EmptyUndoBuffer = (wm_User+29);
  328.   em_MsgMax          = (wm_User+30);  { Removed in Windows 3.1 }
  329.   em_GetFirstVisibleLine = wm_User+30;
  330.   em_SetReadOnly = wm_User+31;
  331.   em_SetWordBreakProc = wm_User+32;
  332.   em_GetWordBreakProc = wm_User+33;
  333.   em_GetPasswordChar = wm_User+34;
  334.  
  335.  
  336. const
  337.   stm_SetIcon = wm_User+0;
  338.   stm_GetIcon = wm_User+1;
  339.  
  340. { Button Control Messages }
  341.  
  342.  
  343. const
  344.   bm_GetCheck = (wm_User+0);
  345.   bm_SetCheck = (wm_User+1);
  346.   bm_GetState = (wm_User+2);
  347.   bm_SetState = (wm_User+3);
  348.   bm_SetStyle = (wm_User+4);
  349.  
  350.  
  351. { Dialog messages }
  352.   dm_GetDefID = (wm_User+0);
  353.   dm_SetDefID = (wm_User+1);
  354.  
  355. type
  356.  
  357. { Generic window message record }
  358.  
  359.   PMessage = ^TMessage;
  360.   TMessage = record
  361.     Msg: Cardinal;
  362.     case Integer of
  363.       0: (
  364.         WParam: Word;
  365.         LParam: Longint;
  366.         Result: Longint);
  367.       1: (
  368.         WParamLo: Byte;
  369.         WParamHi: Byte;
  370.         LParamLo: Word;
  371.         LParamHi: Word;
  372.         ResultLo: Word;
  373.         ResultHi: Word);
  374.   end;
  375.  
  376. { Common message format records }
  377.  
  378.   TWMNoParams = record
  379.     Msg: Cardinal;
  380.     Unused: array[0..2] of Word;
  381.     Result: Longint;
  382.   end;
  383.  
  384.   TWMKey = record
  385.     Msg: Cardinal;
  386.     CharCode: Word;
  387.     KeyData: Longint;
  388.     Result: Longint;
  389.   end;
  390.  
  391.   TWMMouse = record
  392.     Msg: Cardinal;
  393.     Keys: Word;
  394.     case Integer of
  395.       0: (
  396.         XPos: Integer;
  397.         YPos: Integer);
  398.       1: (
  399.         Pos: TPoint;
  400.         Result: Longint);
  401.   end;
  402.  
  403.   TWMWindowPosMsg = record
  404.     Msg: Cardinal;
  405.     Unused: Integer;
  406.     WindowPos: PWindowPos;
  407.     Result: Longint;
  408.   end;
  409.  
  410.   TWMScroll = record
  411.     Msg: Cardinal;
  412.     ScrollCode: SmallInt; { SB_xxxx }
  413.     Pos: SmallInt;
  414.     ScrollBar: HWND;
  415.     Result: Longint;
  416.   end;
  417.  
  418. { Message records }
  419.  
  420.   TWMActivate = record
  421.     Msg: Cardinal;
  422.     Active: WORD; { WA_INACTIVE, WA_ACTIVE, WA_CLICKACTIVE }
  423.     ActiveWindow: HWND;
  424.     Minimized: BOOL;
  425.     Result: Longint;
  426.   end;
  427.  
  428.   TWMActivateApp = record
  429.     Msg: Cardinal;
  430.     Active: BOOL;
  431.     Task: THANDLE;
  432.     Unused: Word;
  433.     Result: Longint;
  434.   end;
  435.  
  436.   TWMAskCBFormatName = record
  437.     Msg: Cardinal;
  438.     NameLen: Word;
  439.     FormatName: PChar;
  440.     Result: Longint;
  441.   end;
  442.  
  443.   TWMCancelMode = TWMNoParams;
  444.  
  445.   TWMChangeCBChain = record
  446.     Msg: Cardinal;
  447.     Remove: HWND;
  448.     Next: HWND;
  449.     Unused: Word;
  450.     Result: Longint;
  451.   end;
  452.  
  453.   TWMChar = TWMKey;
  454.  
  455.   TWMCharToItem = record
  456.     Msg: Cardinal;
  457.     Key: Word;
  458.     ListBox: HWND;
  459.     CaretPos: Word;
  460.     Result: Longint;
  461.   end;
  462.  
  463.   TWMChildActivate = TWMNoParams;
  464.  
  465.   TWMChooseFont_GetLogFont = record
  466.     Msg: Cardinal;
  467.     Unused: Word;
  468.     LogFont: PLogFont;
  469.     Result: Longint;
  470.   end;
  471.  
  472.   TWMClear = TWMNoParams;
  473.   TWMClose = TWMNoParams;
  474.  
  475.   TWMCommand = record
  476.     Msg: Cardinal;
  477.     ItemID: Word;
  478.     Ctl: HWND;
  479.     NotifyCode: Word;
  480.     Result: Longint;
  481.   end;
  482.  
  483.   TWMCommNotify = record
  484.     Msg: Cardinal;
  485.     Device: Word;
  486.     NotifyStatus: Word;  { CN_EVENT, CN_RECEIVE, CN_TRANSMIT }
  487.     Unused: Word;
  488.     Result: Longint;
  489.   end;
  490.  
  491.   TWMCompacting = record
  492.     Msg: Cardinal;
  493.     CompactRatio: Word;
  494.     Unused: Longint;
  495.     Result: Longint;
  496.   end;
  497.  
  498.   TWMCompareItem = record
  499.     Msg: Cardinal;
  500.     Ctl: Word;
  501.     CompareItemStruct: PCompareItemStruct;
  502.     Result: Longint;
  503.   end;
  504.  
  505.   TWMCopy = TWMNoParams;
  506.  
  507.  
  508.   { ?? WM_CLP_LAUNCH, WM_CPL_LAUNCHED }
  509.  
  510.   TWMCreate = record
  511.     Msg: Cardinal;
  512.     Unused: Integer;
  513.     CreateStruct: PCreateStruct;
  514.     Result: Longint;
  515.   end;
  516.  
  517.  
  518.   TWMCtlColor = record
  519.     Msg: Cardinal;
  520.     ChildDC: HDC;
  521.     ChildWnd: HWND;
  522.     CtlType: Integer;  { CTLCOLOR_BTN, CTLCOLOR_DLG, CTLCOLOR_EDIT, CTLCOLOR_LISTBOX,
  523.                          CTLCOLOR_MSGBOX, CTLCOLOR_SCROLLBAR, CTLCOLOR_STAIC}
  524.     Result: Longint;
  525.   end;
  526.  
  527.  
  528.   TWMCut = TWMNoParams;
  529.  
  530.   TWMDDE_Ack = record
  531.     Msg: Cardinal;
  532.     PostingApp: HWND;
  533.     case Word of
  534.       WM_DDE_INITIATE: (
  535.         App: Word;
  536.         Topic: Word;
  537.         Result: Longint);
  538.       WM_DDE_EXECUTE {and all others }: (
  539.         Status: Word;
  540.         case Word of
  541.           WM_DDE_EXECUTE: (
  542.             Commands: THANDLE);
  543.           0 { all others }: (
  544.             Item: Word));
  545.   end;
  546.  
  547.   TWMDDE_Advise = record
  548.     Msg: Cardinal;
  549.     PostingApp: HWND;
  550.     Options: THANDLE;
  551.     Item: Word;
  552.     Result: Longint;
  553.   end;
  554.  
  555.   TWMDDE_Data = record
  556.     Msg: Cardinal;
  557.     PostingApp: HWND;
  558.     Data: THANDLE;
  559.     Item: Word;
  560.     Result: Longint;
  561.   end;
  562.  
  563.   TWMDDE_Execute = record
  564.     Msg: Cardinal;
  565.     PostingApp: HWND;
  566.     Commands: THANDLE;
  567.     Unused: Word;
  568.     Result: Longint;
  569.   end;
  570.  
  571.   TWMDDE_Initiate = record
  572.     Msg: Cardinal;
  573.     PostingApp: HWND;
  574.     App: Word;
  575.     Topic: Word;
  576.     Result: Longint;
  577.   end;
  578.  
  579.   TWMDDE_Poke = record
  580.     Msg: Cardinal;
  581.     PostingApp: HWND;
  582.     Data: THANDLE;
  583.     Item: Word;
  584.     Result: Longint;
  585.   end;
  586.  
  587.   TWMDDE_Request = record
  588.     Msg: Cardinal;
  589.     PostingApp: HWND;
  590.     Format: Word;
  591.     Item: Word;
  592.     Result: Longint;
  593.   end;
  594.  
  595.   TWMDDE_Terminate = record
  596.     Msg: Cardinal;
  597.     PostingApp: HWND;
  598.     Unused: Longint;
  599.     Result: Longint;
  600.   end;
  601.  
  602.   TWMDDE_Unadvise = TWMDDE_Advise;
  603.   TWMDeadChar = TWMChar;
  604.  
  605.   TWMDeleteItem = record
  606.     Msg: Cardinal;
  607.     Ctl: HWND;
  608.     DeleteItemStruct: PDeleteItemStruct;
  609.     Result: Longint;
  610.   end;
  611.  
  612.   TWMDestroy = TWMNoParams;
  613.   TWMDestroyClipboard = TWMNoParams;
  614.  
  615.   TWMDevModeChanged = record
  616.     Msg: Cardinal;
  617.     Unused: Integer;
  618.     Device: PChar;
  619.     Result: Longint;
  620.   end;
  621.  
  622.   TWMDrawClipboard = TWMNoParams;
  623.  
  624.   TWMDrawItem = record
  625.     Msg: Cardinal;
  626.     Ctl: HWND;
  627.     DrawItemStruct: PDrawItemStruct;
  628.     Result: Longint;
  629.   end;
  630.  
  631.   TWMDropFiles = record
  632.     Msg: Cardinal;
  633.     Drop: THANDLE;
  634.     Unused: Longint;
  635.     Result: Longint;
  636.   end;
  637.  
  638.   TWMEnable = record
  639.     Msg: Cardinal;
  640.     Enabled: BOOL;
  641.     Unused: Longint;
  642.     Result: Longint;
  643.   end;
  644.  
  645.   TWMEndSession = record
  646.     Msg: Cardinal;
  647.     EndSession: BOOL;
  648.     Unused: Longint;
  649.     Result: Longint;
  650.   end;
  651.  
  652.   TWMEnterIdle = record
  653.     Msg: Cardinal;
  654.     Source: Word; { MSGF_DIALOGBOX, MSGF_MENU }
  655.     IdleWnd: HWND;
  656.     Unused: Word;
  657.     Result: Longint;
  658.   end;
  659.  
  660.  
  661.   TWMEraseBkgnd = record
  662.     Msg: Cardinal;
  663.     DC: HDC;
  664.     Unused: Longint;
  665.     Result: Longint;
  666.   end;
  667.  
  668.   TWMFontChange = TWMNoParams;
  669.   TWMGetDlgCode = TWMNoParams;
  670.   TWMGetFont = TWMNoParams;
  671.  
  672.  
  673.   TWMGetMinMaxInfo = record
  674.     Msg: Cardinal;
  675.     Unused: Integer;
  676.     MinMaxInfo: PMinMaxInfo;
  677.     Result: Longint;
  678.   end;
  679.  
  680.   TWMGetText = record
  681.     Msg: Cardinal;
  682.     TextMax: Integer;
  683.     Text: PChar;
  684.     Result: Longint;
  685.   end;
  686.  
  687.   TWMGetTextLength = TWMNoParams;
  688.  
  689.  
  690.   TWMHScroll = TWMScroll;
  691.  
  692.   TWMHScrollClipboard = record
  693.     Msg: Cardinal;
  694.     Viewer: HWND;
  695.     ScrollCode: Word; {SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,
  696.                        SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,
  697.                        SB_THUMBTRACK, SB_TOP }
  698.     Pos: Word;
  699.     Result: Longint;
  700.   end;
  701.  
  702.   TWMIconEraseBkgnd = TWMEraseBkgnd;
  703.  
  704.   TWMInitDialog = record
  705.     Msg: Cardinal;
  706.     Focus: HWND;
  707.     InitParam: Longint;
  708.     Result: Longint;
  709.   end;
  710.  
  711.   TWMInitMenu = record
  712.     Msg: Cardinal;
  713.     Menu: HMENU;
  714.     Unused: Longint;
  715.     Result: Longint;
  716.   end;
  717.  
  718.   TWMInitMenuPopup = record
  719.     Msg: Cardinal;
  720.     MenuPopup: HMENU;
  721.     Pos: SmallInt;
  722.     SystemMenu: BOOL;
  723.     Result: Longint;
  724.   end;
  725.  
  726.   TWMKeyDown = TWMKey;
  727.   TWMKeyUp = TWMKey;
  728.  
  729.   TWMKillFocus = record
  730.     Msg: Cardinal;
  731.     FocusedWnd: HWND;
  732.     Unused: Longint;
  733.     Result: Longint;
  734.   end;
  735.  
  736.   TWMLButtonDblClk = TWMMouse;
  737.   TWMLButtonDown   = TWMMouse;
  738.   TWMLButtonUp     = TWMMouse;
  739.   TWMMButtonDblClk = TWMMouse;
  740.   TWMMButtonDown   = TWMMouse;
  741.   TWMMButtonUp     = TWMMouse;
  742.  
  743.   {!! 32? }
  744.   TWMMDIActivate = record
  745.     Msg: Cardinal;
  746.     Activate: BOOL;
  747.     ActiveWnd: HWND;
  748.     DeactiveWnd: HWND;
  749.     Result: Longint;
  750.   end;
  751.  
  752.   TWMMDICascade = record
  753.     Msg: Cardinal;
  754.     Cascade: Word;     { 0, MDITILE_SKIPDISABLED }
  755.     Unused: Longint;
  756.     Result: Longint;
  757.   end;
  758.  
  759.   TWMMDICreate = record
  760.     Msg: Cardinal;
  761.     Unused: Integer;
  762.     MDICreateStruct: PMDICreateStruct;
  763.     Result: Longint;
  764.   end;
  765.  
  766.   TWMMDIDestroy = record
  767.     Msg: Cardinal;
  768.     Child: HWND;
  769.     Unused: Longint;
  770.     Result: Longint;
  771.   end;
  772.  
  773.   TWMMDIGetActive = TWMNoParams;
  774.   TWMMDIIconArrange = TWMNoParams;
  775.  
  776.   TWMMDIMaximize = record
  777.     Msg: Cardinal;
  778.     Maximize: HWND;
  779.     Unused: Longint;
  780.     Result: Longint;
  781.   end;
  782.  
  783.   TWMMDINext = record
  784.     Msg: Cardinal;
  785.     Child: HWND;
  786.     Next: Longint;
  787.     Result: Longint;
  788.   end;
  789.  
  790.  
  791.   TWMMDIRestore = record
  792.     Msg: Cardinal;
  793.     IDChild: HWND;
  794.     Unused: Longint;
  795.     Result: Longint;
  796.   end;
  797.  
  798.   TWMMDISetMenu = record
  799.     Msg: Cardinal;
  800.     MenuFrame: HMENU;
  801.     MenuWindow: HMENU;
  802.     Result: Longint;
  803.   end;
  804.  
  805.   TWMMDITile = record
  806.     Msg: Cardinal;
  807.     Tile: Word;       { MDITILE_HORIZONTAL, MDITILE_SKIPDISABLE, MDITILE_VERTICAL }
  808.     Unused: Longint;
  809.     Result: Longint;
  810.   end;
  811.  
  812.   TWMMeasureItem = record
  813.     Msg: Cardinal;
  814.     IDCtl: Word;
  815.     MeasureItemStruct: PMeasureItemStruct;
  816.     Result: Longint;
  817.   end;
  818.  
  819.   TWMMenuChar = record
  820.     Msg: Cardinal;
  821.     User: Char;
  822.     Unused: Byte;
  823.     MenuFlag: Word;   { MF_POPUP, MF_SYSMENU }
  824.     Menu: HMENU;
  825.     Result: Longint;
  826.   end;
  827.  
  828.   TWMMenuSelect = record
  829.     Msg: Cardinal;
  830.     IDItem: Word;
  831.     MenuFlag: Word;  { MF_BITMAP, MF_CHECKED, MF_DISABLED, MF_GRAYED, MF_MOUSESELECT,
  832.                        MF_OWNERDRAW, MF_POPUP, MF_SEPARATOR, MF_SYSMENU }
  833.     Menu: HMENU;
  834.     Result: Longint;
  835.   end;
  836.  
  837.   TWMMouseActivate = record
  838.     Msg: Cardinal;
  839.     TopLevel: HWND;
  840.     HitTestCode: Word;
  841.     MouseMsg: Word;
  842.     Result: Longint;
  843.   end;
  844.  
  845.   TWMMouseMove = TWMMouse;
  846.  
  847.   TWMMove = record
  848.     Msg: Cardinal;
  849.     Unused: Integer;
  850.     case Integer of
  851.       0: (
  852.         XPos: SmallInt; 
  853.         YPos: SmallInt);
  854.       1: (
  855.         Pos: TPoint;
  856.         Result: Longint);
  857.   end;
  858.  
  859.   TWMNCActivate = record
  860.     Msg: Cardinal;
  861.     Active: BOOL;
  862.     Unused: Longint;
  863.     Result: Longint;
  864.   end;
  865.  
  866.   TWMNCCalcSize = record
  867.     Msg: Cardinal;
  868.     CalcValidRects: BOOL;
  869.     CalcSize_Params: PNCCalcSize_Params;
  870.     Result: Longint;
  871.   end;
  872.  
  873.   TWMNCCreate = record
  874.     Msg: Cardinal;
  875.     Unused: Integer;
  876.     CreateStruct: PCreateStruct;
  877.     Result: Longint;
  878.   end;
  879.  
  880.   TWMNCDestroy = TWMNoParams;
  881.  
  882.   TWMNCHitTest = record
  883.     Msg: Cardinal;
  884.     Unused: Cardinal;
  885.     case Integer of
  886.       0: (
  887.         XPos: SmallInt;
  888.         YPos: SmallInt);
  889.       1: (
  890.         Pos: TSmallPoint;
  891.         Result: Longint);
  892.   end;
  893.  
  894.   TWMNCHitMessage = record
  895.     Msg: Cardinal;
  896.     HitTest: Integer; {??}
  897.     XCursor: SmallInt;
  898.     YCursor: SmallInt;
  899.     Result: Longint;
  900.   end;
  901.  
  902.   TWMNCLButtonDblClk  = TWMNCHitMessage;
  903.   TWMNCLButtonDown    = TWMNCHitMessage;
  904.   TWMNCLButtonUp      = TWMNCHitMessage;
  905.   TWMNCMButtonDblClk  = TWMNCHitMessage;
  906.   TWMNCMButtonDown    = TWMNCHitMessage;
  907.   TWMNCMButtonUp      = TWMNCHitMessage;
  908.   TWMNCMouseMove      = TWMNCHitMessage;
  909.  
  910.   TWMNCPaint = TWMNoParams;
  911.  
  912.   TWMNCRButtonDblClk  = TWMNCHitMessage;
  913.   TWMNCRButtonDown    = TWMNCHitMessage;
  914.   TWMNCRButtonUp      = TWMNCHitMessage;
  915.  
  916.   TWMNextDlgCtl = record
  917.     Msg: Cardinal;
  918.     CtlFocus: Word;
  919.     Handle: BOOL;
  920.     Unused: Word;
  921.     Result: Longint;
  922.   end;
  923.  
  924.   TWMPaint = record
  925.     Msg: Cardinal;
  926.     DC: HDC;
  927.     Unused: Longint;
  928.     Result: Longint;
  929.   end;
  930.  
  931.   TWMPaintClipboard = record
  932.     Msg: Cardinal;
  933.     Viewer: HWND;
  934.     PaintStruct: THANDLE;
  935.     Unused: Word;
  936.     Result: Longint;
  937.   end;
  938.  
  939.   TWMPaintIcon = TWMNoParams;
  940.  
  941.   TWMPaletteChanged = record
  942.     Msg: Cardinal;
  943.     PalChg: HWND;
  944.     Unused: Longint;
  945.     Result: Longint;
  946.   end;
  947.  
  948.   TWMPaletteIsChanging = record
  949.     Msg: Cardinal;
  950.     Realize: HWND;
  951.     Unused: Longint;
  952.     Result: Longint;
  953.   end;
  954.  
  955.   TWMParentNotify = record
  956.     Msg: Cardinal;
  957.     case Event: Word of
  958.       WM_CREATE, WM_DESTROY: (
  959.         ChildWnd: HWND;
  960.         ChildID: Word);
  961.       WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN: (
  962.         XPos: Integer;
  963.         YPos: Integer);
  964.       0 { Name is MS DOC }: (
  965.         Value1: Word;
  966.         Value2: Word;
  967.         Result: Longint);
  968.   end;
  969.  
  970.   TWMPaste = TWMNoParams;
  971.  
  972.   TWMPower = record  { !! not declared in WinTypes }
  973.     Msg: Cardinal;
  974.     PowerEvt: Word;     { PWR_SUSPENDREQUEST, PWR_SUSPENDRESUME, PWR_CRITICALRESUME }
  975.     Unused: Longint;
  976.     Result: Longint;
  977.   end;
  978.  
  979.   TWMQueryDragIcon = TWMNoParams;
  980.  
  981.   TWMQueryEndSession = TWMNoParams;
  982.  
  983.   TWMQueryNewPalette = TWMNoParams;
  984.   TWMQueryOpen = TWMNoParams;
  985.   TWMQueueSync = TWMNoParams;
  986.  
  987.   TWMQuit = record
  988.     Msg: Cardinal;
  989.     ExitCode: Word;
  990.     Unused: Longint;
  991.     Result: Longint;
  992.   end;
  993.  
  994.   TWMRButtonDblClk = TWMMouse;
  995.   TWMRButtonDown = TWMMouse;
  996.   TWMRButtonUp = TWMMouse;
  997.  
  998.   TWMRenderAllFormats = TWMNoParams;
  999.  
  1000.   TWMRenderFormat = record
  1001.     Msg: Cardinal;
  1002.     Format: Word;
  1003.     Unused: Longint;
  1004.     Result: Longint;
  1005.   end;
  1006.  
  1007.   TWMSetCursor = record
  1008.     Msg: Cardinal;
  1009.     CursorWnd: HWND;
  1010.     HitTest: Word;
  1011.     MouseMsg: Word;
  1012.     Result: Longint;
  1013.   end;
  1014.  
  1015.   TWMSetFocus = record
  1016.     Msg: Cardinal;
  1017.     FocusedWnd: HWND;
  1018.     Unused: Longint;
  1019.     Result: Longint;
  1020.   end;
  1021.  
  1022.   TWMSetFont = record
  1023.     Msg: Cardinal;
  1024.     Font: HFONT;
  1025.     Redraw: BOOL;
  1026.     Unused: Word;
  1027.     Result: Longint;
  1028.   end;
  1029.  
  1030.  
  1031.   TWMSetRedraw = record
  1032.     Msg: Cardinal;
  1033.     Redraw: Word;
  1034.     Unused: Longint;
  1035.     Result: Longint;
  1036.   end;
  1037.  
  1038.   TWMSetText = record
  1039.     Msg: Cardinal;
  1040.     Unused: Integer;
  1041.     Text: PChar;
  1042.     Result: Longint;
  1043.   end;
  1044.  
  1045.   TWMShowWindow = record
  1046.     Msg: Cardinal;
  1047.     Show: BOOL;
  1048.     Status: Word;
  1049.     Unused: Word;
  1050.     Result: Longint;
  1051.   end;
  1052.  
  1053.   TWMSize = record
  1054.     Msg: Cardinal;
  1055.     SizeType: Word;    { SIZE_MAXIMIZED, SIZE_MINIMIZED, SIZE_RESTORED,
  1056.                          SIZE_MAXHIDE, SIZE_MAXSHOW }
  1057.     Width: Word;
  1058.     Height: Word;
  1059.     Result: Longint;
  1060.   end;
  1061.  
  1062.   TWMSizeClipboard = record
  1063.     Msg: Cardinal;
  1064.     Viewer: HWND;
  1065.     RC: THandle;
  1066.     Unused: Word;
  1067.     Result: Longint;
  1068.   end;
  1069.  
  1070.   TWMSpoolerStatus = record
  1071.     Msg: Cardinal;
  1072.     JobStatus: Word;
  1073.     JobsLeft: Word;
  1074.     Unused: Word;
  1075.     Result: Longint;
  1076.   end;
  1077.  
  1078.   TWMSysChar = TWMKey;
  1079.   TWMSysColorChange = TWMNoParams;
  1080.  
  1081.   TWMSysCommand = record
  1082.     Msg: Cardinal;
  1083.     case CmdType: Word of
  1084.       SC_HOTKEY: (
  1085.         ActivateWnd: HWND;
  1086.         Unused1: Word);
  1087.       SC_KEYMENU: (
  1088.         Key: Word;
  1089.         Unused2: Word);
  1090.       SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE,
  1091.       SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE,
  1092.       SC_TASKLIST, SC_VSCROLL: (
  1093.         XPos: SmallInt;
  1094.         YPos: SmallInt;
  1095.         Result: Longint);
  1096.   end;
  1097.  
  1098.   TWMSysDeadChar = record
  1099.     Msg: Cardinal;
  1100.     DeadKey: Char; { !! should this be 16 bits? }
  1101.     Unused: Byte;
  1102.     RepeatCount: Integer;
  1103.     AutoRepeat: Word;
  1104.     Result: Longint;
  1105.   end;
  1106.  
  1107.   TWMSysKeyDown = TWMKey;
  1108.   TWMSysKeyUp = TWMKey;
  1109.  
  1110.   TWMSystemError = record  { !! not declared in WinTypes or WIN32 API }
  1111.     Msg: Cardinal;
  1112.     ErrSpec: Word;
  1113.     Unused: Longint;
  1114.     Result: Longint;
  1115.   end;
  1116.  
  1117.   TWMTimeChange = TWMNoParams;
  1118.  
  1119.   TWMTimer = record
  1120.     Msg: Cardinal;
  1121.     TimerID: Word;
  1122.     TimerProc: TFarProc;
  1123.     Result: Longint;
  1124.   end;
  1125.  
  1126.   TWMUndo = TWMNoParams;
  1127.  
  1128.   TWMVKeyToItem = TWMCharToItem;
  1129.  
  1130.   TWMVScroll = TWMScroll;
  1131.  
  1132.   TWMVScrollClipboard = record
  1133.     Msg: Cardinal;
  1134.     Viewer: HWND;
  1135.     ScollCode: Word;
  1136.     ThumbPos: Word;
  1137.     Result: Longint;
  1138.   end;
  1139.  
  1140.   TWMWindowPosChanged = TWMWindowPosMsg;
  1141.   TWMWindowPosChanging = TWMWindowPosMsg;
  1142.  
  1143.   TWMWinIniChange = record
  1144.     Msg: Cardinal;
  1145.     Unused: Integer;
  1146.     Section: PChar;
  1147.     Result: Longint;
  1148.   end;
  1149.  
  1150. implementation
  1151.