home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gt_hilit.prg < prev    next >
Text File  |  1993-10-14  |  2KB  |  94 lines
  1. /*
  2.     File......: GT_Hilite.prg
  3.     Author....: Martin Bryant
  4.     BBS.......: The Dark Knight Returns
  5.     Net/Node..: 050/069
  6.     User Name.: Martin Bryant
  7.     Date......: 10/02/93
  8.     Revision..: 1.0
  9.  
  10.     This is an original work by Martin Bryant and is placed
  11.     in the public domain.
  12.  
  13.     Modification history:
  14.     ---------------------
  15.  
  16.     Rev 1.0 10/02/93
  17.     PD Revision.
  18. */
  19.  
  20. /*  $DOC$
  21.  *  $FUNCNAME$
  22.  *      GT_HILITE()
  23.  *  $CATEGORY$
  24.  *      Video
  25.  *  $ONELINER$
  26.  *      Change the flash brightnes etc of a colour string.
  27.  *  $SYNTAX$
  28.  *      GT_Hilite([<cColour>]) -> cNewColour
  29.  *  $ARGUMENTS$
  30.  *      <cColour> is the colour to use. If not specified
  31.  *      the default colour will be used.
  32.  *  $RETURNS$
  33.  *      cNewColour
  34.  *  $DESCRIPTION$
  35.  *      Change the flash brightnes etc of a colour string.
  36.  *  $EXAMPLES$
  37.  *      // Hilite
  38.  *      cFlash := GT_Hilite(cMessageColour,'*')
  39.  *  $SEEALSO$
  40.  *
  41.  *  $INCLUDE$
  42.  *
  43.  *  $END$
  44.  */
  45.  
  46. #include "GT_LIB.ch"
  47.  
  48. Function GT_Hilite(cColour,cCode)
  49.  
  50. LOCAL cReturn := ''
  51. LOCAL cTemp := ''
  52. LOCAL nCount := 0
  53. LOCAL nParts := 05
  54. LOCAL nFound := 0
  55.  
  56. Default cColour to SETCOLOR()
  57. Default cCode to '*'
  58.  
  59. //  Extract colors
  60. FOR nCount := 1 TO nParts
  61.  
  62.     // Found a Comma ?
  63.     nFound := AT(',',cColour)
  64.     IF nFound > 0
  65.         cTemp := SUBSTR(cColour,1,nFound-1)
  66.     ELSE
  67.         cTemp := cColour
  68.     ENDIF
  69.  
  70.     // Extract
  71.     cColour := SUBSTR(cColour,AT(',',cColour)+1)
  72.  
  73.     // Convert
  74.     IF nCount != 3 .AND. nCount != 4
  75.  
  76.         // Not background etc
  77.         cTemp := IF(cCode$cTemp,STRTRAN(cTemp,cCode),cCode + cTemp)
  78.  
  79.     ENDIF
  80.  
  81.     // Add value
  82.     cReturn += ',' + cTemp
  83.  
  84. NEXT
  85.  
  86. //  Remove First comma
  87. cReturn := SUBSTR(cReturn,2)
  88.  
  89. /*
  90.     End of GT_Hilite()
  91. */
  92. RETURN(cReturn)
  93.  
  94.