home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Input.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  2.4 KB  |  115 lines
  1. unit Input;
  2.  
  3. INTERFACE
  4. uses Exec, Timer;
  5.  
  6.  
  7. type
  8.     pInputEvent = ^tInputEvent;
  9.     tInputEvent = record
  10.         ie_NextEvent: pInputEvent;
  11.         ie_Class: byte;
  12.         ie_SubClass: byte;
  13.         ie_Code: word;
  14.         ie_Qualifier: word;
  15.         case integer of
  16.         0: (
  17.         ie_xy: record
  18.         ie_X: integer;
  19.         ie_Y: integer;
  20.         end;
  21.         );
  22.         1: (
  23.         ie_EventAddress: pointer;
  24.         ie_TimeStamp: ttimeval;
  25.         );
  26.         end;
  27.  
  28.  
  29.  
  30. const
  31.     IECODE_REQCLEAR = 0;
  32.     IEQUALIFIER_LALT = $10;
  33.     IECLASS_DISKINSERTED = $10;
  34.     IND_SETTHRESH = $C;
  35.     IECLASS_REQUESTER = 9;
  36.     IECODE_KEY_CODE_FIRST = 0;
  37.     IEQUALIFIERB_NUMERICPAD = 8;
  38.     IEQUALIFIER_RALT = $20;
  39.     IEQUALIFIERB_CONTROL = 3;
  40.     IECODE_C0_FIRST = 0;
  41.     IEQUALIFIERB_MULTIBROADCAST = $B;
  42.     IECLASS_ACTIVEWINDOW = $11;
  43.     IECODE_C1_FIRST = $80;
  44.     IEQUALIFIER_INTERRUPT = $400;
  45.     IEQUALIFIERB_REPEAT = 9;
  46.     IND_ADDHANDLER = 9;
  47.     IECLASS_NULL = 0;
  48.     IECLASS_NEWPREFS = $E;
  49.     IECODE_LATIN1_FIRST = $A0;
  50.     IECODE_KEY_CODE_LAST = $77;
  51.     IEQUALIFIERB_RBUTTON = $D;
  52.     IEQUALIFIERB_LSHIFT = 0;
  53.     IECLASS_MENULIST = $A;
  54.     IECLASS_RAWMOUSE = 2;
  55.     IECLASS_DISKREMOVED = $F;
  56.     IEQUALIFIERB_RSHIFT = 1;
  57.     IND_SETMTRIG = $10;
  58.     IECODE_C0_LAST = $1F;
  59.     IECODE_C1_LAST = $9F;
  60.     IECODE_UP_PREFIX = $80;
  61.     IECLASS_MAX = $12;
  62.     IECODE_LATIN1_LAST = $FF;
  63.     IEQUALIFIERB_LEFTBUTTON = $E;
  64.     IECLASS_GADGETDOWN = 7;
  65.     IEQUALIFIER_NUMERICPAD = $100;
  66.     IND_SETMTYPE = $F;
  67.     IND_REMHANDLER = $A;
  68.     IECODE_NOBUTTON = $FF;
  69.     IEQUALIFIER_CONTROL = 8;
  70.     IND_SETMPORT = $E;
  71.     IECLASS_CLOSEWINDOW = $B;
  72.     IEQUALIFIER_MULTIBROADCAST = $800;
  73.     IEQUALIFIER_REPEAT = $200;
  74.     IEQUALIFIERB_LCOMMAND = 6;
  75.     IEQUALIFIERB_CAPSLOCK = 2;
  76.     IECODE_ASCII_FIRST = $20;
  77.     IEQUALIFIER_RBUTTON = $2000;
  78.     IEQUALIFIERB_RCOMMAND = 7;
  79.     IEQUALIFIERB_MIDBUTTON = $C;
  80.     IEQUALIFIERB_RELATIVEMOUSE = $F;
  81.     IEQUALIFIER_LSHIFT = 1;
  82.     IECLASS_INACTIVEWINDOW = $12;
  83.     IECODE_LBUTTON = $68;
  84.     IEQUALIFIER_RSHIFT = 2;
  85.     IECODE_MBUTTON = $6A;
  86.     IEQUALIFIERB_LALT = 4;
  87.     IECLASS_RAWKEY = 1;
  88.     IECODE_RBUTTON = $69;
  89.     IECODE_COMM_CODE_FIRST = $78;
  90.     IEQUALIFIER_LEFTBUTTON = $4000;
  91.     IECODE_ASCII_LAST = $7E;
  92.     IEQUALIFIERB_RALT = 5;
  93.     IECODE_ASCII_DEL = $7F;
  94.     IEQUALIFIERB_INTERRUPT = $A;
  95.     IECODE_REQSET = 1;
  96.     IEQUALIFIER_LCOMMAND = $40;
  97.     IND_WRITEEVENT = $B;
  98.     IECLASS_POINTERPOS = 4;
  99.     IECLASS_SIZEWINDOW = $C;
  100.     IECODE_COMM_CODE_LAST = $7F;
  101.     IECLASS_TIMER = 6;
  102.     IECODE_NEWACTIVE = 1;
  103.     IECLASS_EVENT = 3;
  104.     IEQUALIFIER_CAPSLOCK = 4;
  105.     IEQUALIFIER_RCOMMAND = $80;
  106.     IEQUALIFIER_MIDBUTTON = $1000;
  107.     IEQUALIFIER_RELATIVEMOUSE = $8000;
  108.     IND_SETPERIOD = $D;
  109.     IECLASS_GADGETUP = 8;
  110.     IECLASS_REFRESHWINDOW = $D;
  111.  
  112.  
  113. IMPLEMENTATION
  114. end.
  115.