Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private PanelTrasparente As Panel
Private PanelMenu As Panel
Private ButtonMenu As Button
Private LabelVoce1 As Label
Private LabelVoce2 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'pannello trasparente che copre lo schermo
PanelTrasparente.Initialize("PanelTrasparente")
PanelTrasparente.Color=Colors.Transparent
Activity.AddView(PanelTrasparente,0,0,100%x,100%y)
' Pannello Menu
PanelMenu.Initialize("PanelMenu")
PanelMenu.Color=Colors.Yellow
PanelTrasparente.AddView(PanelMenu,0,0,50%x,100%y)
'Label all'interno del pannello menu
LabelVoce1.Initialize("")
LabelVoce1.Text="Voce1"
LabelVoce1.TextColor=Colors.Black
PanelMenu.AddView(LabelVoce1,20dip,100dip,50%x,40dip)
LabelVoce2.Initialize("")
LabelVoce2.Text="Voce2"
LabelVoce2.TextColor=Colors.Black
PanelMenu.AddView(LabelVoce2,20dip,140dip,50%x,40dip)
'Bottone apertura e chiusura menu
ButtonMenu.Initialize("ButtonMenu")
ButtonMenu.Color=Colors.White
ButtonMenu.TextColor=Colors.Black
ButtonMenu.Text="M"
Activity.AddView(ButtonMenu,5dip,5dip,40dip,40dip)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub PanelTrasparente_Touch (Action As Int, X As Float, Y As Float)
PanelTrasparente.Visible=False
End Sub
Sub PanelMenu_Touch (Action As Int, X As Float, Y As Float)
' intercetta il tocco ma non fa nulla
End Sub
Sub ButtonMenu_Click
PanelTrasparente.Visible=Not(PanelTrasparente.Visible)
End Sub