Disappearing Panes

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

   HI,
im evalueting Docking Panes in VB.NET 2005.

My code adds a Pane and handles a form Properties.

If i start with Floating Pane i see the pane, but if i try to drag it and dock to any side of MDI form, on drop it disappear.

Here is the code:

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dp.Options.ThemedFloatingFrames = True
dp.SetMDIClient(Properties.Handle.ToInt32())
Dim G As Pane
G = dp.CreatePane(1, 200, 120, DockingDirection.DockLeftOf, Nothing)
dp.Options.LunaColors = True
dp.VisualTheme = VisualTheme.ThemeOffice2003
dp.TabPaintManager.OneNoteColors = False
dp.PanelPaintManager.OneNoteColors = False
dp.TabPaintManager.ClientFrame = XtremeDockingPane.XTPTabClientFrame.xtpTabFrameNone
dp.Options.ShowDockingContextStickers = True
dp.Options.AlphaDockingContext = True
dp.Options.ShowCaptionMaximizeButton = True
dp.Options.CloseGroupOnButtonClick = True
'dp.Options.HideGroupOnButtonClick = True

G.Title = "Pane 1 - Not Hideable " & Constants.vbLf & "Pane 1"
G.Floating = True
G.Options = PaneOptions.PaneNoHideable
End Sub
Private Sub dp_AttachPaneEvent(ByVal sender As Object, ByVal e As AxXtremeDockingPane._DDockingPaneEvents_AttachPaneEvent) Handles dp.AttachPaneEvent
Select Case e.item.Id
Case 1
e.item.Handle = Properties.Handle.ToInt32
End Select
End Sub

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
antcella Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 20 January 2009 Status: Offline Points: 5	Post Options Post Reply Quote antcella Report Post Thanks(0) Quote Reply Topic: Disappearing Panes Posted: 20 January 2009 at 9:22am
	HI, im evalueting Docking Panes in VB.NET 2005. My code adds a Pane and handles a form Properties. If i start with Floating Pane i see the pane, but if i try to drag it and dock to any side of MDI form, on drop it disappear. Here is the code: Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dp.Options.ThemedFloatingFrames = True dp.SetMDIClient(Properties.Handle.ToInt32()) Dim G As Pane G = dp.CreatePane(1, 200, 120, DockingDirection.DockLeftOf, Nothing) dp.Options.LunaColors = True dp.VisualTheme = VisualTheme.ThemeOffice2003 dp.TabPaintManager.OneNoteColors = False dp.PanelPaintManager.OneNoteColors = False dp.TabPaintManager.ClientFrame = XtremeDockingPane.XTPTabClientFrame.xtpTabFrameNone dp.Options.ShowDockingContextStickers = True dp.Options.AlphaDockingContext = True dp.Options.ShowCaptionMaximizeButton = True dp.Options.CloseGroupOnButtonClick = True 'dp.Options.HideGroupOnButtonClick = True G.Title = "Pane 1 - Not Hideable " & Constants.vbLf & "Pane 1" G.Floating = True G.Options = PaneOptions.PaneNoHideable End Sub Private Sub dp_AttachPaneEvent(ByVal sender As Object, ByVal e As AxXtremeDockingPane._DDockingPaneEvents_AttachPaneEvent) Handles dp.AttachPaneEvent Select Case e.item.Id Case 1 e.item.Handle = Properties.Handle.ToInt32 End Select End Sub

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 21 January 2009 at 2:14am
	Hi, Don't think you need dp.SetMDIClient(Properties.Handle.ToInt32()) line.
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS