Spanish [SOLUCIONADO] B4XTable - ¿Padding en Celdas?

[RICARDO RESINES]

Muy buenas, este es mi primer POST,

Creo que se entiende, Cuando alineo los Datos a la Izquierda (LEFT):

Dim column0 As B4XTableColumn = tableName.GetColumn("NOMBRE")
Dim pn0 As B4XView = column0.CellsLayouts.Get(0)
pn0.GetView(0).SetTextAlignment("CENTER", "LEFT".ToUpperCase)

Este caso el Encabezado, igual lo hago con un FOR en los datos.

El texto si lo alinea, pero lo deja Justo al lado de la Linea de la Celda.

En los datos con que agregue un Espacio en Blanco soluciono a lo "Guarro" "De mala manera"

Como agrego PADDING "Espacio interno dentro de la Celda"? o existe alguna manera?

 

[josejad]

Hola:

No he trabajado con B4XTables, pero es cierto que no veo ningún método para establecer el padding.
Siguiendo este enlace:
https://www.b4x.com/android/forum/t...e-plus-padding-in-a-loop-for-all-views.43284/

He probado esto en el ejemplo de B4XTable y funciona, no sé si habrá algún método mejor, o si prefieres ponerlo en el foro en inglés por si alguien conoce el método correcto, o @Erel lo agrega

Debes agregar la librería JavaObject

    Dim column0 As B4XTableColumn = B4XTable1.GetColumn("NOMBRE")
    Dim pn0 As B4XView = column0.CellsLayouts.Get(0)
    pn0.GetView(0).SetTextAlignment("CENTER", "LEFT")
    Dim JO As JavaObject
    JO = pn0.GetView(0)
    JO.RunMethod("setPadding",Array As Object(15,0,0,0))
    B4XTable1.Refresh

Acostúmbrate también a poner delante y detrás de tu código las etiquetas [ code ] [ / code ] (sin espacios) para que el código sea más legible.

saludos,

 

[RICARDO RESINES]

Hola:

No he trabajado con B4XTables, pero es cierto que no veo ningún método para establecer el padding.
Siguiendo este enlace:
https://www.b4x.com/android/forum/t...e-plus-padding-in-a-loop-for-all-views.43284/

He probado esto en el ejemplo de B4XTable y funciona, no sé si habrá algún método mejor, o si prefieres ponerlo en el foro en inglés por si alguien conoce el método correcto, o @Erel lo agrega

Debes agregar la librería JavaObject

    Dim column0 As B4XTableColumn = B4XTable1.GetColumn("NOMBRE")
    Dim pn0 As B4XView = column0.CellsLayouts.Get(0)
    pn0.GetView(0).SetTextAlignment("CENTER", "LEFT")
    Dim JO As JavaObject
    JO = pn0.GetView(0)
    JO.RunMethod("setPadding",Array As Object(15,0,0,0))
    B4XTable1.Refresh

Acostúmbrate también a poner delante y detrás de tu código las etiquetas [ code ] [ / code ] (sin espacios) para que el código sea más legible.

saludos,

Muchas Gracias, Solucionado.