home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / snip0693.zip / DRAWBOX.PRG < prev    next >
Text File  |  1993-03-13  |  666b  |  19 lines

  1. Function DrawBox (RowStart, ColStart, RowEnd, ColEnd, TipoBox, Shadow)
  2.     Default TipoBox To B_DOUBLE
  3.     Default Shadow  To True
  4.  
  5.     Scroll (RowStart, ColStart, RowEnd, ColEnd, 0, -1)
  6.     Box (RowStart, ColStart, RowEnd, ColEnd, TipoBox, -1, False)
  7.     If Shadow
  8.         If (RowEnd < MaxRow () - 1)
  9.             SetAttr (RowEnd + 1, ColStart + 2, RowEnd + 1, ColEnd + 1, 8)
  10.         End
  11.         If (ColEnd < MaxCol ())
  12.             SetAttr (RowStart + 1, ColEnd + 1, RowEnd + 1, ColEnd + 1, 8)
  13.         End
  14.         If (ColEnd + 1 < MaxCol ())
  15.             SetAttr (RowStart + 1, ColEnd + 2, RowEnd + 1, ColEnd + 2, 8)
  16.         End
  17.     End
  18. Return Nil
  19.