source: trunk/Sibyl/SPCC/MESSAGES.PAS@ 201

Last change on this file since 201 was 7, checked in by RBRi, 19 years ago

+ sibyl staff
  • Property svn:eol-style set to native
File size: 28.6 KB
Line 
1
2{ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
3 º º
4 º Sibyl Portable Component Classes º
5 º º
6 º Copyright (C) 1995,97 SpeedSoft Germany, All rights reserved. º
7 º º
8 ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍŒ}
9
10UNIT Messages;
11
12INTERFACE
13
14{$IFDEF OS2}
15USES Os2Def;
16{$ENDIF}
17{$IFDEF WIN95}
18USES WinDef,WinNT;
19{$ENDIF}
20
21{ Standard Window Messages }
22
23{$IFDEF OS2}
24CONST
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}
172CONST
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}
337CONST
338 BN_CLICKED =1;
339 BN_DBLCLICKED =2;
340 BN_PAINT =3;
341{$ENDIF}
342{$IFDEF WIN95}
343CONST
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}
355CONST
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}
365CONST
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}
376CONST
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}
384CONST
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}
396CONST
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}
417CONST
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}
462CONST
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}
472CONST
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}
489CONST
490 CBM_SHOWLIST =$0170;
491 CBM_HILITE =$0171;
492 CBM_ISLISTSHOWING =$0172;
493{$ENDIF}
494{$IFDEF WIN95}
495CONST
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}
529CONST
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}
539CONST
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}
553CONST
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}
570CONST
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}
607CONST
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}
615CONST
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}
629TYPE
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}
648TYPE
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
669TYPE
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
701TYPE
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
722TYPE
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
744TYPE
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
764TYPE
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
809TYPE
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
837TYPE
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
857TYPE
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
880TYPE
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
899TYPE
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
918IMPLEMENTATION
919
920END.
Note: See TracBrowser for help on using the repository browser.