home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST199.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.3 KB  |  50 lines
  1. *********************
  2.  
  3. FUNCTION Windowcls
  4.  
  5.    PARAMETERS _clr1, _clr2, _clr3, _clr4
  6.  
  7.    IF EMPTY(PCOUNT())
  8.       IF TYPE("allwindows") != "A"
  9.          _clr1 = 0
  10.          _clr2 = 0
  11.          _clr3 = 24
  12.          _clr4 = 79
  13.       ELSE
  14.          _clr1 = VAL(SUBSTR(allwindows[scr_level - 1], 1,  2))
  15.          _clr2 = VAL(SUBSTR(allwindows[scr_level - 1], 4,  2))
  16.          _clr3 = VAL(SUBSTR(allwindows[scr_level - 1], 7,  2))
  17.          _clr4 = VAL(SUBSTR(allwindows[scr_level - 1], 10, 2))
  18.          IF _clr1 = -1
  19.             _clr1 = -1
  20.             _clr2 = -1
  21.             _clr3 = 25
  22.             _clr4 = 80
  23.          ENDIF
  24.       ENDIF
  25.    ELSEIF PCOUNT() != 0 .OR. PCOUNT() != 4
  26.       RETURN(.F.)
  27.    ENDIF
  28.  
  29.    IF _clr1 != -1
  30.       _clr4 = IF(_clr4>=76, 76, _clr4)
  31.       _clr3 = IF(_clr3>=22, 22, _clr3)
  32.       _clr2 = IF(_clr2<=2, 2, _clr2)
  33.    ENDIF
  34.  
  35.    PRIVATE _qaz
  36.  
  37.    DO CASE 
  38.    CASE (_clr3 - _clr1 > 1) .AND. (_clr4 - _clr2 > 1)
  39.       SCROLL(_clr1 + 1, _clr2 + 1, _clr3 - 1, _clr4 - 1,0)
  40.    CASE (_clr3 - _clr1 > 1) .AND. !(_clr4 - _clr2 > 1)   && 1 column
  41.       FOR _qaz = _clr1+1 TO _clr3-1
  42.          @ _qaz,_clr2+1 SAY " "
  43.       NEXT
  44.    CASE !(_clr3 - _clr1 > 1) .AND. (_clr4 - _clr2 > 1)   && 1 Row
  45.       @ _clr1+1,_clr2 SAY SPACE((_clr4-_clr2)-2)
  46.    ENDCASE
  47.    RETURN(.T.)
  48.  
  49. * End of File
  50.