Hi,
It's very difficult for me to provide a link to a sample page because I'd have to update the EO.WEB.dll on our websites but we haven't paid for the upgrade yet. We are planning on updating but want to make sure this new control is going to work for us.
One very important note that I did not include in the first post is that control works fine in all browsers except
FIREFOX. That's the one that causes the issues. I can include the code if you'd like for my sample page but I cannot provide a link to a sample page.
floater.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="floater.aspx.vb" Inherits="floater" %>
<%@ Register TagPrefix="eo" Namespace="EO.Web" Assembly="EO.Web" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div style='height:2000px; border:1px solid black;'>
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
<div id='anchor'></div>
<eo:Floater ID="myFloater" runat="server" BottomAnchorID="anchor" Width="100%">
<div class="bar">
<eo:menu id="myMenu" runat="server" TopLevelItemAlign="Right" />
</div>
</eo:Floater>
</div>
</form>
</body>
</html>
floater.aspx.vb
Imports eo.Web
Partial Class floater
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
setupMenuBar()
End If
End Sub
Sub setupMenuBar()
'Setup Menu Style
myMenu.ExpandOnClick = ExpandOnClickState.EnabledForTopLevelOnly
myMenu.KeepExpandedOnClick = True
myMenu.Style.Add("cursor", "hand pointer")
myMenu.RightToLeft = True
Dim effect As New EO.Web.Effect
effect.Duration = 500
effect.Type = EO.Web.EffectType.GlideBottomToTop
Dim lefteffect As New EO.Web.Effect
lefteffect.Duration = 500
lefteffect.Type = EO.Web.EffectType.GlideLeftToRight
Dim item As New MenuItem
Dim subMenu As New MenuItem
'Configure the EO Menu
'Add the Next Step Item
item = New MenuItem
item.Text.Html = "Your Next Step"
item.SubMenu.ShadowDepth = 0
item.NormalStyle.CssText = "width:110px;height:22px;padding-bottom:2px;"
item.HoverStyle.CssText = "background-color:#000000;color:#ffffff;width:110px;height:22px;padding-bottom:2px;"
myMenu.Items.Add(item)
subMenu = New MenuItem
subMenu.SubMenuIcon = SubMenuIconSource.None
item.SubMenu.ExpandDirection = ExpandDirection.Top
item.SubMenu.Style.CssText = "border-top:1px solid black;border-left:1px solid black;border-right:1px solid black;border-bottom:1px solid black;"
subMenu.Text.Html = "<table border='0' height='220' width='235'><tr><td>Test Sub Element</td></tr></table>"
subMenu.NormalStyle.CssText = "background-color:#ffffff;cursor:hand;"
subMenu.HoverStyle.CssText = "background-color:#ffffff;background-image:url('images/2009/upcoming_hover.png'); background-repeat:repeat-y;cursor:hand;"
subMenu.SubMenu.Style.CssText = "border-top:1px solid black;border-left:1px solid black;border-right:1px solid black;border-bottom:1px solid black;"
item.SubMenu.Items.Add(subMenu)
item.SubMenu.ExpandEffect = effect
item.SubMenu.OffsetX = -159
End Sub
End Class
Thanks for any help you can provide.