home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / COLORS.FG_ / COLORS.FG
Encoding:
Text File  |  1997-12-08  |  1.0 KB  |  34 lines
  1. FUNCTION displayColors( title, clrs, prefix )
  2.     local str
  3.     if ( type( clrs ) != "A" )
  4.         clrs = { "black", "gray", "A8A8A8", "CDCDCD", "white", "23238E", "blue", "8F8FBD", "cyan", "aquamarine", "2F4F2F", "green", "238E68", "32CD32", "8FBC8F", "5C4033", "A67D3D", "orange", "gold", "yellow", "8C1717", "red", "FF1CAE", "DB7093", "BC8F8F", "871F78", "9932CD", "magenta", "violet", "EAADEA", "" }
  5.     end
  6.     if ( type( prefix ) != "C" )
  7.         prefix = ""
  8.     end
  9.  
  10.     str = "<p>\r\n"
  11.        str += "<FONT SIZE=2>" + title + "</FONT><br>\r\n"
  12.        str += "<TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1>\r\n"
  13.     str += "<TR>\r\n"
  14.     y = 1
  15.     i = 1
  16.     while ( 1 )
  17.         if ( strempty( clrs[i] ) )
  18.             break
  19.         end
  20.         if ( y > 5 )
  21.             str += "</TR><TR>\r\n"
  22.             y = 1
  23.         end
  24.         str += "<TD ALIGN=center BGCOLOR=\"" + clrs[i] + "\"><a href=\"" + prefix + clrs[i] + "\">    </TD>\r\n"
  25.         y++
  26.         i++
  27.     end
  28.     str += "</TR>\r\n"
  29.        str += "</TABLE>\r\n"
  30.     str += "</p>\r\n"
  31.  
  32.     return( str )
  33. END
  34.