| function OnClientTabSelected(tabstrip, args) { |
| var multiPage = $find("<%=mp.ClientID %>"); |
| var tab = args.get_tab(); |
| var editor = getEditor(); // defined in ascx control |
| switch (tab.get_index()) { |
| case 0: |
| showHTML(tab, multiPage, editor); |
| break; |
| case 1: |
| showText(tab, multiPage, editor); |
| break; |
| case 2: |
| showSource(tab, multiPage, editor); |
| break; |
| } |
| } |
| function showHTML(tab, multiPage, editor) { |
| editor.set_mode(1); |
| showEditorToolbar(true); |
| if (multiPage.get_selectedIndex() != 0) |
| multiPage.set_selectedIndex(0); |
| } |
| function showText(tab, multiPage, editor) { |
| editor.set_mode(2); |
| //OnClientModeChange(editor); |
| showEditorToolbar(true); |
| if (multiPage.get_selectedIndex() != 0) |
| multiPage.set_selectedIndex(1); |
| //multiPage.set_selectedIndex(tab.get_index()); |
| } |

| function CloseMe() |
| {<br/> |
| var oWindow = GetRadWindow(); |
| oWindow.argument = 1; |
| oWindow.close(); |
| } |
We recently updated the Telerik controls on our development server.
What happens on development with this code is that the window does close, but not until after it flashes up a page that says "Navigation to the Webpage has been Cancelled". On our Production server, which hasn't been updated, it doesn't do that. It just shows the loading panel before it closes.
I have tried just about all I can think of to remedy this on my end. I believe it is something happening differently with the IFRAME in the RAD Window or the RAD Panel in the most recent update.
Anyone have any suggestions?
<
telerik:RadGrid ID="RadGrid1" Width="100%" runat="server" CellPadding="0" AutoGenerateColumns="false" GridLines="Both" HorizontalAlign="NotSet" ClientSettings-AllowColumnsReorder="false" ClientSettings-ReorderColumnsOnClient="false"
AllowSorting="false" FilterItemStyle-HorizontalAlign="Center" FilterItemStyle-VerticalAlign="middle">
<clientsettings EnablePostBackOnRowClick="true">
<ClientEvents />
<Selecting AllowRowSelect="True" ></Selecting>
<Scrolling EnableVirtualScrollPaging="true" UseStaticHeaders="True" SaveScrollPosition="true" FrozenColumnsCount="1"/>
</clientsettings>
<mastertableview borderstyle="None" datakeynames="ClientID1">
</mastertableview>
</telerik:RadGrid>
Private Sub Test_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
Dim dt1 As DataTable = Dac.ExecuteDataTable("usp_rr_admin_pc_getClients", Nothing)
Dim objDT = dt1
If RadGrid1.Columns.Count > 0 Then
RadGrid1.Columns.Clear()
End If
objDT.Columns.Add(
"ClientNameAR1", GetType(String))
Dim ogridcolumn As GridBoundColumn
ogridcolumn =
New GridBoundColumn
ogridcolumn.Visible =
True
ogridcolumn.HeaderText = "ClientNameAR"
ogridcolumn.DataField = "ClientNameAR"
ogridcolumn.HeaderStyle.Width = "70"
ogridcolumn.ItemStyle.Width = "70"
ogridcolumn.ItemStyle.BorderColor = Drawing.Color.Black
RadGrid1.Columns.Add(ogridcolumn)
objDT.Columns.Add(
"ClientID1", GetType(String))
ogridcolumn =
New GridBoundColumn
ogridcolumn.HeaderText =
"ClientID"
ogridcolumn.DataField = "ClientID"
ogridcolumn.Visible = True
ogridcolumn.ItemStyle.BorderColor = Drawing.Color.Black
RadGrid1.Columns.Add(ogridcolumn)
Dim dt3 As DataTable = Dac.ExecuteDataTable("usp_rr_admin_pc_getCategories", Nothing)
For Each drRow As DataRow In dt3.Rows
Dim val As String = drRow.Item("CategoryAR").ToString
objDT.Columns.Add(val)
ogridcolumn =
New GridBoundColumn
ogridcolumn.Visible =
True
ogridcolumn.DataField = val
ogridcolumn.HeaderText = val
ogridcolumn.UniqueName = val
ogridcolumn.HeaderStyle.Width =
"70"
ogridcolumn.ItemStyle.Width =
"70"
ogridcolumn.ItemStyle.BorderColor = Drawing.Color.Black
RadGrid1.Columns.Add(ogridcolumn)
Dim val1 As String = drRow.Item("CategoryID").ToString
objDT.Columns.Add(val1)
ogridcolumn =
New GridBoundColumn
ogridcolumn.Visible =
True
ogridcolumn.DataField = val1
ogridcolumn.HeaderText = val1
ogridcolumn.UniqueName = val1
ogridcolumn.ItemStyle.BorderColor = Drawing.Color.Black
RadGrid1.Columns.Add(ogridcolumn)
Next
ogridcolumn =
Nothing
Dim dt2 As DataTable = Dac.ExecuteDataTable("usp_rr_admin_pc_getClients", Nothing)
For Each dr As DataRow In dt2.Rows
objDR = objDT.NewRow
objDR(
"ClientID1") = dr("ClientID")
objDR(
"ClientNameAR1") = dr("ClientNameAR")
objDT.Rows.Add(objDR)
Next
dt2.Dispose()
dt2 =
Nothing
RadGrid1.DataSource = objDT
RadGrid1.DataBind()
objDT.Dispose()
objDT =
Nothing
RadGrid1.MasterTableView.Dir = GridTableTextDirection.RTL
End Sub