home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / udfs / udf5.prg < prev   
Encoding:
Text File  |  1992-05-06  |  1.2 KB  |  38 lines
  1. /*
  2.  
  3. Author:           DAVID -(FLASH)- GORDON     CompuServ ID - 75130,3664
  4.  
  5. Originally:       Program COPYRIGHT 1991, FlashPoint
  6.  
  7. Now and Forever:  Released into the Public Domain
  8.  
  9. Note:             FlashPoint is a Registered Trademark
  10.  
  11. Purpose:          Shadow() simply creates a non-destructive shadow around
  12.                   your boxes.
  13. */
  14.  
  15. * Usage In Your Application
  16. ******************************************************************************
  17.  
  18. SetColor("B/B")
  19. CLEAR
  20. SHADOW(7,14,18,65)
  21. SetColor("BG/B")
  22. @  7,14 clear to 18,65
  23. @  8,16 to 17,63 double
  24.  
  25. ******************************************************************************
  26.  
  27. FUNCTION SHADOW( nTop, nLeft, nBottom, nRight )
  28.     LOCAL cHide, cMask := REPLICATE( "X" + CHR(8), 79 )
  29.  
  30.     cHide = SAVESCREEN( nBottom + 1, nLeft + 2, nBottom + 1, nRight +1 )
  31.     cHide = TRAN( cHide, LEFT( cMask, LEN( cHide ) ) )
  32.     RESTSCREEN( nBottom + 1, nLeft + 2, nBottom + 1, nRight + 1, cHide )
  33.  
  34.     cHide = SAVESCREEN( nTop + 1, nRight + 1, nBottom + 1, nRight + 2 )
  35.     cHide = TRAN( cHide, LEFT( cMask, LEN( cHide ) ) )
  36.     RESTSCREEN( nTop + 1, nRight + 1, nBottom + 1, nRight + 2, cHide )
  37. RETURN .T.
  38.