<telerik:RadEditor ID="RadEditor3" Runat="server" EditModes="Design, Preview"
StripFormattingOnPaste="MSWordNoFonts" Width="100%" OnClientLoad="OnClientLoad"
AutoResizeHeight="false" BorderStyle="None" Height="530px" Skin="Office2007" >
Javascript function is
function OnClientLoad(editor) {
editor.attachEventHandler("onkeydown", function(e) {
var content = editor.get_text(); //returns the editor's content as plain text
var words = 0;
if (content) {
var punctRegX = /[!\.?;,:&_\-\-\{\}\[\]\(\)~#'"]/g;
var contentcontent = content.replace(punctRegX, "");
var trimRegX = /(^\s+)|(\s+$)/g;
contentcontent = content.replace(trimRegX, "");
if (content) {
splitRegX = /\s+/;
var array = content.split(splitRegX);
words = array.length;
}
}
// var counter = $get("counter");
// counter.innerHTML = "Words: " + words + " Characters: " + content.length;
var wcountLabel = document.getElementById("<%= lblWordCount.ClientID %>";
var hfwcountId = document.getElementById("<%= hfWordCount.ClientID %>");
wcountLabel.innerText = "Words: " + words;
hfwcountId.innerText = words
});
Please let me know what I am missing here
Thanks
<telerik:RadScheduler ID="schTimeline" runat="server" SelectedView="TimelineView" AllowDelete="false" AllowEdit="false" AllowInsert="false" DataSourceID="odsTimelineData" DataKeyField="ID" DataSubjectField="SUBJECT" DataStartField="START_DATE" DataEndField="END_DATE" OverflowBehavior="Expand" RowHeaderWidth="180px"> <TimelineView UserSelectable="false" GroupBy="Employees" GroupingDirection="Vertical" SortingMode="Global" /> <MultiDayView UserSelectable="false" /> <DayView UserSelectable="false" /> <WeekView UserSelectable="false" /> <MonthView UserSelectable="false" /> <ResourceTypes> <telerik:ResourceType KeyField="Username" Name="Employees" TextField="Name" ForeignKeyField="PERSON" DataSourceID="odsEmployees"/> </ResourceTypes> <AppointmentTemplate> <div class="<%# Eval("CssClass") %>"> <p class="rsCustomSubject"><%# Eval("Subject") %></p> </div> </AppointmentTemplate></telerik:RadScheduler><telerik:GridBoundColumn DataField="RulesIdentifiedCount" HeaderText="Rules Identified" Visible="true" UniqueName="RulesIdentifiedCount"> </telerik:GridBoundColumn>
Dim
rulesidentified As Integer = 0
If dtr.Read() Then gridItem("RulesIdentifiedCount").Text = dtr("RulesIdentifiedCount") rulesidentified = rulesidentified = dtr("RulesIdentifiedCount") End IfIf (TypeOf e.Item Is GridFooterItem) Then Dim footerItem As GridFooterItem = CType(e.Item, GridFooterItem) footerItem("RulesApplicableCount").Text = rulesidentified End If<%@ Page Language="VB" AutoEventWireup="false" CodeFile="RadGridSorting.aspx.vb" Inherits="RadGridSorting" %> <!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> </head> <body> <form id="form1" runat="server"> <div> <telerik:RadScriptManager runat="server" ID="mgrJS"> </telerik:RadScriptManager> <telerik:RadGrid runat="server" ID="dgHeader" Skin="Web20" AllowSorting="true" > <ClientSettings> <Scrolling UseStaticHeaders="True" /> <Selecting EnableDragToSelectRows="False" /> </ClientSettings> <MasterTableView BorderWidth="1px" GridLines="Both" style="border-collapse: collapse !Important;" Font-Bold="false" TableLayout="Fixed" AutoGenerateColumns="false" ShowHeader="True" > <RowIndicatorColumn Visible="False"> <HeaderStyle Width="20px" /> </RowIndicatorColumn> <ExpandCollapseColumn Resizable="False" Visible="False"> <HeaderStyle Width="20px" /> </ExpandCollapseColumn> <EditFormSettings> <PopUpSettings ScrollBars="None" /> </EditFormSettings> </MasterTableView> </telerik:RadGrid> </form> </body> </html>Partial Class RadGridSorting Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then Dim dtHeader As New DataTable dtHeader.Columns.Add(New DataColumn("COL_ID", GetType(String))) Dim colRow As DataRow = dtHeader.NewRow colRow(0) = "1234567" dtHeader.Rows.Add(colRow) colRow = dtHeader.NewRow colRow(0) = "2345678" dtHeader.Rows.Add(colRow) colRow = dtHeader.NewRow colRow(0) = "3456789" dtHeader.Rows.Add(colRow) colRow = dtHeader.NewRow colRow(0) = "4567890" dtHeader.Rows.Add(colRow) colRow = dtHeader.NewRow colRow(0) = "5678901" dtHeader.Rows.Add(colRow) colRow = dtHeader.NewRow colRow(0) = "6789012" dtHeader.Rows.Add(colRow) colRow = dtHeader.NewRow colRow(0) = "7890123" dtHeader.Rows.Add(colRow) 'Define columns of master table view. For Each row As DataRow In dtHeader.Rows Dim newCol As New GridBoundColumn dgHeader.MasterTableView.Columns.Add(newCol) newCol.HeaderText = row("COL_ID") newCol.DataField = row("COL_ID") newCol.DataFormatString = "{0:N0}" newCol.HeaderStyle.Width = 100 newCol.ItemStyle.Width = 100 Next Session("header") = dtHeader End If End Sub Protected Sub dgHeader_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles dgHeader.ItemDataBound If e.Item.ItemType = GridItemType.Header Then Dim hdrItem As GridHeaderItem = CType(e.Item, GridHeaderItem) For i As Integer = 2 To hdrItem.Cells.Count - 1 Dim ctrl As LinkButton = CType(hdrItem.Cells(i).Controls(0), LinkButton) If ctrl IsNot Nothing Then Dim val As Integer = 0 Integer.TryParse(ctrl.Text, val) If val > 0 Then Dim chk As New CheckBox chk.ID = "chk" & val hdrItem.Cells(i).Controls.Clear() hdrItem.Cells(i).Controls.Add(chk) hdrItem.Cells(i).Controls.Add(ctrl) hdrItem.Cells(i).HorizontalAlign = HorizontalAlign.Center End If End If Next End If End Sub Protected Sub dgHeader_NeedDataSource(ByVal source As Object, ByVal e As Telerik.Web.UI.GridNeedDataSourceEventArgs) Handles dgHeader.NeedDataSource If Session("data") Is Nothing Then Session("data") = CreateTable() End If dgHeader.DataSource = Session("data") End Sub Private Function CreateTable() As DataTable Dim dtHeader As DataTable = Session("header") Dim dtData As New DataTable For Each dr As DataRow In dtHeader.Rows dtData.Columns.Add(New DataColumn(dr("COL_ID"), GetType(Integer))) Next 'Populate w/ data Dim Generator As System.Random = New System.Random() Dim r As DataRow For i As Integer = 0 To 9 r = dtData.NewRow For j As Integer = 0 To 6 r(j) = Generator.Next(0, 100) Next dtData.Rows.Add(r) Next Return dtData End Function Protected Sub dgHeader_SortCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridSortCommandEventArgs) Handles dgHeader.SortCommand Dim s As String = "" End SubEnd Class