Sub Globals
Dim Button1 As Button
Dim cvs As Canvas
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Dim bmp As Bitmap
bmp.InitializeMutable(50dip, 50dip)
cvs.Initialize2(bmp)
Log(GetViewsColor(Button1))
Log(Colors.Red)
End Sub
Sub GetViewsColor(v As View) As Int
Dim destRect As Rect
destRect.Initialize(0, 0, cvs.Bitmap.Width, cvs.Bitmap.Height)
cvs.DrawDrawable(v.Background, destRect)
Return cvs.Bitmap.GetPixel(5dip, 5dip)
End Sub