Sub Globals
Dim txt1 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
txt1.Initialize("txt1")
Dim c As Canvas
Dim b As Bitmap
b.InitializeMutable(1, 10)
c.Initialize2(b)
txt1.Text = "Hello"
Dim size As Float
size = c.MeasureStringHeight(txt1.Text, txt1.Typeface, txt1.TextSize)
txt1.Gravity = Bit.Or(Gravity.TOP, Gravity.LEFT) 'Set gravity to top left
Activity.AddView(txt1, 10dip, 10dip, 100dip, size + 6dip)
txt1.Color = Colors.White 'Removes the view edges
Dim r As Reflector
r.Target = txt1
'Set padding to minimum
r.RunMethod4("setPadding", Array As Object(0, 1dip, 0, 0), _
Array As String("java.lang.int", "java.lang.int", "java.lang.int", "java.lang.int"))
End Sub