home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMHLINE.PRG < prev    next >
Text File  |  1992-11-12  |  2KB  |  50 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMHLINE.PRG      Copyright: EDON Corporation
  4. *   Date Created: 02/25/91           Language: Clipper S'87
  5. *   Time Created: 08:27:12             Author: Ed Phillips
  6. *           Desc: Horizontal Line function, for memscrn.prg
  7. *.............................................................................
  8.  
  9. PROCEDURE Make_Hline
  10.    PRIVATE key, wcolor, top, left, right, bottom
  11.    SAVE SCREEN
  12. *   wcolor = Setcolor(c_statln1)
  13. *   @ 0,0 SAY 'HLINE Pending...'
  14. *   Setcolor(wcolor)
  15.    @ r,c SAY '■'
  16.    top = r
  17.    left = c
  18.    Gotoxy(r,c)
  19.    DO WHILE .T.
  20.       StatLine('HLINE Pending...')
  21.       key = Inkey(0)
  22.       IF key < 32
  23.          IF key = 27                             && escape
  24.             RESTORE SCREEN
  25.             @ r,c SAY ''
  26.             EXIT
  27.          ENDIF
  28.  
  29.          DO CtrlKey
  30.       ELSEIF key >= 271
  31.          DO AltKey
  32.       ELSE
  33.          IF Chr(key) $ 'Hh'
  34.             bottom = Row()
  35.             right = Col()
  36.             DO SwapChk
  37.             IF single
  38.                @ top,left TO top,right
  39.             ELSE
  40.                @ top,left TO top,right DOUBLE
  41.             ENDIF                                && IF single
  42.             changed = .t.
  43.             EXIT
  44.          ENDIF                                   && IF Chr(key) $ 'Hh'
  45.       ENDIF                                      && IF key < 32
  46.    ENDDO                                         && DO WHILE .T.
  47.    @ r,c SAY ''
  48. RETURN
  49. * EOF: MEMHLINE.PRG
  50.