Sub Globals
Dim clrs(2) As Int
Dim background As Int
Private Label1 As Label
Private Label2 As Label
Private Panel1 As Panel
Private EditText1 As EditText
Private Panel2 As Panel
Private Label3 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Panel1.Width=GetDeviceLayoutValues.Width
Label1.Width=GetDeviceLayoutValues.Width
Label3.Width=GetDeviceLayoutValues.Width
colorsetting1
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub colorsetting1
clrs(0) = 0xFF00008B
clrs(1) = 0xFF282828
background=0xff4c434d
Panel1.Color=background
Panel2.Color=background
Label1.Background=CreateGradientDrawable
Label2.Background=CreateGradientDrawable
End Sub
Sub CreateGradientDrawable As GradientDrawable
Dim grdr As GradientDrawable
grdr.Initialize("LEFT_RIGHT",clrs)
Return grdr
End Sub
Sub Button1_Click
Dim kb As Phone
kb.HideKeyboard(Activity)
Panel2.Visible=False
End Sub
Sub button_popup_Click
EditText1.Text=""
Panel2.Visible=True
End Sub
Sub button_fix_Click
Label1.Background = CreateGradientDrawable
End Sub