home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / employee / udfvideo.cl_ / udfvideo.cl
Encoding:
Text File  |  1994-08-18  |  1.2 KB  |  78 lines
  1. // UDFVIDEO.PRG
  2. // Employee Information video library functions
  3. // November, 1993
  4.  
  5. #include "sys.ch"
  6.  
  7. FUNCTION Normal_Color()
  8.  
  9.    IF IsColor()
  10.       RETURN SetColor('W+/B, GR+/B,,, GR+/B')
  11.    ENDIF
  12.  
  13.    RETURN SetColor('W/N, W/N,,, W/N')
  14.  
  15.  
  16. FUNCTION Get_Color()
  17.  
  18.    IF IsColor()
  19.       RETURN SetColor('W+/B, GR+/RB,,, GR+/B')
  20.    ENDIF
  21.  
  22.    RETURN SetColor('W/N, N/W,,, W/N')
  23.  
  24.  
  25. FUNCTION Error_Color()
  26.  
  27.    IF IsColor()
  28.       RETURN SetColor('W+/R')
  29.    ENDIF
  30.  
  31.    RETURN SetColor('W/N, N/W,,, N/W')
  32.  
  33.  
  34. FUNCTION Message_Color()
  35.  
  36.    IF IsColor()
  37.       RETURN SetColor('N/BG')
  38.    ENDIF
  39.  
  40.    RETURN SetColor('N/W')
  41.  
  42.  
  43. FUNCTION Warning_Color()
  44.  
  45.    IF IsColor()
  46.       RETURN SetColor('W+/B, W+/R')
  47.    ENDIF
  48.  
  49.    RETURN SetColor('W/N, N/W,,, N/W')
  50.  
  51.  
  52. FUNCTION Menu_Color()
  53.  
  54.    IF IsColor()
  55.       RETURN SetColor('W+/B, GR+/RB,,, GR+/RB')
  56.    ENDIF
  57.  
  58.    RETURN SetColor('W/N, N/W,,, N/W')
  59.  
  60.  
  61. FUNCTION Heading_Color()
  62.  
  63.    IF IsColor()
  64.       RETURN SetColor('GR+/B')
  65.    ENDIF
  66.  
  67.    RETURN SetColor('W/N, N/W,,, N/W')
  68.  
  69.  
  70. FUNCTION Browse_Color()
  71.  
  72.    IF IsColor()
  73.       RETURN 'W+/B, GR+/RB, W/B, W+/RB'
  74.    ENDIF
  75.  
  76.    RETURN 'W+/N, N/W, W/N, N/W'
  77.  
  78.