Codejock Developer Community : LoadState/SaveState not restoring TaskPanel

Author: keng
Subject: 8374
Posted: 10 October 2007 at 4:23am

I hope this is something simple, but I am not seeing the issuing here. In my main form I am setting up my nav bars using DockingPanes. The panes have a TaskPanel in them. I don't wan't to save the items in the TaskPanel, because they may change in the future. So I do the SaveState on the docking panel in the unload of the main form. I do the LoadState in the load of the main form after creating my DockingPane. I made sure that I am using the same names exactly for the LoadState/SaveState. Things look fine, and the DockingPanes come back fine, however the TaskPanel is not shown. I notice that I don't get the resize event, like I do when I run the app for the first time (no saved data). It is like the forms are not attached to the DockingPane. What am I doing wrong?

Code below...

'===================================

'Main form

'===================================

Private Sub MDIForm_Load()
'dp is DockingPane

    Dim thePane As Pane
    Set thePane = dp.CreatePane(1, 200, 1, DockLeftOf)
    thePane.title = "test"
    thePane.Handle = frmTest.hwnd

dp.LoadState "MyTest", App.title, "DockingPanes"

End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    On Error GoTo test
    'Docking Pane info...
    dp.SaveState "MyTest", App.title, "DockingPanes"

End Sub

'============================

'Test form

'============================

Private Sub frmTest_Load()
    With wndTaskPanel
        '.Icons = im.Icons
        .SetMargins 0, 2, 0, 2, 2
        .SetGroupIconSize 16, 16
        '.SetGroupIconSize 32, 32
        .SetIconSize 32, 32
        .EnableAnimation = True
        .Behaviour = xtpTaskPanelBehaviourToolbox
    End With

    Dim navBarGroup As TaskPanelGroup
    Dim navBarGroupItem As TaskPanelGroupItem

    With wndTaskPanel
        Set navBarGroup = .Groups.Add(0, "2138")
        With navBarGroup
            '.SetIconSize 32, 32
            .IconIndex = ID_MAIN_NEW
            .ToolTip = "This is the Order Group - layout default"
            .ItemLayout = xtpTaskItemLayoutDefault

            Set navBarGroupItem = .Items.Add(ID_MAIN_NEW, "2001", xtpTaskItemTypeLink, ID_MAIN_NEW)
            With navBarGroupItem
                .ToolTip = "2500"
            End With

            Set navBarGroupItem = .Items.Add(ID_MAIN_OPEN, "2002", xtpTaskItemTypeLink, ID_MAIN_OPEN)
            With navBarGroupItem
                .ToolTip = "2501"
            End With

            Set navBarGroupItem = .Items.Add(ID_MAIN_DELETE, "2013", xtpTaskItemTypeLink, ID_MAIN_DELETE)
            With navBarGroupItem
                .ToolTip = "2507"
            End With

            Set navBarGroupItem = .Items.Add(ID_MAIN_PREVIEW, "2005", xtpTaskItemTypeLink, ID_MAIN_PREVIEW)
            With navBarGroupItem
                .ToolTip = "2510"
            End With
        End With

'Abbreviated the task panel groups and items to make it clearer as to what is occurring.
End Sub

Private Sub frmTest_Resize()
    wndTaskPanel.Left = 0
    wndTaskPanel.Top = 0
    wndTaskPanel.Width = Me.ScaleWidth
    wndTaskPanel.Height = Me.ScaleHeight
End Sub

I would send pictures to show what is happening, however I don't have enough permissions to do that.

I am using version 11.2 of the ActiveX controls.

]]>