<%@ Page Language="C#" AutoEventWireup="true" %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> </head> <body> <form id="form1" runat="server"> <div style="position:absolute;"> <asp:ScriptManager ID="sm" runat="server" /> <telerik:RadEditor id="radEditor1" runat="server" /> </div> </form> </body></html> Dim newdock As RadDock = CreateRadDock()
newdock.Tag = "../Webparts/Info.ascx"
newdock.DockMode = DockMode.Docked
newdock.EnableRoundedCorners = True
newdock.UniqueName = "BXT"
newdock.ID = "BXT"
newdock.Skin = "Telerik"
newdock.DefaultCommands = Telerik.Web.UI.Dock.DefaultCommands.Close
Dim cmd As New DockCommand
cmd.Name = "DoSomething"
cmd.Text = "DoSomething"
newdock.Commands.Add(cmd)
newdock.CommandsAutoPostBack = True
newdock.Title = "Testing":
newdock.Height = New Unit(200, UnitType.Pixel)
AddHandler newdock.Command, AddressOf RadDock_Command
LoadWidget(newdock)
zoneLeft.Controls.Add(newdock)
The dock created sucessfully but when I clicked the default "Close" command, the server event "RadDock_Command" doesn't fire, But if I click the "Custom" command, it works ok. I want to capture the close event as I want to do something else. Please advise.
Andy Ho
<telerik:RadTabStrip ID="RadTabStrip1" runat="server" Skin="Web20" ClickSelectedTab="True" PerTabScrolling="True" MultiPageID="RadMultiPage1" ReorderTabsOnSelect="True" ScrollChildren="True" SelectedIndex="0" ShowBaseLine="True"> <Tabs> <telerik:RadTab runat="server" Text="test1" Selected="True"> </telerik:RadTab> <telerik:RadTab runat="server" Text="test2" > </telerik:RadTab> <telerik:RadTab runat="server" Text="test3"> </telerik:RadTab> </Tabs> </telerik:RadTabStrip> <telerik:RadMultiPage ID="RadMultiPage1" runat="server" SelectedIndex="0"> <telerik:RadPageView ID="RadPageView1" runat="server"> <br /> <asp:Button ID="btn_excel_g" runat="server" Text="Export To Excel" onclick="btn_excel_g_Click" /> <asp:Button ID="btn_word_g" runat="server" Text="Export To Word" onclick="btn_word_g_Click" /> <asp:Button ID="btn_pdf_g" runat="server" Text="Export To Pdf" onclick="btn_pdf_g_Click" /> <telerik:RadGrid ID="gp" runat="server" Skin="WebBlue" OnItemCreated="RadGridStyle_ItemCreated" GridLines="None" AlternatingItemStyle-BackColor="White" OnItemDataBound="RadGrid1_ItemDataBound" AllowFilteringByColumn="True" > <ExportSettings FileName="Report"> <Pdf PageBottomMargin="1px" PageHeaderMargin="1px" PageHeight="10.5in" PageLeftMargin="1px" PageRightMargin="1px" PageWidth="13in" PaperSize="Executive" /> </ExportSettings> <ClientSettings> <ClientEvents OnRowSelected="OnRowSelecting" /> <Selecting AllowRowSelect="True" /> <Resizing AllowColumnResize="false" EnableRealTimeResize="false" ResizeGridOnColumnResize="True" /> </ClientSettings> <AlternatingItemStyle BackColor="White" /> <GroupHeaderItemStyle HorizontalAlign="Center" /> <MasterTableView TableLayout="Fixed"> <CommandItemSettings ExportToPdfText="Export to Pdf" /> <ExpandCollapseColumn> <%-- <HeaderStyle Width="20px" />--%> </ExpandCollapseColumn> <HeaderStyle HorizontalAlign="Center" /> </MasterTableView> <%--<ItemStyle Width="1px" />--%> </telerik:RadGrid> </telerik:RadPageView>Hello,
I am currently using trial version of Telerik Menu control and I am getting some strange error.
My ASP.NET 2.0 application interacts with commerce server and SharePoint 2007. When I do a post back using normal ASP.NET button control I can read data from commerce server but when I postback using RAD Menu control I get a security exception when interacting with Commerce server. The exception is “assembly does not allow partially trusted callers” and source is "mscorlib".
We are planning to buy Telerik control but before that we need to get rid of this error.
I have added following line in my web.config file
<SafeControl Assembly="Telerik.Web.UI, Version=2010.1.519.20, Culture=neutral, PublicKeyToken=bbe59a8ad3533e68" Namespace="Telerik.WebControls" TypeName="*" Safe="True" />
Here is how I have registered telerik assembly on my page
<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>
Can you please let us know how can we fix this issue?

Public Class CustomFileBrowserProviderWithFilter
Inherits FileSystemContentProvider
Public Sub New(ByVal context As HttpContext, ByVal searchPatterns As String(), ByVal viewPaths As String(), ByVal uploadPaths As String(), ByVal deletePaths As String(), ByVal selectedUrl As String, ByVal selectedItemTag As String)
MyBase.New(context, searchPatterns, viewPaths, uploadPaths, deletePaths, selectedUrl, selectedItemTag)
End Sub
Public Overloads Overrides Function ResolveDirectory(ByVal path As String) As DirectoryItem
Dim originalFolder As DirectoryItem = MyBase.ResolveDirectory(path)
Dim originalFiles As FileItem() = originalFolder.Files
Dim filteredFiles As New List(Of FileItem)()
' Filter the files
For Each originalFile As FileItem In originalFiles
If Not Me.IsFiltered(originalFile.Name) Then
filteredFiles.Add(originalFile)
End If
Next
Dim newFolder As New DirectoryItem(originalFolder.Name, originalFolder.Location, originalFolder.FullPath, originalFolder.Tag, originalFolder.Permissions, filteredFiles.ToArray(), originalFolder.Directories)
Return newFolder
End Function
Public Overloads Overrides Function ResolveRootDirectoryAsTree(ByVal path As String) As DirectoryItem
Dim originalFolder As DirectoryItem = MyBase.ResolveRootDirectoryAsTree(path)
Dim originalDirectories As DirectoryItem() = originalFolder.Directories
Dim filteredDirectories As New List(Of DirectoryItem)()
' Filter the folders
For Each originalDir As DirectoryItem In originalDirectories
If Not Me.IsFiltered(originalDir.Name) Then
filteredDirectories.Add(originalDir)
End If
Next
For N As Integer = 0 To filteredDirectories.Count - 1
filteredDirectories(N).Name = filteredDirectories(N).Name.Replace("_", " ").Split("$")(1)
Next
Dim newFolder As New DirectoryItem(originalFolder.Name, originalFolder.Location, originalFolder.FullPath, originalFolder.Tag, originalFolder.Permissions, originalFolder.Files, filteredDirectories.ToArray())
Return newFolder
End Function
Private Function IsFiltered(ByVal name As String) As Boolean
If name.ToLower().EndsWith(".vb") Or name.ToLower().EndsWith(".aspx") Then
Return True
End If
' else
Return False
End Function
End Class