Strange StatusBar
Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=4365
Printed Date: 25 June 2024 at 2:22am Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com
Topic: Strange StatusBar
Posted By: jcollier
Subject: Strange StatusBar
Date Posted: 06 June 2006 at 5:52pm
Can anyone tell my why my statusbar all of a sudden looks like the image after upgrading to 10.2? It is created with the following code:
Private Sub SetUpStatusBar() Dim Pane As StatusBarPane Set StatusBar = CommandBars.StatusBar StatusBar.Visible = True Set Pane = StatusBar.AddPane(SB_BATCH) Pane.style = SBPS_STRETCH Pane.Visible = True Pane.Alignment = xtpAlignmentLeft Pane.Text = vbNullString Pane.TextColor = vbBlack Pane.Width = 0 Set Pane = StatusBar.AddPane(SB_EMPLOYEE) Pane.style = SBPS_STRETCH Pane.Visible = True Pane.Alignment = xtpAlignmentLeft Pane.Text = vbNullString Pane.TextColor = vbBlack Pane.Width = 0 Set Pane = StatusBar.AddPane(SB_CUSTOMER) Pane.style = SBPS_STRETCH Pane.Visible = True Pane.Alignment = xtpAlignmentLeft Pane.Text = vbNullString Pane.TextColor = vbBlack Pane.Width = 0 Set Pane = StatusBar.AddPane(SB_IMAGES) Pane.style = SBPS_STRETCH Pane.Visible = True Pane.Alignment = xtpAlignmentLeft Pane.Text = vbNullString Pane.TextColor = vbBlack Pane.Width = 0 Set Pane = StatusBar.AddPane(SB_DOCUMENTS) Pane.style = SBPS_STRETCH Pane.Visible = True Pane.Alignment = xtpAlignmentLeft Pane.Text = vbNullString Pane.TextColor = vbBlack Pane.Width = 0 Set Pane = StatusBar.AddPane(SB_NOTES) Pane.style = SBPS_STRETCH Pane.Visible = True Pane.Alignment = xtpAlignmentLeft Pane.Text = vbNullString Pane.TextColor = vbBlack Pane.Width = 0 Set Pane = StatusBar.AddPane(ID_INDICATOR_CAPS) Pane.Visible = True Pane.Alignment = xtpAlignmentRight Set Pane = StatusBar.AddPane(ID_INDICATOR_NUM) Pane.Visible = True Pane.Alignment = xtpAlignmentRight Set Pane = StatusBar.AddPane(ID_INDICATOR_SCRL) Pane.Visible = True Pane.Alignment = xtpAlignmentRight CommandBars.Options.KeyboardCuesShow = xtpKeyboardCuesShowWindowsDefault End Sub
![](uploads/jcollier/2006-06-06_175050_statusbar.png)
Also on this form is a RibbonBar, if that info helps.
Thanks!
|
Replies:
Posted By: jcollier
Date Posted: 08 June 2006 at 12:11pm
Any idea why the first pane is light blue and the following panes are darker blue with no visible separators?
Thanks
|
Posted By: jcollier
Date Posted: 12 June 2006 at 10:29am
Does this one have CJ stumped?
If you want to recreate it, enter the following code into the Form_Load event of the RibbonBar sample provided by CJ (VB6):
CreateRibbonBar 'CrateSkinFramework CommandBars.KeyBindings.Add FCONTROL, Asc("N"), ID_FILE_NEW CommandBars.KeyBindings.Add FCONTROL, Asc("O"), ID_FILE_OPEN CommandBars.KeyBindings.Add FCONTROL, Asc("S"), ID_FILE_SAVE CommandBars.KeyBindings.Add FCONTROL, Asc("X"), ID_EDIT_CUT CommandBars.KeyBindings.Add FCONTROL, Asc("C"), ID_EDIT_COPY CommandBars.KeyBindings.Add FCONTROL, Asc("V"), ID_EDIT_PASTE LoadIcons Dim StatusBar As StatusBar Set StatusBar = CommandBars.StatusBar StatusBar.Visible = True StatusBar.AddPane 0 StatusBar.AddPane 1 StatusBar.Pane(1).Text = "new pane" StatusBar.AddPane ID_INDICATOR_CAPS StatusBar.AddPane ID_INDICATOR_NUM StatusBar.AddPane ID_INDICATOR_SCRL RibbonBar.EnableFrameTheme CommandBars.Options.KeyboardCuesShow = xtpKeyboardCuesShowWindowsDefault bShowTableContextTabs = False bShowChartContextTabs = False CommandBars.EnableCustomization True CommandBars.LoadCommandBars "Codejock Software ActiveX Demos", App.Title, "Layout"
|
Posted By: SuperMario
Date Posted: 12 June 2006 at 12:00pm
Not sure, your code works OK for me.
![](uploads/SuperMario/2006-06-12_115956_sbrib.gif)
|
Posted By: jcollier
Date Posted: 12 June 2006 at 12:04pm
That's not ok. Why is the pane that says "ready" light blue and the pane that says "new pane" darker blue? Also, you can't see any separators between the panes of the same color ("new pane", "cap", "num", and "scrl").
In 10.1.1 all panes were the same color with visible separators.
|
Posted By: SuperMario
Date Posted: 12 June 2006 at 12:58pm
It was updated to match the current Office 2007 colors.
|
Posted By: jcollier
Date Posted: 12 June 2006 at 1:06pm
Check out the screenshots at http://www.microsoft.com/office/preview/ui/overview.mspx
They clearly have more than one pane on the left with separators that are light blue. Then on the right they have the darker panes.
I'm not trying to be picky but the flexibility of adding as many light blue panes and as many dark blue panes that we want should be there.
Thanks for the quick responses today!
|
Posted By: SuperMario
Date Posted: 12 June 2006 at 1:11pm
I see. Looks like another thing to add to the ToDo list At the moment we are working on adding galleries.
|
Posted By: jcollier
Date Posted: 12 June 2006 at 1:13pm
Fantastic! Thanks for the help.
|
Posted By: jcollier
Date Posted: 04 August 2006 at 11:39am
Was anything for this done in Version 10.3?
|
Posted By: matt.dillard
Date Posted: 04 May 2010 at 11:19am
I know this is years later, but ... has this been fixed? I'm running v13.0, and it still seems to have this problem.
It sure would be nice if the "BeginGroup" property on the StatusBarPane object really worked, instead of us having to create tiny separator panes of a darker color....
|
|