home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
clipper
/
snip0693.zip
/
DRAWBOX.PRG
< prev
next >
Wrap
Text File
|
1993-03-13
|
666b
|
19 lines
Function DrawBox (RowStart, ColStart, RowEnd, ColEnd, TipoBox, Shadow)
Default TipoBox To B_DOUBLE
Default Shadow To True
Scroll (RowStart, ColStart, RowEnd, ColEnd, 0, -1)
Box (RowStart, ColStart, RowEnd, ColEnd, TipoBox, -1, False)
If Shadow
If (RowEnd < MaxRow () - 1)
SetAttr (RowEnd + 1, ColStart + 2, RowEnd + 1, ColEnd + 1, 8)
End
If (ColEnd < MaxCol ())
SetAttr (RowStart + 1, ColEnd + 1, RowEnd + 1, ColEnd + 1, 8)
End
If (ColEnd + 1 < MaxCol ())
SetAttr (RowStart + 1, ColEnd + 2, RowEnd + 1, ColEnd + 2, 8)
End
End
Return Nil