Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - Strange StatusBar
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Strange StatusBar

 Post Reply Post Reply
Author
Message
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post Topic: Strange StatusBar
    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



Also on this form is a RibbonBar, if that info helps.

Thanks!
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post 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"
Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057
Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post Posted: 12 June 2006 at 12:00pm
Not sure, your code works OK for me.


Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post 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.
Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057
Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post Posted: 12 June 2006 at 12:58pm
It was updated to match the current Office 2007 colors.
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post 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!

Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057
Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post 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.
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post Posted: 12 June 2006 at 1:13pm
Fantastic!  Thanks for the help.
Back to Top
jcollier View Drop Down
Senior Member
Senior Member


Joined: 15 February 2006
Status: Offline
Points: 250
Post Options Post Options   Thanks (0) Thanks(0)   Quote jcollier Quote  Post ReplyReply Direct Link To This Post Posted: 04 August 2006 at 11:39am
Was anything for this done in Version 10.3?
Back to Top
matt.dillard View Drop Down
Newbie
Newbie


Joined: 21 May 2008
Status: Offline
Points: 6
Post Options Post Options   Thanks (0) Thanks(0)   Quote matt.dillard Quote  Post ReplyReply Direct Link To This Post 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....
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.234 seconds.