Leaked source code of windows server 2003
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.
|
|
<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>
|
