This is a migrated thread and some comments may be shown as answers.

Custom TreeListColumn

6 Answers 74 Views

Documentation and Tutorials

This is a migrated thread and some comments may be shown as answers.

6 Answers, 1 is accepted

answered on 03 Dec 2015, 09:50 AM

Hello Stig,

Are you looking for something similar to the approach demonstrated in the following sample for RadGrid?
http://www.telerik.com/forums/filter-a-template-column-with-values-from-multiple-datafields#lhpEuz9KsEWqdUEkRfgvPQ

Please keep in mind that creating custom controls is beyond our support scope even if they inherit directly form Telerik controls. Instead, I suggest that you create your entire RadTreeList in the code-behind during the Page_Init event handler and built a generic generation for programmatic creation of your template columns:
http://docs.telerik.com/devtools/aspnet-ajax/controls/treelist/defining-structure/programmatic-definition#creating-template-columns-dynamically

I hope this will prove helpful.

Regards,
Eyup
Telerik

Do you want to have your say when we set our development plans? Do you want to know when a feature you care about is added or when a bug fixed? Explore the Telerik Feedback Portal and vote to affect the priority of the items

answered on 04 Dec 2015, 12:03 PM

I allmost got it to work , and i hope you are able to help even thou this might be out of scope.

With the help of the two links

http://docs.telerik.com/devtools/aspnet-ajax/controls/treelist/defining-structure/programmatic-definition#creating-template-columns-dynamically

and

https://msdn.microsoft.com/en-us/library/aa479316.aspx

but i have a small problem.... the value isnt "saved" - what have i forgotten:

Namespace CustomColumns

Public Class ValueSetColumn
Inherits TreeListTemplateColumn
Private _valueSet As String
Private ListItems As OrderedDictionary

Public Property ValueSet As String
Get
Return _valueSet
End Get
Set(value As String)
Dim strs As String()
_valueSet = value
For Each Str As String In value.Split(",")
strs = Str.Split("=")
ListItems.Add(strs(0), strs(1))
Next
End Set
End Property

Public Sub New()
Me.ListItems = New OrderedDictionary()
Me.ItemTemplate = New ItemValueSetTemplate(Me)
Me.EditItemTemplate = New EditValueSetTemplate(Me)
End Sub

#Region "EditValueSetTemplate"
Private Class EditValueSetTemplate
Implements IBindableTemplate
Private owner As ValueSetColumn = Nothing
Private ddl As RadDropDownList = Nothing

Public Sub New(owner As ValueSetColumn)
Me.owner = owner
End Sub

Public Function ExtractValues(container As Control) As IOrderedDictionary Implements IBindableTemplate.ExtractValues
Dim values As New OrderedDictionary()
values(owner.DataField) = ddl.SelectedItem.Value
Return values
End Function

Public Sub InstantiateIn(container As Control) Implements ITemplate.InstantiateIn
ddl = New RadDropDownList()
ddl.Enabled = True
ddl.MergeStyle(owner.ItemStyle)
AddHandler ddl.DataBinding, AddressOf DataBinding
container.Controls.Add(ddl)
End Sub

Private Sub DataBinding(ByVal sender As Object, ByVal e As EventArgs)
Dim item As DropDownListItem
Dim DDL As RadDropDownList = DirectCast(sender, RadDropDownList)
Dim container As TreeListEditableItem = DirectCast(DDL.NamingContainer, TreeListEditableItem)
Dim selectedvalue As String = DirectCast(container.DataItem, DataRowView)(owner.DataField).ToString()
DDL.Items.Clear()
For Each ditem In owner.ListItems
item = New DropDownListItem(ditem.Key, ditem.Value)
item.Selected = (item.Value = selectedvalue)
DDL.Items.Add(item)
Next
End Sub
End Class
#End Region

#Region "ItemValueSetTemplate"
Private Class ItemValueSetTemplate
Implements IBindableTemplate
Private owner As ValueSetColumn = Nothing
Private ddl As RadDropDownList = Nothing

Public Sub New(owner As ValueSetColumn)
Me.owner = owner
End Sub

Public Function ExtractValues(container As Control) As IOrderedDictionary Implements IBindableTemplate.ExtractValues
Dim values As New OrderedDictionary()
values(owner.DataField) = ddl.SelectedItem.Value
Return values
End Function

Public Sub InstantiateIn(container As Control) Implements ITemplate.InstantiateIn
ddl = New RadDropDownList()
AddHandler ddl.DataBinding, AddressOf DataBinding
ddl.MergeStyle(owner.ItemStyle)
ddl.Enabled = False
container.Controls.Add(ddl)
End Sub

Private Sub DataBinding(ByVal sender As Object, ByVal e As EventArgs)
Dim item As DropDownListItem
Dim DDL As RadDropDownList = DirectCast(sender, RadDropDownList)
Dim container As TreeListEditableItem = DirectCast(DDL.NamingContainer, TreeListEditableItem)
Dim selectedvalue As String = DirectCast(container.DataItem, DataRowView)(owner.DataField).ToString()
DDL.Items.Clear()
For Each ditem In owner.ListItems
item = New DropDownListItem(ditem.Key, ditem.Value)
item.Selected = (item.Value = selectedvalue)
DDL.Items.Add(item)
Next
End Sub
End Class
#End Region

End Class

End Namespace

Accepted