Codejock Developer Community : Ribbonbar does not wrap menus http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 13 Jun 2026 18:13:26 +0000 Tue, 14 Dec 2010 11:24:44 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=17672 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Ribbonbar does not wrap menus : Thanks everyone. Just wanted to...]]> http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61810&title=ribbonbar-does-not-wrap-menus#61810 Author: Hemesh
Subject: 17672
Posted: 14 December 2010 at 11:24am

Thanks everyone.  Just wanted to check I wasn't missing the obvious Ermm

I have raised a case (25798)]]> Tue, 14 Dec 2010 11:24:44 +0000 http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61810&title=ribbonbar-does-not-wrap-menus#61810 <![CDATA[Ribbonbar does not wrap menus : Unfortunately, it doesn&#039;t...]]> http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61807&title=ribbonbar-does-not-wrap-menus#61807 Author: jpbro
Subject: 17672
Posted: 14 December 2010 at 9:02am

Unfortunately, it doesn't seem to work for the Ribbon menu...I haven't had much luck finding a solution either - this may be a question or request for CJ.

]]> Tue, 14 Dec 2010 09:02:55 +0000 http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61807&title=ribbonbar-does-not-wrap-menus#61807 <![CDATA[Ribbonbar does not wrap menus : Hi, I don&#039;t use Ribbon...]]> http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61805&title=ribbonbar-does-not-wrap-menus#61805 Author: Aaron
Subject: 17672
Posted: 14 December 2010 at 8:13am

Hi,
 
I don't use Ribbon but I guess same as any toolbar...
 
objRibbon.EnableDocking xtpFlagAlignTop + xtpStrechedShared
]]> Tue, 14 Dec 2010 08:13:13 +0000 http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61805&title=ribbonbar-does-not-wrap-menus#61805 <![CDATA[Ribbonbar does not wrap menus : Hi,When using the ribbon bar as...]]> http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61801&title=ribbonbar-does-not-wrap-menus#61801 Author: Hemesh
Subject: 17672
Posted: 14 December 2010 at 6:50am

Hi,

When using the ribbon bar as the menu system (to get the the Big O) I don't seem to be able to get the menus to wrap and drop down onto the next line.



But when just using the command bar it just works.


Does anyone know the setting i've missed?  I just don't seem to to be able to see it.

I've attached a demo project with a bool to toggle both menu modes;
uploads/6296/CodeJockMDIissue-MenuOverlap.zip

And this is the code;

Private Sub MDIForm_Load()
    Dim objRibbon As RibbonBar
    Dim objRootMenuBar As CommandBar
    Dim objControl As CommandBarControl
    Dim blnUseRibbon As Boolean
   
    blnUseRibbon = True
   
    CommandBarsGlobalSettings.App = App

    SkinFramework1.LoadSkin App.Path & "\Styles\" & "Office2007.cjstyles", "NORMALBLACK.INI"
    'SkinFramework1.LoadSkin App.Path & "\Styles\" & "Office2007.cjstyles", "NORMALBLUE.INI"
    SkinFramework1.ApplyOptions = xtpSkinApplyMetrics Or xtpSkinApplyFrame Or xtpSkinApplyColors Or xtpSkinApplyMenus

    SkinFramework1.ApplyWindow Me.hWnd
    CommandBarsGlobalSettings.Office2007Images = App.Path & "\Styles\" & "Office2007Black.dll"
    If blnUseRibbon Then
        SkinFramework1.RemoveWindow Me.hWnd
    End If

    CommandBars1.EnableActions
    CommandBars1.VisualTheme = xtpThemeOffice2007

    With CommandBars1.Options
        .KeyboardCuesShow = xtpKeyboardCuesShowAlways
        .KeyboardCuesUse = xtpKeyboardCuesUseNone
        .ShowKeyboardTips = True
    End With

    ' Create ribbon bar
    If blnUseRibbon Then
        Set objRibbon = CommandBars1.AddRibbonBar("RB")
        objRibbon.EnableDocking xtpFlagAlignTop
        objRibbon.EnableFrameTheme
    Else
        Set objRootMenuBar = CommandBars1.AddMenuBar("MAIN")
        objRootMenuBar.ShowGripper = False
    End If
   

    ' Big O system button
    If blnUseRibbon Then
        Set objControl = objRibbon.AddSystemButton
        Set objRootMenuBar = objControl.Parent
    Else
        Set objControl = objRootMenuBar.Controls.Add(xtpControlPopup, 78, "File")
    End If
    objControl.CommandBar.Controls.Add xtpControlButton, 1, "AAA"
    objControl.CommandBar.Controls.Add xtpControlButton, 2, "BBB"
    objControl.CommandBar.Controls.Add xtpControlButton, 3, "CCC"

    Dim a As Integer

    For a = 0 To 10
        ' Invoice Menu
        Set objControl = objRootMenuBar.Controls.Add(xtpControlButtonPopup, 300, "Menu " & a)
        objControl.CommandBar.Controls.Add xtpControlButton, 301, "New Invoice"
        objControl.CommandBar.Controls.Add xtpControlButton, 302, "Amend Invoice"
    Next a

    ' Help Menu
    Set objControl = objRootMenuBar.Controls.Add(xtpControlButtonPopup, 500, "Help")
    objControl.Flags = xtpFlagRightAlign 'Or xtpFlagWrapRow

    objControl.CommandBar.Controls.Add xtpControlButton, 501, "Help File"
    objControl.CommandBar.Controls.Add xtpControlButton, 502, "About"
End Sub


]]> Tue, 14 Dec 2010 06:50:29 +0000 http://forum.codejock.com/forum_posts.asp?TID=17672&PID=61801&title=ribbonbar-does-not-wrap-menus#61801