Android Question [Solved] How do I re-paint ALL visible rows of a B4XTable?

Sergio Castellari

Sergio Castellari

Active Member
Licensed User
Hello there,
I use B4Xtable to display information.
In the event "Sub B4XTable1_DataUpdated" I use the following to color

B4X: 
    btnNext.Enabled = B4XTable1.lblNext.Tag
    btnPrev.Enabled = B4XTable1.lblBack.Tag
    XSelections.Refresh
    'Log("Filas: " & B4XTable1.VisibleRowIds.Size)
  'Recorro todas las FILAS visibles...
    For i = 0 To B4XTable1.VisibleRowIds.Size - 1
        Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
        If RowId > 0 Then
            Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Est      As B4XView = Col_Estado.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim row  As Map = B4XTable1.GetRow(RowId)
            Dim cEst As String = row.Get(Col_Estado.Id) 'Obtengo el contenido de la Columna/Fila
            pnl_Not.GetView(0).TextSize = 16/Main.pSysFontScale
            pnl_Est.GetView(0).TextSize = 16/Main.pSysFontScale
            pnl_Fec.GetView(0).TextSize = 14/Main.pSysFontScale
            Log("cEst: [" & cEst & "]")
            If cEst = "P" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)    'NaranjaLindo
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
            Else If cEst = "O" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)    'VerdeDuro
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
            Else If cEst = "H" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)    'CelesteBonito
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)   
            End If
        End If
    Next

It works, but only for rows that contain some "cEst" information. For those empty rows, keep the color of the previous page, do not put the color determined in "B4XTable1.EvenRowColor" or "B4XTable1.OddRowColor"

How can I update the original colors for cases where there is no registration or row information?
 
Sort by date Sort by votes
DonManfred

DonManfred

Expert
Licensed User
Longtime User
B4X: 
B4XTable1.RefreshNow
?
 
Upvote 0
Sergio Castellari

Sergio Castellari

Active Member
Licensed User
DonManfred said:
B4XTable1.RefreshNow
Click to expand...
@DonManfred
I've already been applying it, when I finish "loading" the information:

B4X: 
        B4XTable1.SetData(aRegistros)
        SeteoColumna("Nota", "CENTER", "LEFT",0,-1,-1)
        B4XTable1.RefreshNow

The issue is that when you have to "walk through" the visible rows, you only do it with the ones with information.

With those rows without information, the background color does not apply ?
 
Upvote 0
Sergio Castellari

Sergio Castellari

Active Member
Licensed User
@DonManfred there I solved it !!!!

B4X: 
Sub B4XTable1_DataUpdated
    btnNext.Enabled = B4XTable1.lblNext.Tag
    btnPrev.Enabled = B4XTable1.lblBack.Tag
    XSelections.Refresh
    Log("Filas: " & B4XTable1.VisibleRowIds.Size)
  'Recorro todas las FILAS visibles...
    For i = 0 To B4XTable1.VisibleRowIds.Size - 1
        Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
        Log("RowId: " & RowId)
        If RowId > 0 Then
            Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Est      As B4XView = Col_Estado.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim row  As Map = B4XTable1.GetRow(RowId)
            Dim cEst As String = row.Get(Col_Estado.Id) 'Obtengo el contenido de la Columna/Fila
            pnl_Not.GetView(0).TextSize = 16/Main.pSysFontScale
            pnl_Est.GetView(0).TextSize = 16/Main.pSysFontScale
            pnl_Fec.GetView(0).TextSize = 14/Main.pSysFontScale
            Log("cEst: [" & cEst & "]")
            If cEst = "P" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)    'NaranjaLindo
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
                'pnl_Not.GetView(0).TextColor = xui.Color_Yellow
                'pnl_Est.GetView(0).TextColor = xui.Color_Yellow
                'pnl_Fec.GetView(0).TextColor = xui.Color_Yellow
            Else If cEst = "O" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)    'VerdeDuro
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
                'pnl_Not.GetView(0).TextColor = xui.Color_RGB(29,127,11)
                'pnl_Est.GetView(0).TextColor = xui.Color_RGB(29,127,11)
                'pnl_Fec.GetView(0).TextColor = xui.Color_RGB(29,127,11)
            Else If cEst = "H" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)    'CelesteBonito
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)   
                'pnl_Not.GetView(0).TextColor = xui.Color_Black
                'pnl_Est.GetView(0).TextColor = xui.Color_Black
                'pnl_Fec.GetView(0).TextColor = xui.Color_Black
            End If
        Else If RowId = 0 Then
            Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Est      As B4XView = Col_Estado.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)    'CelesteBase
            pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)
            pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)   
        End If
    Next
End Sub

The "ELSE IF RowId = 0 Then" is necessary for it to apply the background colors to the rest of the empty rows!

Thanks for your help!!!

Hugs
 
Upvote 0
M

Mahares

Expert
Licensed User
Longtime User
Sergio Castellari said:
there I solved it !!!!
Click to expand...
I am really glad you solved it Sergio, but your code is quite complicated. You should iterate over the B4XTable columns instead of walking through each column and each panel. individually
B4X: 
Sub B4XTable1_DataUpdated
   For i = 0 To B4XTable1.VisibleRowIds.Size - 1
        For Each c As B4XTableColumn In B4XTable1.Columns
              'more code
        Next
   Next
End Sub
Can you show a snapshot of a page that has some data and some empty rows if possible.
 
Upvote 0
Sergio Castellari

Sergio Castellari

Active Member
Licensed User
Mahares said:
I am really glad you solved it Sergio, but your code is quite complicated. You should iterate over the B4XTable columns instead of walking through each column and each panel. individually
Click to expand...
Thanks @Mahares but it's the only way I know. I actually took an example out there and tested!
Would you be so kind as to show me a code of what it would be like for my case? I use the following code:

B4X: 
Sub B4XTable1_DataUpdated
    btnNext.Enabled = B4XTable1.lblNext.Tag
    btnPrev.Enabled = B4XTable1.lblBack.Tag
    XSelections.Refresh
    'Log("Filas: " & B4XTable1.VisibleRowIds.Size)
  'Recorro todas las FILAS visibles...
    For i = 0 To B4XTable1.VisibleRowIds.Size - 1
        Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
        Log("RowId: " & RowId)
        If RowId > 0 Then            'PINTO todas las FILAS con información
            Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Est      As B4XView = Col_E.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim row  As Map = B4XTable1.GetRow(RowId)
            Dim cEst As String = row.Get(Col_Estado.Id) 'Obtengo el contenido de la Columna/Fila
            pnl_Not.GetView(0).TextSize = 16/Main.pSysFontScale
            pnl_Est.GetView(0).TextSize = 16/Main.pSysFontScale
            pnl_Fec.GetView(0).TextSize = 14/Main.pSysFontScale
            Log("cEst: [" & cEst & "]")
            pnl_Not.GetView(0).TextColor = xui.Color_Black        'Pinto el TEXTO de NEGRO (para todos los casos)
            pnl_Est.GetView(0).TextColor = xui.Color_Black
            pnl_Fec.GetView(0).TextColor = xui.Color_Black
            If cEst = "P" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)    'NaranjaLindo
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
                'Dim fnt As B4XFont = xui.CreateFont(Typeface.DEFAULT_BOLD, 16/Main.pSysFontScale)
                'pnl_Est.GetView(0).Font = fnt    'Si quisiera un texto en NEGRITA
            Else If cEst = "O" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)    'VerdeDuro
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
                'pnl_Not.GetView(0).TextColor = xui.Color_RGB(29,127,11)
                'pnl_Est.GetView(0).TextColor = xui.Color_RGB(29,127,11)
                'pnl_Fec.GetView(0).TextColor = xui.Color_RGB(29,127,11)
            Else If cEst = "H" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)    'CelesteBonito
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)   
                'pnl_Not.GetView(0).TextColor = xui.Color_Black
                'pnl_Est.GetView(0).TextColor = xui.Color_Black
                'pnl_Fec.GetView(0).TextColor = xui.Color_Black
            End If
        Else If RowId = 0 Then            'PINTO todas las FILAS SIN información (color de fondo base y texto negro)
            Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Est      As B4XView = Col_E.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)    'CelesteBase
            pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)
            pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)   
            pnl_Not.GetView(0).TextColor = xui.Color_Black
            pnl_Est.GetView(0).TextColor = xui.Color_Black
            pnl_Fec.GetView(0).TextColor = xui.Color_Black
        End If
    Next
End Sub

Private Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
    XSelections.CellClicked(ColumnId, RowId)                                                                'Marco la seleccion (Fila completa)
    B4XTable1_DataUpdated                                                                                                        'Actualizo nuevamente los colores de TODAS las filas visibles
    If XSelections.IsSelected = True Then                                                                        'Si la fila fue SELECCIONADA
        Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(RowId)                        'Obtengo los paneles y les doy COLOR de FONDO y TEXTO seleccionado
        Dim pnl_Est      As B4XView = Col_E.CellsLayouts.Get(RowId)
        Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(RowId)
        pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(0,29,252),2,xui.Color_Cyan,0)    'AzulSeleccion
        pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(0,29,252),2,xui.Color_Cyan,0)
        pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(0,29,252),2,xui.Color_Cyan,0)
        pnl_Not.GetView(0).TextColor = xui.Color_White
        pnl_Est.GetView(0).TextColor = xui.Color_White
        pnl_Fec.GetView(0).TextColor = xui.Color_White
    End If
    Dim RowData As Map = B4XTable1.GetRow(RowId)
    Log("ID NOTAS: " & RowData.Get("Cod"))
    nIDNota = RowData.Get("Cod")
    cNotaBorrar = RowData.Get("Nota")
    'cDetImport = RowData.Get("Importe")
    'Main.pNomClie = RowData.Get("NOMBRE")
    'Main.pCodClie = RowData.Get("CODIGO")
    'B4XPages.ShowPageAndRemovePreviousPages("PageClientesCta")
End Sub

This is a screenshot (it is a simple Notes agenda)

NOTE: It shows wrong column "E" since I am trying to place text from "MaterialsIcons" but they are not seen ... I use the following:

B4X: 
  For Each row() As Object In rs.Rows
            cID = row(0)                'IDNOTAS
            cNot = row(2)                'NOTA
            cEst = row(1)                'ESTADO
            cFec = row(3)                'FECHA
          aCampos.Initialize
            aCampos.Add(cID)
            aCampos.Add(cNot)
            If cEst = "P" Then
                xE = Chr(0xf02a)
            Else If cEst = "O" Then
                xE = Chr(0xf854)
            Else
                xE = Chr(0xf160)
            End If
            aCampos.Add(xE)
            aCampos.Add(cEst)
            aCampos.Add(cFec)
            aRegistros.Add(aCampos)
        Next
        B4XTable1.SetData(aRegistros)


Total greetings!
 

Attachments

  • CapturaNotas.jpg
    CapturaNotas.jpg
    187.4 KB · Views: 182
Upvote 0
Sergio Castellari

Sergio Castellari

Active Member
Licensed User
I finally achieved the goal !!!

B4X: 
    Public csPend,csOK,csHist As CSBuilder

    csPend.Initialize.Size(20/Main.pSysFontScale).Typeface(Typeface.FONTAWESOME)
    csPend.Append(Chr(0xF071)).PopAll
    csOK.Initialize.Size(24/Main.pSysFontScale).Typeface(Typeface.FONTAWESOME)
    csOK.Append(Chr(0xF164)).PopAll
    csHist.Initialize.Size(20/Main.pSysFontScale).Typeface(Typeface.FONTAWESOME)
    csHist.Append(Chr(0xF0EE)).PopAll


    For Each row() As Object In rs.Rows
            cID = row(0)                'IDNOTAS
            cNot = row(2)                'NOTA
            cEst = row(1)                'ESTADO
            cFec = row(3)                'FECHA
          aCampos.Initialize
            aCampos.Add(cID)
            aCampos.Add(cNot)
            If  cEst = "P" Then
                aCampos.Add(csPend)
            Else If cEst = "O" Then
                aCampos.Add(csOK)
            Else If cEst = "H" Then
                aCampos.Add(csHist)
            Else
                aCampos.Add("")
            End If
            aCampos.Add(cEst)
            aCampos.Add(cFec)
            aRegistros.Add(aCampos)
        Next


Private Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
    XSelections.CellClicked(ColumnId, RowId)                                                                'Marco la seleccion (Fila completa)
    B4XTable1_DataUpdated                                                                                                        'Actualizo nuevamente los colores de TODAS las filas visibles
    If XSelections.IsSelected = True Then                                                                        'Si la fila fue SELECCIONADA
        Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(RowId)                        'Obtengo los paneles y les doy COLOR de FONDO y TEXTO seleccionado
        Dim pnl_Est      As B4XView = Col_BND.CellsLayouts.Get(RowId)
        Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(RowId)
        pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(0,29,252),2,xui.Color_Cyan,0)    'AzulSeleccion
        pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(0,29,252),2,xui.Color_Cyan,0)
        pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(0,29,252),2,xui.Color_Cyan,0)
        pnl_Not.GetView(0).TextColor = xui.Color_White
        pnl_Est.GetView(0).TextColor = xui.Color_White
        pnl_Fec.GetView(0).TextColor = xui.Color_White
    End If
    Dim RowData As Map = B4XTable1.GetRow(RowId)
    Log("ID NOTAS: " & RowData.Get("Cod"))
    nIDNota = RowData.Get("Cod")
    cNotaBorrar = RowData.Get("Nota")
End Sub


Sub B4XTable1_DataUpdated
    btnNext.Enabled = B4XTable1.lblNext.Tag
    btnPrev.Enabled = B4XTable1.lblBack.Tag
    XSelections.Refresh
    'Log("Filas: " & B4XTable1.VisibleRowIds.Size)
  'Recorro todas las FILAS visibles...
    For i = 0 To B4XTable1.VisibleRowIds.Size - 1
        Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
        'Log("RowId: " & RowId)
        If RowId > 0 Then            'PINTO todas las FILAS con información
            Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Est      As B4XView = Col_BND.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim row  As Map = B4XTable1.GetRow(RowId)
            Dim cEst As String = row.Get(Col_Estado.Id) 'Obtengo el contenido de la Columna/Fila
            pnl_Not.GetView(0).TextSize = 16/Main.pSysFontScale
            'pnl_Est.GetView(0).TextSize = 16/Main.pSysFontScale
            pnl_Fec.GetView(0).TextSize = 14/Main.pSysFontScale
            'Log("cEst: [" & cEst & "]")
            pnl_Not.GetView(0).TextColor = xui.Color_Black        'Pinto el TEXTO de NEGRO (para todos los casos)
            pnl_Est.GetView(0).TextColor = xui.Color_Black
            pnl_Fec.GetView(0).TextColor = xui.Color_Black
            If cEst = "P" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)    'NaranjaLindo
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(225,180,43),1,xui.Color_Gray,0)
                Dim fnt As B4XFont = xui.CreateFont(Typeface.FONTAWESOME, 18/Main.pSysFontScale)
                pnl_Est.GetView(0).Font = fnt   
                pnl_Est.GetView(0).TextColor = xui.Color_RGB(234,68,35)    'Texto color NaranjaFuerte
            Else If cEst = "O" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)    'VerdeDuro
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(21,148,9),1,xui.Color_Gray,0)
                Dim fnt As B4XFont = xui.CreateFont(Typeface.FONTAWESOME, 28/Main.pSysFontScale)
                pnl_Est.GetView(0).Font = fnt   
                pnl_Est.GetView(0).TextColor = xui.Color_RGB(55,221,22)    'Texto color VerdeLindo
            Else If cEst = "H" Then
                pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)    'CelesteBonito
                pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)
                pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(168,216,223),1,xui.Color_Gray,0)   
                Dim fnt As B4XFont = xui.CreateFont(Typeface.FONTAWESOME, 20/Main.pSysFontScale)
                pnl_Est.GetView(0).Font = fnt   
            End If
        Else If RowId = 0 Then            'PINTO todas las FILAS SIN información (color de fondo base y texto negro)
            Dim pnl_Not      As B4XView = Col_Nota.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Est      As B4XView = Col_BND.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            Dim pnl_Fec      As B4XView = Col_Fecha.CellsLayouts.Get(i + 1) '+1 la primera celda es el Header
            pnl_Not.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)    'CelesteBase
            pnl_Est.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)
            pnl_Fec.GetView(0).SetColorAndBorder(xui.Color_RGB(181,199,208),1,xui.Color_Gray,0)   
            pnl_Not.GetView(0).TextColor = xui.Color_Black
            pnl_Est.GetView(0).TextColor = xui.Color_Black
            pnl_Fec.GetView(0).TextColor = xui.Color_Black
            Dim fnt As B4XFont = xui.CreateFont(Typeface.FONTAWESOME, 20/Main.pSysFontScale)
            pnl_Est.GetView(0).Font = fnt   
        End If
    Next
End Sub

Thank you!
Greetings
 

Attachments

  • NotasActuales.jpg
    NotasActuales.jpg
    182.5 KB · Views: 190
  • NotasPendientesRealizadas.jpg
    NotasPendientesRealizadas.jpg
    191.2 KB · Views: 193
Upvote 0
You must log in or register to reply here.
Top