source: branch/egtra-gdiplus/Classes/System/Drawing/Brush.ab@ 555

' Classes/System/Drawing/Brush.ab

#require <GdiPlusFlat.ab>

Namespace System
Namespace Drawing

Class Brush
    'Inherits ICloneable, IDisposable
Public
    Virtual Sub ~Brush()
        Dispose()
    End Sub

    Sub Dispose()
        If nativeBrush <> 0 Then
            Gdiplus.DllExports.GdipDeleteBrush(nativeBrush)
            nativeBrush = 0
        End If
    End Sub

    /*Const Override*/ Virtual Function Clone() As Brush
        Dim brush = 0 As *GpBrush

        SetStatus(GdiPlus.DllExports.GdipCloneBrush(nativeBrush, brush))

        Clone = New Brush(brush, lastResult)

        If newBrush = Nothing Then
            GdiPlus.DllExports.GdipDeleteBrush(brush)
        End If
    End Sub
/*
    Const Function GetType() As BrushType
        GetType = -1 As BrushType
        SetStatus(GdiPlus.DllExports.GdipGetBrushType(nativeBrush, GetType))
    End Function
*/
    Function GetLastStatus() As Gdiplus.Status
         GetLastStatus = lastResult
        lastResult = Gdiplus.Status.Ok
    End Function

    Function NativeBrush() AS *GpBrush
        Return nativeBrush
    End Function

'Protected
    Sub Brush()
        SetStatus(Gdiplus.Status.NotImplemented)
    End Sub

'Protected
    Sub Brush(nativeBrush As *GpBrush, status As Gdiplus.Status)
        lastResult = status
        SetNativeBrush(nativeBrush)
    End Sub

Protected
    Sub SetNativeBrush(nativeBrush As *GpBrush)
        This.nativeBrush = nativeBrush
    End Sub

    Function SetStatus(status As Gdiplus.Status) As Gdiplus.Status
        If status != Gdiplus.Status.Ok Then
            lastResult = status
        End If
        Return status
    End Function

    nativeBrush As *GpBrush
    /*Mutable*/ lastResult As Gdiplus.Status
End Class

class SolidBrush
    Inherits Brush
Public

    Sub SolidBrush(color As Color)
        Dim brush = 0 As *GpSolidFill
        lastResult = GdiPlus.DllExports.GdipCreateSolidFill(color.Value, brush)
        SetNativeBrush(brush)
    End Sub

    Const Function GetColor(ByRef color As Color) As Gdiplus.Status
        Dim argb As ARGB
        SetStatus(GdiPlus.DllExports.GdipGetSolidFillColor(nativeBrush As *GpSolidFill, argb))
        color = New Color(argb)
        Return lastResult
    End Function

    Function SetColor(color As Color) As Gdiplus.Status
        Return SetStatus(GdiPlus.DllExports.GdipSetSolidFillColor(nativeBrush As *GpSolidFill, color.Value))
    End Function

'Protected
    Sub SolidBrush()
    End Sub
End Class

End Namespace 'Drawing
End Namespace 'System