_GDIPlus_DrawFace() - Smilie auf GUI malen Traurig/Happy

  • Hi!

    Sorry, das ist das letzte für Heute ;)

    [autoit]

    #include <GuiConstantsEx.au3>
    #include <GDIPlus.au3>
    $hGUI = GUICreate("Smilietest", 400, 300)
    GUISetState()
    _GDIPlus_DrawFace($hGUI, 5, 5)
    _GDIPlus_DrawFace($hGUI, 75, 75, 0)
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

    [/autoit][autoit][/autoit][autoit]

    ; Function: _GDIPlus_DrawFace($hWnd, $left, $top, $happy = 1)
    ; Purpose: Draws a Sad or Happy Face to a GUI using GDI+
    ;
    Func _GDIPlus_DrawFace($hWnd, $left, $top, $happy = 1)
    _GDIPlus_Startup ()
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
    For $i = 0 to 360
    _GDIPlus_GraphicsDrawArc ($hGraphic, $left, $top, 70, 70, 180, $i)
    Next
    For $i = 0 to 360
    _GDIPlus_GraphicsDrawArc ($hGraphic, $left+20, $top+20, 10, 10, 180, $i)
    Next
    For $i = 0 to 360
    _GDIPlus_GraphicsDrawArc ($hGraphic, $left+40, $top+20, 10, 10, 180, $i)
    Next
    If $happy = 1 Then
    For $j = 0 to -140 Step -1
    _GDIPlus_GraphicsDrawArc ($hGraphic, $left+20, $top+24, 30, 30, 160, $j)
    Next
    Else
    For $j = 0 to 140
    _GDIPlus_GraphicsDrawArc ($hGraphic, $left+20, $top+44, 30, 30, -160, $j)
    Next
    EndIf
    _GDIPlus_GraphicsDispose ($hGraphic)
    _GDIPlus_Shutdown ()
    EndFunc

    [/autoit]

    MfG, campweb