WORKAROUND
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
To work around this problem, you can modify the HTML files that the Windows Media Administrator uses. On a Microsoft Windows 2000-based computer, these files are located in the C:\Winnt\System32\Windows Media\Server folder. On Windows NT 4.0-based and Windows 9
x-based computers, these files are located in the C:\Program Files\Windows Media Components\Server folder.
To realign the drop-down menus, you must add an offset to the code that shows the menus. Each of the files that are listed below display an effected menu. To edit the files, use an HTML editor or a text editor such as Notepad. Search for "ShowMenu" to find the ShowMenu subroutine, which is the portion that needs to be edited. The code for each file adds the offsets to the
MenuX and
MenuY parameters in the
PopUp function.
NOTE: Before you edit any file, it is strongly recommended that you back up the originals to a safe location.
Vrtop.htm
Sub ShowMenu(menu)
Dim MenuX, MenuY
If menu = "OnDemand" Then
Call top.code.ObjectToIEClientCoords( document.all.BTN_DEMAND, MenuX, MenuY )
Call Menu1.PopUp( CInt( MenuX + 240), CInt( MenuY + 30) )
ElseIf menu = "Broadcast" Then
Call top.code.ObjectToIEClientCoords( document.all.BTN_BROADCAST, MenuX, MenuY )
Call Menu2.PopUp( CInt( MenuX + 240), CInt( MenuY +30) )
End If
End Sub
Stations.htm
Sub ShowMenu()
Dim MenuX, MenuY
Call top.code.ObjectToIEClientCoords( document.all.BTN_STATIONS, MenuX, MenuY )
Call stMenu.PopUp( CInt( MenuX + 240 ), CInt( MenuY + 30) )
End Sub
Prgmgr.htm
Sub ShowMenu(menu)
Dim MenuX, MenuY
If menu = "Streams" Then
Call top.code.ObjectToIEClientCoords( document.all.BTN_STREAMS, MenuX, MenuY )
Call strMenu.PopUp( CInt( MenuX + 240), CInt( MenuY + 505) )
ElseIf menu = "Programs" Then
Call top.code.ObjectToIEClientCoords( document.all.BTN_PROGRAMS, MenuX, MenuY )
Call progMenu.PopUp( CInt( MenuX + 240), CInt( MenuY + 505) )
End If
End Sub
Filemgr.htm
Sub ShowMenu(menu)
Dim MenuX, MenuY
If menu = "Streams" Then
Call top.code.ObjectToIEClientCoords( document.all.BTN_STREAMS, MenuX, MenuY )
Call strMenu.PopUp( CInt( MenuX + 240), CInt( MenuY + 30) )
ElseIf menu = "Programs" Then
Call top.code.ObjectToIEClientCoords( document.all.BTN_PROGRAMS, MenuX, MenuY )
Call progMenu.PopUp( CInt( MenuX + 240), CInt( MenuY + 30) )
End If
End Sub