Sub Globals
Dim c As Canvas
Dim b As Bitmap
Dim t As String
Dim i As ImageView
Dim brect As Rect
Dim tf As Typeface
End Sub
Sub Activity_Create(FirstTime As Boolean)
i.Initialize("")
Activity.AddView(i, 0, 0, 100, 100)
b.Initialize(File.DirAssets, "pic1.png")
brect.Initialize(0,0,b.Width, b.Height)
c.Initialize(i)
c.DrawColor(Colors.White)
c.DrawBitmap(b, Null, brect)
c.DrawText("hello", 10,10,tf.CreateNew(Typeface.SERIF, Typeface.STYLE_BOLD), 10, Colors.Red, "LEFT")
i.Invalidate
End Sub