http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 28 Apr 2026 19:59:54 +0000 Thu, 11 Sep 2008 08:35:12 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=12132 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=12132&PID=40939&title=solved-hopefully-easy-mdi-question#40939 Author: JasonG
Subject: 12132
Posted: 11 September 2008 at 8:35am

I saw this suggestion in another post, and I tried it without luck. However, for some weird reason, adding the "me." to the call seems to have done it.

Thanks so much!!
]]> Thu, 11 Sep 2008 08:35:12 +0000 http://forum.codejock.com/forum_posts.asp?TID=12132&PID=40939&title=solved-hopefully-easy-mdi-question#40939 http://forum.codejock.com/forum_posts.asp?TID=12132&PID=40915&title=solved-hopefully-easy-mdi-question#40915 Author: younicke
Subject: 12132
Posted: 10 September 2008 at 7:19pm

Hi!

In your Initialize Docking Pane add the red line:

Sub InitializeDockingPanes()

    ...

    dockMain.SetCommandBars Me.CommandMain
    dockMain.PaintManager.SplitterStyle = PaneSplitterGripperOfficeXP
    ...

End Sub
]]> Wed, 10 Sep 2008 19:19:08 +0000 http://forum.codejock.com/forum_posts.asp?TID=12132&PID=40915&title=solved-hopefully-easy-mdi-question#40915 http://forum.codejock.com/forum_posts.asp?TID=12132&PID=40909&title=solved-hopefully-easy-mdi-question#40909 Author: JasonG
Subject: 12132
Posted: 10 September 2008 at 2:41pm

Ok, so I have what HAS to be a simple question...

I have an MDI form with a docking control and a commandbar control.
The 2 docking panes are being link to 2 borderless forms. pretty basic.

The commandBar simply has a FILE menu, code taken from one of the demo projects.

When I resize the splitter to increase/decrease the width of the pane(s), Everything in the panes resizes properly, however, the client area of the MDI form does not resize. when you increase the pane width, the splitter is visibly hidden underneath the MDI client area. When the width is decreased, there is a gap between the docking panes and the MDI client area.

Very Odd.

I've attached the code in a ZIP file, but it would be pretty easy to just copy the code, its VERY little.

http://www.jasongoldberg.com/files/MightyApp_Prototype.zip


CODE:


Option Explicit

Dim itemPane As Pane
Dim propertyPane As Pane

Dim MenuBar As MenuBar

Private Sub MDIForm_Load()
  Call InitializeDockingPanes
  Call InitializeCommandBar
End Sub

Sub InitializeCommandBar()
   
    CommandBarsGlobalSettings.App = App
       
    Dim Control As CommandBarControl
    Dim ControlFile As CommandBarPopup, ControlEdit As CommandBarPopup, ControlView As CommandBarPopup
    Dim ControlHelp As CommandBarPopup
    Dim custControl As CommandBarControlCustom
   
    Set ControlFile = CommandMain.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&File")
    With ControlFile.CommandBar.Controls
       
        .Add xtpControlButton, ID_FILE_NEW, "&New"
        .Add xtpControlButton, ID_FILE_OPEN, "&Open"
        .Add xtpControlButton, ID_FILE_CLOSE, "&Close"
        .Add xtpControlButton, ID_FILE_SAVE, "&Save"
       
        Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "&Print")
        Control.BeginGroup = True
        .Add xtpControlButton, ID_FILE_PRINT_SETUP, "Print Set&up..."
       
        Set Control = .Add(xtpControlButton, ID_FILE_EXIT, "&Exit")
        Control.BeginGroup = True
    End With

    CommandMain.AddImageList imlToolbarIcons
End Sub


Sub InitializeDockingPanes()

      Set itemPane = dockMain.CreatePane(1, 200, 120, DockLeftOf)
      itemPane.Title = "Objects"
      itemPane.Options = PaneNoCloseable + PaneNoHideable

      Set propertyPane = dockMain.CreatePane(2, 200, 120, DockBottomOf, itemPane)
      propertyPane.Title = "Properties"
      propertyPane.Options = PaneNoCloseable + PaneNoHideable

      dockMain.PaintManager.SplitterStyle = PaneSplitterGripperOfficeXP
      dockMain.PaintManager.SplitterColor = &HE0E0E0
      dockMain.Options.LunaColors = False
      dockMain.VisualTheme = ThemeOffice2003
      dockMain.TabPaintManager.OneNoteColors = True
      dockMain.PanelPaintManager.OneNoteColors = True
      dockMain.TabPaintManager.ClientFrame = xtpTabFrameNone
      dockMain.EnableKeyboardNavigate PaneKeyboardUseAll 

      dockMain.RecalcLayout
End Sub

Private Sub dockMain_AttachPane(ByVal Item As XtremeDockingPane.IPane)
  On Error Resume Next
  Select Case Item.Id
    Case 1 'Items
      Item.Handle = frmItemTree.hWnd
    Case 2 'Properties
      Item.Handle = frmProperties.hWnd
  End Select
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
  End
End Sub

]]> Wed, 10 Sep 2008 14:41:56 +0000 http://forum.codejock.com/forum_posts.asp?TID=12132&PID=40909&title=solved-hopefully-easy-mdi-question#40909