Codejock Developer Community : RESOLVED: Positioning Help!! (Screenshot added)

RESOLVED: Positioning Help!! (Screenshot added) : The lines that said ReplyBar.EnableDocking...

Tue, 08 Jul 2008 13:04:00 +0000

Author: JasonG
Subject: 11331
Posted: 08 July 2008 at 1:04pm

The lines that said

ReplyBar.EnableDocking xtpFlagHideWrap Or xtpFlagHideWrap

Were actually caught and fixed since I posted the code. I changed them to your reccomendation, and it works perfectly. Thanks again.

RESOLVED: Positioning Help!! (Screenshot added) : Rewind a moment.Your latest code...

Tue, 08 Jul 2008 13:01:45 +0000

Author: ijwelch
Subject: 11331
Posted: 08 July 2008 at 1:01pm

Rewind a moment.

Your latest code shows:
ReplyBar.EnableDocking xtpFlagHideWrap Or xtpFlagHideWrap
and
ReplyBar2.EnableDocking xtpFlagHideWrap Or xtpFlagHideWrap

this should be

ReplyBar.EnableDocking xtpFlagStretchedShared Or xtpFlagHideWrap
ReplyBar2.EnableDocking xtpFlagStretchedShared Or xtpFlagHideWrap

I pasted your original code into new form, added CommandsBars to form, added Picturebox and added Commandbars2 to picturebox. My suggestion then did exactly what you're looking for.

Can you try again like I did above? I'll redo and post sample if required.

RESOLVED: Positioning Help!! (Screenshot added) : You are the MAN!

Tue, 08 Jul 2008 12:57:18 +0000

Author: JasonG
Subject: 11331
Posted: 08 July 2008 at 12:57pm

You are the MAN!

RESOLVED: Positioning Help!! (Screenshot added) : I found this hack that seems to...

Tue, 08 Jul 2008 12:53:41 +0000

Author: jpbro
Subject: 11331
Posted: 08 July 2008 at 12:53pm

I found this hack that seems to work...Add it after your current last ReplyBar.Controls.Add call.


    ReplyBar.Controls.Add(xtpControlLabel, 12, "").Width = 2500    ' Arbitrary large number to force the next toolbar to be docked to right edge of form

RESOLVED: Positioning Help!! (Screenshot added) : I see that this will offset...

Tue, 08 Jul 2008 12:48:24 +0000

Author: JasonG
Subject: 11331
Posted: 08 July 2008 at 12:48pm

I see that this will offset the toolbar by 1000, however I am trying to get the width of the parent frame, and the width of replybar2, and use those measurements to place it all the way to the right. Using your method would not work if the form/frame was resized.

also, the offset doesnt even work... weird...

RESOLVED: Positioning Help!! (Screenshot added) : try instead CommandBars2.DockToolBar...

Tue, 08 Jul 2008 12:39:26 +0000

Author: Oleg
Subject: 11331
Posted: 08 July 2008 at 12:39pm

try

instead

CommandBars2.DockToolBar BarToDock, Right, (Bottom + Top) / 2, BarOnLeft.Position

CommandBars2.DockToolBar BarToDock, Right + 1000, (Bottom + Top) / 2, BarOnLeft.Position

RESOLVED: Positioning Help!! (Screenshot added) : This yields the same result...

Tue, 08 Jul 2008 08:47:14 +0000

Author: JasonG
Subject: 11331
Posted: 08 July 2008 at 8:47am

This yields the same result - the second bar is still docking to the immediate right of the first... Any other Ideas?

Sub InitializeCommandBar()

    CommandBars.DeleteAll
    CommandBars2.DeleteAll

    Dim ToolBar As CommandBar
    Dim ReplyBar As CommandBar
    Dim ReplyBar2 As CommandBar
    Dim C As CommandBarButton

    Set ToolBar = CommandBars.Add("Standard", xtpBarTop)
    ToolBar.Customizable = False
    ToolBar.ContextMenuPresent = False
    ToolBar.ShowExpandButton = False
    ToolBar.ShowGripper = False
    Set C = ToolBar.Controls.Add(xtpControlButton, 1, "New")
    Set C = ToolBar.Controls.Add(xtpControlButton, 2, "Print")
    Set C = ToolBar.Controls.Add(xtpControlButton, 3, "Forward")
    Set C = ToolBar.Controls.Add(xtpControlButton, 4, "Chat")
    Set C = ToolBar.Controls.Add(xtpControlButton, 5, "Rotate")
    Set C = ToolBar.Controls.Add(xtpControlButton, 6, "Skin")
    ToolBar.ShowTextBelowIcons = True
    ToolBar.SetIconSize 32, 32
    ToolBar.EnableDocking xtpFlagHideWrap


    Set ReplyBar = CommandBars2.Add("Reply", xtpBarTop)
    ReplyBar.Customizable = False
    ReplyBar.ContextMenuPresent = False
    ReplyBar.ShowExpandButton = False
    ReplyBar.ShowGripper = False
    Set C = ReplyBar.Controls.Add(xtpControlButton, 7, "Send")
    Set C = ReplyBar.Controls.Add(xtpControlButton, 8, "Send Later")
    Set C = ReplyBar.Controls.Add(xtpControlButton, 9, "Send All")
    Set C = ReplyBar.Controls.Add(xtpControlSplitButtonPopup, 10, "Acknowledge")
    Set C = ReplyBar.Controls.Add(xtpControlButton, 11, "CC")
    ReplyBar.ShowTextBelowIcons = True
    ReplyBar.SetIconSize 32, 32
    ReplyBar.EnableDocking xtpFlagHideWrap Or xtpFlagHideWrap

    Set ReplyBar2 = CommandBars2.Add("Reply2", xtpBarTop)
    ReplyBar2.Customizable = False
    ReplyBar2.ContextMenuPresent = False
    ReplyBar2.ShowExpandButton = False
    ReplyBar2.ShowGripper = False
    Set C = ReplyBar2.Controls.Add(xtpControlButton, 12, "Re-Send")
    Set C = ReplyBar2.Controls.Add(xtpControlButton, 13, "Trash")
    ReplyBar2.ShowTextBelowIcons = True
    ReplyBar2.SetIconSize 32, 32
    ReplyBar2.EnableDocking xtpFlagHideWrap Or xtpFlagHideWrap

    Dim Items()
    Items = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)
    ImageManager.Icons.LoadBitmap App.Path & "\Icons\highclr.bmp", Items, xtpImageNormal
    CommandBars.Icons = ImageManager.Icons
    CommandBars2.Icons = ImageManager.Icons


    Call DockRightOf(ReplyBar2, ReplyBar)

End Sub

Private Sub DockRightOf(BarToDock As CommandBar, BarOnLeft As CommandBar)
    Dim Left As Long
    Dim Top As Long
    Dim Right As Long
    Dim Bottom As Long
    Dim Left2 As Long
    Dim Top2 As Long
    Dim Right2 As Long
    Dim Bottom2 As Long


    CommandBars2.RecalcLayout
    BarOnLeft.GetWindowRect Left, Top, Right, Bottom
    BarToDock.GetWindowRect Left2, Top2, Right2, Bottom2
    CommandBars2.DockToolBar BarToDock, Right, (Bottom + Top) / 2, BarOnLeft.Position
End Sub

RESOLVED: Positioning Help!! (Screenshot added) : Add these lines: ReplyBar.EnableDocking...

Mon, 07 Jul 2008 20:12:00 +0000

Author: ijwelch
Subject: 11331
Posted: 07 July 2008 at 8:12pm

Add these lines:

    ReplyBar.EnableDocking xtpFlagStretchedShared Or xtpFlagHideWrap
    ReplyBar2.EnableDocking xtpFlagStretchedShared Or xtpFlagHideWrap

before:
    Call DockRightOf(ReplyBar2, ReplyBar)

RESOLVED: Positioning Help!! (Screenshot added) : Allow me to throw...

Mon, 07 Jul 2008 15:09:00 +0000

Author: JasonG
Subject: 11331
Posted: 07 July 2008 at 3:09pm

Allow me to throw a curve.

I have 2 CommandBar controls on a form (commandBar and commandBar2).CommandBar is on the form itself, while CommandBar2 is on a frame(actually a picturebox) that gets moved around the form as the form isresized or splitters are changed. Each CommandBar control is used tocontrol ONE toolbar.

This works perfectly, as expected.

However, now I want to add a 2nd toolbar to CommandBar2 - this is noproblem, however - I would like this 3rd toolbar to be right-aligned when the form is resized.

I assume there is a change to the "DockRightOf" function, but the measurements escape me for some reason.

Any help would be greatly appreciated!

Screenshot: http://www.trackmybookings.com/pimages/commandbar.jpg

Code:

Sub InitializeCommandBar()

    CommandBars.DeleteAll
    CommandBars2.DeleteAll

    Dim ToolBar As CommandBar
    Dim ReplyBar As CommandBar
    Dim ReplyBar2 As CommandBar
    Dim C As CommandBarButton

    'MAIN TOOLBAR (ON FORM)
    Set ToolBar = CommandBars.Add("Standard", xtpBarTop)
    ToolBar.Customizable = False
    ToolBar.ContextMenuPresent = False
    ToolBar.ShowExpandButton = False
    ToolBar.ShowGripper = False
    Set C = ToolBar.Controls.Add(xtpControlButton, 1, "New")
    Set C = ToolBar.Controls.Add(xtpControlButton, 2, "Print")
    Set C = ToolBar.Controls.Add(xtpControlButton, 3, "Forward")
    Set C = ToolBar.Controls.Add(xtpControlButton, 4, "Chat")
    Set C = ToolBar.Controls.Add(xtpControlButton, 5, "Rotate")
    Set C = ToolBar.Controls.Add(xtpControlButton, 6, "Skin")
    ToolBar.ShowTextBelowIcons = True
    ToolBar.SetIconSize 32, 32
    ToolBar.EnableDocking xtpFlagHideWrap


    'SECONDARY TOOLBAR (FIRST ON FRAME)
    Set ReplyBar = CommandBars2.Add("Reply", xtpBarTop)
    ReplyBar.Customizable = False
    ReplyBar.ContextMenuPresent = False
    ReplyBar.ShowExpandButton = False
    ReplyBar.ShowGripper = False
    Set C = ReplyBar.Controls.Add(xtpControlButton, 7, "Send")
    Set C = ReplyBar.Controls.Add(xtpControlButton, 8, "Send Later")
    Set C = ReplyBar.Controls.Add(xtpControlButton, 9, "Send All")
    Set C = ReplyBar.Controls.Add(xtpControlSplitButtonPopup, 10, "Acknowledge")
    Set C = ReplyBar.Controls.Add(xtpControlButton, 11, "CC")
    ReplyBar.ShowTextBelowIcons = True
    ReplyBar.SetIconSize 32, 32
    ReplyBar.EnableDocking xtpFlagHideWrap

    'TERTIARY TOOLBAR (SECOND ON FRAME, RIGHT ALIGNED)
    Set ReplyBar2 = CommandBars2.Add("Reply2", xtpBarTop)
    ReplyBar2.Customizable = False
    ReplyBar2.ContextMenuPresent = False
    ReplyBar2.ShowExpandButton = False
    ReplyBar2.ShowGripper = False
    Set C = ReplyBar2.Controls.Add(xtpControlButton, 12, "Re-Send")
    Set C = ReplyBar2.Controls.Add(xtpControlButton, 13, "Trash")
    ReplyBar2.ShowTextBelowIcons = True
    ReplyBar2.SetIconSize 32, 32
    'ReplyBar2.EnableDocking xtpFlagHideWrap

    '-----------ICON CODE REMOVED-----------

    Call DockRightOf(ReplyBar2, ReplyBar)

End Sub

Private Sub DockRightOf(BarToDock As CommandBar, BarOnLeft As CommandBar)
    Dim Left As Long
    Dim Top As Long
    Dim Right As Long
    Dim Bottom As Long

    CommandBars2.RecalcLayout
    BarOnLeft.GetWindowRect Left, Top, Right, Bottom
    CommandBars2.DockToolBar BarToDock, Right, (Bottom + Top) / 2, BarOnLeft.Position

End Sub