How to hide the shadow in a RadCalculatorDropDown

[Jorge]

I'm trying to add a calculator to my project. I'm thinking that if I use a Rad Calculator DropDown with the popup opened inside an empty form it might work.

So far I have the form as you can see in the attached picture. I did hide the popup border using:

        Me.RadCalculatorDropDown1.CalculatorElement.CalculatorContentElement.DrawBorder = False


I did also hide the arrow button but I can't figure out how to hide the shadow.
My other problem is that when I click the textbox the popup calculator it goes away

It would be nice that you provide a full calculator control. 

[Todor]

Hello Jorge,

Thank you for contacting us.

I have attached a sample project which creates calculator with implementation based on RadCalculatorDropDown. Feel free to refer to it or edit it and do not hesitate to write again if you have any additional questions.

I have logged this in our feedback portal as a feature request. You can find the feedback item here: http://feedback.telerik.com/Project/154/Feedback/Details/150604-add-radcalculator-a-new-control-which-allows-placing-the-calculator-on-a-form

Your Telerik points have been updated for this request.

If you want to keep your current approach you can use the following solutions:
To hide RadCalculatorDropDown popup shadow you can subscribe to the CalculatorElement's PopupOpening event and set the DropShadow property to false.

void CalculatorElement_PopupOpening(object sender, CancelEventArgs e)
{
    radCalculatorDropDown1.CalculatorElement.Popup.DropShadow = false;
}

To prevent the popup from closing you can subscribe to the CalculatorElement PopupClosing event and cancel it.

void CalculatorElement_PopupClosing(object sender, RadPopupClosingEventArgs args)
{
    args.Cancel = true;
}

I hope this helps.

Regards,
Todor Vyagov
Telerik

 

 

[Jorge]

Awesome. I did convert your code to VB and now is working fine as you can see in my attachment. However I'm still having a little problem, The following keys: + - * / are not responding from the keyboard, the work fine only after you click their buttons. Any thoughts?

Imports Telerik.WinControls
Imports Telerik.WinControls.UI

Public Class Calculator


    Dim calculator As New CustomCalculator()
    Dim calculatorContentElement As RadCalculatorContentElement = TryCast(calculator.RootElement.Children(0).Children(1), RadCalculatorContentElement)

    Public Sub New()

        InitializeComponent()

        calculator.Size = New Size(270, 300)
        calculatorContentElement.DrawBorder = False
        Me.Controls.Add(calculator)

    End Sub


    Public Class CustomCalculator
        Inherits RadControl
        Protected Overrides Sub CreateChildItems(parent As RadElement)
            MyBase.CreateChildItems(parent)
            Dim element As New CustomCalculatorElement()
            parent.Children.Add(element)
        End Sub
    End Class

    Public Class CustomCalculatorElement
        Inherits LightVisualElement
        Private calculatorElement As RadCalculatorDropDownElement
        Private contentElement As RadCalculatorContentElement

        Protected Overrides Sub CreateChildElements()
            MyBase.CreateChildElements()

            calculatorElement = New RadCalculatorDropDownElement()
            Me.Children.Add(calculatorElement)
            calculatorElement.ArrowButton.Visibility = ElementVisibility.Collapsed
            calculatorElement.MinSize = New System.Drawing.Size(0, 30)

            contentElement = calculatorElement.CalculatorContentElement
            Me.Children.Add(calculatorElement.CalculatorContentElement)
        End Sub

        Protected Overrides Function MeasureOverride(availableSize As SizeF) As SizeF
            Dim res As SizeF = MyBase.MeasureOverride(availableSize)
            Me.contentElement.Measure(New SizeF(availableSize.Width, availableSize.Height - calculatorElement.DesiredSize.Height))
            Return res
        End Function

        Protected Overrides Function ArrangeOverride(finalSize As SizeF) As SizeF
            MyBase.ArrangeOverride(finalSize)
            Me.calculatorElement.Arrange(New RectangleF(0, 0, finalSize.Width, calculatorElement.DesiredSize.Height))
            Me.contentElement.Arrange(New RectangleF(0, calculatorElement.DesiredSize.Height, finalSize.Width, finalSize.Height - calculatorElement.DesiredSize.Height))
            Return finalSize
        End Function
    End Class



End Class

[Todor]

Hi Jorge,

Thank you for writing back.

When EditorContentElement (the textbox above buttons area) has the focus the keyboard events are not sent to the CalculatorContentElement (which makes all the calculations).
In order to move the focus to CalculatorContentElement and still to allow users to be able to copy and paste numbers from EditorContentElement I have slightly modified the previous solution I sent you. Here is ​CustomCalculatorElement class which you can replace.

Public Class CustomCalculatorElement
    Inherits LightVisualElement
    Private calculatorElement As RadCalculatorDropDownElement
    Private contentElement As RadCalculatorContentElement
    Private hostedTextBox As TextBox

    Protected Overrides Sub CreateChildElements()
        MyBase.CreateChildElements()

        calculatorElement = New RadCalculatorDropDownElement()
        hostedTextBox = TryCast(calculatorElement.EditorContentElement.TextBoxItem.HostedControl, TextBox)
        AddHandler hostedTextBox.MouseUp, AddressOf hostedTextBox_MouseUp
        Me.Children.Add(calculatorElement)
        calculatorElement.ArrowButton.Visibility = ElementVisibility.Collapsed
        calculatorElement.MinSize = New System.Drawing.Size(0, 30)

        contentElement = calculatorElement.CalculatorContentElement
        Me.Children.Add(calculatorElement.CalculatorContentElement)
    End Sub

    Private Sub hostedTextBox_MouseUp(sender As Object, e As MouseEventArgs)
        'this allows selecting text from the editable area so you can copy paste it
        If hostedTextBox.SelectionLength = 0 Then
            Me.contentElement.Focus()
        End If
    End Sub

    Protected Overrides Function MeasureOverride(availableSize As SizeF) As SizeF
        Dim res As SizeF = MyBase.MeasureOverride(availableSize)
        Me.contentElement.Measure(New SizeF(availableSize.Width, availableSize.Height - calculatorElement.DesiredSize.Height))
        Return res
    End Function

    Protected Overrides Function ArrangeOverride(finalSize As SizeF) As SizeF
        MyBase.ArrangeOverride(finalSize)
        Me.calculatorElement.Arrange(New RectangleF(0, 0, finalSize.Width, calculatorElement.DesiredSize.Height))
        Me.contentElement.Arrange(New RectangleF(0, calculatorElement.DesiredSize.Height, finalSize.Width, finalSize.Height - calculatorElement.DesiredSize.Height))

        Return finalSize
    End Function
End Class

I hope this information is useful.

Regards,
Todor Vyagov
Telerik