home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / nicol / sti_keys / sti_keys.hed < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.4 KB  |  28 lines
  1. unit  STI_KEYS;                             { unit to provide access to all}
  2.                                             { the special keys             }
  3. interface
  4.  
  5. uses Dos;
  6.  
  7. type
  8.   KeyRec = string[3];                       { KeyRec[1] = ascii code        }
  9.                                             { KeyRec[2] = F1 etc            }
  10.                                             { KeyRec[3] = GRPH etc          }
  11.  
  12.  
  13.  
  14. function STI_StopPressed    : boolean;      { check for stop key            }
  15. function STI_CopyPressed    : boolean;      { check for copy key            }
  16. function STI_EscapePressed  : boolean;      { check for escape              }
  17. function STI_ControlPressed : boolean;      { check for control key         }
  18. function STI_CapsPressed    : boolean;      { check for caps key            }
  19. function STI_ShiftPressed   : boolean;      { check for shift key           }
  20. function STI_KanaPressed    : boolean;      { check for kana key            }
  21. function STI_GrphPressed    : boolean;      { check for graph key           }
  22. function STI_NferPressed    : boolean;      { check for nfer key            }
  23. function STI_XferPressed    : boolean;      { check for xfer key            }
  24. function STI_InKey          : char;         { return a single key stroke    }
  25. function STI_InKey2         : KeyRec;       { return GRPH,CTRL,SHIFT combos }
  26. function STI_InKey3         : KeyRec;       { return any combination        }
  27.  
  28.