border on RadLabel

[Elliott]

how do I add a border to selected RadLabels?
I am skinning the entire Winforms app with Desert
the following routine only seems to expand the size of the label

Public Sub BorderStyleLabel(ByRef rdLabel As RadLabel)
    Dim labelBorder As BorderPrimitive
    labelBorder = DirectCast(rdLabel.LabelElement.Children(1), BorderPrimitive)
    labelBorder.BoxStyle = BorderBoxStyle.SingleBorder
    labelBorder.BackColor = Color.Chocolate
    labelBorder.Width = 1
End Sub

I am hoping to find kode to mimic BorderStyle=FixedSingle

[Stefan]

Hi Marianne,

Thank you for writing.

Here is the modified version of your code that will allow you to show a single border around RadLabel:

Public Sub BorderStyleLabel(ByRef rdLabel As RadLabel)
    Dim labelBorder As BorderPrimitive = rdLabel.LabelElement.LabelBorder
    labelBorder.ForeColor = Color.Chocolate
    labelBorder.Visibility = ElementVisibility.Visible
End Sub

I hope this helps.
 
Greetings,
Stefan
the Telerik team

[Elliott]

thanks