home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / wct / keydef.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-25  |  3.4 KB  |  93 lines
  1. unit keydef;
  2.  
  3. { This unit contains all the constants and transformations for
  4.   the xcrt unit function ReadAllKeys }
  5.  
  6. interface
  7.  
  8. const
  9.   { These are the constants for readallkeys }
  10.   enter=#13; esc=#27; tab=#9;
  11.   backsp=#8;
  12.   CtrlEnter=#10; CtrlBacksp=#127;
  13.   CtrlF1=#138; CtrlF2=#139; CtrlF3=#140; CtrlF4=#141;
  14.   CtrlF5=#142; CtrlF6=#143; CtrlF7=#144; CtrlF8=#145;
  15.   CtrlF9=#146; CtrlF10=#147;
  16.   ShftF1=#148; ShftF2=#149; ShftF3=#150; ShftF4=#151;
  17.   ShftF5=#152; ShftF6=#153; ShftF7=#154; ShftF8=#155;
  18.   ShftF9=#156; ShftF10=#157;
  19.   AltF1=#158; AltF2=#159; AltF3=#160; AltF4=#161;
  20.   AltF5=#162; AltF6=#163; AltF7=#164; AltF8=#165;
  21.   AltF9=#166; AltF10=#167;
  22.   AltA=#168; AltB=#169; AltC=#170; AltD=#171;
  23.   AltE=#172; AltF=#173; AltG=#174; AltH=#175;
  24.   AltI=#176; AltJ=#177; AltK=#178; AltL=#179;
  25.   AltM=#180; AltN=#181; AltO=#182; AltP=#183;
  26.   AltQ=#184; AltR=#185; AltS=#186; AltT=#187;
  27.   AltU=#188; AltV=#189; AltW=#190; AltX=#191;
  28.   AltY=#192; AltZ=#193;
  29.   Ins=#194; Home=#195; PgUp=#196; Del=#197;
  30.   EndKey=#198; PgDn=#199; UpArrow=#200; LeftArrow=#201;
  31.   RightArrow=#202; DownArrow=#203;
  32.   CtrlLeftArrow=#204; CtrlRightArrow=#205;
  33.   F1=#206; F2=#207; F3=#208; F4=#209; F5=#210;
  34.   F6=#211; F7=#212; F8=#213; F9=#214; F10=#215;
  35.   Alt1=#216; Alt2=#217; Alt3=#218; Alt4=#219;
  36.   Alt5=#220; Alt6=#221; Alt7=#222; Alt8=#223;
  37.   Alt9=#224; Alt0=#225;
  38.   CtrlHome=#226; CtrlEnd=#227; CtrlPgUp=#228;
  39.   CtrlPgDn=#229; ShiftTab=#230;
  40.   Ctrl255=#231;
  41.   Ctrl2=#232;
  42.   CtrlAsterisk=#233;
  43.   AltEqual=#234;
  44.   AltMinus=#235;
  45.  
  46. function transformedkey(c:char):char;
  47.  
  48. implementation
  49.  
  50. function transformedkey(c:char):char;
  51. begin
  52.  case ord(c) of
  53.    15: transformedkey:=shifttab;
  54.    59..68:transformedkey:=chr(ord(c)+ord(F1)-59);       { F1-F10 }
  55.    94..103:transformedkey:=chr(ord(c)-94+ord(CtrlF1));  { CtrlF1-CtrlF10 }
  56.    84..93:transformedkey:=chr(ord(c)-84+ord(ShftF1));   { ShftF1-ShftF10 }
  57.    104..113:transformedkey:=chr(ord(c)-104+ord(AltF1)); { AltF1-AltF10 }
  58.    30:transformedkey:=AltA; 48:transformedkey:=AltB; 46:transformedkey:=AltC;
  59.    32:transformedkey:=AltD; 18:transformedkey:=AltE; 33:transformedkey:=AltF;
  60.    44:transformedkey:=AltG; 35:transformedkey:=AltH; 23:transformedkey:=AltI;
  61.    36:transformedkey:=AltJ; 37:transformedkey:=AltK; 38:transformedkey:=AltL;
  62.    50:transformedkey:=AltM; 49:transformedkey:=AltN; 24:transformedkey:=AltO;
  63.    25:transformedkey:=AltP; 16:transformedkey:=AltQ; 19:transformedkey:=AltR;
  64.    31:transformedkey:=AltS; 20:transformedkey:=AltT; 22:transformedkey:=AltU;
  65.    47:transformedkey:=AltV; 17:transformedkey:=AltW; 45:transformedkey:=AltX;
  66.    21:transformedkey:=AltY; 44:transformedkey:=AltZ;
  67.    120..129:transformedkey:=chr(ord(c)-120+ord(Alt1));  { Alt1-Alt0 }
  68.    72:transformedkey:=UpArrow;
  69.    75:transformedkey:=LeftArrow;
  70.    77:transformedkey:=RightArrow;
  71.    80:transformedkey:=DownArrow;
  72.    115:transformedkey:=CtrlLeftArrow;
  73.    116:transformedkey:=CtrlRightArrow;
  74.    82:transformedkey:=Ins;
  75.    71:transformedkey:=Home;
  76.    73:transformedkey:=PgUp;
  77.    83:transformedkey:=Del;
  78.    79:transformedkey:=EndKey;
  79.    81:transformedkey:=PgDn;
  80.    119:transformedkey:=CtrlHome;
  81.    117:transformedkey:=CtrlEnd;
  82.    132:transformedkey:=CtrlPgUp;
  83.    118:transformedkey:=CtrlPgDn;
  84.    255:transformedkey:=Ctrl255;
  85.    3:transformedkey:=Ctrl2;
  86.    114:transformedkey:=CtrlAsterisk;
  87.    131:transformedkey:=AltEqual;
  88.    130:transformedkey:=AltMinus;
  89.    end
  90. end;
  91.  
  92. end.
  93.