You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
1.9 KiB
61 lines
1.9 KiB
<PUBLIC:COMPONENT tagName="dev" XMLNS:dev>
|
|
<?IMPORT namespace="dev" implementation="devinfo.htc">
|
|
<PUBLIC:PROPERTY NAME="Expand" />
|
|
<PUBLIC:PROPERTY NAME="Instance" />
|
|
<PUBLIC:DEFAULTS viewLinkContent />
|
|
<PUBLIC:ATTACH EVENT="oncontentready" ONEVENT="Init()" />
|
|
<SCRIPT LANGUAGE="VBScript">
|
|
Dim normalColor
|
|
Dim devcon
|
|
Dim Inst
|
|
|
|
Sub Hilite()
|
|
normalColor = dev_title.runtimeStyle.color
|
|
dev_title.runtimeStyle.color = "blue"
|
|
End Sub
|
|
|
|
Sub Restore()
|
|
dev_title.runtimeStyle.color = normalColor
|
|
End Sub
|
|
|
|
Sub Init()
|
|
Expand = false
|
|
set fpClick = getRef("Click")
|
|
set fpHilite = getRef("Hilite")
|
|
set fpRestore = getRef("Restore")
|
|
set DevCon = CreateObject("DevCon.DeviceConsole")
|
|
set Inst = DevCon.DevicesByInstanceIds(Instance)(1)
|
|
dev_bound.attachEvent "onclick", fpClick
|
|
dev_bound.attachEvent "onmouseover", fpHilite
|
|
dev_bound.attachEvent "onmouseout", fpRestore
|
|
dev_title.innerHtml=element.innerHtml
|
|
dev_icon.ObtainIcon Inst
|
|
End Sub
|
|
|
|
Function DevProps
|
|
DevProps = "<br><dev:devinfo instance=""" & Instance & """ /></br>"
|
|
End Function
|
|
|
|
Sub Click()
|
|
Expand = Not Expand
|
|
If Expand Then
|
|
dev_info.innerHtml = DevProps
|
|
dev_info.style.display = ""
|
|
dev_arrow.src = "arrow_down.gif"
|
|
Else
|
|
dev_info.style.display = "none"
|
|
dev_arrow.src = "arrow_right.gif"
|
|
End If
|
|
End Sub
|
|
</SCRIPT>
|
|
<BODY>
|
|
<SPAN id="dev_bound">
|
|
<IMG align = "absmiddle" src="arrow_none.gif" width="25" height="15" />
|
|
<IMG id="dev_arrow" align = "absmiddle" src="arrow_right.gif" width="25" height="15" />
|
|
<object classid="clsid:514C3095-47E8-4B24-B831-FB1C22C1B1B6" id="dev_icon" width="16" height="16">
|
|
</object>
|
|
<SPAN id="dev_title"></SPAN>
|
|
</SPAN>
|
|
<SPAN id="dev_info"></SPAN>
|
|
</BODY>
|
|
</PUBLIC:COMPONENT>
|