home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / PRE307 / MEMOHELP.PRE < prev    next >
Text File  |  1989-10-31  |  2KB  |  71 lines
  1. procedure help_memo
  2.   private scrn,curs
  3. *   if type('h_m_first') = 'U'
  4. *     public h_m_first
  5. *     h_m_first = .t.
  6. *   else
  7. *     return
  8. *   endif
  9.  
  10.   curs = savecurs()
  11.   save screen to scrn
  12.   set cursor off
  13.   push_ckeys()
  14.   *set key F1 to
  15.   if .not. file('memohelp.txt')
  16.     set console off
  17.     text to file memohelp.txt
  18.  
  19.  
  20.                        Navigation Keys
  21.  
  22.        Key                Purpose
  23.        -----------------------------------------------------
  24.        Uparrow or Ctrl-E         Move up one line 
  25.        Dnarrow or Ctrl-X         Move down one line. 
  26.        Leftarrow or Ctrl-S       Move left one character 
  27.        Rightarrow or Ctrl-D      Move right one character 
  28.        Ctrl-Leftarrow or Ctrl-A  Move left one word 
  29.        Ctrl-Rightarrow or Ctrl-F Move right one word 
  30.        Home                      Beginning of current line 
  31.        End                       End of current line 
  32.        Ctrl-Home                 Beginning of the text 
  33.        Ctrl-End                  End of the text 
  34.        PgUp                      Next edit window up 
  35.        PgDn                      Next edit window down 
  36.        Ctrl-PgUp                 Beginning of current window 
  37.        Ctrl-PgDn                 End of current window
  38.  
  39.  
  40.  
  41.  
  42.  
  43.                          Editing Keys
  44.  
  45.        Key                Purpose
  46.        -----------------------------------------------------
  47.        Ctrl-Y              Delete the current line
  48.        Ctrl-T              Delete word right
  49.        Ctrl-B              Reformat text in the edit window
  50.  
  51.  
  52.                        Exit Keys
  53.  
  54.        Key                Purpose
  55.        -----------------------------------------------------
  56.        F10               Finish editing with save
  57.        Esc               Abort edit and return original
  58.     endtext
  59.     set console on
  60.   endif
  61.   @ r1-1,c1-2 to r2+1,c2+1 double
  62.   memed(memoread('memohelp.txt'),r1,c1,r2,c2,'','EDIT KEYS','')
  63.  
  64.   pop_keys()
  65.   *set key F1 to help_memo
  66.   restore screen from scrn
  67.   restcurs(curs)
  68. return
  69.  
  70.  
  71.