home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-2.DMS / in.adf / Units / Keymap.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  891 b   |  61 lines
  1. unit Keymap;
  2.  
  3. INTERFACE
  4. uses Exec, Input;
  5.  
  6.  
  7. type
  8.     pKeyMapResource = ^tKeyMapResource;
  9.     tKeyMapResource = record
  10.         kr_Node: tNode;
  11.         kr_List: tList;
  12.         end;
  13.  
  14.     pKeyMap = ^tKeyMap;
  15.     tKeyMap = record
  16.         km_LoKeyMapTypes: pbyte;
  17.         km_LoKeyMap: plong;
  18.         km_LoCapsable: pbyte;
  19.         km_LoRepeatable: pbyte;
  20.         km_HiKeyMapTypes: pbyte;
  21.         km_HiKeyMap: plong;
  22.         km_HiCapsable: pbyte;
  23.         km_HiRepeatable: pbyte;
  24.         end;
  25.  
  26.     pKeyMapNode = ^tKeyMapNode;
  27.     tKeyMapNode = record
  28.         kn_Node: tNode;
  29.         kn_KeyMap: tKeyMap;
  30.         end;
  31.  
  32.  
  33.  
  34. const
  35.     KCB_ALT = 1;
  36.     KCF_ALT = 2;
  37.     DP_2DINDEXMASK = $F;
  38.     DPB_MOD = 0;
  39.     DPF_MOD = 1;
  40.     KCB_NOP = 7;
  41.     DP_2DFACSHIFT = 4;
  42.     KCF_NOP = $80;
  43.     KCB_CONTROL = 2;
  44.     KCF_CONTROL = 4;
  45.     KC_VANILLA = 7;
  46.     KCB_STRING = 6;
  47.     KCB_DEAD = 5;
  48.     KCF_STRING = $40;
  49.     KCF_DEAD = $20;
  50.     KCB_DOWNUP = 3;
  51.     DPB_DEAD = 3;
  52.     KCF_DOWNUP = 8;
  53.     DPF_DEAD = 8;
  54.     KCB_SHIFT = 0;
  55.     KCF_SHIFT = 1;
  56.     KC_NOQUAL = 0;
  57.  
  58.  
  59. IMPLEMENTATION
  60. end.
  61.