Your ROOT_URL in app.ini is http://git.zky.com/ but you are visiting http://61.178.84.89:8998/luoluo/zhky/blame/commit/922acc984068a8111d780d9251ec62057ae0e971/web/js/coolMenu.htc You should set ROOT_URL correctly, otherwise the web may not work correctly.
zhky/web/js/coolMenu.htc

63 lines
1.5 KiB

1 year ago
<PUBLIC:COMPONENT lightWeight=false>
<PUBLIC:DEFAULTS contentEditable=false tabStop=false/>
<PUBLIC:attach event="ondocumentready" onevent="initCoolMenu()" />
<PUBLIC:property name="menuRoot" value="" />
<PUBLIC:property name="menuSized" value=false />
<PUBLIC:method name="sizeMenu" />
<PUBLIC:method name="setMenuItem" />
<PUBLIC:method name="getMenuItem" />
<script language="VBScript">
option explicit
dim currentMenuItem
sub initCoolMenu()
set currentMenuItem = nothing
element.nowrap = true
element.style.filter = "blendTrans(duration=0.50) progid:DXImageTransform.Microsoft.Shadow(color=#323232, direction=135, strength=3)"
end sub
sub sizeMenu()
dim childItem, elW, oldState, i
if menuSized then exit sub
elW = element.offsetWidth
menuSized = true
for each childItem in element.children
with childItem
if .className = "coolMenuDivider" then
.style.width = elW - 3
end if
if .className = "coolMenuItem" then
oldState = .enabled
if not oldState then .enabled = true
for i = 0 to .children.length - 1
with .children(i)
if .className = "coolMenuMore" then
childItem.style.paddingRight = "0px"
.style.paddingLeft = (elW - 2) - (.offsetLeft + .offsetWidth)
end if
end with
next
.style.width = elW - 2
if not oldState then .enabled = false
end if
end with
next
end sub
sub setMenuItem(el)
set currentMenuItem = el
end sub
function getMenuItem()
set getMenuItem = currentMenuItem
end function
</script>
</PUBLIC:COMPONENT>