Sub Globals
Dim A As AcceleratedSurface
Dim UI As AS_ImageUtils
Dim ImageView1 As ImageView
Dim Immagine As Bitmap
Dim Timer1 As Timer
Dim ac As AS_Canvas
Dim b,c As Rect
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Base")
b.Initialize(0,0,100dip,100dip)
c.Initialize(0,0,100dip,100dip)
Immagine = UI.LoadScaledBitmap(File.DirAssets,"Elefante.png",-1,-1,True)
ac.DrawBitmap(UI.AlterColors(Immagine,100,0,1),b,c)
ImageView1.Bitmap=Immagine
End Sub