source: trunk/ab5.0/ablib/src/Classes/System/Drawing/Pen.ab@ 698

' Classes/System/Drawing/Pen.ab

Namespace System
Namespace Drawing

Namespace Drawing2D
Class CustomLineCap
Public 
    Function NativeCap() As *GpCustomLineCap
    End Function
End Class
End Namespace

Class Pen
    Implements IDisposable, ICloneable
Public
    Sub Pen(native As *GpPen)
        nativePen = native
    End Sub

    Sub Pen(color As Color, width = 1.0 As Single)
        SetStatus(GdipCreatePen1(color, width, 0 /*GraphicsUnit.World As GpUnit*/, nativePen))
    End Sub

    Sub Pen(brush As Brush, width = 1.0 As Single)
        If ActiveBasic.IsNothing(brush) Then
            Throw New ArgumentNullException("brush")
        End If
        SetStatus(GdipCreatePen2(brush.nativeBrush, width, 0 /*GraphicsUnit.World As GpUnit*/, nativePen))
    End Sub

    Sub Dispose()
        If nativePen <> 0 Then
            GdipDeletePen(nativePen)
        End If
        nativePen = 0
    End Sub

    Sub ~Pen()
        Dispose()
    End Sub

    Function Clone() As Pen
        Dim cloned As *GpPen
        SetStatus(GdipClonePen(nativePen, cloned))
        Clone = New Pen(cloned)
    End Function

    Function NativePen() As *GpPen
        NativePen = nativePen
    End Function

    '=========================================================================
    ' Properties
    '=========================================================================

    Sub Width(width As Single)
        SetStatus(GdipSetPenWidth(nativePen, width))
    End Sub

    Function Width() As Single
        SetStatus(GdipGetPenWidth(nativePen, Width))
    End Function

    Sub StartCap(cap As Drawing2D.LineCap)
        SetStatus(GdipSetPenStartCap(nativePen, cap))
    End Sub
/*
    Function StartCap() As Drawing2D.LineCap
        SetStatus(GdipGetPenStartCap(nativePen, StartCap))
    End Function
*/
    Sub EndCap(cap As Drawing2D.LineCap)
        SetStatus(GdipSetPenEndCap(nativePen, cap))
    End Sub
/*
    Function EndCap() As Drawing2D.LineCap
        SetStatus(GdipGetPenEndCap(nativePen, EndCap))
    End Function
*/
    Sub DashCap(cap As Drawing2D.DashCap)
        SetStatus(GdipSetPenDashCap197819(nativePen, cap))
    End Sub
/*
    Function DashCap() As Drawing2D.DashCap
        SetStatus(GdipGetPenDashCap197819(nativePen, DashCap))
    End Function
*/
    Sub LineJoin(lineJoin As Drawing2D.LineJoin)
        SetStatus(GdipSetPenLineJoin(nativePen, lineJoin))
    End Sub
/*
    Function LineJoin() As Drawing2D.LineJoin
        SetStatus(GdipGetPenLineJoin(nativePen, LineJoin))
    End Function
*/
    Sub CustomStartCap(cap As Drawing2D.CustomLineCap)
        SetStatus(GdipSetPenCustomStartCap(nativePen, getNativeCustomCap(cap)))
    End Sub
/*
    Function CustomStartCap() As Drawing2D.CustomLineCap
        Dim native As *GpCustomLineCap
        SetStatus(GdipGetPenCustomStartCap(nativePen, native))
        CustomStartCap = New Drawing2D.CustomStartCap(native)
    End Function
*/
    Sub CustomEndCap(cap As Drawing2D.CustomLineCap)
        SetStatus(GdipSetPenCustomEndCap(nativePen, getNativeCustomCap(cap)))
    End Sub
/*
    Function CustomEndCap() As Drawing2D.CustomLineCap
        Dim nativeCustomCap As *GpCustomLineCap
        SetStatus(GdipGetPenCustomEndCap(nativePen, nativeCustomCap))
        CustomStartCap = New CustomStartCap(nativeCustomCap)
    End Function
*/
    Sub MiterLimit(miterLimit As Single)
        SetStatus(GdipSetPenMiterLimit(nativePen, miterLimit))
    End Sub

    Function MiterLimit() As Single
        SetStatus(GdipGetPenMiterLimit(nativePen, MiterLimit))
    End Function

    Sub Alignment(alignment As Drawing2D.PenAlignment)
        SetStatus(GdipSetPenMode(nativePen, alignment))
    End Sub
/*
    Function Alignment() As Drawing2D.PenAlignment
        SetStatus(GdipGetPenMode(nativePen, Alignment))
    End Function
*/
    Sub Transform(m As Drawing2D.Matrix)
        SetStatus(GdipSetPenTransform(nativePen, m.NativeMatrix))
    End Sub

    Function Transform() As Drawing2D.Matrix
        Dim native As *GpMatrix
        SetStatus(GdipGetPenTransform(nativePen, native))
        Transform = New Matrix(native)
    End Function
/*
    Function PenType() As Drawing2D.PenType
        SetStatus(GdipGetPenFillType(nativePen, PenType))
    End Function
*/
    Sub Color(color As Color)
        SetStatus(GdipSetPenColor(nativePen, color))
    End Sub
/*
    Function Color() As Color
        If This.PenType <> Drawing2D.PenType.SolidColor Then
            SetStatus(State.WrongState)
        End If
        SetStatus(GdipGetPenColor(nativePen, Color))
    End Function
*/
    Sub Brush(brush As Brush)
        SetStatus(GdipSetPenBrushFill(nativePen, getNativeBrush(brush)))
    End Sub
/*
    Function Brush() As Brush
        Imports Drawing2D
        Dim penType = PenType
        Dim native As *GpBrush
        Select Case penType
            Case PenType.SolidColor
                SetStatus(GdipGetPenBrushFill(nativePen, native))
                Brush = New SolidBrush(native)
            Case PenType.HatchFill
                SetStatus(GdipGetPenBrushFill(nativePen, native))
                Brush = New HatchBrush(native)
            Case PenType.TextureFill
                SetStatus(GdipGetPenBrushFill(nativePen, native))
                Brush = New TextureBrush(native)
            Case PenType.Gradient
                SetStatus(GdipGetPenBrushFill(nativePen, native))
                Brush = New Brush(native)
            Case PenType.LinearGradient
                SetStatus(GdipGetPenBrushFill(nativePen, native))
                Brush = New LinearGradientBrush(native)
            Case Else
                Brush = Nothing
        End Select
    End Function
*/
    Sub DashStyle(dashStyle As Drawing2D.DashStyle)
        SetStatus(GdipSetPenDashStyle(nativePen, dashStyle))
    End Sub
/*
    Function DashStyle() As Drawing2D.DashStyle
        SetStatus(GdipGetPenDashStyle(nativePen, DashStyle))
    End Function
*/
    Sub DashOffset(dashOffset As Single)
        SetStatus(GdipSetPenDashOffset(nativePen, dashOffset))
    End Sub

    Function DashOffset() As Single
        SetStatus(GdipGetPenDashOffset(nativePen, DashOffset))
    End Function

    'DashPattern
    'CompoundArray

    '=========================================================================
    ' Functions
    '=========================================================================

    Sub SetLineCap(startCap As Drawing2D.LineCap, endCap As Drawing2D.LineCap, dashCap As Drawing2D.DashCap)
        SetStatus(GdipSetPenLineCap197819(nativePen, startCap, endCap, dashCap))
    End Sub

    Sub ResetTransform()
        SetStatus(GdipResetPenTransform(nativePen))
    End Sub

    Sub MultiplyTransform(m As Drawing2D.Matrix)
        Imports System.Drawing.Drawing2D
        MultiplyTransform(m, MatrixOrder.Prepend)
    End Sub

    Sub MultiplyTransform(m As Drawing2D.Matrix, order As Drawing2D.MatrixOrder)
        SetStatus(GdipMultiplyPenTransform(nativePen, m.nativeMatrix, order))
    End Sub

    Sub TranslateTransform(dx As Single, dy As Single)
        Imports System.Drawing.Drawing2D
        TranslateTransform(dx, dy, MatrixOrder.Prepend)
    End Sub

    Sub TranslateTransform(dx As Single, dy As Single, order As Drawing2D.MatrixOrder)
        SetStatus(GdipTranslatePenTransform(nativePen, dx, dy, order))
    End Sub

    Sub ScaleTransform(sx As Single, sy As Single)
        Imports System.Drawing.Drawing2D
        ScaleTransform(sx, sy, MatrixOrder.Prepend)
    End Sub

    Sub ScaleTransform(sx As Single, sy As Single, order As Drawing2D.MatrixOrder)
        SetStatus(GdipScalePenTransform(nativePen, sx, sy, order))
    End Sub

    Sub RotateTransform(angle As Single)
        Imports System.Drawing.Drawing2D
        RotateTransform(angle, MatrixOrder.Prepend)
    End Sub

    Sub RotateTransform(angle As Single, order As Drawing2D.MatrixOrder)
        SetStatus(GdipRotatePenTransform(nativePen, angle, order))
    End Sub

Private

    nativePen As *GpPen

    Static Function getNativeCustomCap(cap As Drawing2D.CustomLineCap) As *GpCustomLineCap
        If ActiveBasic.IsNothing(cap) Then
            getNativeCustomCap = 0
        Else
            getNativeCustomCap = cap.NativeCap
        End If
    End Function

    Static Function getNativeBrush(br As Brush) As *GpBrush
        If ActiveBasic.IsNothing(br) Then
            getNativeBrush = 0
        Else
            getNativeBrush = br.nativeBrush
        End If
    End Function

End Class

End Namespace
End Namespace