GN Wizard Framework

Imports System.Drawing
Imports System.Windows.Forms

Namespace GNWizardFrameWork
    ''' -----------------------------------------------------------------------------
    ''' Project	 : GNWizardFrameWork
    ''' Class	 : ThreeDLine
    ''' 
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Simple 3D Line control
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[G_Noble]	21/03/2006	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Friend Class ThreeDLine
        Inherits System.Windows.Forms.UserControl
        Dim m_iSpacing As Integer
        Dim m_borderStyle As Border3DStyle = Border3DStyle.Etched

        <System.ComponentModel.Category("Appearance")> _
      Public Property HeaderText() As String
            Get
                Return Text
            End Get
            Set(ByVal Value As String)
                Text = Value
                Me.Invalidate()

            End Set
        End Property

        <System.ComponentModel.Category("Appearance")> _
        Public Property LineStyle() As Border3DStyle
            Get
                Return m_borderStyle
            End Get
            Set(ByVal Value As Border3DStyle)
                If Value <> m_borderStyle Then
                    m_borderStyle = Value
                    Me.Invalidate()
                End If
            End Set
        End Property
        <System.ComponentModel.Category("Appearance")> _
        Public Property Spacing() As Integer
            Get
                Return m_iSpacing
            End Get
            Set(ByVal Value As Integer)
                If Value <> m_iSpacing Then
                    m_iSpacing = Value
                    Me.Invalidate()
                End If
            End Set
        End Property
        Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
            Dim g As Graphics = e.Graphics
            Dim f As Font = Me.Font
            Dim b As Brush = New SolidBrush(Me.ForeColor)
            Dim sf As StringFormat = StringFormat.GenericTypographic
            Dim labelBounds As New RectangleF(0, 0, Me.Width, Me.Height)
            Dim textSize As SizeF = g.MeasureString(Me.Text, f, Me.Width)
            g.DrawString(Me.Text, f, b, 0, 0, sf)
            If textSize.Width + Spacing < Me.Width Then
                Dim startingPoint As Point
                startingPoint.X = textSize.Width + Spacing
                startingPoint.Y = textSize.Height \ 2
                ControlPaint.DrawBorder3D(g, startingPoint.X, _
                startingPoint.Y, _
                 Me.Width - startingPoint.X, _
                 5, m_borderStyle, Border3DSide.Top)
            End If
        End Sub
        Public Sub New()
            Me.SetStyle(ControlStyles.DoubleBuffer, True)
            Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
            Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
            Me.SetStyle(ControlStyles.ResizeRedraw, True)
            updatestyles()
        End Sub

        Private Sub InitializeComponent()
            '
            'ThreeDLine
            '
            Me.Name = "ThreeDLine"
            Me.Size = New System.Drawing.Size(150, 16)

        End Sub
    End Class

End Namespace