Hallo Leute,
und zwar habe ich ein Tool geschrieben, womit es möglich ist innerhalb einer GUI, an ein Bild ran -und wegzuzoomen. Beim Wegzoomen überrschreibe ich das alte Bild mit einer weißen Bitmap damit keine rückstände mehr zusehen sind. Leider bleibt immer der Rand beim wegzoomen vom Bild zurück sodass komische Muster zu sehen sind. Weiß jemand weiter=?
AutoIt
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($Form1)
$hHBmp=_GDIPlus_BitmapCreateFromFile($Filepath & $ItemSelect)
hBitmap= _GDIPlus_ImageResize($hHBmp, $size[0], $size[1])
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 320,240)
Global $hBitmap_Gui = _GDIPlus_BitmapCreateFromGraphics(1370, 905, $hGraphics)
Global $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap_Gui)
_________________________________________________________________
Func zoomIn()
$hBitmap= _GDIPlus_ImageResize($hHBmp, $size[0]+1, $size[1]+1)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 320,240)
$countZoomIn = $countZoomIn +1
$size[0] = $size[0]+1
$size[1] = $size[1]+1
EndFunc
Func zoomOut()
$BitmapWhite = _GDIPlus_BitmapCreateFromFile($White);GDI + Bitmap
$hBitmap_Scaled = _GDIPlus_ImageResize($BitmapWhite,$size[0] + 5 ,$size[1] +5)
_GDIPlus_GraphicsDrawImage($hBackbuffer, $hBitmap_Scaled, 320,240)
$hBitmap = _GDIPlus_ImageResize($hHBmp, $size[0]-1, $size[1]-1)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap, 320,240)
$countZoomOut = $countZoomOut +1
$size[0] = $size[0]-1
$size[1] = $size[1]-1
EndFunc
Alles anzeigen