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