home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST115.PRG < prev    next >
Encoding:
Text File  |  1989-09-12  |  896 b   |  40 lines
  1. ********************
  2.  
  3. FUNCTION Blink
  4.  
  5.    PARAMETERS _bkrow, _bkcol, _bkmess, _bktog
  6.  
  7.    IF PCOUNT() = 0
  8.       _bkrow  = ROW()
  9.       _bkcol  = COL()
  10.       _bkmess = "Deleted Record"
  11.       _bktog  = DELETED()
  12.    ELSEIF PCOUNT() = 2
  13.       _bkmess = "Deleted Record"
  14.       _bktog  = DELETED()
  15.    ELSEIF PCOUNT() = 3
  16.       _bktog = .F.
  17.    ENDIF
  18.  
  19.    PRIVATE _ocolor, _ncolor
  20.  
  21.    _ocolor = SETCOLOR()
  22.    SETCOLOR(Set_color(Attribute(_bkrow, _bkcol)))
  23.    _ncolor = SETCOLOR()
  24.    IF ISCOLOR() .AND. !(IF(TYPE("scrmono")="U", .T., scrmono))
  25.       _ncolor = SUBSTR(_ncolor, 1, AT("/", _ncolor)-1 ) + "*" + SUBSTR(_ncolor, AT("/", _ncolor) )
  26.    ELSE
  27.       _ncolor = "W*+"
  28.    ENDIF
  29.    IF _bktog
  30.       SETCOLOR(_ncolor)
  31.       @ _bkrow, _bkcol SAY _bkmess
  32.    ELSE
  33.       @ _bkrow, _bkcol SAY SPACE(LEN(_bkmess))
  34.    ENDIF
  35.    SETCOLOR(_ocolor)
  36.    RETURN("")
  37.  
  38. * End of File
  39.  
  40.