| 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 |