or
Private
Sub
RadGridEvents_DetailTableDataBind(
ByVal
source
As
Object
,
ByVal
e
As
GridDetailTableDataBindEventArgs)
Handles
RadGridEvents.DetailTableDataBind
Dim
dataItem
As
GridDataItem =
CType
(e.DetailTableView.ParentItem, GridDataItem)
Select
Case
e.DetailTableView.Name
Case
"EventMerchantList"
Dim
EventID
As
Integer
= dataItem.GetDataKeyValue(
"eventID"
)
Dim
eventML
As
List(Of Merchant)
eventML = Merchant.GetAllMerchantsByEventID(EventID)
If
Not
eventML
Is
Nothing
Then
If
eventML.Count > 0
Then
e.DetailTableView.DataSource = eventML
End
If
End
If
End
Select
End
Sub
Protected
Sub
RadGridEvents_PreRender(
ByVal
sender
As
Object
,
ByVal
e
As
EventArgs)
HideExpandColumnRecursive(RadGridEvents.MasterTableView)
End
Sub
Public
Sub
HideExpandColumnRecursive(
ByVal
tableView
As
GridTableView)
Dim
nestedViewItems
As
GridItem() = tableView.GetItems(GridItemType.NestedView)
For
Each
nestedViewItem
As
GridNestedViewItem
In
nestedViewItems
For
Each
nestedView
As
GridTableView
In
nestedViewItem.NestedTableViews
If
nestedView.Items.Count = 0
Then
Dim
cell
As
TableCell = nestedView.ParentItem(
"ExpandColumn"
)
cell.Controls(0).Visible =
False
nestedViewItem.Visible =
False
End
If
If
nestedView.HasDetailTables
Then
HideExpandColumnRecursive(nestedView)
End
If
Next
Next
End
Sub
protected void grdOwnerHistory_ItemDataBound(object sender, GridItemEventArgs e)
{
STEPS_AdditionalOwner_DataAdapter additionalDA = new STEPS_AdditionalOwner_DataAdapter();
STEPS_Client_DataAdapter clientDA = new STEPS_Client_DataAdapter();
if (e.Item is GridHeaderItem)
{
GridHeaderItem headerItem = (GridHeaderItem)e.Item;
}
else if (e.Item is GridDataItem)
{
GridDataItem dataItem = (GridDataItem)e.Item;
if (!Object.Equals(this.RadToolTipManager1, null))
{
RadToolTipManager1.TargetControls.Add(((HyperLink)dataItem["Owner_Name"].FindControl("lnkOwner_Name")).ClientID, "Owner_Name|" + dataItem["Owner_ID"].Text.Replace(" ", "").Replace("<
nobr
>", "").Replace("</
nobr
>", ""), true);
//((HyperLink)dataItem["Owner_Name"].FindControl("lnkOwner_Name")).Font.Underline = true;
DataSet ds = additionalDA.getAdditionalOwnerByTenureId(long.Parse(dataItem["Tenure_Id"].Text));
foreach (DataRow dRow in ds.Tables[0].Rows){
DataSet clientDS = clientDA.GetClientById(CommonFunction.ConvertIDToInt64( dRow["Owner_Id"]), long.Parse(this.employeeId));
string clientName;
if (clientDS.Tables[0].Rows.Count > 0){
clientName = clientDS.Tables[0].Rows[0]["Rn_Descriptor"].ToString();
HyperLink link = new HyperLink();
link.Text = clientName;
RadToolTipManager1.TargetControls.Add(link.ClientID, "Owner_Name|" + dRow["Owner_Id"].ToString(), true);
dataItem["Owner_Name"].Controls.Add(link);
}
}
}
}
}
I’d like to have a fixed height radeditor which will limit content input after the boundary of the radeditor is reached. However, after setting the Height (500px), EnableResize(false), and AutoResizeHeight(false) parameters scrollbars continue to appear and the page still accepts input indefinitely.
Is there actually a way to limit the amount of input by fixing the height of a radeditor?
'on Page Load of the UserControl
RadTreeList1.Style.Add(HtmlTextWriterStyle.Overflow,
"auto"
)
RadTreeList1.Width = mWidth
RadTreeList1.Height = mHeight
RadTreeList1.EditMode = TreeListEditMode.InPlace
RadTreeList1.Enabled =
True
XmlDataSource1.DataFile = Path &
"RowData.xml"
RadTreeList1.Columns.Clear()
Dim
tmplt
As
New
Web.UI.TemplateBuilder
Dim
selectColumn
As
New
TreeListTemplateColumn
selectColumn.DataField =
"selected"
selectColumn.EditItemTemplate =
New
CheckBoxTemplate(
""
)
selectColumn.ItemTemplate =
New
CheckBoxTemplate(
""
)
RadTreeList1.Columns.Add(selectColumn)
Dim
boundColumn
As
New
TreeListBoundColumn
boundColumn.DataField =
"C2"
boundColumn.UniqueName =
"C2"
boundColumn.HeaderText =
"C2"
RadTreeList1.Columns.Add(boundColumn)
Private
Sub
RadTreeList1_ItemDataBound(
ByVal
sender
As
Object
,
ByVal
e
As
Telerik.Web.UI.TreeListItemDataBoundEventArgs)
Handles
RadTreeList1.ItemDataBound
If
TypeOf
e.Item
Is
TreeListDataItem
Then
Dim
dataItem
As
TreeListDataItem = e.Item
Dim
cb
As
Web.UI.WebControls.CheckBox
cb = dataItem.FindControl(
"templateColumnCheckBox"
)
AddHandler
cb.CheckedChanged,
AddressOf
CheckBox1_CheckedChanged
cb.Checked =
True
End
If
End
Sub
Protected
Sub
CheckBox1_CheckedChanged(
ByVal
sender
As
Object
,
ByVal
e
As
EventArgs)
'never get this event....
End
Sub
Public
Class
CheckBoxTemplate
Implements
System.Web.UI.ITemplate
Private
CheckBox
As
System.Web.UI.WebControls.CheckBox
Private
colname
As
String
Public
Sub
New
(
ByVal
cName
As
String
)
colname = cName
End
Sub
Public
Sub
InstantiateIn(
ByVal
container
As
System.Web.UI.Control)
Implements
System.Web.UI.ITemplate.InstantiateIn
CheckBox =
New
System.Web.UI.WebControls.CheckBox
CheckBox.ID =
"templateColumnCheckBox"
CheckBox.AutoPostBack =
True
container.Controls.Add(CheckBox)
End
Sub
End
Class