Buenas tardes, tengo hecha una aplicación siguiendo algún ejemplo de compañeros, pero no consigo reducir el tamaño del texto de las columnas. Tengo en el Diseñador un Size de 10 y, sin embargo, en la tabla muestra un tamaño creo que de 16.
[CÓDIGO=b4x]Subglobales
B4XTable1 privado como B4XTable
Xui privado Como XUI
Columna de número privada como columna de tabla B4X
Botón privado btnNext As
IME privado como IME
Formateador privado como B4XFormatter
Marca privada1 como etiqueta
EditText1 privado como EditText
Botón privado btnPrev como botón
Fin del subtítulo
SubActividad_Crear(PrimeraVez Como Booleano)
Etiqueta1.Inicializar("")
Etiqueta1.Top=0dip
Etiqueta1.Izquierda=0dip
EditText1.Initialize("")
EditText1.Top=10dip
EditText1.Left=Etiqueta1.Ancho
EditText1.Altura=30dip
IME.Initialize("ime")
IME.AddHeightChangedEvent
Actividad.LoadLayout("Tabla")
Actividad.Título=Nombre del programa principal y " " y Versión del programa principal
' Mover la tabla hacia abajo
B4XTable1.mBase.Top = 60dip ' Ajustar espacio superior
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Pulgadas", B4XTable1.COLUMN_TYPE_TEXT)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Milímetros", B4XTable1.COLUMN_TYPE_TEXT)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("DENOMINACION", B4XTable1.COLUMN_TYPE_TEXT)
ColumnaEstado.Ancho = 380dip
StateColumn.Sortable = Verdadero
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Granos", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Gramos", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("CB", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V0", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V50", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V100", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V150", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V200", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V250", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V300", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar StateColumn como B4XTableColumn = B4XTable1.AddColumn("Visor", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt50", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar la columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt100", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar la columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt150", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar StateColumn como B4XTableColumn = B4XTable1.AddColumn("Alt200", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt250", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt300", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar la columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ0", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ50", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ100", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ150", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ200", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ250", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ300", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("DS", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Id", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dormir(0)
NumberColumn = B4XTable1.AddColumn("Número interesante", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaNúmero.Ancho=1dip
B4XTable1.RowHeight=40dip
Si Main.Tablet=False Entonces
B4XTable1.MaximumRowsPerPage=10
Demás
B4XTable1.MaximumRowsPerPage=15
Fin si
Si Main.Tablet=False Entonces
B4XTable1.pnlHeader.Height=Actividad.Altura/8
Demás
B4XTable1.pnlHeader.Height=Actividad.Altura/12
Fin si
B4XTable1.lblFirst.Left=0
B4XTable1.lblFirst.Width=25dip
B4XTable1.lblFirst.Height=B4XTable1.pnlHeader.Height
B4XTable1.lblFirst.Color=Colores.Blanco
B4XTable1.lblFirst.TextColor=Colores.Negro
B4XTable1.lblBack.Width=25dip
B4XTable1.lblBack.Height=B4XTable1.pnlHeader.Height
B4XTable1.lblBack.Color=Colores.Blanco
B4XTable1.lblBack.TextColor=Colores.Negro
B4XTable1.lblAtrás.Izquierda=B4XTable1.lblPrimera.Izquierda+B4XTable1.lblPrimera.Ancho
B4XTable1.lblNumber.TextColor=Colores.Rojo
B4XTable1.lblNumber.Width=50dip
B4XTable1.lblNumber.Height=B4XTable1.pnlHeader.Height
B4XTable1.lblNumber.Left=B4XTable1.lblback.Left+B4XTable1.lblback.Width
B4XTable1.lblNumber.TextSize=18
B4XTable1.lblNext.height=B4XTable1.pnlHeader.Height
B4XTable1.lblNext.Width=25dip
B4XTable1.lblNext.Color=Colores.blanco
B4XTable1.lblNext.TextColor=Colores.Negro
B4XTable1.lblNext.Left=B4XTable1.lblNumber.Izquierda+B4XTable1.lblNumber.Ancho
B4XTable1.lblLast.Width=25dip
B4XTable1.lblLast.height=B4XTable1.pnlHeader.Height
B4XTable1.lblLast.Color=Colores.Blanco
B4XTable1.lblLast.TextColor=Colores.Negro
B4XTable1.lblÚltimo.Izquierda=B4XTable1.lblSiguiente.Izquierda+B4XTable1.lblSiguiente.Ancho
B4XTable1.lblFromTo.TextColor= Colores.Negro 'exple: 1 a 18
B4XTable1.ArrowsEnabledColor=Colors.blue 'habilitar color de flecha
B4XTable1.ArrowsDisabledColor=Colors.Gray 'color de flecha deshabilitado
B4XTable1.SearchField.LargeLabelTextSize=Actividad.Ancho/2
CreateCustomFormat(ColumnaNúmero)
B4XTable1.HeadersHeight=50dip
'cargar los datos
Dim su As StringUtils
Encabezados oscuros como lista
encabezados.Inicializar 'la lista solo se usa para omitir la fila de encabezados
Dim datos Como Lista = su.LoadCSV2(Main.DirCartuchos,Main.FicheroCartuchos, ",", headers)
Principal.LstCartuchos.Inicializar
Main.LstCartuchos=datos
B4XTable1.SetData(datos)
'cambiar el orden de las columnas visibles
'eliminar las columnas numéricas
B4XTable1.VisibleColumns.RemoveAt(B4XTable1.VisibleColumns.IndexOf(ColumnaNúmero))
B4XTable1.VisibleColumns.InsertAt(1, ColumnaNúmero)
B4XTable1.Actualizar
Para i = 1 a datos.Tamaño
Dim RowData como mapa = B4XTable1.GetRow(i)
Celda oscura como cadena = RowData.Get("Id")
Si celda<>Nulo Entonces
Si Main.UltimaBala<cell Entonces
Main.UltimaBala=célula
Fin si
Fin si
Próximo
Fin del subtítulo
Sub IME_HeightChanged (Nueva altura como entero, Altura anterior como entero)
Si B4XTable1.IsInitialized Entonces
B4XTable1.mBase.Height = NuevaAltura - B4XTable1.mBase.Top
B4XTable1.Actualizar
Fin si
Fin del subtítulo
Sub B4XSwitch1_ValueChanged (Valor como booleano)
Si Valor Entonces
'Crear un filtro a medida, por ejemplo, por calibre en pulgadas
Seleccionar EditText1.text
Caso "0.172"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.172"$)
Caso "0.204"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.204"$)
Caso "0.220"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.220"$)
Caso "0.223"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.223"$)
Caso "0.227"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.227"$)
Caso "0.243"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.243"$)
Caso "0.244"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.244"$)
Caso "0.257"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.257"$)
Caso "0.264"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.264"$)
Caso "0.268"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.268"$)
Caso "0.277"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.277"$)
Caso "0.284"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.284"$)
Caso "0.284"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.284"$)
Caso "0.306"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.306"$)
Caso "0.308"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.308"$)
Caso "0.309"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.309"$)
Caso "0.310"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.310"$)
Caso "0.311"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.311"$)
Caso "0.312"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.312"$)
Caso "0.321"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.321"$)
Caso "0.323"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.323"$)
Caso "0.338"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.338"$)
Caso "0.358"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.358"$)
Caso "0.366"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.366"$)
Caso "0.375"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.375"$)
Caso "0.376"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.376"$)
Caso "0.405"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.405"$)
Caso "0.411"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.411"$)
Caso "0.416"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.416"$)
Caso "0.423"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.423"$)
Caso "0.429"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.429"$)
Caso "0.458"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.458"$)
Caso "0.475"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.475"$)
Caso "0.505"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.505"$)
Caso "0.510"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.510"$)
Seleccionar final
Demás
B4XTable1.ClearDataView
Fin si
Fin del subtítulo
Sub B4XTable1_CellClicked (ColumnId como cadena, RowId como longitud)
Dim RowData como mapa = B4XTable1.GetRow(RowId)
Celda oscura como cadena = RowData.Get(ColumnId)
Actividad.Título = celda
Main.ArrayCartuchoSeleccionado(0)=RowData.Get("Pulgadas")
Main.ArrayCartuchoSeleccionado(1)=RowData.Get("Milimetros")
Main.ArrayCartuchoSeleccionado(2)=RowData.Get("DENOMINACION")
Matriz principal CartuchoSeleccionado(3) = Datos de fila. Obtener ("Granos")
Main.ArrayCartuchoSeleccionado(4)=RowData.Get("Gramos")
Matriz principal Cartucho seleccionado (5) = Datos de fila. Obtener ("CB")
Matriz principal Cartucho seleccionado (6) = Datos de fila. Obtener ("V0")
Matriz principal Cartucho seleccionado (7) = Datos de fila. Obtener ("V50")
Matriz principal Cartucho seleccionado (8) = Datos de fila. Obtener ("V100")
Matriz principal Cartucho seleccionado (9) = Datos de fila. Obtener ("V150")
Matriz principal Cartucho seleccionado (10) = Datos de fila. Obtener ("V200")
Matriz principal Cartucho seleccionado (11) = Datos de fila. Obtener ("V250")
Matriz principal Cartucho seleccionado (12) = Datos de fila. Obtener ("V300")
Matriz principal Cartucho seleccionado (13) = Datos de fila. Obtener ("Visor")
Matriz principal Cartucho seleccionado (14) = Datos de fila. Obtener ("Alt50")
Matriz principal Cartucho seleccionado (15) = Datos de fila. Obtener ("Alt100")
Matriz principal Cartucho seleccionado (16) = Datos de fila. Obtener ("Alt150")
Matriz principal Cartucho seleccionado (17) = Datos de fila. Obtener ("Alt200")
Matriz principal Cartucho seleccionado (18) = Datos de fila. Obtener ("Alt250")
Matriz principal Cartucho seleccionado (19) = Datos de fila. Obtener ("Alt300")
Matriz principal Cartucho seleccionado (20) = Datos de fila. Obtener ("Energ0")
Matriz principal Cartucho seleccionado (21) = Datos de fila. Obtener ("Energía 50")
Matriz principal Cartucho seleccionado (22) = Datos de fila. Obtener ("Energ100")
Matriz principal Cartucho seleccionado (23) = Datos de fila. Obtener ("Energía 150")
Matriz principal Cartucho seleccionado (24) = Datos de fila. Obtener ("Energ200")
Matriz principal Cartucho seleccionado (25) = Datos de fila. Obtener ("Energ250")
Matriz principal Cartucho seleccionado (26) = Datos de fila. Obtener ("Energ300")
Matriz principal Cartucho seleccionado (27) = Datos de fila. Obtener ("DS")
Matriz principal Cartucho seleccionado (28) = Datos de fila. Obtener ("Id")
Main.AlturaVisor=RowData.Get("Visor") 'en la tabla está con signo negativo
Main.NombreCartucho=RowData.Get("DENOMINACION")
IniciarActividad("FichaCartucho2")
Fin del subtítulo
SubCreateCustomFormat privado (c como B4XTableColumn)
Formateador Dim como B4XFormatter
formateador.Inicializar
c.Formatter = formateador
Atenuar positivo como B4XFormatData = c.Formatter.NewFormatData
Positivo.TextColor = B4XTable1.TextColor
Positive.FormatFont = xui.CreateDefaultFont(16)
c.Formatter.AddFormatData(Positive, 0, c.Formatter.MAX_VALUE, True) 'Inclusivo (cero incluido)
Atenuar negativo como B4XFormatData = c.Formatter.CopyFormatData(Positivo)
Negativo.TextColor = xui.Color_Rojo
Negativo.FormatFont = xui.CreateDefaultBoldFont(16)
Prefijo negativo = "("
Negativo.Postfijo = ")"
c.Formatter.AddFormatData(Negativo,c.Formatter.MIN_VALUE, 0, Falso)
Fin del subtítulo
Subactividad_Resumen
Fin del subtítulo
Sub Actividad_Pausa (Cerrado por el usuario como booleano)
Fin del subtítulo
Sub btnSiguiente_Clic
B4XTable1.PáginaActual = B4XTable1.PáginaActual + 1
Fin del subtítulo
Sub btnPrev_Click
B4XTable1.PáginaActual = B4XTable1.PáginaActual - 1
Fin del subtítulo
Sub B4XTable1_DataUpdated
btnNext.Enabled = B4XTable1.lblNext.Tag
btnPrev.Enabled = B4XTable1.lblBack.Tag
Fin del subtítulo
[/CÓDIGO]
Agradecería alguna ayuda
[CÓDIGO=b4x]Subglobales
B4XTable1 privado como B4XTable
Xui privado Como XUI
Columna de número privada como columna de tabla B4X
Botón privado btnNext As
IME privado como IME
Formateador privado como B4XFormatter
Marca privada1 como etiqueta
EditText1 privado como EditText
Botón privado btnPrev como botón
Fin del subtítulo
SubActividad_Crear(PrimeraVez Como Booleano)
Etiqueta1.Inicializar("")
Etiqueta1.Top=0dip
Etiqueta1.Izquierda=0dip
EditText1.Initialize("")
EditText1.Top=10dip
EditText1.Left=Etiqueta1.Ancho
EditText1.Altura=30dip
IME.Initialize("ime")
IME.AddHeightChangedEvent
Actividad.LoadLayout("Tabla")
Actividad.Título=Nombre del programa principal y " " y Versión del programa principal
' Mover la tabla hacia abajo
B4XTable1.mBase.Top = 60dip ' Ajustar espacio superior
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Pulgadas", B4XTable1.COLUMN_TYPE_TEXT)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Milímetros", B4XTable1.COLUMN_TYPE_TEXT)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("DENOMINACION", B4XTable1.COLUMN_TYPE_TEXT)
ColumnaEstado.Ancho = 380dip
StateColumn.Sortable = Verdadero
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Granos", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Gramos", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("CB", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V0", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V50", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V100", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V150", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V200", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V250", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("V300", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar StateColumn como B4XTableColumn = B4XTable1.AddColumn("Visor", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt50", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar la columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt100", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar la columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt150", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar StateColumn como B4XTableColumn = B4XTable1.AddColumn("Alt200", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt250", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Alt300", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar la columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ0", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ50", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ100", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ150", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ200", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ250", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Atenuar columna de estado como B4XTableColumn = B4XTable1.AddColumn("Energ300", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("DS", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dim StateColumn como B4XTableColumn = B4XTable1.AddColumn("Id", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaEstado.Ancho = 60dip
Dormir(0)
NumberColumn = B4XTable1.AddColumn("Número interesante", B4XTable1.COLUMN_TYPE_NUMBERS)
ColumnaNúmero.Ancho=1dip
B4XTable1.RowHeight=40dip
Si Main.Tablet=False Entonces
B4XTable1.MaximumRowsPerPage=10
Demás
B4XTable1.MaximumRowsPerPage=15
Fin si
Si Main.Tablet=False Entonces
B4XTable1.pnlHeader.Height=Actividad.Altura/8
Demás
B4XTable1.pnlHeader.Height=Actividad.Altura/12
Fin si
B4XTable1.lblFirst.Left=0
B4XTable1.lblFirst.Width=25dip
B4XTable1.lblFirst.Height=B4XTable1.pnlHeader.Height
B4XTable1.lblFirst.Color=Colores.Blanco
B4XTable1.lblFirst.TextColor=Colores.Negro
B4XTable1.lblBack.Width=25dip
B4XTable1.lblBack.Height=B4XTable1.pnlHeader.Height
B4XTable1.lblBack.Color=Colores.Blanco
B4XTable1.lblBack.TextColor=Colores.Negro
B4XTable1.lblAtrás.Izquierda=B4XTable1.lblPrimera.Izquierda+B4XTable1.lblPrimera.Ancho
B4XTable1.lblNumber.TextColor=Colores.Rojo
B4XTable1.lblNumber.Width=50dip
B4XTable1.lblNumber.Height=B4XTable1.pnlHeader.Height
B4XTable1.lblNumber.Left=B4XTable1.lblback.Left+B4XTable1.lblback.Width
B4XTable1.lblNumber.TextSize=18
B4XTable1.lblNext.height=B4XTable1.pnlHeader.Height
B4XTable1.lblNext.Width=25dip
B4XTable1.lblNext.Color=Colores.blanco
B4XTable1.lblNext.TextColor=Colores.Negro
B4XTable1.lblNext.Left=B4XTable1.lblNumber.Izquierda+B4XTable1.lblNumber.Ancho
B4XTable1.lblLast.Width=25dip
B4XTable1.lblLast.height=B4XTable1.pnlHeader.Height
B4XTable1.lblLast.Color=Colores.Blanco
B4XTable1.lblLast.TextColor=Colores.Negro
B4XTable1.lblÚltimo.Izquierda=B4XTable1.lblSiguiente.Izquierda+B4XTable1.lblSiguiente.Ancho
B4XTable1.lblFromTo.TextColor= Colores.Negro 'exple: 1 a 18
B4XTable1.ArrowsEnabledColor=Colors.blue 'habilitar color de flecha
B4XTable1.ArrowsDisabledColor=Colors.Gray 'color de flecha deshabilitado
B4XTable1.SearchField.LargeLabelTextSize=Actividad.Ancho/2
CreateCustomFormat(ColumnaNúmero)
B4XTable1.HeadersHeight=50dip
'cargar los datos
Dim su As StringUtils
Encabezados oscuros como lista
encabezados.Inicializar 'la lista solo se usa para omitir la fila de encabezados
Dim datos Como Lista = su.LoadCSV2(Main.DirCartuchos,Main.FicheroCartuchos, ",", headers)
Principal.LstCartuchos.Inicializar
Main.LstCartuchos=datos
B4XTable1.SetData(datos)
'cambiar el orden de las columnas visibles
'eliminar las columnas numéricas
B4XTable1.VisibleColumns.RemoveAt(B4XTable1.VisibleColumns.IndexOf(ColumnaNúmero))
B4XTable1.VisibleColumns.InsertAt(1, ColumnaNúmero)
B4XTable1.Actualizar
Para i = 1 a datos.Tamaño
Dim RowData como mapa = B4XTable1.GetRow(i)
Celda oscura como cadena = RowData.Get("Id")
Si celda<>Nulo Entonces
Si Main.UltimaBala<cell Entonces
Main.UltimaBala=célula
Fin si
Fin si
Próximo
Fin del subtítulo
Sub IME_HeightChanged (Nueva altura como entero, Altura anterior como entero)
Si B4XTable1.IsInitialized Entonces
B4XTable1.mBase.Height = NuevaAltura - B4XTable1.mBase.Top
B4XTable1.Actualizar
Fin si
Fin del subtítulo
Sub B4XSwitch1_ValueChanged (Valor como booleano)
Si Valor Entonces
'Crear un filtro a medida, por ejemplo, por calibre en pulgadas
Seleccionar EditText1.text
Caso "0.172"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.172"$)
Caso "0.204"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.204"$)
Caso "0.220"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.220"$)
Caso "0.223"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.223"$)
Caso "0.227"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.227"$)
Caso "0.243"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.243"$)
Caso "0.244"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.244"$)
Caso "0.257"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.257"$)
Caso "0.264"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.264"$)
Caso "0.268"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.268"$)
Caso "0.277"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.277"$)
Caso "0.284"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.284"$)
Caso "0.284"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.284"$)
Caso "0.306"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.306"$)
Caso "0.308"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.308"$)
Caso "0.309"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.309"$)
Caso "0.310"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.310"$)
Caso "0.311"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.311"$)
Caso "0.312"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.312"$)
Caso "0.321"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.321"$)
Caso "0.323"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.323"$)
Caso "0.338"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.338"$)
Caso "0.358"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.358"$)
Caso "0.366"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.366"$)
Caso "0.375"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.375"$)
Caso "0.376"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.376"$)
Caso "0.405"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.405"$)
Caso "0.411"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.411"$)
Caso "0.416"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.416"$)
Caso "0.423"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.423"$)
Caso "0.429"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.429"$)
Caso "0.458"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.458"$)
Caso "0.475"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.475"$)
Caso "0.505"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.505"$)
Caso "0.510"
B4XTable1.CreateDataView($"${B4XTable1.GetColumn("Pulgadas").SQLID} = 0.510"$)
Seleccionar final
Demás
B4XTable1.ClearDataView
Fin si
Fin del subtítulo
Sub B4XTable1_CellClicked (ColumnId como cadena, RowId como longitud)
Dim RowData como mapa = B4XTable1.GetRow(RowId)
Celda oscura como cadena = RowData.Get(ColumnId)
Actividad.Título = celda
Main.ArrayCartuchoSeleccionado(0)=RowData.Get("Pulgadas")
Main.ArrayCartuchoSeleccionado(1)=RowData.Get("Milimetros")
Main.ArrayCartuchoSeleccionado(2)=RowData.Get("DENOMINACION")
Matriz principal CartuchoSeleccionado(3) = Datos de fila. Obtener ("Granos")
Main.ArrayCartuchoSeleccionado(4)=RowData.Get("Gramos")
Matriz principal Cartucho seleccionado (5) = Datos de fila. Obtener ("CB")
Matriz principal Cartucho seleccionado (6) = Datos de fila. Obtener ("V0")
Matriz principal Cartucho seleccionado (7) = Datos de fila. Obtener ("V50")
Matriz principal Cartucho seleccionado (8) = Datos de fila. Obtener ("V100")
Matriz principal Cartucho seleccionado (9) = Datos de fila. Obtener ("V150")
Matriz principal Cartucho seleccionado (10) = Datos de fila. Obtener ("V200")
Matriz principal Cartucho seleccionado (11) = Datos de fila. Obtener ("V250")
Matriz principal Cartucho seleccionado (12) = Datos de fila. Obtener ("V300")
Matriz principal Cartucho seleccionado (13) = Datos de fila. Obtener ("Visor")
Matriz principal Cartucho seleccionado (14) = Datos de fila. Obtener ("Alt50")
Matriz principal Cartucho seleccionado (15) = Datos de fila. Obtener ("Alt100")
Matriz principal Cartucho seleccionado (16) = Datos de fila. Obtener ("Alt150")
Matriz principal Cartucho seleccionado (17) = Datos de fila. Obtener ("Alt200")
Matriz principal Cartucho seleccionado (18) = Datos de fila. Obtener ("Alt250")
Matriz principal Cartucho seleccionado (19) = Datos de fila. Obtener ("Alt300")
Matriz principal Cartucho seleccionado (20) = Datos de fila. Obtener ("Energ0")
Matriz principal Cartucho seleccionado (21) = Datos de fila. Obtener ("Energía 50")
Matriz principal Cartucho seleccionado (22) = Datos de fila. Obtener ("Energ100")
Matriz principal Cartucho seleccionado (23) = Datos de fila. Obtener ("Energía 150")
Matriz principal Cartucho seleccionado (24) = Datos de fila. Obtener ("Energ200")
Matriz principal Cartucho seleccionado (25) = Datos de fila. Obtener ("Energ250")
Matriz principal Cartucho seleccionado (26) = Datos de fila. Obtener ("Energ300")
Matriz principal Cartucho seleccionado (27) = Datos de fila. Obtener ("DS")
Matriz principal Cartucho seleccionado (28) = Datos de fila. Obtener ("Id")
Main.AlturaVisor=RowData.Get("Visor") 'en la tabla está con signo negativo
Main.NombreCartucho=RowData.Get("DENOMINACION")
IniciarActividad("FichaCartucho2")
Fin del subtítulo
SubCreateCustomFormat privado (c como B4XTableColumn)
Formateador Dim como B4XFormatter
formateador.Inicializar
c.Formatter = formateador
Atenuar positivo como B4XFormatData = c.Formatter.NewFormatData
Positivo.TextColor = B4XTable1.TextColor
Positive.FormatFont = xui.CreateDefaultFont(16)
c.Formatter.AddFormatData(Positive, 0, c.Formatter.MAX_VALUE, True) 'Inclusivo (cero incluido)
Atenuar negativo como B4XFormatData = c.Formatter.CopyFormatData(Positivo)
Negativo.TextColor = xui.Color_Rojo
Negativo.FormatFont = xui.CreateDefaultBoldFont(16)
Prefijo negativo = "("
Negativo.Postfijo = ")"
c.Formatter.AddFormatData(Negativo,c.Formatter.MIN_VALUE, 0, Falso)
Fin del subtítulo
Subactividad_Resumen
Fin del subtítulo
Sub Actividad_Pausa (Cerrado por el usuario como booleano)
Fin del subtítulo
Sub btnSiguiente_Clic
B4XTable1.PáginaActual = B4XTable1.PáginaActual + 1
Fin del subtítulo
Sub btnPrev_Click
B4XTable1.PáginaActual = B4XTable1.PáginaActual - 1
Fin del subtítulo
Sub B4XTable1_DataUpdated
btnNext.Enabled = B4XTable1.lblNext.Tag
btnPrev.Enabled = B4XTable1.lblBack.Tag
Fin del subtítulo
[/CÓDIGO]
Agradecería alguna ayuda
