Sub Globals
Dim Panel1 As Panel
Private ImageView1 As ImageView 'the image here is just a white box to show me the area on the screen where the panel will be located and onto which bitmaps drawn later will be placed
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("TestPanel") 'The layout has only the ImageView1 located at 10,100 and width = 300, height = 30
End Sub
Sub Activity_Resume
Panel1.Initialize("p1")
Panel1.Color = Colors.Transparent
Activity.AddView(Panel1,10dip,100dip, 300dip, 30dip)
End Sub
Sub p1_Touch(Action As Int, X As Float, Y As Float)
Log("X = " & x & ", y = " & Y)
End Sub