'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