Docking Pane - docking pane border

Print Page | Close Window

docking pane border

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Docking Pane
Forum Description: Topics Related to Codejock Docking Pane
URL: http://forum.codejock.com/forum_posts.asp?TID=9669
Printed Date: 31 January 2025 at 6:52am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: docking pane border

Posted By: johnp
Subject: docking pane border
Date Posted: 22 February 2008 at 10:42am

I have a vb6 sdi for that has a commandbar and (standard windows) status bar. I am creating docking panes at run-time based on the user's clicking items from a treeview control. The panels are being created okay but there is a small problem... when a panel is initially displayed (docked right of) the height of the panel extends so that the bottom portion of the panel is behind the status bar (i.e., I cannot see the frame on the bottom of the panel). Howeverm when I hide and redisplay the panel the height is set so that the bottom frame shows (i.e., it does not extend below the status bar). What can I do to correct this so that when the panel is first shown it does not drop down below the status bar?

Replies:

Posted By: SuperMario
Date Posted: 22 February 2008 at 12:00pm

Be sure you are doing this:

http://codejock.com/support/articles/com/dockingpane/dp_3.asp

And try using CommandBars Resize event.

Posted By: johnp
Date Posted: 22 February 2008 at 12:17pm

Thanks for the reply. My problem is not with the docking pane and the command bar (that's working just fine). It is with the docking pane and the statusbar at the bottom of the form. When i first create the panel and show it the panel is too long for the form and the bottom portion of the panel is hidden behind the status bar. if i hide (unpin) the panel and then click it's tab the panel is properly sized (hieght wise) between my command bar and the status bars

Posted By: SuperMario
Date Posted: 22 February 2008 at 12:22pm

Maybe try:

Private Sub CommandBars_GetClientBordersWidth(Left As Long, Top As Long, Right As Long, Bottom As Long)

    If sbStatusBar.Visible Then
        Bottom = sbStatusBar.Height
    End If

End Sub

Posted By: johnp
Date Posted: 22 February 2008 at 12:31pm

Yes, I have that in my code. As I said, the panel shows at the proper size once it has been hidden and redisplayed. I can't think of any code that I've written that would affect this behavior.

Posted By: SuperMario
Date Posted: 22 February 2008 at 12:51pm

Can you attach a small sample?

Posted By: johnp
Date Posted: 22 February 2008 at 2:34pm

Sorry, how do I attach my sample

Posted By: SuperMario
Date Posted: 22 February 2008 at 2:43pm

you have to hit the reply button or the option won't show up.

Posted By: johnp
Date Posted: 22 February 2008 at 2:56pm

Thanks. I created a small project to try and show the problems I am having. You will set that the main show two panels when it is first loaded. These panels are docked to the bottom of the form. The problem is (I posted a question about this yesterday) is that no matter what I try I cannot get the width of these panels such that the left-hand side of each panel ends at the tree view control... thus, I cannot see the panel captions.

The second issue that I thought I was having (and which is the subject of this post) was that if you click Panel A in the tree view control a panel appears docked to the right side of the main form. I have since determined that the black border around the form in this panel is the result of having a hidden menu on the form. However, in this sample project, the height of the panel is correct both when it is intially displayed and hidden/unhidden. I guess I must have something different in my 'real' project - which is too large to send - that is causing the problem I am having

Posted By: johnp
Date Posted: 22 February 2008 at 2:57pm

https://forum.codejock.com/uploads/20080222_145704_sample.zip - uploads/20080222_145704_sample.zip

Posted By: SuperMario
Date Posted: 22 February 2008 at 3:38pm

Think maybe this is what you want?

Private Sub CommandBars_Resize()

    On Error Resume Next

    Dim Left As Long
    Dim Top As Long
    Dim Right As Long
    Dim Bottom As Long

   CommandBars.GetClientRect Left, Top, Right, Bottom

    If Right >= Left And Bottom >= Top Then
        TreeView1.Move Left, Top, Right - Left, Bottom - Top
    Else
        TreeView1.Move 0, 0, 0, 0
    End If

End Sub

Posted By: johnp
Date Posted: 22 February 2008 at 5:42pm

After adding your code, my treeview control is now at the top of my form (under the command bar) and spans the entire width of the form.

Posted By: Aaron
Date Posted: 23 February 2008 at 1:37am

Hi,

When using commandbars with dockingpanes, commandbars will handle all resizing events for you. (DockingPane.SetCommandBars Me.CommandBars)

also the ResizeClient event.

so you could determine what space you have left for the treeview like this:

Private Sub CommandBars_ResizeClient(ByVal Left As Long, ByVal Top As Long, ByVal Right As Long, ByVal Bottom As Long)

If StatusBar1.Visible Then Bottom = StatusBar1.Top
TreeView1.Move Left, Top, Right - Left, Bottom - Top

End Sub

Docking the panes at startup:

I haven't found a way to lock the client area on a certain position, maybe it's possible, maybe not. So, docking the panes to the right side of the form will position the client area on the left side. If you want the second pane below the first one you can use the last param to dock that pane as neighbour:

Dim Pane

Set Pane = DockingPane.CreatePane(1, 400, 200, DockRightOf, Nothing)

Dim Pane2 As Pane
Set Pane2 = DockingPane.CreatePane(2, 400, 200, DockBottomOf, Pane) ''Pane is the pane you already created

I would use the statusbar of commandbars so you don't have to deal with size and position etc. when dragging toolbars to the bottom of the form. Test this and you will see what I mean.

https://forum.codejock.com/uploads/20080223_015129_frmMain.zip - uploads/20080223_015129_frmMain.zip