home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / APOP.ZIP / WINSHADE.PRG < prev   
Encoding:
Text File  |  1993-04-24  |  1.1 KB  |  26 lines
  1. ************************************************************************
  2. *  PROGRAM: WINSHADE.PRG
  3. *  WRITER: KRAIG W. KRIST/T BEAR COMPUTER SERVICES
  4. *  DATE: APRIL 1993
  5. *  DESCRIPTION: MODIFIED ORIGINAL BY EDWARD TILEY.
  6. ************************************************************************
  7. *             ---- MODIFICATION LOG ----
  8. *  WHEN:
  9. *   WHY:
  10. ************************************************************************
  11. *
  12. * CALLED BY: APOP
  13. *   PASSED FROM APOP: TOP, LEFT, BOTTOM, RIGHT
  14. *   RETURNS TO APOP: NOTHING
  15. ************************************************************************
  16. ********************************************************************
  17. * DRAW A BOX SHADOW TO THE RIGHT AND BOTTOM OF THE BOX.
  18. ********************************************************************
  19. FUNCTION WINSHADE(nTOP,nLEFT,nBOTTOM,nRIGHT)
  20.   RESTSCREEN(nTOP+1,nLEFT+1,nBOTTOM+1,nRIGHT+1,;
  21.    TRANSFORM(SAVESCREEN(nTOP+1,nLEFT+1,nBOTTOM+1,nRIGHT+1),;
  22.    REPLICATE('X'+CHR(7),;
  23.    LEN(SAVESCREEN(nTOP+1,nLEFT+1,nBOTTOM+1,nRIGHT+1)))))
  24.   @ nTOP,nLEFT CLEAR TO nBOTTOM,nRIGHT
  25. RETURN(NIL)
  26.