home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / STDMETH.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  1.0 KB  |  31 lines
  1.     // StdMeth.prg
  2.     //
  3.     // StdMeth() - Apply standard key to Tbrowse object. Returns true if
  4.     //             key handled, otherwise false
  5.  
  6.     #include "Inkey.ch"
  7.  
  8.     FUNCTION StdMeth(nKey, oTbr)
  9.  
  10.     LOCAL lKeyHandled := .T.
  11.  
  12.       DO CASE
  13.         CASE nKey == K_DOWN;       oTbr:down()
  14.         CASE nKey == K_UP;         oTbr:up()
  15.         CASE nKey == K_PGDN;       oTbr:pageDown()
  16.         CASE nKey == K_PGUP;       oTbr:pageUp()
  17.         CASE nKey == K_CTRL_PGUP;  oTbr:goTop()
  18.         CASE nKey == K_CTRL_PGDN;  oTbr:goBottom()
  19.         CASE nKey == K_RIGHT;      oTbr:right()
  20.         CASE nKey == K_LEFT;       oTbr:left()
  21.         CASE nKey == K_HOME;       oTbr:home()
  22.         CASE nKey == K_END;        oTbr:end()
  23.         CASE nKey == K_CTRL_LEFT;  oTbr:panLeft()
  24.         CASE nKey == K_CTRL_RIGHT; oTbr:panRight()
  25.         CASE nKey == K_CTRL_HOME;  oTbr:panHome()
  26.         CASE nKey == K_CTRL_END;   oTbr:panEnd()
  27.         OTHERWISE;                 lKeyHandled := .F.
  28.       ENDCASE
  29.  
  30.     RETURN lKeyHandled
  31.