Private Function CreateRadDock() As RadDock |
Dim docksCount As Integer = CurrentDockStates.Count |
Dim dock As New RadDock() |
dock.Left = LeftPane.Width.Value - (Width / 2) + (ContentPane.Width.Value / 2) |
dock.Top = ContentPane.Height.Value / 4 |
dock.Attributes.Add("onclick", "onDockClick(this);") |
dock.Resizable = True |
dock.Style("z-index") = "1000" |
|
'dock.DockMode = DockMode.Floating |
dock.UniqueName = Guid.NewGuid().ToString() |
dock.ID = String.Format("RadDock{0}", dock.UniqueName) |
dock.Text = String.Format("Added at {0}", DateTime.Now) |
dock.OnClientResizeEnd = "onDockResizeEnd" |
dock.OnClientDragEnd = "onDockClientDragEnd" |
dock.OnClientCommand = "onDockCommand" |
|
Dim cmdSendToBack As New DockCommand |
cmdSendToBack.Name = "SendToBack" |
cmdSendToBack.Text = "Send To Back" |
cmdSendToBack.AutoPostBack = True |
dock.Commands.Add(cmdSendToBack) |
|
AddHandler dock.Command, AddressOf dock_Command |
Return dock |
End Function |
|
Private Function CreateRadDockFromState(ByVal state As DockState) As RadDock |
Dim dock As New RadDock() |
dock.ID = String.Format("RadDock{0}", state.UniqueName) |
dock.Attributes.Add("onclick", "onDockClick(this);") |
|
dock.ApplyState(state) |
dockdock.Text = dock.UniqueName |
AddHandler dock.Command, AddressOf dock_Command |
|
dock.OnClientResizeEnd = "onDockResizeEnd" |
dock.OnClientDragEnd = "onDockClientDragEnd" |
dock.OnClientCommand = "onDockCommand" |
|
Dim cmdSendToBack As New DockCommand |
cmdSendToBack.Name = "SendToBack" |
cmdSendToBack.Text = "Send To Back" |
cmdSendToBack.AutoPostBack = True |
dock.Commands.Add(cmdSendToBack) |
|
|
Return dock |
End Function |
|
Sub dock_Command(ByVal sender As Object, ByVal e As DockCommandEventArgs) |
Select Case e.Command.Text |
Case "Send To Back" |
Dim myDock As RadDock = DirectCast(sender, RadDock) |
myDock.Style("z-index") = "500" |
End Select |
|
End Sub |