Sub CargoLista
Dim i As Int
CLVSeteos.Clear
For i = 0 To 9
CLVSeteos.Add(CreateListItem(i, CLVSeteos.AsView.Width, 90dip), 90dip, 0)
Next
End Sub
Sub CreateListItem(Item As Int, Width As Int, Height As Int) As Panel
Dim p As Panel, Pn As Int
p.Initialize("")
Activity.AddView(p, 0, 0, Width, Height)
Pn=Item+1
p.LoadLayout("Seteo_" & NumberFormat(Pn,1,0))
Select Item
Case 0
lbl_ValorTemaDefault.text=""
If Valor_TemaDefault.Trim.Length>0 Then lbl_ValorTemaDefault.text=Funciones.TraigoNombreTema(Valor_TemaDefault)
LblSeteo_1.Text=Funciones.Traducir("Tono Default")
Case 1
Switch2.Checked=Valor_RepetirDefault
LblSeteo_2.Text=Funciones.Traducir("Posponer Default")