If Success Then
imgbild.Bitmap = Null
Private bmp As Bitmap = LoadBitmap(Dir, FileName)
Private cvs As Canvas
cvs.Initialize(imgbild)
Dim rectDest As Rect
Dim delta As Int
If bmp.Width / bmp.Height > imgbild.Width / imgbild.Height Then
delta = (imgbild.Height - bmp.Height / bmp.Width * imgbild.Width) / 2
rectDest.Initialize(0, delta,imgbild.Width, imgbild.Height - delta)
Else
delta = (imgbild.Width - bmp.Width / bmp.Height * imgbild.Height) / 2
rectDest.Initialize(delta, 0, imgbild.Width - delta, imgbild.Height)
End If
cvs.DrawBitmap(bmp, Null, rectDest)
imgbild.Gravity = Gravity.Fill
imgbild.Invalidate
Dim tempbitmap As Bitmap
tempbitmap = imgbild.Bitmap
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "100.jpg", False)
tempbitmap.WriteToStream(out, 100, "JPEG")
out.Close
Else
ToastMessageShow("Kein Bild ausgewählt.", True)
End If