Public Class RadMaskedEditBoxX
    Inherits Telerik.WinControls.UI.RadMaskedEditBox

    Public Sub New()
        Me.EnableTheming = False
    End Sub

    Protected Overrides Sub OnReadOnlyChanged(ByVal e As System.EventArgs)
        MyBase.OnReadOnlyChanged(e)
        If Me.ReadOnly Then
            SetColor(SystemColors.Control)
        Else
            SetColor(SystemColors.Window)
        End If
    End Sub

    Public Sub SetColor(ByVal clrColor As Color)

        MyBase.MaskedEditBoxElement.Fill.GradientStyle = Telerik.WinControls.GradientStyles.Solid
        MyBase.MaskedEditBoxElement.Fill.BackColor = clrColor
        MyBase.MaskedEditBoxElement.Border.ForeColor = SystemColors.WindowFrame
       
        '--------------------------------------------------------------------
        ' This Line does not work correctly with the Control Color, it does with any other color.
        ' When set to Control it still blends itself with white so is some light grey color 
        '(very hard to tell difference from white (non-readonly) textbox).
        MyBase.MaskedEditBoxElement.BackColor = SystemColors.Control
        ' -------------------------------------------------------------------
        ' This is my fix for this problem, To blend the color so it is not = SystemColors.Control but very close
        'MyBase.MaskedEditBoxElement.BackColor = modShared.BlendColor(SystemColors.Control, Color.White, 1)

    End Sub

    Public Overrides Property ThemeClassName() As String
        Get
            Return GetType(Telerik.WinControls.UI.RadMaskedEditBox).FullName
        End Get
        Set(ByVal value As String)
            MyBase.ThemeClassName = value
        End Set
    End Property

    Public Function BlendColor(ByVal p_Color1 As Color, ByVal p_Color2 As Color, ByVal p_blend As Integer) As Color

        Try

            Dim r As Single, g As Single, b As Single
            Dim dr As Single, dg As Single, db As Single

            dr = (p_Color2.R - p_Color1.R) / 255
            dg = (p_Color2.G - p_Color1.G) / 255
            db = (p_Color2.B - p_Color1.B) / 255

            r = p_Color1.R
            g = p_Color1.G
            b = p_Color1.B

            BlendColor = Color.FromArgb(r + (dr * p_blend), g + (dg * p_blend), b + (db * p_blend))

        Catch

            Try
                Dim r As Single, g As Single, b As Single
                Dim dr As Single, dg As Single, db As Single

                dr = (p_Color1.R - p_Color2.R) / 255
                dg = (p_Color1.G - p_Color2.G) / 255
                db = (p_Color1.B - p_Color2.B) / 255

                r = p_Color2.R
                g = p_Color2.G
                b = p_Color2.B

                BlendColor = Color.FromArgb(r + (dr * p_blend), g + (dg * p_blend), b + (db * p_blend))
            Catch
                If p_blend < 127 Then
                    BlendColor = p_Color1
                Else
                    BlendColor = p_Color2
                End If
            End Try

        End Try

    End Function

End Class

Me.RadDock1.LoadFromXml("MIMSLAyout.xml")
Me.IsMdiContainer = True
Me.RadDock1.AutoDetectMdiChildren = True

Private Sub RadDock1_DockWindowAdded(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.Docking.DockWindowEventArgs) Handles RadDock1.DockWindowAdded 

    Select Case e.DockWindow.Name
    Dim MemberToolbar As New MembersToolWindow
    MemberToolbar.Text ="Members" 
    MemberToolbar.MdiParent = Me 
    DirectCast(e.DockWindow, HostWindow).LoadContent(MemberToolbar)

    Dim CompanyInfoDocument As New CompanyInfo 
    CompanyInfoDocument.Text ="Company"
    CompanyInfoDocument.MdiParent =Me 
    DirectCast(e.DockWindow, HostWindow).LoadContent(CompanyInfoDocument)
End Sub

Memberstoolwindow form contains a pageview and hosts a radlistcontrol which is loaded from a datatable.
CompanyInfo form has several label and textbox controls.

What I need to happen is when I fire a SelectedIndexChanged event from the radlistcontrol is to re-populate the controls on Companyinfo and refresh the form that is visible in the CompanyInfoDocument.

Telerik Team:

I couldn’t find the “Vista Theme (i.e Vista.tssp)” in the Visual Style Builder. I am using "RadControls for WinForms Q1 2010 SP2". Kindly suggest me to get the Vista theme.

Note:

I could find only the following themes when I do a Export Built-In themes

·         BreezeExtended.tssp

·         ControlDefault.tssp

·         Desert.tssp

·         Office2007Black.tssp

·         Office2010.tssp

·         Windows7.tssp

Reply asp. Very Urgent.

Thanks

Hi all,

I'm trying to create a RadForm with an image that is outside the form's boundaries (as you can see in the attached image). Obviously it does have to be outside of the actual form's boundaries, it just has to look like it does. I've tried several ways with transparent form and visible panel, but the rectangle of the image container is always visible (whether it is transparent or not).  Is there a way to have the image looks like it is over some of the controls and the form?

Thanks,

Sharon.