Sub Process_Globals
End Sub
Sub Globals
Type MyTagType (Meter As String, BG As Object)
Dim e1, e2 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
e1.Initialize("e")
e2.Initialize("e")
Dim m1, m2 As MyTagType
m1.BG = e1.Background
m2.BG = e2.Background
e1.Tag = m1
e2.Tag = m2
Activity.AddView(e1, 0, 0, 100dip, 50dip)
Activity.AddView(e2, 0, 100dip, 100dip, 50dip)
End Sub
Sub e_FocusChanged (HasFocus As Boolean)
Dim Send As EditText
Send=Sender
If HasFocus=True Then
Send.Color=Colors.Cyan
Send.Typeface=Typeface.DEFAULT_BOLD
Else
Dim m As MyTagType
m = Send.Tag
Send.Background = m.BG
Send.Typeface=Typeface.DEFAULT
End If
End Sub