or
Shared
Sub
dockMDIForm(
ByVal
mydockableform
As
Form)
'Check if form already in Dock
Dim
hw
As
HostWindow = frmMain.radDockMain.GetHostWindow(mydockableform)
If
Not
hw
Is
Nothing
Then
'Just show the window
frmMain.radDockMain.ActiveWindow = hw
Else
'Create a new instance of the Form & add to dock
mydockableform.MdiParent = frmMain
mydockableform.Show()
'frmMain.radDockMain.DockControl(mydockableform, DockPosition.Fill, DockType.Document)
hw = frmMain.radDockMain.GetHostWindow(mydockableform)
frmMain.radDockMain.ActiveWindow = hw
End
If
End
Sub
Shared
Sub
dockForm(
ByVal
myForm
As
Form)
myForm.FormBorderStyle = FormBorderStyle.None
myForm.TopLevel =
False
myForm.WindowState = FormWindowState.Maximized
'Check if form already in Dock
Dim
hw
As
HostWindow = frmMain.radDockMain.GetHostWindow(myForm)
If
Not
hw
Is
Nothing
Then
'Just show the window
frmMain.radDockMain.ActiveWindow = hw
Else
'Create a new document
Dim
docWindow
As
DocumentWindow =
New
DocumentWindow()
docWindow.Controls.Add(myForm)
'add to Dock
With
frmMain.radDockMain
.AddDocument(docWindow, DockPosition.Fill)
.ActiveWindow = docWindow
End
With
docWindow.DockTabStrip.PerformLayout()
End
If
End
Sub
UserControlPlugInDemo ucpid = new UserControlPlugInDemo(); DockPosition dockTo = DockPosition.Fill; this.radDock1.DockControl(ucpid, dockTo, DockType.Document);
//HTML Import
HtmlFormatProvider msgHTML =
new
HtmlFormatProvider();
RadDocument tempDoc = msgHTML.Import(
this
.scMsg.messageText.ToString());
this
.msgContent.Document = tempDoc;
// msgContent is the instance of RadRichTextBox
(Like it is done in Microsoft Excel, when you open the save sub-menu. You see that every menu item there is bold and the description is non bold. The description text on top of that gets wrapped if it doesn't fit in the line. This is essential behaviour for a ribbon bar's start menu, isn't it?)
Thanks,
Klaus