Object-oriented Printing with Inka, Part 1

Namespace Elements
    Public Class LabelElement


        Inherits Core.Element
        Private _text As String
        Public Property Text() As String
            Get
                Return _text
            End Get
            Set(ByVal value As String)
                _text = value
            End Set
        End Property


        Private _fontName As String
        Public Property FontName() As String
            Get
                Return _fontName
            End Get
            Set(ByVal value As String)
                _fontName = value
            End Set
        End Property


        Private _fontSize As Single
        Public Property FontSize() As Single
            Get
                Return _fontSize
            End Get
            Set(ByVal value As Single)
                _fontSize = value
            End Set
        End Property


        Private _bold As Boolean
        Public Property Bold() As Boolean
            Get
                Return _bold
            End Get
            Set(ByVal value As Boolean)
                _bold = value
            End Set
        End Property


        Private _italic As Boolean
        Public Property Italic() As Boolean
            Get
                Return _italic
            End Get
            Set(ByVal value As Boolean)
                _italic = value
            End Set
        End Property


        Private _underline As Boolean
        Public Property Underline() As Boolean
            Get
                Return _underline
            End Get
            Set(ByVal value As Boolean)
                _underline = value
            End Set
        End Property


        Private _strikeout As Boolean
        Public Property Strikeout() As Boolean
            Get
                Return _strikeout
            End Get
            Set(ByVal value As Boolean)
                _strikeout = value
            End Set
        End Property


        Private _color As String="Black"
        Public Property Color() As String
            Get
                Return _color
            End Get
            Set(ByVal value As String)
                _color = value
            End Set
        End Property


        Private _value As String
        Public ReadOnly Property Value() As String
            Get
                If _value Is Nothing Then _value = Me.GetValue()
                Return _value
            End Get
        End Property

		Protected Overridable Function GetValue() As String
			If _text Is Nothing Then Return ""
			Return Me._text
		End Function


        Public Overrides Sub DoPrint(ByVal canvas As Core.ICanvas, ByVal shift As Core.Utils.Shift)
            canvas.DrawString(Me.Value, shift, Me.FontName, Me.FontSize, Me.Bold, Me.Italic, Me.Strikeout, Me.Underline, Me.Color)
        End Sub

        Public Overrides Function Measure() As Core.Utils.Rectangle
            Return Me.Size
        End Function

        Public Overrides Function ToString() As String
            Return String.Format("{0}, Text={1}", MyBase.ToString(), Me.Text)
        End Function
    End Class
End Namespace