home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / employee / udfwin.cl_ / udfwin.cl
Encoding:
Text File  |  1994-08-18  |  1.4 KB  |  62 lines
  1. // UDFWIN.PRG
  2. // Employee Information window library functions
  3. // November, 1993
  4.  
  5. #include "sys.ch"
  6.  
  7. FUNCTION Win_Open(TheTop, TheLeft, TheBottom, TheRight, TheTitle, TheMode)
  8.    LOCAL TheScreen, OldColor
  9.  
  10.    IF !ISCHARACTER(TheTitle)
  11.       TheTitle := ""
  12.    ENDIF
  13.  
  14.    IF !ISLOGICAL(TheMode)
  15.       TheMode := TRUE
  16.    ENDIF
  17.  
  18.    TheScreen := SCREENSAVE(TheTop, TheLeft, TheBottom, TheRight)
  19.    OldColor := Normal_Color()
  20.  
  21.    @ TheTop, TheLeft CLEAR TO TheBottom, TheRight
  22.    DispBox(TheTop, TheLeft, TheBottom, TheRight)
  23.  
  24.    Heading_Color()
  25.    @ TheTop, TheLeft + 2 SAY TheTitle
  26.  
  27.    SetColor(OldColor)
  28.  
  29.    RETURN TheScreen
  30.  
  31.  
  32. FUNCTION Win_Close(TheScreen)
  33.    LOCAL TheTop, TheLeft, TheBottom, TheRight, TheData
  34.  
  35.    TheTop    := Val(SubStr(TheScreen, 1, 2))
  36.    TheLeft   := Val(SubStr(TheScreen, 3, 2))
  37.    TheBottom := Val(SubStr(TheScreen, 5, 2))
  38.    TheRight  := Val(SubStr(TheScreen, 7, 2))
  39.    TheData   :=     SubStr(TheScreen, 9)
  40.  
  41.    RestScreen(TheTop, TheLeft, TheBottom, TheRight, TheData)
  42.  
  43.    RETURN TRUE
  44.  
  45.  
  46. FUNCTION Win_Msg(TheRow, TheLeft, TheRight, TheMsg)
  47.    LOCAL OldMsg, OldColor, OldRow, OldCol
  48.  
  49.    OldColor := Message_Color()
  50.    OldRow := Row()
  51.    OldCol := Col()
  52.    OldMsg := SCREENSAVE(TheRow, TheLeft + 1, TheRow, TheRight - 1)
  53.  
  54.    @ TheRow, TheLeft + 1 SAY CenterIt(TheMsg, TheRight - TheLeft - 1)
  55.  
  56.    SetColor(OldColor)
  57.    DevPos(OldRow, OldCol)
  58.  
  59.    RETURN OldMsg
  60.  
  61.  
  62.