source: 2.19_branch/Sibyl/RTL/BSESUB.PAS@ 376

Last change on this file since 376 was 8, checked in by RBRi, 19 years ago

+ rest of sibyl stuff
  • Property svn:eol-style set to native
File size: 27.3 KB
Line 
1UNIT BseSub;
2
3
4{**************************************************************************
5* *
6* Module Name: BSEDEV.PAS *
7* *
8* OS/2 Structures and constants for KBD,VIO and MOU 16 Bit API's *
9* *
10* Important Note: When using this function you need the 'KBDVIO32'.DLL ! *
11* *
12***************************************************************************}
13
14
15INTERFACE
16
17USES Os2Def;
18
19TYPE
20 PHKBD=^HKBD;
21 HKBD=LONGWORD;
22
23CONST
24
25 KR_KBDCHARIN =$00000001;
26 KR_KBDPEEK =$00000002;
27 KR_KBDFLUSHBUFFER =$00000004;
28 KR_KBDGETSTATUS =$00000008;
29 KR_KBDSETSTATUS =$00000010;
30 KR_KBDSTRINGIN =$00000020;
31 KR_KBDOPEN =$00000040;
32 KR_KBDCLOSE =$00000080;
33 KR_KBDGETFOCUS =$00000100;
34 KR_KBDFREEFOCUS =$00000200;
35 KR_KBDGETCP =$00000400;
36 KR_KBDSETCP =$00000800;
37 KR_KBDXLATE =$00001000;
38 KR_KBDSETCUSTXT =$00002000;
39
40 IO_WAIT =0;
41 IO_NOWAIT =1;
42
43 {KBDKEYINFO structure, for KbdCharIn and KbdPeek }
44TYPE
45 PKBDKEYINFO=^KBDKEYINFO;
46 KBDKEYINFO=RECORD {pack 2}
47 chChar:CHAR;
48 chScan:BYTE;
49 fbStatus:BYTE;
50 bNlsShift:BYTE;
51 fsState:WORD;
52 time:ULONG;
53 END;
54
55
56 { structure for KbdStringIn }
57TYPE
58 PSTRINGINBUF=^STRINGINBUF;
59 STRINGINBUF=RECORD
60 cb:WORD;
61 cchIn:WORD;
62 END;
63
64CONST
65 { KBDINFO.fsMask }
66 KEYBOARD_ECHO_ON =$0001;
67 KEYBOARD_ECHO_OFF =$0002;
68 KEYBOARD_BINARY_MODE =$0004;
69 KEYBOARD_ASCII_MODE =$0008;
70 KEYBOARD_MODIFY_STATE =$0010;
71 KEYBOARD_MODIFY_INTERIM =$0020;
72 KEYBOARD_MODIFY_TURNAROUND =$0040;
73 KEYBOARD_2B_TURNAROUND =$0080;
74 KEYBOARD_SHIFT_REPORT =$0100;
75
76 { KBDINFO.fsState/KBDKEYINFO.fsState/KBDTRANS.fsState }
77 KBDSTF_RIGHTSHIFT =$0001;
78 KBDSTF_LEFTSHIFT =$0002;
79 KBDSTF_CONTROL =$0004;
80 KBDSTF_ALT =$0008;
81 KBDSTF_SCROLLLOCK_ON =$0010;
82 KBDSTF_NUMLOCK_ON =$0020;
83 KBDSTF_CAPSLOCK_ON =$0040;
84 KBDSTF_INSERT_ON =$0080;
85 KBDSTF_LEFTCONTROL =$0100;
86 KBDSTF_LEFTALT =$0200;
87 KBDSTF_RIGHTCONTROL =$0400;
88 KBDSTF_RIGHTALT =$0800;
89 KBDSTF_SCROLLLOCK =$1000;
90 KBDSTF_NUMLOCK =$2000;
91 KBDSTF_CAPSLOCK =$4000;
92 KBDSTF_SYSREQ =$8000;
93
94 { KBDINFO structure, for KbdSet/GetStatus }
95TYPE
96 KBDINFO=RECORD
97 cb:WORD;
98 fsMask:WORD;
99 chTurnAround:WORD;
100 fsInterim:WORD;
101 fsState:WORD;
102 END;
103
104
105 { structure for KbdGetHWID }
106TYPE
107 PKBDHWID=^KBDHWID;
108 KBDHWID=RECORD
109 cb:WORD;
110 idKbd:WORD;
111 usReserved1:WORD;
112 usReserved2:WORD;
113 END;
114
115CONST
116 { KBDTRANS.fbStatus }
117 KBDTRF_SHIFT_KEY_IN =$01;
118 KBDTRF_CONVERSION_REQUEST =$20;
119 KBDTRF_FINAL_CHAR_IN =$40;
120 KBDTRF_INTERIM_CHAR_IN =$80;
121
122 { structure for KbdXlate }
123TYPE
124 PKBDTRANS=^KBDTRANS;
125 KBDTRANS=RECORD {pack 2}
126 chChar:CHAR;
127 chScan:BYTE;
128 fbStatus:BYTE;
129 bNlsShift:BYTE;
130 fsState:WORD;
131 time:ULONG;
132 fsDD:WORD;
133 fsXlate:WORD;
134 fsShift:WORD;
135 sZero:WORD;
136 END;
137
138TYPE
139 PHVIO=^HVIO;
140 HVIO=LONGWORD;
141
142 { first parameter registration constants }
143CONST
144 VR_VIOGETCURPOS =$00000001;
145 VR_VIOGETCURTYPE =$00000002;
146 VR_VIOGETMODE =$00000004;
147 VR_VIOGETBUF =$00000008;
148 VR_VIOGETPHYSBUF =$00000010;
149 VR_VIOSETCURPOS =$00000020;
150 VR_VIOSETCURTYPE =$00000040;
151 VR_VIOSETMODE =$00000080;
152 VR_VIOSHOWBUF =$00000100;
153 VR_VIOREADCHARSTR =$00000200;
154 VR_VIOREADCELLSTR =$00000400;
155 VR_VIOWRTNCHAR =$00000800;
156 VR_VIOWRTNATTR =$00001000;
157 VR_VIOWRTNCELL =$00002000;
158 VR_VIOWRTTTY =$00004000;
159 VR_VIOWRTCHARSTR =$00008000;
160
161 VR_VIOWRTCHARSTRATT =$00010000;
162 VR_VIOWRTCELLSTR =$00020000;
163 VR_VIOSCROLLUP =$00040000;
164 VR_VIOSCROLLDN =$00080000;
165 VR_VIOSCROLLLF =$00100000;
166 VR_VIOSCROLLRT =$00200000;
167 VR_VIOSETANSI =$00400000;
168 VR_VIOGETANSI =$00800000;
169 VR_VIOPRTSC =$01000000;
170 VR_VIOSCRLOCK =$02000000;
171 VR_VIOSCRUNLOCK =$04000000;
172 VR_VIOSAVREDRAWWAIT =$08000000;
173 VR_VIOSAVREDRAWUNDO =$10000000;
174 VR_VIOPOPUP =$20000000;
175 VR_VIOENDPOPUP =$40000000;
176 VR_VIOPRTSCTOGGLE =$80000000;
177
178 { second parameter registration constants }
179 VR_VIOMODEWAIT =$00000001;
180 VR_VIOMODEUNDO =$00000002;
181 VR_VIOGETFONT =$00000004;
182 VR_VIOGETCONFIG =$00000008;
183 VR_VIOSETCP =$00000010;
184 VR_VIOGETCP =$00000020;
185 VR_VIOSETFONT =$00000040;
186 VR_VIOGETSTATE =$00000080;
187 VR_VIOSETSTATE =$00000100;
188
189
190 { structure for VioSet/GetCurType }
191TYPE
192 PVIOCURSORINFO=^VIOCURSORINFO;
193 VIOCURSORINFO=RECORD
194 yStart:WORD;
195 cEnd:WORD;
196 cx:WORD;
197 attr:WORD;
198 END;
199
200 { VIOMODEINFO.color constants }
201CONST
202 COLORS_2 =$0001;
203 COLORS_4 =$0002;
204 COLORS_16 =$0004;
205
206TYPE
207 { structure for VioSet/GetMode }
208 PVIOMODEINFO=^VIOMODEINFO;
209 VIOMODEINFO=RECORD {pack 1}
210 cb:USHORT;
211 fbType:BYTE;
212 color:BYTE;
213 col:WORD;
214 row:WORD;
215 hres:WORD;
216 vres:WORD;
217 fmt_ID:BYTE;
218 attrib:BYTE;
219 buf_addr:ULONG;
220 buf_length:ULONG;
221 full_length:ULONG;
222 partial_length:ULONG;
223 ext_data_addr:POINTER;
224 END;
225
226CONST
227 VGMT_OTHER =$01;
228 VGMT_GRAPHICS =$02;
229 VGMT_DISABLEBURST =$04;
230
231
232 { structure for VioGetPhysBuf }
233TYPE
234 PVIOPHYSBUF=^VIOPHYSBUF;
235 VIOPHYSBUF=RECORD
236 pBuf:POINTER;
237 cb:ULONG;
238 asel:SEL;
239 END;
240
241CONST
242 VCC_SBCSCHAR =0;
243 VCC_DBCSFULLCHAR =1;
244 VCC_DBCS1STHALF =2;
245 VCC_DBCS2NDHALF =3;
246
247CONST
248 ANSI_ON =1;
249 ANSI_OFF =0;
250
251CONST
252 VSRWI_SAVEANDREDRAW =0;
253 VSRWI_REDRAW =1;
254
255 VSRWN_SAVE =0;
256 VSRWN_REDRAW =1;
257
258 UNDOI_GETOWNER =0;
259 UNDOI_RELEASEOWNER =1;
260
261 UNDOK_ERRORCODE =0;
262 UNDOK_TERMINATE =1;
263
264
265
266CONST
267 VMWR_POPUP =0;
268 VMWN_POPUP =0;
269
270CONST
271 LOCKIO_NOWAIT =0;
272 LOCKIO_WAIT =1;
273
274 LOCK_SUCCESS =0;
275 LOCK_FAIL =1;
276
277CONST
278 VP_NOWAIT =$0000;
279 VP_WAIT =$0001;
280 VP_OPAQUE =$0000;
281 VP_TRANSPARENT =$0002;
282
283 { VIOCONFIGINFO.adapter constants }
284CONST
285 DISPLAY_MONOCHROME =$0000;
286 DISPLAY_CGA =$0001;
287 DISPLAY_EGA =$0002;
288 DISPLAY_VGA =$0003;
289 DISPLAY_8514A =$0007;
290 DISPLAY_IMAGEADAPTER =$0008;
291 DISPLAY_XGA =$0009;
292
293 { VIOCONFIGINFO.display constants }
294
295 MONITOR_MONOCHROME =$0000;
296 MONITOR_COLOR =$0001;
297 MONITOR_ENHANCED =$0002;
298 MONITOR_8503 =$0003;
299 MONITOR_851X_COLOR =$0004;
300 MONITOR_8514 =$0009;
301 MONITOR_FLATPANEL =$000A;
302 MONITOR_8507_8604 =$000B;
303 MONITOR_8515 =$000C;
304 MONITOR_9515 =$000F;
305 MONITOR_9517 =$0011;
306 MONITOR_9518 =$0012;
307
308 { structure for VioGetConfig() }
309TYPE
310 PVIOCONFIGINFO=^VIOCONFIGINFO;
311 VIOCONFIGINFO=RECORD {pack 2}
312 cb:WORD;
313 adapter:WORD;
314 display:WORD;
315 cbMemory:ULONG;
316 Configuration:WORD;
317 VDHVersion:WORD;
318 Flags:WORD;
319 HWBufferSize:ULONG;
320 FullSaveSize:ULONG;
321 PartSaveSize:ULONG;
322 EMAdaptersOFF:WORD;
323 EMDisplaysOFF:WORD;
324 END;
325
326CONST
327 VIO_CONFIG_CURRENT =0;
328 VIO_CONFIG_PRIMARY =1;
329 VIO_CONFIG_SECONDARY =2;
330
331
332 { structure for VioGet/SetFont }
333TYPE
334 PVIOFONTINFO=^VIOFONTINFO;
335 VIOFONTINFO=RECORD
336 cb:WORD;
337 atype:WORD;
338 cxCell:WORD;
339 cyCell:WORD;
340 pbData:POINTER;
341 cbData:WORD;
342 END;
343
344CONST
345 VGFI_GETCURFONT =0;
346 VGFI_GETROMFONT =1;
347
348
349TYPE
350 PVIOPALSTATE=^VIOPALSTATE;
351 VIOPALSTATE=RECORD
352 cb:WORD;
353 atype:WORD;
354 iFirst:WORD;
355 acolor:WORD;
356 END;
357
358 PVIOOVERSCAN=^VIOOVERSCAN;
359 VIOOVERSCAN=RECORD
360 cb:WORD;
361 atype:WORD;
362 color:WORD;
363 END;
364
365 PVIOINTENSITY=^VIOINTENSITY;
366 VIOINTENSITY=RECORD
367 cb:WORD;
368 atype:WORD;
369 fs:WORD;
370 END;
371
372 PVIOCOLORREG=^VIOCOLORREG;
373 VIOCOLORREG=RECORD
374 cb:WORD;
375 atype:WORD;
376 firstcolorreg:WORD;
377 numcolorregs:WORD;
378 colorregaddr:POINTER;
379 END;
380
381 PVIOSETULINELOC=^VIOSETULINELOC;
382 VIOSETULINELOC=RECORD
383 cb:WORD;
384 atype:WORD;
385 scanline:WORD;
386 END;
387
388 PVIOSETTARGET=^VIOSETTARGET;
389 VIOSETTARGET=RECORD
390 cb:WORD;
391 atype:WORD;
392 defaultalgorithm:WORD;
393 END;
394
395TYPE
396 PHMOU=^HMOU;
397 HMOU=LONGWORD;
398
399CONST
400 MR_MOUGETNUMBUTTONS =$00000001;
401 MR_MOUGETNUMMICKEYS =$00000002;
402 MR_MOUGETDEVSTATUS =$00000004;
403 MR_MOUGETNUMQUEEL =$00000008;
404 MR_MOUREADEVENTQUE =$00000010;
405 MR_MOUGETSCALEFACT =$00000020;
406 MR_MOUGETEVENTMASK =$00000040;
407 MR_MOUSETSCALEFACT =$00000080;
408 MR_MOUSETEVENTMASK =$00000100;
409 MR_MOUOPEN =$00000800;
410 MR_MOUCLOSE =$00001000;
411 MR_MOUGETPTRSHAPE =$00002000;
412 MR_MOUSETPTRSHAPE =$00004000;
413 MR_MOUDRAWPTR =$00008000;
414 MR_MOUREMOVEPTR =$00010000;
415 MR_MOUGETPTRPOS =$00020000;
416 MR_MOUSETPTRPOS =$00040000;
417 MR_MOUINITREAL =$00080000;
418 MR_MOUSETDEVSTATUS =$00100000;
419
420
421CONST
422 MHK_BUTTON1 =$0001;
423 MHK_BUTTON2 =$0002;
424 MHK_BUTTON3 =$0004;
425
426 { structure for MouGet/SetPtrPos }
427TYPE
428 PPTRLOC=^PTRLOC;
429 PTRLOC=RECORD
430 row:WORD;
431 col:WORD;
432 END;
433
434 { structure for MouGet/SetPtrShape }
435TYPE
436 PPTRSHAPE=^PTRSHAPE;
437 PTRSHAPE=RECORD
438 cb:WORD;
439 col:WORD;
440 row:WORD;
441 colHot:WORD;
442 rowHot:WORD;
443 END;
444
445 { MouGetDevStatus/MouSetDevStatus device status constants }
446CONST
447 MOUSE_QUEUEBUSY =$0001;
448 MOUSE_BLOCKREAD =$0002;
449 MOUSE_FLUSH =$0004;
450 MOUSE_UNSUPPORTED_MODE =$0008;
451 MOUSE_DISABLED =$0100;
452 MOUSE_MICKEYS =$0200;
453
454 { MouReadEventQue }
455CONST
456 MOU_NOWAIT =$0000;
457 MOU_WAIT =$0001;
458
459 { structure for MouReadEventQue }
460TYPE
461 PMOUEVENTINFO=^MOUEVENTINFO;
462 MOUEVENTINFO=RECORD {pack 2}
463 fs:WORD;
464 time:ULONG;
465 row:WORD;
466 col:WORD;
467 END;
468
469 { structure for MouGetNumQueEl }
470TYPE
471 PMOUQUEINFO=^MOUQUEINFO;
472 MOUQUEINFO=RECORD
473 cEvents:WORD;
474 cmaxEvents:WORD;
475 END;
476
477CONST
478 { MouGetEventMask/MouSetEventMask events }
479
480 MOUSE_MOTION =$0001;
481 MOUSE_MOTION_WITH_BN1_DOWN =$0002;
482 MOUSE_BN1_DOWN =$0004;
483 MOUSE_MOTION_WITH_BN2_DOWN =$0008;
484 MOUSE_BN2_DOWN =$0010;
485 MOUSE_MOTION_WITH_BN3_DOWN =$0020;
486 MOUSE_BN3_DOWN =$0040;
487
488 { structure for MouGet/SetScaleFact }
489TYPE
490 PSCALEFACT=^SCALEFACT;
491 SCALEFACT=RECORD
492 rowScale:WORD;
493 colScale:WORD;
494 END;
495
496TYPE
497 { structure for MouRemovePtr }
498 PNOPTRRECT=^NOPTRRECT;
499 NOPTRRECT=RECORD
500 row:WORD;
501 col:WORD;
502 cRow:WORD;
503 cCol:WORD;
504 END;
505
506CONST
507 MOU_NODRAW =$0001;
508 MOU_DRAW =$0000;
509 MOU_MICKEYS =$0002;
510 MOU_PELS =$0000;
511
512TYPE
513 PTHRESHOLD=^THRESHOLD;
514 THRESHOLD=RECORD
515 aLength:WORD;
516 Level1:WORD;
517 Lev1Mult:WORD;
518 Level2:WORD;
519 lev2Mult:WORD;
520 END;
521
522
523
524IMPORTS
525 FUNCTION KbdRegister(pszModName,pszEntryPt:PSZ;FunMask:ULONG):WORD;
526 APIENTRY; 'KBDVIO32' index 5;
527 FUNCTION KbdDeRegister:WORD;
528 APIENTRY; 'KBDVIO32' index 6;
529 FUNCTION KbdCharIn(VAR pkbci:KBDKEYINFO;fWait:ULONG;ahkbd:HKBD):WORD;
530 APIENTRY; 'KBDVIO32' index 7;
531 FUNCTION KbdPeek(VAR pkbci:KBDKEYINFO;ahkbd:HKBD):WORD;
532 APIENTRY; 'KBDVIO32' index 8;
533 FUNCTION KbdStringIn(VAR apch;VAR pchIn:STRINGINBUF;fsWait:ULONG;
534 ahkbd:HKBD):WORD;
535 APIENTRY; 'KBDVIO32' index 9;
536 FUNCTION KbdFlushBuffer(ahkbd:HKBD):WORD;
537 APIENTRY; 'KBDVIO32' index 10;
538 FUNCTION KbdSetStatus(VAR apkbdinfo:KBDINFO;ahkbd:HKBD):WORD;
539 APIENTRY; 'KBDVIO32' index 11;
540 FUNCTION KbdGetStatus(VAR apkbdinfo:KBDINFO;ahkbd:HKBD):WORD;
541 APIENTRY; 'KBDVIO32' index 12;
542 FUNCTION KbdSetCp (usReserved,pidCP:ULONG;ahkbd:HKBD):WORD;
543 APIENTRY; 'KBDVIO32' index 13;
544 FUNCTION KbdGetCp (ulReserved:ULONG;VAR pidCP:WORD;ahkbd:HKBD):WORD;
545 APIENTRY; 'KBDVIO32' index 14;
546 FUNCTION KbdOpen (VAR aphkbd:HKBD):WORD;
547 APIENTRY; 'KBDVIO32' index 15;
548 FUNCTION KbdClose (ahkbd:HKBD):WORD;
549 APIENTRY; 'KBDVIO32' index 16;
550 FUNCTION KbdGetFocus (fWait:ULONG;ahkbd:HKBD):WORD;
551 APIENTRY; 'KBDVIO32' index 17;
552 FUNCTION KbdFreeFocus (ahkbd:HKBD):WORD;
553 APIENTRY; 'KBDVIO32' index 18;
554 FUNCTION KbdSynch (fsWait:ULONG):WORD;
555 APIENTRY; 'KBDVIO32' index 19;
556 FUNCTION KbdSetFgnd:WORD;
557 APIENTRY; 'KBDVIO32' index 20;
558 FUNCTION KbdGetHWID(VAR apkbdhwid:KBDHWID;ahkbd:HKBD):WORD;
559 APIENTRY; 'KBDVIO32' index 21;
560 FUNCTION KbdSetHWID(VAR apkbdhwid:KBDHWID;ahkbd:HKBD):WORD;
561 APIENTRY; 'KBDVIO32' index 22;
562 FUNCTION KbdXlate (VAR apkbdtrans:KBDTRANS;ahkbd:HKBD):WORD;
563 APIENTRY; 'KBDVIO32' index 23;
564 FUNCTION KbdSetCustXt(VAR usCodePage:WORD;ahkbd:HKBD):WORD;
565 APIENTRY; 'KBDVIO32' index 24;
566 FUNCTION VioRegister(pszModName,pszEntryName:PSZ;flFun1,
567 flFun2:ULONG):WORD;
568 APIENTRY; 'KBDVIO32' index 25;
569 {FUNCTION VioGlobalReg(pszModName,pszEntryName:PSZ;
570 flFun1,flFun2:ULONG;usReturn:WORD):WORD;
571 APIENTRY; 'KBDVIO32' index 26;
572 unresolved external in 'KBDVIO32'.C ??? }
573 FUNCTION VioDeRegister:WORD;
574 APIENTRY; 'KBDVIO32' index 27;
575 FUNCTION VioGetBuf (VAR pLVB:POINTER;VAR pcbLVB:WORD;ahvio:HVIO):WORD;
576 APIENTRY; 'KBDVIO32' index 28;
577 FUNCTION VioGetCurPos(VAR pusRow,pusColumn:WORD;ahvio:HVIO):WORD;
578 APIENTRY; 'KBDVIO32' index 29;
579 FUNCTION VioSetCurPos (usRow,usColumn:ULONG;ahvio:HVIO):WORD;
580 APIENTRY; 'KBDVIO32' index 30;
581 FUNCTION VioGetCurType (VAR apvioCursorInfo:VIOCURSORINFO;
582 ahvio:HVIO):WORD;
583 APIENTRY; 'KBDVIO32' index 31;
584 FUNCTION VioSetCurType (VAR apvioCursorInfo:VIOCURSORINFO;
585 ahvio:HVIO):WORD;
586 APIENTRY; 'KBDVIO32' index 32;
587 FUNCTION VioGetMode (VAR apvioModeInfo:VIOMODEINFO;ahvio:HVIO):WORD;
588 APIENTRY; 'KBDVIO32' index 33;
589 FUNCTION VioSetMode (VAR apvioModeInfo:VIOMODEINFO;ahvio:HVIO):WORD;
590 APIENTRY; 'KBDVIO32' index 34;
591 FUNCTION VioGetPhysBuf (VAR apvioPhysBuf:VIOPHYSBUF;
592 usReserved:ULONG):WORD;
593 APIENTRY; 'KBDVIO32' index 35;
594 FUNCTION VioReadCellStr (VAR pchCellStr;VAR pcb:USHORT;usRow,
595 usColumn:ULONG;ahvio:HVIO):WORD;
596 APIENTRY; 'KBDVIO32' index 36;
597 FUNCTION VioReadCharStr(VAR pchCellStr;VAR pcb:USHORT;usRow,
598 usColumn:ULONG;ahvio:HVIO):WORD;
599 APIENTRY; 'KBDVIO32' index 37;
600 FUNCTION VioWrtCellStr(VAR pchCellStr;cb,usRow,usColumn:ULONG;
601 ahvio:HVIO):WORD;
602 APIENTRY; 'KBDVIO32' index 38;
603 FUNCTION VioWrtCharStr(VAR pchStr;cb,usRow,usColumn:ULONG;
604 ahvio:HVIO):WORD;
605 APIENTRY; 'KBDVIO32' index 39;
606 FUNCTION VioScrollDn(usTopRow,usLeftCol,usBotRow,usRightCol,
607 cbLines:ULONG;VAR pCell;ahvio:HVIO):WORD;
608 APIENTRY; 'KBDVIO32' index 40;
609 FUNCTION VioScrollUp(usTopRow,usLeftCol,usBotRow,usRightCol,
610 cbLines:ULONG;VAR pCell;ahvio:HVIO):WORD;
611 APIENTRY; 'KBDVIO32' index 41;
612 FUNCTION VioScrollLf(usTopRow,usLeftCol,usBotRow,usRightCol,
613 cbCol:ULONG;VAR pCell;ahvio:HVIO):WORD;
614 APIENTRY; 'KBDVIO32' index 42;
615 FUNCTION VioScrollRt(usTopRow,usLeftCol,usBotRow,usRightCol,
616 cbCol:ULONG;VAR pCell;ahvio:HVIO):WORD;
617 APIENTRY; 'KBDVIO32' index 43;
618 FUNCTION VioWrtNAttr(VAR pAttr;cb,usRow,usColumn:ULONG;ahvio:HVIO):WORD;
619 APIENTRY; 'KBDVIO32' index 44;
620 FUNCTION VioWrtNCell(VAR pCell;cb,usRow,usColumn:ULONG;ahvio:HVIO):WORD;
621 APIENTRY; 'KBDVIO32' index 45;
622 FUNCTION VioWrtNChar(VAR pchChar;cb,usRow,usColumn:ULONG;ahvio:HVIO):WORD;
623 APIENTRY; 'KBDVIO32' index 46;
624 FUNCTION VioWrtTTY(VAR apch;cb:ULONG;ahvio:HVIO):WORD;
625 APIENTRY; 'KBDVIO32' index 47;
626 FUNCTION VioWrtCharStrAtt(VAR apch;cb,usRow,usColumn:ULONG;
627 VAR pAttr;ahvio:HVIO):WORD;
628 APIENTRY; 'KBDVIO32' index 48;
629 FUNCTION VioCheckCharType(VAR pType:WORD;usRow,usColumn:ULONG;
630 ahvio:HVIO):WORD;
631 APIENTRY; 'KBDVIO32' index 49;
632 FUNCTION VioShowBuf(offLVB,cb:ULONG;ahvio:HVIO):WORD;
633 APIENTRY; 'KBDVIO32' index 50;
634 FUNCTION VioSetAnsi(fAnsi:ULONG;ahvio:HVIO):WORD;
635 APIENTRY; 'KBDVIO32' index 51;
636 FUNCTION VioGetAnsi(VAR pfAnsi:WORD;ahvio:HVIO):WORD;
637 APIENTRY; 'KBDVIO32' index 52;
638 FUNCTION VioPrtSc(ahvio:HVIO):WORD;
639 APIENTRY; 'KBDVIO32' index 53;
640 FUNCTION VioPrtScToggle(ahvio:HVIO):WORD;
641 APIENTRY; 'KBDVIO32' index 54;
642 {FUNCTION VioRedrawSize(VAR pcbRedraw:ULONG):WORD;
643 APIENTRY; 'KBDVIO32' index 55;
644 unresolved external in 'KBDVIO32'.C ???}
645 FUNCTION VioSavRedrawWait(usRedrawInd:ULONG;VAR pNotifyType:WORD;
646 usReserved:ULONG):WORD;
647 APIENTRY; 'KBDVIO32' index 56;
648 FUNCTION VioSavRedrawUndo(usOwnerInd,usKillInd,usReserved:ULONG):WORD;
649 APIENTRY; 'KBDVIO32' index 57;
650 FUNCTION VioModeWait(usReqType:ULONG;VAR pNotifyType:WORD;
651 usReserved:ULONG):WORD;
652 APIENTRY; 'KBDVIO32' index 58;
653 FUNCTION VioModeUndo(usOwnerInd,usKillInd,usReserved:ULONG):WORD;
654 APIENTRY; 'KBDVIO32' index 59;
655 FUNCTION VioScrLock(fWait:ULONG;VAR pfNotLocked:BYTE;ahvio:HVIO):WORD;
656 APIENTRY; 'KBDVIO32' index 60;
657 FUNCTION VioScrUnLock(ahvio:HVIO):WORD;
658 APIENTRY; 'KBDVIO32' index 61;
659 FUNCTION VioPopUp (VAR pfWait:WORD;ahvio:HVIO):WORD;
660 APIENTRY; 'KBDVIO32' index 62;
661 FUNCTION VioEndPopUp(ahvio:HVIO):WORD;
662 APIENTRY; 'KBDVIO32' index 63;
663 FUNCTION VioGetConfig(usConfigId:LONGWORD;VAR pvioin:VIOCONFIGINFO;
664 ahvio:HVIO):WORD;
665 APIENTRY; 'KBDVIO32' index 64;
666 FUNCTION VioGetFont(VAR pviofi:VIOFONTINFO;ahvio:HVIO):WORD;
667 APIENTRY; 'KBDVIO32' index 65;
668 FUNCTION VioSetFont(VAR pviofi:VIOFONTINFO;ahvio:HVIO):WORD;
669 APIENTRY; 'KBDVIO32' index 66;
670 FUNCTION VioGetCp(usReserved:ULONG;VAR pIdCodePage:WORD;ahvio:HVIO):WORD;
671 APIENTRY; 'KBDVIO32' index 67;
672 FUNCTION VioSetCp(usReserved,idCodePage:ULONG;ahvio:HVIO):WORD;
673 APIENTRY; 'KBDVIO32' index 68;
674 FUNCTION VioGetState(VAR pState;ahvio:HVIO):WORD;
675 APIENTRY; 'KBDVIO32' index 69;
676 FUNCTION VioSetState(VAR pState;ahvio:HVIO):WORD;
677 APIENTRY; 'KBDVIO32' index 70;
678 FUNCTION MouRegister(pszModName,pszEntryName:PSZ;flFuns:ULONG):WORD;
679 APIENTRY; 'KBDVIO32' index 71;
680 FUNCTION MouDeRegister:WORD;
681 APIENTRY; 'KBDVIO32' index 72;
682 FUNCTION MouFlushQue(ahmou:HMOU):WORD;
683 APIENTRY; 'KBDVIO32' index 73;
684 FUNCTION MouGetPtrPos(VAR pmouLoc:PTRLOC;ahmou:HMOU):WORD;
685 APIENTRY; 'KBDVIO32' index 74;
686 FUNCTION MouSetPtrPos(VAR pmouLoc:PTRLOC;ahmou:HMOU):WORD;
687 APIENTRY; 'KBDVIO32' index 75;
688 FUNCTION MouSetPtrShape(VAR pBuf;VAR pmoupsInfo:PTRSHAPE;ahmou:HMOU):WORD;
689 APIENTRY; 'KBDVIO32' index 76;
690 FUNCTION MouGetPtrShape(VAR pBuf;VAR pmoupsInfo:PTRSHAPE;ahmou:HMOU):WORD;
691 APIENTRY; 'KBDVIO32' index 77;
692 FUNCTION MouGetDevStatus(VAR pfsDevStatus:WORD;ahmou:HMOU):WORD;
693 APIENTRY; 'KBDVIO32' index 78;
694 FUNCTION MouGetNumButtons(VAR pcButtons:WORD;ahmou:HMOU):WORD;
695 APIENTRY; 'KBDVIO32' index 79;
696 FUNCTION MouGetNumMickeys(VAR pcMickeys:WORD;ahmou:HMOU):WORD;
697 APIENTRY; 'KBDVIO32' index 80;
698 FUNCTION MouReadEventQue(VAR pmouevEvent:MOUEVENTINFO;VAR pfWait:WORD;
699 ahmou:HMOU):WORD;
700 APIENTRY; 'KBDVIO32' index 81;
701 FUNCTION MouGetNumQueEl(VAR qmouqi:MOUQUEINFO;ahmou:HMOU):WORD;
702 APIENTRY; 'KBDVIO32' index 82;
703 FUNCTION MouGetEventMask(VAR pfsEvents:WORD;ahmou:HMOU):WORD;
704 APIENTRY; 'KBDVIO32' index 83;
705 FUNCTION MouSetEventMask(VAR pfsEvents:WORD;ahmou:HMOU):WORD;
706 APIENTRY; 'KBDVIO32' index 84;
707 FUNCTION MouGetScaleFact(VAR pmouscFactors:SCALEFACT;ahmou:HMOU):WORD;
708 APIENTRY; 'KBDVIO32' index 85;
709 FUNCTION MouSetScaleFact(VAR pmouscFactors:SCALEFACT;ahmou:HMOU):WORD;
710 APIENTRY; 'KBDVIO32' index 86;
711 FUNCTION MouOpen(pszDvrName:PSZ;VAR aphmou:HMOU):WORD;
712 APIENTRY; 'KBDVIO32' index 87;
713 FUNCTION MouClose(ahmou:HMOU):WORD;
714 APIENTRY; 'KBDVIO32' index 88;
715 FUNCTION MouRemovePtr(VAR pmourtRect:NOPTRRECT;ahmou:HMOU):WORD;
716 APIENTRY; 'KBDVIO32' index 89;
717 FUNCTION MouDrawPtr(ahmou:HMOU):WORD;
718 APIENTRY; 'KBDVIO32' index 90;
719 FUNCTION MouSetDevStatus(VAR pfsDevStatus:WORD;ahmou:HMOU):WORD;
720 APIENTRY; 'KBDVIO32' index 91;
721 FUNCTION MouInitReal(apsz:PSZ):WORD;
722 APIENTRY; 'KBDVIO32' index 92;
723 FUNCTION MouSynch(pszDvrName:ULONG):WORD;
724 APIENTRY; 'KBDVIO32' index 93;
725 FUNCTION MouGetThreshold(VAR apthreshold:THRESHOLD;ahmou:HMOU):WORD;
726 APIENTRY; 'KBDVIO32' index 94;
727 FUNCTION MouSetThreshold(VAR apthreshold:THRESHOLD;ahmou:HMOU):WORD;
728 APIENTRY; 'KBDVIO32' index 95;
729END;
730
731
732IMPLEMENTATION
733
734BEGIN
735END.
Note: See TracBrowser for help on using the repository browser.