GDI+ Save Image to File

#include <GDIPlus.au3>
#include <Misc.au3>
#include <WinAPI.au3>

;~ $col = _ChooseColor (2)
$col = 0x22B14C

_GDIPlus_Startup()

$Gui = GUICreate("")
;~ $Graphic = GUICtrlCreateGraphic(0, 0, 100, 32)
GUISetState()

;~ $hDC = _WinAPI_GetDC(GUICtrlGetHandle($Graphic))
;~ ConsoleWrite($hDC & @CRLF)

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Gui)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(100, 32, $hGraphic)
$hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

$hFontFamily = _GDIPlus_FontFamilyCreate("Arial")
$hFont = _GDIPlus_FontCreate($hFontFamily, 20)
$tLayout = _GDIPlus_RectFCreate(0, 0, 100, 32)
$hFormat = _GDIPlus_StringFormatCreate()
$hBrush = _GDIPlus_BrushCreateSolid(0xff000000 + $col)

For $x = 0 To 9
_GDIPlus_GraphicsFillRect($hBackbuffer, 0, 0, 90, 32)
_GDIPlus_GraphicsDrawStringEx($hBackbuffer, AddZero($x, 5), $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, 100, 32)
$ret = _GDIPlus_ImageSaveToFile($hBitmap, @ScriptDir & "\1\" & $x & ".bmp")

ConsoleWrite($ret & @CRLF)

Sleep(10)
Next

Do
Until GUIGetMsg() = -3

Func AddZero($nZahl, $EndLen)
While 1
If StringLen($nZahl) >= $EndLen Then
Return $nZahl
Else
$nZahl = "0" & $nZahl
EndIf
WEnd
EndFunc ;==>AddZero

_GDIPlus_FontFamilyDispose($hFontFamily)
_GDIPlus_FontDispose($hFont)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush)

_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hBackbuffer)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()