Codejock Developer Community : SOLVED: Maximize and minimize panes

SOLVED: Maximize and minimize panes : Hi, Don't forget to add...

Thu, 11 Sep 2008 08:59:36 +0000

Author: Aaron
Subject: 12128
Posted: 11 September 2008 at 8:59am

Hi,

Don't forget to add SOLVED to topic description

SOLVED: Maximize and minimize panes : Thank you Aaron!SOLVED.

Thu, 11 Sep 2008 02:28:01 +0000

Author: Jean
Subject: 12128
Posted: 11 September 2008 at 2:28am

Thank you Aaron!
SOLVED.

SOLVED: Maximize and minimize panes : Hi, Try this: If bolMaximized...

Wed, 10 Sep 2008 10:40:54 +0000

Author: Aaron
Subject: 12128
Posted: 10 September 2008 at 10:40am

Hi,

Try this:

If bolMaximized Then
        'Re-Open all panes
        For Each tmpPane In DockingPane(1)
            If tmpPane.id <> Pane.id Then

DockingPane.ShowPane tmpPane.Id

            End If
        Next
    Else

.................

SOLVED: Maximize and minimize panes : Is there a way to maximize...

Wed, 10 Sep 2008 10:30:05 +0000

Author: Jean
Subject: 12128
Posted: 10 September 2008 at 10:30am

Is there a way to maximize a pane and minimize/restore?

I tried it with sample code from Aaron from this thread: http://forum.codejock.com/forum_posts.asp?TID=9610

Dim pane As XtremeDockingPane.pane
    For Each pane In DockingPane
        If pane.Id <> 2 Then '2 = index of the pane you want to size to full screen"
            pane.Hide
        End If
    Next pane

Instead of .hide I like to use .close.
But I don't know how to restore the panes like they were before!

What I like to do:

Private Sub DockingPane_PanePopupMenu(ByVal Pane As XtremeDockingPane.IPane, ByVal x As Long, ByVal y As Long, Handled As Boolean)

   On Error GoTo PROC_ERR
    'Panes can only be closed by code. So if a pane is closed, there is a pane in "maximized mode"
    Dim bolMaximized As Boolean
    Dim tmpPane As XtremeDockingPane.Pane
    For Each tmpPane In DockingPane(1)
        If tmpPane.Closed Then
            bolMaximized = True
            Exit For
        End If
    Next
   
    If bolMaximized Then
        'Re-Open all panes
'        For Each tmpPane In DockingPane(1)
'            If tmpPane.id <> Pane.id Then
'                tmpPane.Open '?????
'            End If
'        Next
    Else
        'Maximize the active pane
        For Each tmpPane In DockingPane(1)
            If tmpPane.id <> Pane.id Then
                tmpPane.Close
            End If
        Next
    End If
End If

End Sub

The .open method is missing...