home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a114 / 2.img / TOOLKIT / TOOLKIT.ZIP / KEYCODES.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  3.7 KB  |  66 lines
  1. ; Copyright (c) 1987-1989 Borland International.  All Rights Reserved.
  2. ;
  3. ; General permission to re-distribute all or part of this script is granted,
  4. ; provided that this statement, including the above copyright notice, is not
  5. ; removed.  You may add your own copyright notice to secure copyright
  6. ; protection for new matter that you add to this script, but Borland
  7. ; International will not support, nor assume any legal responsibility for,
  8. ; material added or changes made to this script.
  9. ;
  10. ; Revs.:  MJP 5/14/87, DCY 12/13/88
  11. ; ****************************************************************************
  12. ; SetKeycodes defines mnemonic variables you can use in place of Paradox
  13. ; ASCII and IBM Extended keycodes in your DoWait applications.  Using
  14. ; variables defined by SetKeycodes increases the readability of your code and
  15. ; saves you the trouble of having to look up keycodes when you need to use
  16. ; them in conjunction with DoWait.
  17. ;
  18. ; SetKeycodes' variables require only about 4K of memory and thus you'll
  19. ; probably want to use them in all cases where memory is not a critical
  20. ; constraint.  If you do run into memory problems, you can "comment out" the
  21. ; variables you do not use, or you can use the PrepareFinal subsystem of the
  22. ; TKMenu to replace all Setkeycodes' variables in your scripts with their
  23. ; actual constants.  If you choose to do this, remember to remove the call to
  24. ; SetKeycodes from your code.
  25. ;
  26. ; Note that InitWait does not automatically load or call the SetKeycodes
  27. ; procedure--you must do this yourself.
  28.  
  29. Proc SetKeycodes()
  30.  
  31.    TKBackspace       =    8    TKDitto       =    4    TKPalMenu    = -113
  32.    TKCancel          =    0    TKDOS         =   15    TKPgDn       =  -81
  33.    TKCheck           =  -64    TKDOSBig      =  -24    TKPgUp       =  -73
  34.    TKCheckDescending =  -99    TKDo_It!      =  -60    TKRefresh    =  -19
  35.    TKCheckGroupBy    =  -89    TKDown        =  -80    TKReSyncKey  =   12
  36.    TKCheckPlus       = -109    TKDownImage   =  -62    TKReverseTab =  -15
  37.    TKClearAll        = -111    TKEditKey     =  -67    TKRight      =  -77
  38.    TKClearImage      =  -66    TKEnd         =  -79    TKRotate     =   18
  39.    TKCoEditKey       = -112    TKEnter       =   13    TKSpaceBar   =   32
  40.    TKCtrlBackspace   =  127    TKEsc         =   27    TKTab        =    9
  41.    TKCtrlBreak       =    0    TKExample     =  -63    TKUndo       =   21
  42.    TKCtrlEnd         = -117    TKFieldView   = -108    TKUp         =  -72
  43.    TKCtrlHome        = -119    TKFormKey     =  -65    TKUpImage    =  -61
  44.    TKCtrlLeft        = -115    TKGoKey       =    7    TKVertRuler  =   22
  45.    TKCtrlPgDn        = -118    TKGraphKey    = -100    TKZoom       =   26
  46.    TKCtrlPgUp        = -132    TKHelp        =  -59    TKZoomNext   =  -44
  47.    TKCtrlRight       = -116    TKHome        =  -71
  48.    TKDel             =  -83    TKIns         =  -82
  49.    TKDeleteLine      =   25    TKInstantPlay = -107
  50.    TKInstantRecord   = -106    TKLeft        =  -75
  51.    TKInstantReport   = -110    TKLockKey     =  -38
  52.    TKKeyLookup       =  -37    TKMenu        =  -68
  53.  
  54.    TKF1  =  -59     TKF11 =  -84     TKF21 =  -94     TKF31 = -104
  55.    TKF2  =  -60     TKF12 =  -85     TKF22 =  -95     TKF32 = -105
  56.    TKF3  =  -61     TKF13 =  -86     TKF23 =  -96     TKF33 = -106
  57.    TKF4  =  -62     TKF14 =  -87     TKF24 =  -97     TKF34 = -107
  58.    TKF5  =  -63     TKF15 =  -88     TKF25 =  -98     TKF35 = -108
  59.    TKF6  =  -64     TKF16 =  -89     TKF26 =  -99     TKF36 = -109
  60.    TKF7  =  -65     TKF17 =  -90     TKF27 = -100     TKF37 = -110
  61.    TKF8  =  -66     TKF18 =  -91     TKF28 = -101     TKF38 = -111
  62.    TKF9  =  -67     TKF19 =  -92     TKF29 = -102     TKF39 = -112
  63.    TKF10 =  -68     TKF20 =  -93     TKF30 = -103     TKF40 = -113
  64.  
  65. Endproc
  66.