Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com ' kio4.com
End Sub
Sub Globals
Dim Panel1 As Panel
Dim ImageView1 As ImageView
Dim Canvas1 As Canvas
Dim color As Int
Dim Bitmap1 As Bitmap
Dim etiqueta As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Panel1.Initialize("Panel1")
Activity.AddView(Panel1, Activity.Width/2-300dip/2, Activity.Height/2 - 300dip/2, 300dip, 300dip)
ImageView1.Initialize("")
Panel1.AddView(ImageView1, 0, 0, 300dip, 300dip)
Canvas1.Initialize(ImageView1)
Dim rect1 As Rect
rect1.Initialize(0, 0, ImageView1.Width, ImageView1.Height)
Canvas1.DrawBitmap(LoadBitmap(File.DirAssets, "cartadeajuste.jpg"), Null, rect1)
Bitmap1 = ImageView1.Bitmap
' Crea etiqueta (Label)
etiqueta.Initialize("etiqueta")
etiqueta.TextSize = 20
etiqueta.color=Colors.Red
etiqueta.Gravity = Gravity.CENTER
etiqueta.Text = "-----------"
Activity.AddView(etiqueta, 20dip, 20dip, 300dip, 40dip)
End Sub
Sub Panel1_Touch (Action As Int, x As Float, Y As Float)
If Action = Activity.ACTION_MOVE Then
color = Bitmap1.GetPixel(X, Y)
etiqueta.Text = Ceil(X) & " " & Ceil(Y) & " " & color
' Canvas1.DrawPoint(x, Y, Colors.Black)
' Canvas1.DrawCircle(x, Y, 2dip, Colors.Red, True, 0)
Select color
Case Colors.RGB(255,0,0)
Canvas1.DrawCircle(x, Y, 2dip, Colors.Blue, True, 2dip)
Case Colors.RGB(0,255,0)
Canvas1.DrawCircle(x, Y, 2dip, Colors.Red, True, 2dip)
Case Colors.RGB(0,0,255)
Canvas1.DrawCircle(x, Y, 2dip, Colors.Green, True, 2dip)
End Select
Panel1.Invalidate
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub |