home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / WCTUNITS.ZIP / KEYDEF.PAS next >
Encoding:
Pascal/Delphi Source File  |  1991-07-25  |  3.1 KB  |  82 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.   CtrlF1=#138; CtrlF2=#139; CtrlF3=#140; CtrlF4=#141;
  11.   CtrlF5=#142; CtrlF6=#143; CtrlF7=#144; CtrlF8=#145;
  12.   CtrlF9=#146; CtrlF10=#147;
  13.   ShftF1=#148; ShftF2=#149; ShftF3=#150; ShftF4=#151;
  14.   ShftF5=#152; ShftF6=#153; ShftF7=#154; ShftF8=#155;
  15.   ShftF9=#156; ShftF10=#157;
  16.   AltF1=#158; AltF2=#159; AltF3=#160; AltF4=#161;
  17.   AltF5=#162; AltF6=#163; AltF7=#164; AltF8=#165;
  18.   AltF9=#166; AltF10=#167;
  19.   AltA=#168; AltB=#169; AltC=#170; AltD=#171;
  20.   AltE=#172; AltF=#173; AltG=#174; AltH=#175;
  21.   AltI=#176; AltJ=#177; AltK=#178; AltL=#179;
  22.   AltM=#180; AltN=#181; AltO=#182; AltP=#183;
  23.   AltQ=#184; AltR=#185; AltS=#186; AltT=#187;
  24.   AltU=#188; AltV=#189; AltW=#190; AltX=#191;
  25.   AltY=#192; AltZ=#193;
  26.   Ins=#194; Home=#195; PgUp=#196; Del=#197;
  27.   EndKey=#198; PgDn=#199; UpArrow=#200; LeftArrow=#201;
  28.   RightArrow=#202; DownArrow=#203;
  29.   enter=#13; esc=#27; tab=#9; shifttab=#230;
  30.   backsp=#8;
  31.   CtrlLeftArrow=#204; CtrlRightArrow=#205;
  32.   F1=#206; F2=#207; F3=#208; F4=#209; F5=#210;
  33.   F6=#211; F7=#212; F8=#213; F9=#214; F10=#215;
  34.   Alt1=#216; Alt2=#217; Alt3=#218; Alt4=#219;
  35.   Alt5=#220; Alt6=#221; Alt7=#222; Alt8=#223;
  36.   Alt9=#224; Alt0=#225;
  37.   CtrlHome=#226; CtrlEnd=#227; CtrlPgUp=#228;
  38.   CtrlPgDn=#229;
  39.  
  40. function transformedkey(c:char):char;
  41.  
  42. implementation
  43.  
  44. function transformedkey(c:char):char;
  45. begin
  46.  case ord(c) of
  47.    15: transformedkey:=shifttab;
  48.    59..68:transformedkey:=chr(ord(c)+ord(F1)-59);       { F1-F10 }
  49.    94..103:transformedkey:=chr(ord(c)-94+ord(CtrlF1));  { CtrlF1-CtrlF10 }
  50.    84..93:transformedkey:=chr(ord(c)-84+ord(ShftF1));   { ShftF1-ShftF10 }
  51.    104..113:transformedkey:=chr(ord(c)-104+ord(AltF1)); { AltF1-AltF10 }
  52.    30:transformedkey:=AltA; 48:transformedkey:=AltB; 46:transformedkey:=AltC;
  53.    32:transformedkey:=AltD; 18:transformedkey:=AltE; 33:transformedkey:=AltF;
  54.    44:transformedkey:=AltG; 35:transformedkey:=AltH; 23:transformedkey:=AltI;
  55.    36:transformedkey:=AltJ; 37:transformedkey:=AltK; 38:transformedkey:=AltL;
  56.    50:transformedkey:=AltM; 49:transformedkey:=AltN; 24:transformedkey:=AltO;
  57.    25:transformedkey:=AltP; 16:transformedkey:=AltQ; 19:transformedkey:=AltR;
  58.    31:transformedkey:=AltS; 20:transformedkey:=AltT; 22:transformedkey:=AltU;
  59.    47:transformedkey:=AltV; 17:transformedkey:=AltW; 45:transformedkey:=AltX;
  60.    21:transformedkey:=AltY; 44:transformedkey:=AltZ;
  61.    120..129:transformedkey:=chr(ord(c)-120+ord(Alt1));  { Alt1-Alt0 }
  62.    72:transformedkey:=UpArrow;
  63.    75:transformedkey:=LeftArrow;
  64.    77:transformedkey:=RightArrow;
  65.    80:transformedkey:=DownArrow;
  66.    115:transformedkey:=CtrlLeftArrow;
  67.    116:transformedkey:=CtrlRightArrow;
  68.    82:transformedkey:=Ins;
  69.    71:transformedkey:=Home;
  70.    73:transformedkey:=PgUp;
  71.    83:transformedkey:=Del;
  72.    79:transformedkey:=EndKey;
  73.    81:transformedkey:=PgDn;
  74.    119:transformedkey:=CtrlHome;
  75.    117:transformedkey:=CtrlEnd;
  76.    132:transformedkey:=CtrlPgUp;
  77.    118:transformedkey:=CtrlPgDn;
  78.    end
  79. end;
  80.  
  81. end.
  82.