Ticket #275: GDIPlus_GraphicsFillPolygon.au3

#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()
        Local $hGUI, $hWnd, $hGraphic, $aPoints[4][2], $hBrush2

        ; Create GUI
        $hGUI = GUICreate("GDI+", 400, 300)
        $hWnd = WinGetHandle("GDI+")
        GUISetState()

        ; Draw a polygon
        _GDIPlus_Startup()
        $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)

        $aPoints[0][0] = 3
        $aPoints[1][0] = 150
        $aPoints[1][1] = 150
        $aPoints[2][0] = 200
        $aPoints[2][1] = 100
        $aPoints[3][0] = 250
        $aPoints[3][1] = 150

        _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints)
        
        ; Loop until user exits
        Do
        Until GUIGetMsg() = $GUI_EVENT_CLOSE

        ; Clean up resources
        _GDIPlus_BrushDispose($hBrush2)
        _GDIPlus_GraphicsDispose($hGraphic)
        _GDIPlus_Shutdown()

EndFunc   ;==>_Main

Func _GDIPlus_GraphicsFillPolygon($hGraphics, $aPoints, $hBrush = 0)
        Local $iI, $iCount, $pPoints, $tPoints, $aResult, $tmpError, $tmpExError

        $iCount = $aPoints[0][0]
        $tPoints = DllStructCreate("int[" & $iCount * 2 & "]")
        $pPoints = DllStructGetPtr($tPoints)
        For $iI = 1 To $iCount
                DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1)
                DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2)
        Next

        _GDIPlus_BrushDefCreate($hBrush)
        $aResult = DllCall($ghGDIPDll, "int", "GdipFillPolygonI", "hWnd", $hGraphics, "hWnd", $hBrush, _
                        "ptr", $pPoints, "int", $iCount, "int", "FillModeAlternate")
        $tmpError = @error
        $tmpExError = @extended
        _GDIPlus_BrushDefDispose()
        If $tmpError Then Return SetError($tmpError, $tmpExError, False)
        Return SetError($aResult[0], 0, $aResult[0] = 0)
EndFunc   ;==>_GDIPlus_GraphicsFillPolygon