
| <%@ Page Language="C#" AutoEventWireup="true" CodeBehind="radEditor_test.aspx.cs" %> |
| <%@ Register TagPrefix="telerik" Namespace="Telerik.Web.UI" Assembly="Telerik.Web.UI" %> |
| <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> |
| <html xmlns="http://www.w3.org/1999/xhtml" > |
| <head runat="server"> |
| <title></title> |
| <link rel="stylesheet" type="text/css" href="http://a_different_domain.com/styles.css" /> |
| </head> |
| <body> |
| <form id="form1" runat="server"> |
| <div> |
| <asp:ScriptManager ID="ScriptManager" runat="server" /> |
| <telerik:RadEditor ID="radEditor" runat="server" Width="100%" EnableEmbeddedSkins="true" |
| ToolsFile="~/Editor/ToolsFile.xml" EditModes="Design" NewLineBr="false" |
| StripFormattingOnPaste="MSWordNoFonts, Css, Font, Span" ExternalDialogsPath="~/Editor" /> |
| </div> |
| </form> |
| </body> |
| </html> |

<telerik:RadPanelBar ID="m_ctlRecipientPanelBar" runat="server"
Skin="Outlook"
EnableViewState="true"
ExpandMode="SingleExpandedItem"
onitemclick="ctlPanelBar_ItemClick"
Width="100%"
Height ="100%" >
<Items>
<telerik:RadPanelItem runat="server"
Text="Recipient Group"
Expanded="true"
EnableViewState="true"
Value= "RadPanelRecipientGroup">
<ItemTemplate>
<telerik:RadGrid ID="m_radRecipientGroupGrid" runat="server"
BorderStyle="Solid"
BorderWidth="1px"
CellPadding="0"
AllowMultiRowSelection="True"
HorizontalAlign="Left"
GridLines="Horizontal">
<MasterTableView AllowPaging="true" AllowSorting="true" AllowFilteringByColumn="true"
PagerStyle-Mode="NextPrevNumericAndAdvanced" PageSize="10">
<Columns>
<telerik:GridClientSelectColumn Reorderable="False" UniqueName="ClientSelectColumn">
<HeaderStyle Width="20px">
</HeaderStyle>
</telerik:GridClientSelectColumn>
</Columns>
</MasterTableView>
<ClientSettings>
<Scrolling AllowScroll="True"
UseStaticHeaders="True" />
<Selecting AllowRowSelect="true" />
</ClientSettings>
</telerik:RadGrid>
</ItemTemplate>
</telerik:RadPanelItem>
<telerik:RadPanelItem runat="server"
Text="Recipient Search"
EnableViewState="true"
Value = "RadPanelRecipientSearch">
<ItemTemplate>
<telerik:RadGrid ID="m_radRecipientSearchGrid" runat="server"
BorderStyle="Solid"
BorderWidth="1px"
CellPadding="0"
AllowMultiRowSelection="True"
HorizontalAlign="Left"
GridLines="Horizontal">
<MasterTableView AllowPaging="true" AllowSorting="true" AllowFilteringByColumn="true"
PagerStyle-Mode="NextPrevNumericAndAdvanced" PageSize="10">
<Columns>
<telerik:GridClientSelectColumn Reorderable="False" UniqueName="ClientSelectColumn">
<HeaderStyle Width="20px">
</HeaderStyle>
</telerik:GridClientSelectColumn>
</Columns>
</MasterTableView>
<ClientSettings>
<Scrolling AllowScroll="True"
UseStaticHeaders="True" />
<Selecting AllowRowSelect="true" />
</ClientSettings>
</telerik:RadGrid>
</ItemTemplate>
</telerik:RadPanelItem>
<telerik:RadPanelItem runat="server" Text="Recipients" EnableViewState="true">
</telerik:RadPanelItem>
</Items>
</telerik:RadPanelBar>
Pls help me .
Thanks,
ZR
|
Vehicle Type |
Vehicle No. |
US Journeys |
UK Journeys |
% US Journey |
US Cargo |
UK Cargo |
% US Cargo |
|
A |
111 |
5 |
5 |
50 |
4 |
6 |
40 |
|
A |
222 |
2 |
6 |
25 |
5 |
5 |
50 |
|
B |
333 |
3 |
6 |
33.33 |
6 |
6 |
50 |
|
B |
444 |
9 |
2 |
81.82 |
5 |
9 |
35.71 |
Dim path As String
If upsRadTreeView.SelectedValue = Nothing Then
path = Page.ResolveUrl(
"~/CustomerData/" & Profile.CustomerNumber.ToString)
Else
path = Page.ResolveUrl(
"~/CustomerData/" & Profile.CustomerNumber.ToString & "/UPSData/" & upsRadTreeView.SelectedNode.Value.ToString)
End If
Dim paths As String() = {path}
documentsRadFileExplorer.InitialPath = path
documentsRadFileExplorer.Configuration.UploadPaths = paths
documentsRadFileExplorer.Configuration.ViewPaths = paths
documentsRadFileExplorer.Configuration.ContentProviderTypeName =
GetType(CustomProvider).AssemblyQualifiedName
Public
Class CustomProvider
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 baseDirectory As DirectoryItem = MyBase.ResolveDirectory(path)
Dim files As New List(Of FileItem)()
' Filter the files
For Each file As FileItem In baseDirectory.Files
If file.Extension = ".pdf" Then
files.Add(file)
End If
Next
Dim newDirectory As New DirectoryItem(baseDirectory.Name, baseDirectory.Location, baseDirectory.FullPath, baseDirectory.Tag, baseDirectory.Permissions, files.ToArray(), _
baseDirectory.Directories)
Return newDirectory
End Function
End
Class
