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
; 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
MfG, campweb