source: branch/egtra-gdiplus/Classes/System/Drawing/Drawing2D/HatchBrush.ab

'Classes/System/Drawing/Drawing2D/HatchBrush.ab

#require <Classes/System/Drawing/Brush.ab>
#require <Classes/System/Drawing/Color.ab>
#require <gdiplusflat.ab>

Namespace System
Namespace Drawing
Namespace Drawing2D

Enum HatchStyle
    Horizontal                    ' 0
    Vertical                      ' 1
    ForwardDiagonal               ' 2
    BackwardDiagonal              ' 3
    Cross                         ' 4
    DiagonalCross                 ' 5
    Percent05                     ' 6
    Percent10                     ' 7
    Percent20                     ' 8
    Percent25                     ' 9
    Percent30                     ' 10
    Percent40                     ' 11
    Percent50                     ' 12
    Percent60                     ' 13
    Percent70                     ' 14
    Percent75                     ' 15
    Percent80                     ' 16
    Percent90                     ' 17
    LightDownwardDiagonal         ' 18
    LightUpwardDiagonal           ' 19
    DarkDownwardDiagonal          ' 20
    DarkUpwardDiagonal            ' 21
    WideDownwardDiagonal          ' 22
    WideUpwardDiagonal            ' 23
    LightVertical                 ' 24
    LightHorizontal               ' 25
    NarrowVertical                ' 26
    NarrowHorizontal              ' 27
    DarkVertical                  ' 28
    DarkHorizontal                ' 29
    DashedDownwardDiagonal        ' 30
    DashedUpwardDiagonal          ' 31
    DashedHorizontal              ' 32
    DashedVertical                ' 33
    SmallConfetti                 ' 34
    LargeConfetti                 ' 35
    ZigZag                        ' 36
    Wave                          ' 37
    DiagonalBrick                 ' 38
    HorizontalBrick               ' 39
    Weave                         ' 40
    Plaid                         ' 41
    Divot                         ' 42
    DottedGrid                    ' 43
    DottedDiamond                 ' 44
    Shingle                       ' 45
    Trellis                       ' 46
    Sphere                        ' 47
    SmallGrid                     ' 48
    SmallCheckerBoard             ' 49
    LargeCheckerBoard             ' 50
    OutlinedDiamond               ' 51
    SolidDiamond                  ' 52

    LargeGrid = 4 'Cross

    HatchStyleMin       = 0 'Horizontal
    HatchStyleMax       = 52 'SolidDiamond
End Enum

Class HatchBrush
    Inherits Brush
Public
    Sub HatchBrush(hatchStyle As HatchStyle, foreColor As /*Const*/ Color, backColor /*= New Color*/ As /*Const*/ Color)
        Dim brush = 0 As *GpHatch
        lastResult = GdiPlus.DllExports.GdipCreateHatchBrush(hatchStyle, foreColor.Value, backColor.Value, brush)
        SetNativeBrush(brush)
    End Sub

    Sub HatchBrush(hatchStyle As HatchStyle, foreColor As /*Const*/ Color)
        Dim brush = 0 As *GpHatch
        lastResult = GdiPlus.DllExports.GdipCreateHatchBrush(hatchStyle, foreColor.Value, backColor.Value, brush)
        SetNativeBrush(brush)
    End Sub

    Const Function GetHatchStyle() As HatchStyle
        SetStatus(GdiPlus.DllExports.GdipGetHatchStyle(nativeBrush As *GpHatch, GetHatchStyle))
    End Function

    Const Function GetForegroundColor() As Color
        Dim argb As ARGB
        GetForegroundColor = SetStatus(GdiPlus.DllExports.GdipGetHatchForegroundColor(nativeBrush As *GpHatch, argb))
        Return New Color(argb)
    End Function

    Const Function GetBackgroundColor() As Color
        Dim argb As ARGB
        GetBackgroundColor = SetStatus(GdiPlus.DllExports.GdipGetHatchBackgroundColor(nativeBrush As *GpHatch, argb))
        Return New Color(argb)
    End Function

'Protected
    Sub HatchBrush()
    End Sub
End Class

End Namespace 'Drawing2D
End Namespace 'Drawing
End Namespace 'System