home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibylft1.zip / DOC.DAT / DOC / SPCC / MESSAGES.PAS < prev    next >
Pascal/Delphi Source File  |  1997-04-07  |  30KB  |  912 lines
  1. UNIT Messages;
  2.  
  3. INTERFACE
  4.  
  5. {$IFDEF OS2}
  6. USES Os2Def;
  7. {$ENDIF}
  8. {$IFDEF WIN95}
  9. USES WinDef,WinNT;
  10. {$ENDIF}
  11.  
  12. { Standard Window Messages }
  13.  
  14. {$IFDEF OS2}
  15. CONST
  16.      {Standard messages}
  17.      WM_NULL                  =$0000;
  18.      WM_CREATE                =$0001;
  19.      WM_DESTROY               =$0002;
  20.      WM_ENABLE                =$0004;
  21.      WM_SHOW                  =$0005;
  22.      WM_MOVE                  =$0006;
  23.      WM_SIZE                  =$0007;
  24.      WM_ADJUSTWINDOWPOS       =$0008;
  25.      WM_CALCVALIDRECTS        =$0009;
  26.      WM_SETWINDOWPARAMS       =$000a;
  27.      WM_QUERYWINDOWPARAMS     =$000b;
  28.      WM_HITTEST               =$000c;
  29.      WM_ACTIVATE              =$000d;
  30.      WM_SETFOCUS              =$000f;
  31.      WM_SETSELECTION          =$0010;
  32.      WM_PPAINT                =$0011;
  33.      WM_PSETFOCUS             =$0012;
  34.      WM_PSYSCOLORCHANGE       =$0013;
  35.      WM_PSIZE                 =$0014;
  36.      WM_PACTIVATE             =$0015;
  37.      WM_PCONTROL              =$0016;
  38.      WM_COMMAND               =$0020;
  39.      WM_SYSCOMMAND            =$0021;
  40.      WM_HELP                  =$0022;
  41.      WM_PAINT                 =$0023;
  42.      WM_TIMER                 =$0024;
  43.      WM_SEM1                  =$0025;
  44.      WM_SEM2                  =$0026;
  45.      WM_SEM3                  =$0027;
  46.      WM_SEM4                  =$0028;
  47.      WM_CLOSE                 =$0029;
  48.      WM_QUIT                  =$002a;
  49.      WM_SYSCOLORCHANGE        =$002b;
  50.      WM_SYSVALUECHANGED       =$002d;
  51.      WM_APPTERMINATENOTIFY    =$002e;
  52.      WM_PRESPARAMCHANGED      =$002f;
  53.  
  54.      { Control notification messages }
  55.      WM_CONTROL               =$0030;
  56.      WM_VSCROLL               =$0031;
  57.      WM_HSCROLL               =$0032;
  58.      WM_INITMENU              =$0033;
  59.      WM_MENUSELECT            =$0034;
  60.      WM_MENUEND               =$0035;
  61.      WM_DRAWITEM              =$0036;
  62.      WM_MEASUREITEM           =$0037;
  63.      WM_CONTROLPOINTER        =$0038;
  64.      WM_QUERYDLGCODE          =$003a;
  65.      WM_INITDLG               =$003b;
  66.      WM_SUBSTITUTESTRING      =$003c;
  67.      WM_MATCHMNEMONIC         =$003d;
  68.      WM_SAVEAPPLICATION       =$003e;
  69.  
  70.      { Frame window related messages }
  71.  
  72.      WM_FLASHWND           =$0040;
  73.      WM_FORMATFRAME           =$0041;
  74.      WM_UPDATEFRAME           =$0042;
  75.      WM_FOCUSCHANGE           =$0043;
  76.  
  77.      WM_SETBORDERSIZE         =$0044;
  78.      WM_TRACKFRAME            =$0045;
  79.      WM_MINMAXFRAME           =$0046;
  80.      WM_SETICON               =$0047;
  81.      WM_QUERYICON             =$0048;
  82.      WM_SETACCELTABLE         =$0049;
  83.      WM_QUERYACCELTABLE       =$004a;
  84.      WM_TRANSLATEACCEL        =$004b;
  85.      WM_QUERYTRACKINFO        =$004c;
  86.      WM_QUERYBORDERSIZE       =$004d;
  87.      WM_NEXTMENU              =$004e;
  88.      WM_ERASEBACKGROUND       =$004f;
  89.      WM_QUERYFRAMEINFO        =$0050;
  90.      WM_QUERYFOCUSCHAIN       =$0051;
  91.      WM_OWNERPOSCHANGE        =$0052;
  92.      WM_CALCFRAMERECT         =$0053;
  93.      WM_WINDOWPOSCHANGED      =$0055;
  94.      WM_ADJUSTFRAMEPOS        =$0056;
  95.      WM_QUERYFRAMECTLCOUNT    =$0059;
  96.      WM_QUERYHELPINFO         =$005B;
  97.      WM_SETHELPINFO           =$005C;
  98.      WM_ERROR                 =$005D;
  99.      WM_REALIZEPALETTE        =$005E;
  100.  
  101.      { Key/Character input messages }
  102.      WM_CHAR                  =$007a;
  103.      WM_VIOCHAR               =$007b;
  104.  
  105.      { Mouse input messages }
  106.      WM_MOUSEFIRST            =$0070;
  107.      WM_MOUSELAST             =$0079;
  108.      WM_BUTTONCLICKFIRST      =$0071;
  109.      WM_BUTTONCLICKLAST       =$0079;
  110.      WM_MOUSEMOVE             =$0070;
  111.      WM_BUTTON1DOWN           =$0071;
  112.      WM_BUTTON1UP             =$0072;
  113.      WM_BUTTON1DBLCLK         =$0073;
  114.      WM_BUTTON2DOWN           =$0074;
  115.      WM_BUTTON2UP             =$0075;
  116.      WM_BUTTON2DBLCLK         =$0076;
  117.      WM_BUTTON3DOWN           =$0077;
  118.      WM_BUTTON3UP             =$0078;
  119.      WM_BUTTON3DBLCLK         =$0079;
  120.      WM_MOUSEMAP              =$007D;
  121.      WM_EXTMOUSEFIRST         =$0410;
  122.      WM_EXTMOUSELAST          =$0419;
  123.      WM_CHORD                 =$0410;
  124.      WM_BUTTON1MOTIONSTART    =$0411;
  125.      WM_BUTTON1MOTIONEND      =$0412;
  126.      WM_BUTTON1CLICK          =$0413;
  127.      WM_BUTTON2MOTIONSTART    =$0414;
  128.      WM_BUTTON2MOTIONEND      =$0415;
  129.      WM_BUTTON2CLICK          =$0416;
  130.      WM_BUTTON3MOTIONSTART    =$0417;
  131.      WM_BUTTON3MOTIONEND      =$0418;
  132.      WM_BUTTON3CLICK          =$0419;
  133.      WM_MOUSETRANSLATEFIRST   =$0420;
  134.      WM_MOUSETRANSLATELAST    =$0428;
  135.      WM_BEGINDRAG             =$0420;
  136.      WM_ENDDRAG               =$0421;
  137.      WM_SINGLESELECT          =$0422;
  138.      WM_OPEN                  =$0423;
  139.      WM_CONTEXTMENU           =$0424;
  140.      WM_CONTEXTHELP           =$0425;
  141.      WM_TEXTEDIT              =$0426;
  142.      WM_BEGINSELECT           =$0427;
  143.      WM_ENDSELECT             =$0428;
  144.      WM_PENFIRST              =$04C0;
  145.      WM_PENLAST               =$04FF;
  146.      WM_MMPMFIRST             =$0500;
  147.      WM_MMPMLAST              =$05FF;
  148.  
  149.      WM_HELPBASE              =$0F00;  {Start of msgs for help manager}
  150.      WM_HELPTOP               =$0FFF;  { End of msgs for help manager }
  151.  
  152.      WM_USER                  =$1000;
  153.  
  154.      WM_MOUSEDRAG1            =$1001;  {own defined}
  155.      WM_MOUSEDRAG2            =$1002;  {own defined}
  156.  
  157.      WM_SPEED_USER            =$1003;  {use this entry when working with OPML !}
  158.  
  159.      WM_VRNDISABLED           =$007E;
  160.      WM_VRNENABLED            =$007F;
  161. {$ENDIF}
  162. {$IFDEF WIN95}
  163. CONST
  164.      {Standard Messages}
  165.      WM_NULL                         =$0000;
  166.      WM_CREATE                       =$0001;
  167.      WM_DESTROY                      =$0002;
  168.      WM_MOVE                         =$0003;
  169.      WM_SIZE                         =$0005;
  170.      WM_ACTIVATE                     =$0006;
  171.      WM_SETFOCUS                     =$0007;
  172.      WM_KILLFOCUS                    =$0008;
  173.      WM_ENABLE                       =$000A;
  174.      WM_SETREDRAW                    =$000B;
  175.      WM_SETTEXT                      =$000C;
  176.      WM_GETTEXT                      =$000D;
  177.      WM_GETTEXTLENGTH                =$000E;
  178.      WM_PAINT                        =$000F;
  179.      WM_CLOSE                        =$0010;
  180.      WM_QUERYENDSESSION              =$0011;
  181.      WM_QUIT                         =$0012;
  182.      WM_QUERYOPEN                    =$0013;
  183.      WM_ERASEBKGND                   =$0014;
  184.      WM_SYSCOLORCHANGE               =$0015;
  185.      WM_ENDSESSION                   =$0016;
  186.      WM_SHOWWINDOW                   =$0018;
  187.      WM_WININICHANGE                 =$001A;
  188.      WM_DEVMODECHANGE                =$001B;
  189.      WM_ACTIVATEAPP                  =$001C;
  190.      WM_FONTCHANGE                   =$001D;
  191.      WM_TIMECHANGE                   =$001E;
  192.      WM_CANCELMODE                   =$001F;
  193.      WM_SETCURSOR                    =$0020;
  194.      WM_MOUSEACTIVATE                =$0021;
  195.      WM_CHILDACTIVATE                =$0022;
  196.      WM_QUEUESYNC                    =$0023;
  197.      WM_GETMINMAXINFO                =$0024;
  198.      WM_PAINTICON                    =$0026;
  199.      WM_ICONERASEBKGND               =$0027;
  200.      WM_NEXTDLGCTL                   =$0028;
  201.      WM_SPOOLERSTATUS                =$002A;
  202.      WM_DRAWITEM                     =$002B;
  203.      WM_MEASUREITEM                  =$002C;
  204.      WM_DELETEITEM                   =$002D;
  205.      WM_VKEYTOITEM                   =$002E;
  206.      WM_CHARTOITEM                   =$002F;
  207.      WM_SETFONT                      =$0030;
  208.      WM_GETFONT                      =$0031;
  209.      WM_SETHOTKEY                    =$0032;
  210.      WM_GETHOTKEY                    =$0033;
  211.      WM_QUERYDRAGICON                =$0037;
  212.      WM_COMPAREITEM                  =$0039;
  213.      WM_COMPACTING                   =$0041;
  214.      WM_COMMNOTIFY                   =$0044;
  215.      WM_WINDOWPOSCHANGING            =$0046;
  216.      WM_WINDOWPOSCHANGED             =$0047;
  217.      WM_POWER                        =$0048;
  218.      WM_COPYDATA                     =$004A;
  219.      WM_CANCELJOURNAL                =$004B;
  220.      WM_GETICON                      =$007F;
  221.      WM_SETICON                      =$0080;
  222.      WM_NCCREATE                     =$0081;
  223.      WM_NCDESTROY                    =$0082;
  224.      WM_NCCALCSIZE                   =$0083;
  225.      WM_NCHITTEST                    =$0084;
  226.      WM_NCPAINT                      =$0085;
  227.      WM_NCACTIVATE                   =$0086;
  228.      WM_GETDLGCODE                   =$0087;
  229.      WM_NCMOUSEMOVE                  =$00A0;
  230.      WM_NCLBUTTONDOWN                =$00A1;
  231.      WM_NCLBUTTONUP                  =$00A2;
  232.      WM_NCLBUTTONDBLCLK              =$00A3;
  233.      WM_NCRBUTTONDOWN                =$00A4;
  234.      WM_NCRBUTTONUP                  =$00A5;
  235.      WM_NCRBUTTONDBLCLK              =$00A6;
  236.      WM_NCMBUTTONDOWN                =$00A7;
  237.      WM_NCMBUTTONUP                  =$00A8;
  238.      WM_NCMBUTTONDBLCLK              =$00A9;
  239.      WM_KEYFIRST                     =$0100;
  240.      WM_KEYDOWN                      =$0100;
  241.      WM_KEYUP                        =$0101;
  242.      WM_CHAR                         =$0102;
  243.      WM_DEADCHAR                     =$0103;
  244.      WM_SYSKEYDOWN                   =$0104;
  245.      WM_SYSKEYUP                     =$0105;
  246.      WM_SYSCHAR                      =$0106;
  247.      WM_SYSDEADCHAR                  =$0107;
  248.      WM_KEYLAST                      =$0108;
  249.      WM_INITDIALOG                   =$0110;
  250.      WM_COMMAND                      =$0111;
  251.      WM_SYSCOMMAND                   =$0112;
  252.      WM_TIMER                        =$0113;
  253.      WM_HSCROLL                      =$0114;
  254.      WM_VSCROLL                      =$0115;
  255.      WM_INITMENU                     =$0116;
  256.      WM_INITMENUPOPUP                =$0117;
  257.      WM_MENUSELECT                   =$011F;
  258.      WM_MENUCHAR                     =$0120;
  259.      WM_ENTERIDLE                    =$0121;
  260.      WM_CTLCOLORMSGBOX               =$0132;
  261.      WM_CTLCOLOREDIT                 =$0133;
  262.      WM_CTLCOLORLISTBOX              =$0134;
  263.      WM_CTLCOLORBTN                  =$0135;
  264.      WM_CTLCOLORDLG                  =$0136;
  265.      WM_CTLCOLORSCROLLBAR            =$0137;
  266.      WM_CTLCOLORSTATIC               =$0138;
  267.      WM_MOUSEFIRST                   =$0200;
  268.      WM_MOUSEMOVE                    =$0200;
  269.      WM_LBUTTONDOWN                  =$0201;
  270.      WM_LBUTTONUP                    =$0202;
  271.      WM_LBUTTONDBLCLK                =$0203;
  272.      WM_RBUTTONDOWN                  =$0204;
  273.      WM_RBUTTONUP                    =$0205;
  274.      WM_RBUTTONDBLCLK                =$0206;
  275.      WM_MBUTTONDOWN                  =$0207;
  276.      WM_MBUTTONUP                    =$0208;
  277.      WM_MBUTTONDBLCLK                =$0209;
  278.      WM_MOUSELAST                    =$0209;
  279.      WM_PARENTNOTIFY                 =$0210;
  280.      WM_ENTERMENULOOP                =$0211;
  281.      WM_EXITMENULOOP                 =$0212;
  282.      WM_MDICREATE                    =$0220;
  283.      WM_MDIDESTROY                   =$0221;
  284.      WM_MDIACTIVATE                  =$0222;
  285.      WM_MDIRESTORE                   =$0223;
  286.      WM_MDINEXT                      =$0224;
  287.      WM_MDIMAXIMIZE                  =$0225;
  288.      WM_MDITILE                      =$0226;
  289.      WM_MDICASCADE                   =$0227;
  290.      WM_MDIICONARRANGE               =$0228;
  291.      WM_MDIGETACTIVE                 =$0229;
  292.      WM_MDISETMENU                   =$0230;
  293.      WM_DROPFILES                    =$0233;
  294.      WM_MDIREFRESHMENU               =$0234;
  295.      WM_CUT                          =$0300;
  296.      WM_COPY                         =$0301;
  297.      WM_PASTE                        =$0302;
  298.      WM_CLEAR                        =$0303;
  299.      WM_UNDO                         =$0304;
  300.      WM_RENDERFORMAT                 =$0305;
  301.      WM_RENDERALLFORMATS             =$0306;
  302.      WM_DESTROYCLIPBOARD             =$0307;
  303.      WM_DRAWCLIPBOARD                =$0308;
  304.      WM_PAINTCLIPBOARD               =$0309;
  305.      WM_VSCROLLCLIPBOARD             =$030A;
  306.      WM_SIZECLIPBOARD                =$030B;
  307.      WM_ASKCBFORMATNAME              =$030C;
  308.      WM_CHANGECBCHAIN                =$030D;
  309.      WM_HSCROLLCLIPBOARD             =$030E;
  310.      WM_QUERYNEWPALETTE              =$030F;
  311.      WM_PALETTEISCHANGING            =$0310;
  312.      WM_PALETTECHANGED               =$0311;
  313.      WM_HOTKEY                       =$0312;
  314.      WM_PENWINFIRST                  =$0380;
  315.      WM_PENWINLAST                   =$038F;
  316.      WM_USER                         =$0400;
  317.  
  318.      WM_MOUSEDRAG1                   =$0401;  {own defined}
  319.      WM_MOUSEDRAG2                   =$0402;  {own defined}
  320.  
  321.      WM_SPEED_USER                   =$0403;  {use this entry when working with OPML !}
  322. {$ENDIF}
  323.  
  324.  
  325. { Button notification codes }
  326.  
  327. {$IFDEF OS2}
  328. CONST
  329.     BN_CLICKED                 =1;
  330.     BN_DBLCLICKED              =2;
  331.     BN_PAINT                   =3;
  332. {$ENDIF}
  333. {$IFDEF WIN95}
  334. CONST
  335.     BN_CLICKED          =0;
  336.     BN_PAINT            =1;
  337.     BN_HILITE           =2;
  338.     BN_UNHILITE         =3;
  339.     BN_DISABLE          =4;
  340.     BN_DOUBLECLICKED    =5;
  341. {$ENDIF}
  342.  
  343. { Button control messages }
  344.  
  345. {$IFDEF OS2}
  346. CONST
  347.     BM_CLICK                   =$0120;
  348.     BM_QUERYCHECKINDEX         =$0121;
  349.     BM_QUERYHILITE             =$0122;
  350.     BM_SETHILITE               =$0123;
  351.     BM_QUERYCHECK              =$0124;
  352.     BM_SETCHECK                =$0125;
  353.     BM_SETDEFAULT              =$0126;
  354. {$ENDIF}
  355. {$IFDEF WIN95}
  356. CONST
  357.     BM_GETCHECK        =$00F0;
  358.     BM_SETCHECK        =$00F1;
  359.     BM_GETSTATE        =$00F2;
  360.     BM_SETSTATE        =$00F3;
  361.     BM_SETSTYLE        =$00F4;
  362. {$ENDIF}
  363.  
  364. { List box notification messages }
  365.  
  366. {$IFDEF OS2}
  367. CONST
  368.     LN_SELECT                  =1;
  369.     LN_SETFOCUS                =2;
  370.     LN_KILLFOCUS               =3;
  371.     LN_SCROLL                  =4;
  372.     LN_ENTER                   =5;
  373. {$ENDIF}
  374. {$IFDEF WIN95}
  375. CONST
  376.     LBN_ERRSPACE        =-2;
  377.     LBN_SELCHANGE       =1;
  378.     LBN_DBLCLK          =2;
  379.     LBN_SELCANCEL       =3;
  380.     LBN_SETFOCUS        =4;
  381.     LBN_KILLFOCUS       =5;
  382. {$ENDIF}
  383.  
  384. { List box messages }
  385.  
  386. {$IFDEF OS2}
  387. CONST
  388.    LM_QUERYITEMCOUNT          =$0160;
  389.    LM_INSERTITEM              =$0161;
  390.    LM_SETTOPINDEX             =$0162;
  391.    LM_DELETEITEM              =$0163;
  392.    LM_SELECTITEM              =$0164;
  393.    LM_QUERYSELECTION          =$0165;
  394.    LM_SETITEMTEXT             =$0166;
  395.    LM_QUERYITEMTEXTLENGTH     =$0167;
  396.    LM_QUERYITEMTEXT           =$0168;
  397.  
  398.    LM_SETITEMHANDLE           =$0169;
  399.    LM_QUERYITEMHANDLE         =$016a;
  400.    LM_SEARCHSTRING            =$016b;
  401.    LM_SETITEMHEIGHT           =$016c;
  402.    LM_QUERYTOPINDEX           =$016d;
  403.    LM_DELETEALL               =$016e;
  404.    LM_INSERTMULTITEMS         =$016f;
  405.    LM_SETITEMWIDTH            =$0660;
  406. {$ENDIF}
  407. {$IFDEF WIN95}
  408. CONST
  409.      LB_ADDSTRING            =$0180;
  410.      LB_INSERTSTRING         =$0181;
  411.      LB_DELETESTRING         =$0182;
  412.      LB_SELITEMRANGEEX       =$0183;
  413.      LB_RESETCONTENT         =$0184;
  414.      LB_SETSEL               =$0185;
  415.      LB_SETCURSEL            =$0186;
  416.      LB_GETSEL               =$0187;
  417.      LB_GETCURSEL            =$0188;
  418.      LB_GETTEXT              =$0189;
  419.      LB_GETTEXTLEN           =$018A;
  420.      LB_GETCOUNT             =$018B;
  421.      LB_SELECTSTRING         =$018C;
  422.      LB_DIR                  =$018D;
  423.      LB_GETTOPINDEX          =$018E;
  424.      LB_FINDSTRING           =$018F;
  425.      LB_GETSELCOUNT          =$0190;
  426.      LB_GETSELITEMS          =$0191;
  427.      LB_SETTABSTOPS          =$0192;
  428.      LB_GETHORIZONTALEXTENT  =$0193;
  429.      LB_SETHORIZONTALEXTENT  =$0194;
  430.      LB_SETCOLUMNWIDTH       =$0195;
  431.      LB_ADDFILE              =$0196;
  432.      LB_SETTOPINDEX          =$0197;
  433.      LB_GETITEMRECT          =$0198;
  434.      LB_GETITEMDATA          =$0199;
  435.      LB_SETITEMDATA          =$019A;
  436.      LB_SELITEMRANGE         =$019B;
  437.      LB_SETANCHORINDEX       =$019C;
  438.      LB_GETANCHORINDEX       =$019D;
  439.      LB_SETCARETINDEX        =$019E;
  440.      LB_GETCARETINDEX        =$019F;
  441.      LB_SETITEMHEIGHT        =$01A0;
  442.      LB_GETITEMHEIGHT        =$01A1;
  443.      LB_FINDSTRINGEXACT      =$01A2;
  444.      LB_SETLOCALE            =$01A5;
  445.      LB_GETLOCALE            =$01A6;
  446.      LB_SETCOUNT             =$01A7;
  447.      LB_MSGMAX               =$01A8;
  448. {$ENDIF}
  449.  
  450. { Combo Box Notification Codes }
  451.  
  452. {$IFDEF OS2}
  453. CONST
  454.     CBN_EFCHANGE               =1;
  455.     CBN_EFSCROLL               =2;
  456.     CBN_MEMERROR               =3;
  457.     CBN_LBSELECT               =4;
  458.     CBN_LBSCROLL               =5;
  459.     CBN_SHOWLIST               =6;
  460.     CBN_ENTER                  =7;
  461. {$ENDIF}
  462. {$IFDEF WIN95}
  463. CONST
  464.     CBN_ERRSPACE        =-1;
  465.     CBN_SELCHANGE       =1;
  466.     CBN_DBLCLK          =2;
  467.     CBN_SETFOCUS        =3;
  468.     CBN_KILLFOCUS       =4;
  469.     CBN_EDITCHANGE      =5;
  470.     CBN_EDITUPDATE      =6;
  471.     CBN_DROPDOWN        =7;
  472.     CBN_CLOSEUP         =8;
  473.     CBN_SELENDOK        =9;
  474.     CBN_SELENDCANCEL    =10;
  475. {$ENDIF}
  476.  
  477. { Combo Box messages }
  478.  
  479. {$IFDEF OS2}
  480. CONST
  481.     CBM_SHOWLIST               =$0170;
  482.     CBM_HILITE                 =$0171;
  483.     CBM_ISLISTSHOWING          =$0172;
  484. {$ENDIF}
  485. {$IFDEF WIN95}
  486. CONST
  487.      CB_GETEDITSEL               =$0140;
  488.      CB_LIMITTEXT                =$0141;
  489.      CB_SETEDITSEL               =$0142;
  490.      CB_ADDSTRING                =$0143;
  491.      CB_DELETESTRING             =$0144;
  492.      CB_DIR                      =$0145;
  493.      CB_GETCOUNT                 =$0146;
  494.      CB_GETCURSEL                =$0147;
  495.      CB_GETLBTEXT                =$0148;
  496.      CB_GETLBTEXTLEN             =$0149;
  497.      CB_INSERTSTRING             =$014A;
  498.      CB_RESETCONTENT             =$014B;
  499.      CB_FINDSTRING               =$014C;
  500.      CB_SELECTSTRING             =$014D;
  501.      CB_SETCURSEL                =$014E;
  502.      CB_SHOWDROPDOWN             =$014F;
  503.      CB_GETITEMDATA              =$0150;
  504.      CB_SETITEMDATA              =$0151;
  505.      CB_GETDROPPEDCONTROLRECT    =$0152;
  506.      CB_SETITEMHEIGHT            =$0153;
  507.      CB_GETITEMHEIGHT            =$0154;
  508.      CB_SETEXTENDEDUI            =$0155;
  509.      CB_GETEXTENDEDUI            =$0156;
  510.      CB_GETDROPPEDSTATE          =$0157;
  511.      CB_FINDSTRINGEXACT          =$0158;
  512.      CB_SETLOCALE                =$0159;
  513.      CB_GETLOCALE                =$015A;
  514.      CB_MSGMAX                   =$015B;
  515. {$ENDIF}
  516.  
  517. { Entry Field notification messages }
  518.  
  519. {$IFDEF OS2}
  520. CONST
  521.     EN_SETFOCUS                =$0001;
  522.     EN_KILLFOCUS               =$0002;
  523.     EN_CHANGE                  =$0004;
  524.     EN_SCROLL                  =$0008;
  525.     EN_MEMERROR                =$0010;
  526.     EN_OVERFLOW                =$0020;
  527.     EN_INSERTMODETOGGLE        =$0040;
  528. {$ENDIF}
  529. {$IFDEF WIN95}
  530. CONST
  531.      EN_SETFOCUS         =$0100;
  532.      EN_KILLFOCUS        =$0200;
  533.      EN_CHANGE           =$0300;
  534.      EN_UPDATE           =$0400;
  535.      EN_ERRSPACE         =$0500;
  536.      EN_MAXTEXT          =$0501;
  537.      EN_HSCROLL          =$0601;
  538.      EN_VSCROLL          =$0602;
  539. {$ENDIF}
  540.  
  541. { Entry Field  messages }
  542.  
  543. {$IFDEF OS2}
  544. CONST
  545.     EM_QUERYCHANGED            =$0140;
  546.     EM_QUERYSEL                =$0141;
  547.     EM_SETSEL                  =$0142;
  548.     EM_SETTEXTLIMIT            =$0143;
  549.  
  550.     EM_CUT                     =$0144;
  551.     EM_COPY                    =$0145;
  552.     EM_CLEAR                   =$0146;
  553.     EM_PASTE                   =$0147;
  554.     EM_QUERYFIRSTCHAR          =$0148;
  555.     EM_SETFIRSTCHAR            =$0149;
  556.     EM_QUERYREADONLY           =$014a;
  557.     EM_SETREADONLY             =$014b;
  558.     EM_SETINSERTMODE           =$014c;
  559. {$ENDIF}
  560. {$IFDEF WIN95}
  561. CONST
  562.      EM_GETSEL               =$00B0;
  563.      EM_SETSEL               =$00B1;
  564.      EM_GETRECT              =$00B2;
  565.      EM_SETRECT              =$00B3;
  566.      EM_SETRECTNP            =$00B4;
  567.      EM_SCROLL               =$00B5;
  568.      EM_LINESCROLL           =$00B6;
  569.      EM_SCROLLCARET          =$00B7;
  570.      EM_GETMODIFY            =$00B8;
  571.      EM_SETMODIFY            =$00B9;
  572.      EM_GETLINECOUNT         =$00BA;
  573.      EM_LINEINDEX            =$00BB;
  574.      EM_SETHANDLE            =$00BC;
  575.      EM_GETHANDLE            =$00BD;
  576.      EM_GETTHUMB             =$00BE;
  577.      EM_LINELENGTH           =$00C1;
  578.      EM_REPLACESEL           =$00C2;
  579.      EM_GETLINE              =$00C4;
  580.      EM_LIMITTEXT            =$00C5;
  581.      EM_CANUNDO              =$00C6;
  582.      EM_UNDO                 =$00C7;
  583.      EM_FMTLINES             =$00C8;
  584.      EM_LINEFROMCHAR         =$00C9;
  585.      EM_SETTABSTOPS          =$00CB;
  586.      EM_SETPASSWORDCHAR      =$00CC;
  587.      EM_EMPTYUNDOBUFFER      =$00CD;
  588.      EM_GETFIRSTVISIBLELINE  =$00CE;
  589.      EM_SETREADONLY          =$00CF;
  590.      EM_SETWORDBREAKPROC     =$00D0;
  591.      EM_GETWORDBREAKPROC     =$00D1;
  592.      EM_GETPASSWORDCHAR      =$00D2;
  593. {$ENDIF}
  594.  
  595. { Scroll Bar messages }
  596.  
  597. {$IFDEF OS2}
  598. CONST
  599.    SBM_SETSCROLLBAR           =$01a0;
  600.    SBM_SETPOS                 =$01a1;
  601.    SBM_QUERYPOS               =$01a2;
  602.    SBM_QUERYRANGE             =$01a3;
  603.    SBM_SETTHUMBSIZE           =$01a6;
  604. {$ENDIF}
  605. {$IFDEF WIN95}
  606. CONST
  607.      SBM_SETPOS                  =$00E0;
  608.      SBM_GETPOS                  =$00E1;
  609.      SBM_SETRANGE                =$00E2;
  610.      SBM_GETRANGE                =$00E3;
  611.      SBM_ENABLE_ARROWS           =$00E4;
  612.      SBM_SETRANGEREDRAW          =$00E6;
  613.      SBM_SETSCROLLINFO           =$00E9;
  614.      SBM_GETSCROLLINFO           =$00EA;
  615. {$ENDIF}
  616.  
  617. { WM_CREATE structure }
  618.  
  619. {$IFDEF OS2}
  620. TYPE
  621.     PCREATESTRUCT=^CREATESTRUCT;
  622.     CREATESTRUCT=RECORD
  623.                      pPresParams:PVOID;
  624.                      pCtlData:PVOID;
  625.                      id:ULONG;
  626.                      hwndInsertBehind:HWND;
  627.                      hwndOwner:HWND;
  628.                      cy:LONG;
  629.                      cx:LONG;
  630.                      y:LONG;
  631.                      x:LONG;
  632.                      flStyle:ULONG;
  633.                      pszText:PChar;
  634.                      pszClass:PChar;
  635.                      hwndParent:HWND;
  636.                 END;
  637. {$ENDIF}
  638. {$IFDEF WIN95}
  639. TYPE
  640.     PCREATESTRUCT=^CREATESTRUCT;
  641.     CREATESTRUCT=RECORD
  642.                        lpCreateParams:POINTER;
  643.                        hInstance:HINSTANCE;
  644.                        hMenu:HMENU;
  645.                        hwndParent:HWND;
  646.                        cy:LONGINT;
  647.                        cx:LONGINT;
  648.                        y:LONGINT;
  649.                        x:LONGINT;
  650.                        style:LONG;
  651.                        lpszName:PChar;
  652.                        lpszClass:PChar;
  653.                        dwExStyle:ULONG;
  654.     END;
  655.     LPCREATESTRUCT=PCREATESTRUCT;
  656. {$ENDIF}
  657.  
  658. { Common message format records }
  659.  
  660. TYPE
  661.     {$M+}
  662.     TWMNoParams=RECORD
  663.     {$M-}
  664.             Msg:LONGWORD;
  665.             ReceiverClass: TObject;
  666.             Receiver: HWND;
  667.             Handled: LONGBOOL;  {True if the message was handled}
  668.             Unused:array[0..1] of LONGWORD;
  669.             Result:LONGWORD;
  670.     END;
  671.  
  672.     {$M+}
  673.     TWMScroll=RECORD  {WM_HSCROLL,WM_VSCROLL}
  674.     {$M-}
  675.              Msg:LONGWORD;
  676.              ReceiverClass: TObject;
  677.              Receiver: HWND;
  678.              Handled: LONGBOOL;  {True if the message was handled}
  679.              {$IFDEF OS2}
  680.              ScrollBarId:LONGINT;
  681.              Pos:SmallInt;
  682.              ScrollCode:SmallInt;  //SB_xxxx
  683.              {$ENDIF}
  684.              {$IFDEF WIN95}
  685.              ScrollCode:SmallInt;  //SB_xxxx
  686.              Pos:SmallInt;
  687.              ScrollBar:HWND;
  688.              {$ENDIF}
  689.              Result: LONGWORD;
  690.     END;
  691.  
  692. TYPE
  693.     {$M+}
  694.     TWMActivate=RECORD  {WM_ACTIVATE}
  695.     {$M-}
  696.              Msg:LONGWORD;
  697.              ReceiverClass: TObject;
  698.              Receiver: HWND;
  699.              Handled: LONGBOOL;  {True if the message was handled}
  700.              {$IFDEF OS2}
  701.              Active:WordBool;
  702.              Unused:WORD;
  703.              ActiveWindow:HWND;
  704.              {$ENDIF}
  705.              {$IFDEF WIN95}
  706.              Active:Word;    //WA_INACTIVE, WA_ACTIVE, WA_CLICKACTIVE
  707.              Minimized:WordBool;
  708.              ActiveWindow:HWND;
  709.              {$ENDIF}
  710.              Result: LONGWORD;
  711.     END;
  712.  
  713. TYPE
  714.     {$M+}
  715.     TWMCommand=RECORD  {WM_COMMAND}
  716.     {$M-}
  717.              Msg:LONGWORD;
  718.              ReceiverClass: TObject;
  719.              Receiver: HWND;
  720.              Handled: LONGBOOL;  {True if the message was handled}
  721.              {$IFDEF OS2}
  722.              ItemID:WORD;
  723.              Unused:WORD;
  724.              NotifyCode:WORD;  //CMDSRC_xxx
  725.              Pointer:WordBool;
  726.              {$ENDIF}
  727.              {$IFDEF WIN95}
  728.              ItemID:WORD;
  729.              NotifyCode:WORD;
  730.              Ctl:HWND;
  731.              {$ENDIF}
  732.              Result: LONGWORD;
  733.     END;
  734.  
  735. TYPE
  736.     {$M+}
  737.     TWMCreate=RECORD  {WM_CREATE}
  738.     {$M-}
  739.              Msg:LONGWORD;
  740.              ReceiverClass: TObject;
  741.              Receiver: HWND;
  742.              Handled: LONGBOOL;  {True if the message was handled}
  743.              {$IFDEF OS2}
  744.              CtlData:POINTER;
  745.              CreateStruct:PCreateStruct;
  746.              {$ENDIF}
  747.              {$IFDEF WIN95}
  748.              Unused:LONGINT;
  749.              CreateStruct:PCreateStruct;
  750.              {$ENDIF}
  751.              Result: LONGWORD;
  752.     END;
  753.  
  754.  
  755. TYPE
  756.     {$M+}
  757.     TWMMouse=RECORD
  758.     {$M-}
  759.              Msg:LONGWORD;
  760.              ReceiverClass: TObject;
  761.              Receiver: HWND;
  762.              Handled: LONGBOOL;  {True if the message was handled}
  763.              {$IFDEF OS2}
  764.              XPos:SmallInt;
  765.              YPos:SmallInt;
  766.              HitTest:WORD;
  767.              Keys:WORD;
  768.              {$ENDIF}
  769.              {$IFDEF WIN95}
  770.              Keys:LONGINT;
  771.              XPos:SmallInt;
  772.              YPos:SmallInt;
  773.              {$ENDIF}
  774.              Result: LONGWORD;
  775.     END;
  776.  
  777.     TWMLButtonDblClk = TWMMouse;
  778.     TWMLButtonDown   = TWMMouse;
  779.     TWMLButtonUp     = TWMMouse;
  780.     TWMMButtonDblClk = TWMMouse;
  781.     TWMMButtonDown   = TWMMouse;
  782.     TWMMButtonUp     = TWMMouse;
  783.     TWMRButtonDblClk = TWMMouse;
  784.     TWMRButtonDown   = TWMMouse;
  785.     TWMRButtonUp     = TWMMouse;
  786.     TWMButton1Click  = TWMMouse;
  787.     TWMButton1DblClk = TWMMouse;
  788.     TWMButton1Down   = TWMMouse;
  789.     TWMButton1Up     = TWMMouse;
  790.     TWMButton3Click  = TWMMouse;
  791.     TWMButton3DblClk = TWMMouse;
  792.     TWMButton3Down   = TWMMouse;
  793.     TWMButton3Up     = TWMMouse;
  794.     TWMButton2Click  = TWMMouse;
  795.     TWMButton2DblClk = TWMMouse;
  796.     TWMButton2Down   = TWMMouse;
  797.     TWMButton2Up     = TWMMouse;
  798.     TWMMouseMove     = TWMMouse;
  799.  
  800. TYPE
  801.     {$M+}
  802.     TWMKey=RECORD
  803.     {$M-}
  804.              Msg:LONGWORD;
  805.              ReceiverClass: TObject;
  806.              Receiver: HWND;
  807.              Handled: LONGBOOL;  {True if the message was handled}
  808.              {$IFDEF OS2}
  809.              KeyData:WORD;
  810.              RepeatCount:BYTE;
  811.              ScanCode:BYTE;
  812.              CharCode:WORD;
  813.              VirtualKeyCode:WORD;
  814.              {$ENDIF}
  815.              {$IFDEF WIN95}
  816.              CharCode:WORD;
  817.              Unused:WORD;
  818.              KeyData:LONGINT;
  819.              {$ENDIF}
  820.              Result: LONGWORD;
  821.     END;
  822.  
  823.     TWMChar=TWMKey;
  824.  
  825.     TWMClose   = TWMNoParams;
  826.     TWMDestroy = TWMNoParams;
  827.  
  828. TYPE
  829.     {$M+}
  830.     TWMSetFocus=RECORD
  831.     {$M-}
  832.              Msg:LONGWORD;
  833.              ReceiverClass: TObject;
  834.              Receiver: HWND;
  835.              Handled: LONGBOOL;  {True if the message was handled}
  836.              {$IFDEF OS2}
  837.              FocusedWnd:HWND;
  838.              Focus:WordBool;
  839.              Unused:WORD;
  840.              {$ENDIF}
  841.              {$IFDEF WIN95}
  842.              FocusedWnd:HWND;
  843.              Unused:LONGWORD;
  844.              {$ENDIF}
  845.              Result: LONGWORD;
  846.     END;
  847.  
  848. TYPE
  849.     {$M+}
  850.     TWMSize=RECORD
  851.     {$M-}
  852.              Msg:LONGWORD;
  853.              ReceiverClass: TObject;
  854.              Receiver: HWND;
  855.              Handled: LONGBOOL;  {True if the message was handled}
  856.              {$IFDEF OS2}
  857.              OldWidth:SmallInt;
  858.              OldHeight:SmallInt;
  859.              Width:SmallInt;
  860.              Height:SmallInt;
  861.              {$ENDIF}
  862.              {$IFDEF WIN95}
  863.              SizeType:LONGINT; { SIZE_MAXIMIZED, SIZE_MINIMIZED, SIZE_RESTORED,
  864.                                  SIZE_MAXHIDE, SIZE_MAXSHOW }
  865.              Width:SmallInt;
  866.              Height:SmallInt;
  867.              {$ENDIF}
  868.              Result: LONGWORD;
  869.     END;
  870.  
  871. TYPE
  872.     {$M+}
  873.     TWMMove=RECORD
  874.     {$M-}
  875.              Msg:LONGWORD;
  876.              ReceiverClass: TObject;
  877.              Receiver: HWND;
  878.              Handled: LONGBOOL;  {True if the message was handled}
  879.              {$IFDEF OS2}
  880.              Unused:ARRAY[0..1] OF LONGWORD;
  881.              {$ENDIF}
  882.              {$IFDEF WIN95}
  883.              Unused:LONGINT;
  884.              XPos:SmallInt;
  885.              YPos:SmallInt;
  886.              {$ENDIF}
  887.              Result: LONGWORD;
  888.     END;
  889.  
  890. TYPE
  891.     {$M+}
  892.     TWMTimer=RECORD
  893.     {$M-}
  894.              Msg:LONGWORD;
  895.              ReceiverClass: TObject;
  896.              Receiver: HWND;
  897.              Handled: LONGBOOL;  {True if the message was handled}
  898.              {$IFDEF OS2}
  899.              TimerID:WORD;
  900.              Unused:ARRAY[0..2] OF WORD;
  901.              {$ENDIF}
  902.              {$IFDEF WIN95}
  903.              TimerID:LONGINT;
  904.              Unused:LONGWORD;
  905.              {$ENDIF}
  906.              Result: LONGWORD;
  907.     END;
  908.  
  909. IMPLEMENTATION
  910.  
  911.  
  912.