home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
CLIPPER
/
SCRNUZ
/
MEMVLINE.PRG
< prev
next >
Wrap
Text File
|
1992-11-12
|
2KB
|
58 lines
*.............................................................................
*
* Program Name: MEMVLINE.PRG Copyright: EDON Corporation
* Date Created: 02/25/91 Language: Clipper S'87
* Time Created: 08:31:45 Author: Ed Phillips
* Desc: Vertical Line function for Memscrn.prg
*.............................................................................
PROCEDURE Make_Vline
PRIVATE key, wcolor, top, left, bottom, right
SAVE SCREEN
* wcolor = Setcolor(c_statln1)
* @ 0,0 SAY 'VLINE Pending...'
* Setcolor(wcolor)
@ r,c SAY '■'
top = r
left = c
Gotoxy(r,c)
DO WHILE .T.
StatLine('VLINE Pending...')
key = Inkey(0)
IF key < 32
IF key = 27 && escape
RESTORE SCREEN
@ r,c SAY ''
EXIT
ENDIF
DO CtrlKey
ELSEIF key >= 271
DO AltKey
ELSE
IF Chr(key) $ 'Vv'
bottom = Row()
right = Col()
DO SwapChk
IF single
IF top = bottom
@ top,left SAY '│'
ELSE
@ top,left TO bottom,left
ENDIF && IF top = bottom
ELSEIF top = bottom
@ top,left SAY '║'
ELSE
@ top,left TO bottom,left DOUBLE
ENDIF && IF single
changed = .t.
EXIT
ENDIF && IF Chr(key) $ 'Vv'
ENDIF && IF key < 32
ENDDO && DO WHILE .T.
@ r,c SAY ''
RETURN
* EOF: MEMVLINE.PRG