Sub Process_Globals
End Sub
Sub Globals
Dim lbl As Label
Dim cvs As Canvas
End Sub
Sub Activity_Create(FirstTime As Boolean)
lbl.Initialize("xxx")
Activity.AddView(lbl,10%x,2%y,80%x,20%y)
lbl.Color=Colors.White
lbl.TextColor=Colors.Black
lbl.Text="tyHgf"
lbl.Gravity=Gravity.TOP
Activity.Title=lbl.TextSize
Dim r As Reflector
r.Target = lbl
r.RunMethod4("setPadding", Array As Object(0, 0, 0, 0), Array As String("java.lang.int", "java.lang.int", "java.lang.int", "java.lang.int"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub xxx_Click
Dim h,f As Int
cvs.Initialize(lbl)
f=lbl.TextSize
h=cvs.MeasureStringHeight(lbl.Text,lbl.Typeface,f)
Do While h<lbl.Height
f=f+1
h=cvs.MeasureStringHeight(lbl.Text,lbl.Typeface,f)
Loop
f=f-1
lbl.TextSize=f
Activity.Title=lbl.TextSize
Dim r As Reflector
r.Target = lbl
r.RunMethod4("setPadding", Array As Object(0, 0, 0, 0), Array As String("java.lang.int", "java.lang.int", "java.lang.int", "java.lang.int"))
End Sub