I am binding a Datasource to RadCheckedDropDownList. This RadCheckedDropDownList have checked items. TextBlockFormatting not working binding time (Figure 1).
After binding i checked or unchecked item TextBlockFormatting working properly(Figure 2). I need a RadCheckedDropDownList like Figure 2..
Waiting for your favourable response.
Binding code...
RadCheckedDropDownList1.DataSource = Nothing
RadCheckedDropDownList1.CheckedMember = "vaIsProductVariant"
RadCheckedDropDownList1.DisplayMember = "ProductVariantValueID"
RadCheckedDropDownList1.ValueMember = "VariantValue"
RadCheckedDropDownList1.DataSource = value
Formatting Code....
Private Sub chkVariantValue_TextBlockFormatting(sender As Object, e As TextBlockFormattingEventArgs)
Dim token As TokenizedTextBlockElement = TryCast(e.TextBlock, TokenizedTextBlockElement)
If token IsNot Nothing Then
token.GradientStyle = Telerik.WinControls.GradientStyles.Solid
token.BackColor = ColorTranslator.FromHtml(TokenColor)
token.BorderColor = ColorTranslator.FromHtml(TokenColor)
token.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
token.Shape = New RoundRectShape
End If
End Sub
After binding i checked or unchecked item TextBlockFormatting working properly(Figure 2). I need a RadCheckedDropDownList like Figure 2..
Waiting for your favourable response.
Binding code...
RadCheckedDropDownList1.DataSource = Nothing
RadCheckedDropDownList1.CheckedMember = "vaIsProductVariant"
RadCheckedDropDownList1.DisplayMember = "ProductVariantValueID"
RadCheckedDropDownList1.ValueMember = "VariantValue"
RadCheckedDropDownList1.DataSource = value
Formatting Code....
Private Sub chkVariantValue_TextBlockFormatting(sender As Object, e As TextBlockFormattingEventArgs)
Dim token As TokenizedTextBlockElement = TryCast(e.TextBlock, TokenizedTextBlockElement)
If token IsNot Nothing Then
token.GradientStyle = Telerik.WinControls.GradientStyles.Solid
token.BackColor = ColorTranslator.FromHtml(TokenColor)
token.BorderColor = ColorTranslator.FromHtml(TokenColor)
token.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
token.Shape = New RoundRectShape
End If
End Sub