https://r2labs.org/scripts/anylink.js

1var disappeardelay=250  //menu disappear speed onMouseout (in miliseconds)
2var enableanchorlink=0 //Enable or disable the anchor link when clicked on? (1=e, 0=d)
3var hidemenu_onclick=1 //hide menu when user clicks within menu? (1=yes, 0=no)
4
5/////No further editting needed
6
7var ie5=document.all
8var ns6=document.getElementById&&!document.all
9
10function getposOffset(what, offsettype){
11var totaloffset=(offsettype=="left")? what.offsetLeft : what.offsetTop;
12var parentEl=what.offsetParent;
13while (parentEl!=null){
14totaloffset=(offsettype=="left")? totaloffset+parentEl.offsetLeft : totaloffset+parentEl.offsetTop;
15parentEl=parentEl.offsetParent;
16}
17return totaloffset;
18}
19
20function showhide(obj, e, visible, hidden){
21if (ie5||ns6)
22dropmenuobj.style.left=dropmenuobj.style.top=-500
23if (e.type=="click" && obj.visibility==hidden || e.type=="mouseover")
24obj.visibility=visible
25else if (e.type=="click")
26obj.visibility=hidden
27}
28
29function iecompattest(){
30return (document.compatMode && document.compatMode!="BackCompat")? document.documentElement : document.body
31}
32
33function clearbrowseredge(obj, whichedge){
34var edgeoffset=0
35if (whichedge=="rightedge"){
36var windowedge=ie5 && !window.opera? iecompattest().scrollLeft+iecompattest().clientWidth-15 : window.pageXOffset+window.innerWidth-15
37dropmenuobj.contentmeasure=dropmenuobj.offsetWidth
38if (windowedge-dropmenuobj.x < dropmenuobj.contentmeasure)
39edgeoffset=dropmenuobj.contentmeasure-obj.offsetWidth
40}
41else{
42var topedge=ie5 && !window.opera? iecompattest().scrollTop : window.pageYOffset
43var windowedge=ie5 && !window.opera? iecompattest().scrollTop+iecompattest().clientHeight-15 : window.pageYOffset+window.innerHeight-18
44dropmenuobj.contentmeasure=dropmenuobj.offsetHeight
45if (windowedge-dropmenuobj.y < dropmenuobj.contentmeasure){ //move up?
46edgeoffset=dropmenuobj.contentmeasure+obj.offsetHeight
47if ((dropmenuobj.y-topedge)<dropmenuobj.contentmeasure) //up no good either?
48edgeoffset=dropmenuobj.y+obj.offsetHeight-topedge
49}
50}
51return edgeoffset
52}
53
54function dropdownmenu(obj, e, dropmenuID){
55if (window.event) event.cancelBubble=true
56else if (e.stopPropagation) e.stopPropagation()
57if (typeof dropmenuobj!="undefined") //hide previous menu
58dropmenuobj.style.visibility="hidden"
59clearhidemenu()
60if (ie5||ns6){
61obj.onmouseout=delayhidemenu
62dropmenuobj=document.getElementById(dropmenuID)
63if (hidemenu_onclick) dropmenuobj.onclick=function(){dropmenuobj.style.visibility='hidden'}
64dropmenuobj.onmouseover=clearhidemenu
65dropmenuobj.onmouseout=ie5? function(){ dynamichide(event)} : function(event){ dynamichide(event)}
66showhide(dropmenuobj.style, e, "visible", "hidden")
67dropmenuobj.x=getposOffset(obj, "left")
68dropmenuobj.y=getposOffset(obj, "top")
69dropmenuobj.style.left=dropmenuobj.x-clearbrowseredge(obj, "rightedge")+"px"
70dropmenuobj.style.top=dropmenuobj.y-clearbrowseredge(obj, "bottomedge")+obj.offsetHeight+"px"
71}
72return clickreturnvalue()
73}
74
75function clickreturnvalue(){
76if ((ie5||ns6) && !enableanchorlink) return false
77else return true
78}
79
80function contains_ns6(a, b) {
81while (b.parentNode)
82if ((b = b.parentNode) == a)
83return true;
84return false;
85}
86
87function dynamichide(e){
88if (ie5&&!dropmenuobj.contains(e.toElement))
89delayhidemenu()
90else if (ns6&&e.currentTarget!= e.relatedTarget&& !contains_ns6(e.currentTarget, e.relatedTarget))
91delayhidemenu()
92}
93
94function delayhidemenu(){
95delayhide=setTimeout("dropmenuobj.style.visibility='hidden'",disappeardelay)
96}
97
98function clearhidemenu(){
99if (typeof delayhide!="undefined")
100clearTimeout(delayhide)
101}