source: www/manuals/HTML_Reference/document_structure_elements/safecol.htm@ 1

Last change on this file since 1 was 1, checked in by george, 17 years ago

Prvotní import všeho
File size: 1.5 KB
Line 
1<HTML>
2<!-- This file is part of the HTML Reference Library ('HTMLib') -->
3<!-- It should not be used outside of the HTMLib package -->
4<!-- The HTMLib is © 1995-1998 Stephen Le Hunte -->
5<!-- htmlib@htmlib.demon.co.uk -->
6<HEAD>
7<TITLE>The Safe browser palette</TITLE>
8<LINK REL="stylesheet" HREF="../style.css" TYPE="text/css">
9</HEAD>
10<BODY TOPMARGIN="0" BGCOLOR="#FFFFE0" TEXT="#000000">
11
12<CENTER>
13<SPAN CLASS="NSRtitle">The 'Safe' Browser Palette</SPAN>
14</CENTER>
15
16<SCRIPT LANGUAGE="VBScript">
17<!--
18cnt=0
19 document.writeLn ("<CENTER><P>Watch the status bar (and ToolTip) with the mouse over a colour to see the #rrggbb triplet value<P>")
20for red = 0 to 255 step 51
21 for green = 0 to 255 step 51
22 for blue = 0 to 255 step 51
23 Hred = Hex(red)
24 if len(Hred) < 2 then Hred = "0" & Hred
25 Hgreen = Hex(green)
26 if len(Hgreen) < 2 then Hgreen = "0" & Hgreen
27 Hblue = Hex(blue)
28 if len(Hblue) < 2 then Hblue = "0" & Hblue
29 colorval = Hred & Hgreen & Hblue
30 cnt=cnt+1
31 document.writeLn ("<A TITLE='#" & colorval & "' STYLE='{text-decoration : none;background : #" & colorval & "}' HREF=#null onMouseOver=" & Chr(34) & "top.status=" & Chr(39) & Chr(35) & colorval & Chr(39) & Chr(34) & " OnClick='javascript:return false'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</A>")
32 if cnt=12 then
33 document.writeLn ("<BR>")
34 cnt=0
35 end if
36 Next
37 Next
38Next
39-->
40</SCRIPT>
41
42<P ALIGN="right" CLASS="copyright">© 1995-1998, Stephen Le Hunte</P>
43</BODY>
44</HTML>
Note: See TracBrowser for help on using the repository browser.