Sub Globals
Dim ImageView1, ImageView2 As ImageView
Dim bmpImage As Bitmap
Dim btnCopy As Button
Dim cvsImageView1 As Canvas
Dim rectSrc, rectDest As Rect
End Sub
Sub Activity_Create(FirstTime As Boolean)
ImageView1.Initialize("")
Activity.AddView(ImageView1,10dip, 10dip, 310dip, 310dip)
ImageView2.Initialize("")
Activity.AddView(ImageView2,200dip, 320dip, 60dip, 60dip)
ImageView2.Bitmap = LoadBitmap(File.DirAssets, "btngps0.png")
btnCopy.Initialize("btnCopy")
Activity.AddView(btnCopy,10dip, 320dip, 60dip, 60dip)
btnCopy.Text = "Copy"
bmpImage.Initialize(File.DirAssets, "Rose1.jpg")
cvsImageView1.Initialize(ImageView1)
rectSrc.Initialize(0, 0, 300, 300)
rectDest.Initialize(0, 0, 300dip, 300dip)
cvsImageView1.DrawBitmap(bmpImage, rectSrc, rectDest)
End Sub
Sub btnCopy_Click
rectSrc.Initialize(0, 0, 60, 60)
rectDest.Initialize(100dip, 100dip, 160dip, 160dip)
cvsImageView1.DrawBitmap(ImageView2.Bitmap, rectSrc, rectDest)
ImageView1.Invalidate
End Sub