Docking Pane - SOLVED: Maximize and minimize panes

Print Page | Close Window

SOLVED: Maximize and minimize panes

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=12128
Printed Date: 30 June 2024 at 11:46am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: SOLVED: Maximize and minimize panes

Posted By: Jean
Subject: SOLVED: Maximize and minimize panes
Date 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...

-------------
Product: Xtreme SuitePro (ActiveX) Version 15.0.2
Platform: Windows XP (32bit) German - SP 2
Language: VB6 / C# 4.0

Replies:

Posted By: Aaron
Date 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

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

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2
Language: Visual Basic 6.0

Zero replies is not an option....

Posted By: Jean
Date Posted: 11 September 2008 at 2:28am

Thank you Aaron!
SOLVED.

-------------
Product: Xtreme SuitePro (ActiveX) Version 15.0.2
Platform: Windows XP (32bit) German - SP 2
Language: VB6 / C# 4.0

Posted By: Aaron
Date Posted: 11 September 2008 at 8:59am

Hi,

Don't forget to add SOLVED to topic description

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2
Language: Visual Basic 6.0

Zero replies is not an option....