Imitation of a tool for Office 2003
Related Tags:
<html>
<head>
<meta Http-equiv="Content-Language" content="zh-cn">
<meta Http-equiv="Content-Type" content="text/html; charset=gb2312">
<title> Imitation of a tool for Office 2003 </ title>
<script>
/*----------
Shunzi production
Menu Javascript Made by PuterJam
E-mail: puterjam@etang.com
-------------*/
Var listnum = 0;
Var menu_height;
Var menu_width;
Var menu_left;
Var menu_top;
Var topMar = 1;
Var leftMar = 2;
Var space = 1;
Var isvisible;
Function listbox (listname, buttonname, valuename)
(
This.listname = listname
This.buttonname = buttonname
This.valuename = valuename
)
Function listaction (obj, action, showlist, scroll, tw)
(
Num = obj.id.charAt (obj.id.length-1)
If (! Scroll) = 0) (scroll
If (! Tw) tw = (105)
Listbox = eval (lb [num]. Listname)
Listbutton = eval (lb [num]. Buttonname)
Listvalue = eval (lb [num]. Valuename)
Switch (action)
(
Case 0:
Listbox.className = "getlist"; listbutton.className = "listover"
Break;
Case 1:
If (listbox.gf == "0")
Listbox.className = ( "lostlist"; listbutton.className = "menubar")
Break;
Case 2:
For (i = 0; i <lb.length; i)
(
If (num! = I.toString ()) (
Nlistbox = eval (lb [i]. Listname)
Nlistbutton = eval (lb [i]. Buttonname)
Nlistvalue = eval (lb [i]. Valuename)
Nlistbox.className = "lostlist"; nlistbutton.className = "menubar"
Nlistbox.gf = "0"
)
)
ShowMenu (listbox, showlist, tw, scroll); listbox.className = "getlist"; listbox.gf = "1"
Listnum = num;
Break;
)
)
Function HideMenu ()
(
Var mX;
Var mY;
Var vDiv;
Var mDiv;
If (isvisible == true)
(
VDiv = document.all ( "listDiv");
MX = window.event.clientX document.body.scrollLeft;
MY = window.event.clientY document.body.scrollTop;
If ((mX <parseInt (vDiv.style.left)) | | (mX> parseInt (vDiv.style.left) vDiv.offsetWidth) | |
(MY <parseInt (vDiv.style.top)-menu_height) | | (mY> parseInt (vDiv.style.top) vDiv.offsetHeight)) (
VDiv.style.visibility = "hidden";
Isvisible = false;
)
)
If (isvisible == false)
(
For (i = 0; i <lb.length; i)
(
Listbox = eval (lb [i]. Listname)
Listbutton = eval (lb [i]. Buttonname)
Listvalue = eval (lb [i]. Valuename)
Listbox.className = "lostlist"; listbutton.className = "menubar"
Listbox.gf = "0"
)
)
)
Function ShowMenu (obj, vMnuCode, tWidth, scroll) (
VMnuCode = "<table id = 'submenu' cellspacing = 0 cellpadding = 0 bgcolor = # ffffff Border = 0 style = 'width:" tWidth
"Border-collapse: collapse 'class =' listDiv '> <tr height=23> <td nowrap align=left>"
VMnuCode "</ td> </ tr> </ table>";
Menu_height = obj.offsetHeight;
Menu_width = obj.offsetWidth;
Obj.offsetLeft leftMar menu_left = 2;
Menu_top = obj.offsetTop topMar menu_height space-3;
VParent = obj.offsetParent;
While (vParent.tagName.toUpperCase ()! = "BODY")
(
Menu_left = vParent.offsetLeft;
Menu_top = vParent.offsetTop;
VParent = vParent.offsetParent;
)
ListDiv.innerHTML = vMnuCode;
ListDiv.style.top = menu_top;
ListDiv.style.left = menu_left;
If (scroll == 0) (listDiv.style.overflow = "visible";) listDiv.style.width = tWidth
Else (listDiv.style.overflow = "scroll"; tWidth listDiv.style.width = 18)
ListDiv.style.visibility = "visible";
Var cssopaction submenu.filters = [0]. Opacity
Submenu.filters [0]. Opacity = 0;
Submenu.filters [1]. Apply ();
Submenu.filters [0]. Opacity = 100;
Submenu.filters [1]. Play ();
Isvisible = true;
)
Function menuitem (lightcolor, normalcolor, icon, title, url)
(
This.lightcolor = lightcolor
This.normalcolor = normalcolor
This.icon = icon
This.title = title
This.url url =
)
Function bulidmenu (arrayname)
(
Var menuarray = eval (arrayname)
Menucontent = '<table border="0" width="100%">'
For (i = 0; i <menuarray.length; i)
(
If (menuarray [i]. Title! = "_line")
(
If (menuarray [i]. Url! = "_disable") (Css = "getitem") else (css = "lostitem")
If (menuarray [i]. Icon.length == 0)
(
Content = '<table cellspacing="0" cellpadding="0"> <tr> <td style="text-indent:4px" class="' css'">' menuarray [i]. Title '</ td> </ tr> </ table> '
)
Else
(
Content = '<table cellspacing="0" cellpadding="0"> <tr> <td width="20" nowrap> <img src="' menuarray[i].icon'"> </ td> <td class = " 'css'">' menuarray [i]. title '</ td> </ tr> </ table>'
)
If (menuarray [i]. Url! = "_disable") (
Menucontent = menucontent '<tr> <td Height = 16 style = "cursor: default" onmouseover = "style.backgroundColor = \''menuarray [i]. Lightcolor' \ '" onmouseout = "style.backgroundColor = \''menuarray [i]. normalcolor '\' "onclick =" Golist (\''menuarray [i]. title '\')">' content' </ td> </ tr> '
)
Else
(
Menucontent = menucontent '<tr> <td height=16 style="fitler:gray">' content '</ td> </ tr>'
)
)
Else
(
Menucontent = menucontent '<tr> <td height=4> <img src="images/dock.gif" width="99%" height=1> </ td> </ tr>'
)
)
Menucontent menucontent = "</ table>"
Return menucontent
)
Function HL_Menu (obj, state)
(
Switch (state)
(
Case 0:
Obj.className = "menuover"
Break;
Case 1:
Obj.className = "menuup"
Break;
)
)
Var lb = new Array ()
Lb [0] = new listbox ( 'listbox0', 'listbutton0', 'listvalue0')
Lb [1] = new listbox ( 'listbox1', 'listbutton1', 'listvalue1')
Var list1 = new Array ()
List1 [0] = new menuitem ( "# B1CBE4 ","",""," ListItem1 ","")
List1 [1] = new menuitem ( "# B1CBE4 ","",""," ListItem2 ","")
List1 [2] = new menuitem ( "# B1CBE4 ","",""," ListItem3 ","")
List1 [3] = new menuitem ( "# B1CBE4 ","",""," ListItem4 ","")
List1 [4] = new menuitem ( "# B1CBE4 ","",""," ListItem5 ","")
List1 [5] = new menuitem ( "# B1CBE4 ","",""," ListItem6 ","")
List1 [6] = new menuitem ( "# B1CBE4 ","",""," ListItem7 ","")
List1 [7] = new menuitem ( "# B1CBE4 ","",""," ListItem8 ","")
List1 [8] = new menuitem ( "# B1CBE4 ","",""," ListItem9 ","")
List1 [9] = new menuitem ( "# B1CBE4 ","",""," ListItem10 ","")
Blist1 = bulidmenu ( "list1")
Var list2 = new Array ()
List2 [0] = new menuitem ( "# 1 ","") Font B1CBE4 ","","","
List2 [1] = new menuitem ( "# 2 ","") font B1CBE4 ","","","
List2 [2] = new menuitem ( "# 3 ","") font B1CBE4 ","","","
List2 [3] = new menuitem ( "# 4 ","") font B1CBE4 ","","","
List2 [4] = new menuitem ( "# 5 ","") font B1CBE4 ","","","
List2 [5] = new menuitem ( "# 6 ","") font B1CBE4 ","","","
List2 [6] = new menuitem ( "# 7 ","") font B1CBE4 ","","","
List2 [7] = new menuitem ( "# 8 ","") font B1CBE4 ","","","
List2 [8] = new menuitem ( "# 9 ","") font B1CBE4 ","","","
List2 [9] = new menuitem ( "# 10 ","") font B1CBE4 ","","","
Blist2 = bulidmenu ( "list2")
Function Golist (text)
(
Listvalue = eval (lb [listnum]. Valuename)
Listvalue.innerText = text
VDiv = document.all ( "listDiv");
VDiv.style.visibility = "hidden";
Isvisible = false;
)
</ Script>
<style>
. Lostfocus (border: 1px # ffffff solid; background-color: # ffffff; font-size: 12px; font-family: Arial;)
. Getfocus (border: 1px # 08246B solid; background-color: # ffffff; font-family: Arial; font-size: 12px;)
. Menubar (filter: progid: DXImageTransform.Microsoft.Gradient (gradienttype = 0, = # F7F7F7 startcolorstr, endcolorstr = # DEDBD6))
. Bodybar (filter: progid: DXImageTransform.Microsoft.Gradient (gradienttype = 1, endcolorstr = # F7F7F7, startcolorstr = # DEDBD6))
. Leftitem (font-family: Arial; font-size: 12px; color: # 000000; cursor: hand)
. Getitem (font-family: Arial; font-size: 12px; color: # 000000; cursor: default)
. Lostitem (cursor: default; color: # 808080; font-size: 12px; font-family: Arial;)
. Menuup (PADDING-LEFT: 4px; PADDING-RIGHT: 4px; CURSOR: hand;)
. Menuover (PADDING-LEFT: 3px; PADDING-RIGHT: 3px; BACKGROUND-COLOR: # B5BED6; BORDER: 1px solid # 08246B; CURSOR: hand;)
. Lostlist (border: 1px # ffffff solid; background-color: # ffffff; font-size: 12px; font-family: Arial;)
. Getlist (border: 1px # 08246B solid; background-color: # ffffff; font-family: Arial; font-size: 12px;)
. Listover (BACKGROUND-COLOR: # B5BED6; BORDER-left: 1px solid # 08246B)
. ListDiv (filter: alpha (opacity = 90, finishopacity = 0, style = 0) blendtrans (duration =. 3);)
</ Style>
</ Head>
<body Onclick="HideMenu()" style="margin:0px" bgcolor="999999">
<div Id=listDiv style='border:1px #636563 solid;VISIBILITY: hidden;POSITION: absolute;overflow:scroll;height:150'> </ div>
<table Border="0" width="100%" id="table27" class="bodybar" cellspacing="0" cellpadding="0">
<tr>
<td>
<table Border="0" cellspacing="0" cellpadding="0" height="30">
<tr>
<td> <table Border="0" cellspacing="0" cellpadding="0" height="22">
<tr>
<td Width="5"> </ td>
<td Nowrap align="center" onmouseover="HL_Menu(this,0)" onmouseout="HL_Menu(this,1)" class="menuup">
<table Border="0" cellspacing="0" cellpadding="0"> <tr> <td class="leftitem"> document (F) </ td> </ tr> </ table>
</ Td>
<td Width="5"> </ td>
<td Nowrap align="center" onmouseover="HL_Menu(this,0)" onmouseout="HL_Menu(this,1)" class="menuup">
<table Border="0" cellspacing="0" cellpadding="0"> <tr> <td class="leftitem"> editor (E) </ td> </ tr> </ table>
</ Td>
</ Tr>
</ Table> </ td>
</ Tr>
</ Table>
</ Td>
</ Tr>
<tr>
<td>
<table Border="1" width="100" id="table28" cellspacing="0" cellpadding="4" bgcolor="#F7F7F7" style="border-collapse: collapse">
<tr>
<td Class="menubar">
<table Border="0" width="100%" id="table29" cellspacing="0" cellpadding="0">
<tr>
<td Width="10" nowrap>
<table Border="0" width="2" cellspacing="0" cellpadding="1" id="table30">
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
</ Table> </ td>
<td Width="35" nowrap> <font size="2"> name </ font> </ td>
<td Width="130" nowrap>
<Input type = "text" name = "T5" size = "18" class = "lostfocus" gf = "0" onmouseover = 'this.className = "getfocus"' onmouseout = 'if (this.gf == "0 ") this.className =" lostfocus " 'onblur =' this.className =" lostfocus "; this.gf =" 0 " 'onfocus =' this.className =" getfocus "; this.gf =" 1 " '> < / td>
<td Width="35" nowrap> <font size="2"> password </ font> </ td>
<td Width="124" nowrap>
<Input type = "password" name = "T6" size = "18" class = "lostfocus" gf = "0" onmouseover = 'this.className = "getfocus"' onmouseout = 'if (this.gf == "0 ") this.className =" lostfocus " 'onblur =' this.className =" lostfocus "; this.gf =" 0 " 'onfocus =' this.className =" getfocus "; this.gf =" 1 " '> < / td>
<td Width="5" nowrap> <img style="border:1px inset" height=14 width=0> </ td>
<td Nowrap align="center" onmouseover="HL_Menu(this,0)" onmouseout="HL_Menu(this,1)" class="menuup">
<table Cellspacing="0" cellpadding="0" id="table31" width="25"> <tr> <td nowrap> </ td> <td class="leftitem">
Landing </ td> </ tr> </ table>
</ Td>
<td Width="100%" nowrap> </ td>
</ Tr>
</ Table>
</ Td>
</ Tr>
</ Table>
</ Td>
</ Tr>
<tr>
<td>
<table Border="1" width="100" id="table32" cellspacing="0" cellpadding="4" bgcolor="#F7F7F7" style="border-collapse: collapse">
<tr>
<td Class="menubar">
<table Border="0" width="100%" id="table33" cellspacing="0" cellpadding="0">
<tr>
<td Width="10" nowrap>
<table Border="0" width="2" cellspacing="0" cellpadding="1" id="table34">
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
<tr>
<td> <img Style="border:1px inset" height=1 width=1> </ td>
</ Tr>
</ Table> </ td>
<td Width="78" nowrap>
<Div id = "listbox0" class = "lostfocus" gf = "0" onmouseover = 'listaction (this, 0)' onmouseout = 'listaction (this, 1)' onclick = 'listaction (this, 2, blist1, 0) 'style = "cursor: default">
<table Border="0" cellpadding="0" cellspacing="0" width="100" height="18" id="table35">
<tr>
<td Valign=center style="text-indent:4px"> <font size="2" face="Verdana">
<span Id=listvalue0>
</ Span> </ font> </ td>
<td Width=12 align="center" class="menubar" id="listbutton0">
<table Border="0" cellpadding="0" style="border-collapse: collapse" id="table36">
<tr Height=1>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
</ Tr>
<tr Height=1>
<td> </ Td>
<td Bgcolor="#000000"> </ td>
<td Bgcolor="#000000"> </ td>
<td Bgcolor="#000000"> </ td>
<td> </ Td>
</ Tr>
<tr Height=1>
<td> </ Td>
<td> </ Td>
<td Bgcolor="#000000"> </ td>
<td> </ Td>
<td> </ Td>
</ Tr>
</ Table> </ td>
</ Tr>
</ Table>
</ Div> </ td>
<td Width="78" nowrap>
<Div id = "listbox1" class = "lostfocus" gf = "0" onmouseover = 'listaction (this, 0)' onmouseout = 'listaction (this, 1)' onclick = 'listaction (this, 2, blist2, 1100) 'style = "cursor: default">
<table Border="0" cellpadding="0" cellspacing="0" width="100" height="18" id="table37">
<tr>
<td Valign=center style="text-indent:4px"> <font size="2" face="Verdana"> <span id=listvalue1>
</ Span> </ font> </ td>
<td Width=12 align="center" class="menubar" id="listbutton1">
<table Border="0" cellpadding="0" style="border-collapse: collapse" id="table38">
<tr Height=1>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
<td Width="1" bgcolor="#000000"> </ td>
</ Tr>
<tr Height=1>
<td> </ Td>
<td Bgcolor="#000000"> </ td>
<td Bgcolor="#000000"> </ td>
<td Bgcolor="#000000"> </ td>
<td> </ Td>
</ Tr>
<tr Height=1>
<td> </ Td>
<td> </ Td>
<td Bgcolor="#000000"> </ td>
<td> </ Td>
<td> </ Td>
</ Tr>
</ Table> </ td>
</ Tr>
</ Table>
</ Div> </ td>
<td Width="4" nowrap>
</ Td>
<td Width="5" nowrap> <img style="border:1px inset" height=14 width=0> </ td>
<td Nowrap align="center" onmouseover="HL_Menu(this,0)" onmouseout="HL_Menu(this,1)" class="menuup">
<table Cellspacing="0" cellpadding="0" id="table39" width="16"> <tr> <td nowrap> </ td> <td class="leftitem" align=center>
<b> B </ b> </ td> </ tr> </ table>
</ Td>
<td Nowrap align="center" onmouseover="HL_Menu(this,0)" onmouseout="HL_Menu(this,1)" class="menuup">
<table Cellspacing="0" cellpadding="0" id="table40" width="16"> <tr> <td nowrap> </ td> <td class="leftitem" align=center>
<i>
<b> I </ b> </ i> </ td> </ tr> </ table>
</ Td>
<td Nowrap align="center" onmouseover="HL_Menu(this,0)" onmouseout="HL_Menu(this,1)" class="menuup">
<table Cellspacing="0" cellpadding="0" id="table41" width="16"> <tr> <td nowrap> </ td> <td class="leftitem" align=center>
<u>
<b> U </ b> </ u> </ td> </ tr> </ table>
</ Td>
<td Width="100%" nowrap> </ td>
</ Tr>
</ Table>
</ Td>
</ Tr>
</ Table>
</ Td>
</ Tr>
</ Table>
<p> <font Size="2" color="#FFFFFF"> his spare time to do the small things <br> Office 2003-like tools, do not have any major attempt to picture (of course, not all the buttons are doing out), all the controls and Javascript are used css do <br> menu is not done, in the lazy <br>
<br>
Interested friends can contact me and we exchange exchanges. </ Font> </ p>
<p> <b> <font Size="2" color="#FFFFFF"> <a href=" mailto:puterjam@etang.com ">
<font Color="#FFFFFF" face="Arial"> PuterJam@etang.com </ font> </ a> </ font> </ b>
</ P>
</ Body>
</ Html>
- Web site of a foreign model for simple imitation questioned profits
- On GIF indexed color images of the three "imitation color" mode
- Imitation combox (select) control
- CSS navigation menu: Taobao imitation of the Home navigation layout effect
- CSS pure imitation classic drop-down menu
- Fireworks imitation MSN browser button production
- Flash produced imitation of the picture gradual effect
- CSS pure imitation classic drop-down menu code
- Imitation PHP Pagination written ASP
- DIV + CSS imitation NetEase Gudongmen AJAX technology, and hope that the template for the design of Home Help!
- Imitation WINDOWS XP Start menu navigation
- Fireworks imitation ink brief tutorial
- Imitation of a tool for Office 2003
- Imitation DataGrid with Javascript
- Taobao imitation station navigation labelling effect!
- CCTV network Flash imitation dynamic navigation menu
- 6 room picture imitation site links effect
- CSS Taobao imitation of the Home navigation layout effect
- Imitation DW8 code folding HTML editors
- Flash JS create full-screen windows imitation
