Draw text on a loaded image/video (canvas)

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

   Dim Button1 As Button
   Dim ImageView1 As ImageView
  
End Sub

Sub Activity_Create(FirstTime As Boolean)

   Activity.LoadLayout("form1")
   ImageView1.Width = 100%x
   ImageView1.Height = 40%y

End Sub


Sub Button1_Click
  
   i.Initialize("")
  ImageView1.Bitmap = LoadBitmap(File.DirRootExternal, "test.jpg")
  b.Initialize(File.DirRootExternal, "test.jpg")
  brect.Initialize(0,0,ImageView1.Width, ImageView1.Height)
  
  c.Initialize(ImageView1)
  
  c.DrawColor(Colors.White)
  c.DrawBitmap(b, Null, brect)
  c.DrawText("Hello world", 180,ImageView1.Height-40,tf.CreateNew(Typeface.SERIF, Typeface.STYLE_BOLD), 14, Colors.black, "LEFT")
  c.DrawText("Hello world", 177,ImageView1.Height-43,tf.CreateNew(Typeface.SERIF, Typeface.STYLE_BOLD), 14, Colors.White , "LEFT")
  
  i.Invalidate
  
End Sub