Sub PixelateBitMap(B0 As Bitmap, factor As Float) As Bitmap
'Dim factor As Float=8 'Change it to get different pixellations
Dim ww As Int = B0.Width/factor
Dim hh As Int = B0.Height/factor
'Msgbox("1","2")
If ww>=1 And hh>=1 Then
Private iv2 As ImageView
iv2.Initialize("iv2")
Page1.RootPanel.AddView(iv2,0,0,iv.Width,iv.Height)
'Draw the original onto a smaller one
iv2.Width=ww
iv2.Height=hh
Dim cv As Canvas
cv.Initialize(iv2)
Dim DestRect As Rect
DestRect.Initialize(0,0,ww,hh)
cv.DrawBitmap(B0,DestRect)
iv2.Bitmap=cv.CreateBitmap
cv.Refresh
'Create a new bitmap wth the same dimensions as the original
'iv.Width=B0.Width
'iv.Height=Button1.Height
cv.Initialize(iv)
Dim DestRect As Rect
DestRect.Initialize(0,0,iv.Width,iv.Height)
cv.DrawBitmap(iv2.Bitmap,DestRect)
iv.Bitmap=cv.CreateBitmap
cv.Refresh
iv2.RemoveViewFromParent
Return iv.Bitmap
Else
Return B0
End If
End Sub
Sub Button1_Click
iv.Bitmap=PixelateBitMap(ImageView1.Bitmap,15)
End Sub