#Region Project Attributes
#ApplicationLabel: InputBetter
#VersionCode: 1
#VersionName: 1.0 (BetterDialogs)
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: true
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
Dim BE As Beeper 'Trabajos con sonidos (Libreria Audio)
End Sub
Sub Globals
'Dimensiona las variables
Dim ControlLista As List
Dim ControlMapa As Map
Dim GD As GradientDrawable
Dim Awake As PhoneWakeState 'Trabajos con pantalla (Libreria Phone)
Dim inputClase1 As InputClase
'Dimensiona las posiciones
Dim Arriba As Float
Dim Izquierda As Float
Dim Ancho As Float
Dim Alto As Float
'Dimensiona los controles
Private Pnl01 As Panel
Private SV As ScrollView
Private EditSeries (2) As EditText 'El indice = ControlLista.Size
Private EditSeries1 (2) As EditText 'El indice = ControlLista.Size
Private Edit1 As EditText
Private BotonGuardar As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Iniciamos variables
BE.Initialize(100,600)
GD.Initialize("TL_BR",Array As Int(Colors.Black,Colors.ARGB(255,32,32,32)))
'Crea el ControlLista
'Teclado: 1=Numeros con decimales, 2=Numeros, 3=Numeros con signos, 4=Telefono, 5=Texto, 6=Texto con sugerencias
ControlLista.Initialize
ControlMapa.Initialize
ControlMapa = CreateMap("Titulo":"Proveedor","Formato":"","Hint":"Embases S.L","Teclado":6,"Pregunta":"Introduzca el nombre del proveedor","Caracteres":20,"Necesario":True,"NombreCampoBD":"BDProveedor")
ControlLista.Add(ControlMapa)
ControlMapa.Initialize
ControlMapa = CreateMap("Titulo":"Direccion","Formato":"","Hint":"C/Pepito","Teclado":6,"Pregunta":"Introduzca la direccion","Caracteres":20,"Necesario":False,"NombreCampoBD":"BDDireccion")
ControlLista.Add(ControlMapa)
inputClase1.Initialize(ControlLista)'Inicio el Modulo de Clase y le paso los datos.
Rellenar_Datos
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then Awake.ReleaseKeepAlive 'deja que la pantalla se pueda parar
End Sub
'++++++++++++++++++++ Procesos ++++++++++++++++++++++++++++++++++++++++ Procesos ++++++++++++++++++++
'__________Rellena los datos
Sub Rellenar_Datos
'la pantalla nunca se para
Awake.KeepAlive(True)
'Crea el Pnl01
Pnl01.Initialize("")
Pnl01.Background=GD
Activity.AddView(Pnl01,0,0,100%x,100%y)
Pnl01.Visible=True
'Define posiciones
Izquierda = 0
Arriba = 0
Ancho = Pnl01.Width
Alto = Pnl01.Height /14
'Crea el ScrollWiev
Pnl01.RemoveAllViews
SV.Initialize2((Alto + 1)*(ControlLista.Size*2),"SV")
SV.FullScroll (True)
Pnl01.AddView(SV,0%x,0%y,Pnl01.Width,Pnl01.Height)
Activity.Title = "BetterDialogs v1.0"
For i=0 To ControlLista.Size - 1
ControlMapa = ControlLista.get (i)
Dim EditText2 As EditText
EditText2.Initialize("EditText2")
EditText2.Color=Colors.Transparent
EditText2.TextColor=Colors.LightGray
EditText2.TextSize=14
EditText2.Text = ControlMapa.Get ("Titulo")
EditText2.InputType = EditText2.INPUT_TYPE_NONE
EditText2.Gravity=Gravity.LEFT
EditSeries1(i) = EditText2
SV.Panel.AddView(EditText2,Izquierda,Arriba + 1,Ancho,Alto)
Arriba = Arriba + Alto + 1
Dim EditTex1 As EditText
EditTex1.Initialize("EditTex1")
EditTex1.Color=Colors.Transparent
EditTex1.HintColor =Colors.DarkGray
EditTex1.Hint = ControlMapa.Get ("Hint")
EditTex1.TextColor=Colors.White
EditTex1.Text = ""
EditTex1.TextSize=18
EditTex1.Gravity=Gravity.CENTER
EditTex1.Tag = i
EditTex1.InputType = EditTex1.INPUT_TYPE_NONE
EditSeries(i) = EditTex1
SV.Panel.AddView(EditTex1,Izquierda,Arriba + 1,Ancho,Alto)
Arriba = Arriba + Alto + 1
Next
'
'Crea un BotonGuardar
Dim Bmp As BitmapDrawable
Dim sld As StateListDrawable
BotonGuardar.Initialize("BotonGuardar")
Bmp.Initialize(LoadBitmap(File.DirAssets,"BotonGuardarVerde.png"))
sld.Initialize
sld.AddState(sld.State_Disabled,Bmp)
sld.AddState(sld.State_Enabled,Bmp)
BotonGuardar.Background=sld
Pnl01.AddView(BotonGuardar,75%x,85%y,45dip,45dip)
BotonGuardar.Visible=False
EditSeries(0).RequestFocus 'Llama al primer control
End Sub
'__________Controla si es visible el BotonGuardar
Sub Cambios
If EditSeries(0).Text.Trim.Length <> 0 Then
BotonGuardar.Visible = True
Return
Else
BotonGuardar.Visible = False
End If
End Sub
'++++++++++++++++++++ Eventos ++++++++++++++++++++++++++++++++++++++++ Eventos ++++++++++++++++++++++++++
'__________Controla los cambios de foco de EditTex1
Sub EditTex1_FocusChanged (HasFocus As Boolean)
'Cuando entra
If HasFocus = True Then
Edit1 = Sender
ControlMapa = ControlLista.get (Edit1.Tag)
inputClase1.Input(Edit1.Tag,Edit1.Text)'Llamo a BetterDialogs
EditSeries1(Edit1.Tag).RequestFocus
End If
'Cuando sale
If HasFocus = False Then
If Edit1.Text <> inputClase1.IP1 Then
Edit1.Text = inputClase1.IP1
Cambios
End If
'LLama a el siguiente control, Si no es el ultimo, esta vacio y no se a cancelado.
If Edit1.Tag < (ControlLista.Size - 1) And EditSeries(Edit1.Tag+1).Text = "" And inputClase1.DR <> -3 Then
EditSeries(Edit1.Tag+1).RequestFocus
End If
End If
End Sub
'__________Controla la tecla ATRÁS
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode= KeyCodes.KEYCODE_BACK Then
If BotonGuardar.Visible Then
Dim Resultado As Int = Msgbox2("¿Quiere salir, sin guardar los cambios?","Atras", "Si","No","",Null)
If Resultado = DialogResponse.POSITIVE Then
Activity.Finish
Else
Return True
End If
End If
End If
Return False
End Sub
