SOLVED: Maximize and minimize panes

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

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...