;Bild runden =)
Function MaskImgRound( Pic=0 , MX=0 , MY=0 , DX=0 , DY=0 , R=0 , G=0 , B=0 )
	Local TempBuffer = GraphicsBuffer()
	Local CC=255*$1000000+R*$10000+G*100+B
	Local ColorCode=0
	
	;ImageBuffer einstellen um auf dem Bild malen zu können	
	SetBuffer ImageBuffer(Pic)	
		
	;Auf dem geladenen Bild and MX und MY (Kreismittelpunkt) ein Kreis mit DX/2 und DY/2 als Radius 
	Color R,G,B
	Oval MX-(DX/2),MY-(DY/2),DX,DY,0
	
	;Buffer für ReadPixelFast und WritePixelFast sperren
	LockBuffer ImageBuffer(Pic)
	
	;Alle Pixel auserhalb des Kreis werden unsichtbar gemacht
	For Y=0 To ImageHeight(Pic)-1
		For X=0 To MX
			ColorCode=ReadPixelFast(X,Y)	
			
			If ColorCode=CC Then Exit
			WritePixelFast X,Y,CC	
		Next
		
		For X=ImageWidth(Pic)-1 To MX Step -1
			ColorCode=ReadPixelFast(X,Y)	
									
			If ColorCode=CC Then Exit
			WritePixelFast X,Y,CC
		Next
	Next
	
	;Bild Maskieren
	MaskImage Pic,R,G,B
	
	;Buffer freigeben und den BackBuffer setzen
	UnlockBuffer ImageBuffer(Pic)
	SetBuffer TempBuffer
End Function