' Testing views appearance with DIP settings
Sub Process_Globals
End Sub
Sub Globals
Dim bt As Button
Dim cb As CheckBox
Dim tb As ToggleButton
Dim sb As SeekBar
Dim sp As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color=Colors.DarkGray
' Button
bt.Initialize("")
Activity.AddView(bt,10%x,4dip,40%x,40dip) : bt.text="Button"
' CheckBox
cb.Initialize("")
Activity.AddView(cb,10%x,46dip,40%x,37dip) : cb.text="Check"
' ToggleButton
tb.Initialize("")
Activity.AddView(tb,10%x,85dip,40%x,48dip) : tb.TextOff="Off"
' SeekBar
sb.Initialize("")
Activity.AddView(sb,10%x,135dip,40%x,30dip) : sb.Value=30
' Spinner
sp.Initialize("")
Activity.AddView(sp,10%x,167dip,40%x,48dip) : sp.Add("Spin")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub