Spanish B4XTable marcar fila con color (SOLUCIONADO)

[benji]

Buenas tardes,
es posible en una B4XTable marcar una fila con un color, dependiendo del valor de una columna?

De antemano, muchas gracias.

Saludos.

 

[TILogistic]

ver:

[B4X] B4XTable - Multiple rows selection

Edit: Don't use this code. Use B4XTableSelections class instead: https://www.b4x.com/android/forum/threads/b4x-b4xtableselections-extended-selection-modes-for-b4xtable.114294/ This example depends on B4XTable v1.02+ and B4XCollections. It is quite simple to implement custom selection logic...

www.b4x.com

[B4X] B4XTableSelections - extended selection modes for B4XTable

B4XTableSelections extends B4XTable and adds new selection modes: SINGLE_CELL_TEMP - this is the built-in selection mode. Unlike the other selection modes it disappears automatically. SINGLE_CELL_PERMANENT - selection of a single cell. SINGLE_LINE_PERMANENT - selection of a single line...

www.b4x.com

 

[josejad]

Creo que esta solucion a un hilo del compañero @Daniel44 puede ser lo que buscas

[SOLVED]How to change the color of a B4XTable row according to content and then disable it?

Hi everyone! Well.. I'm working on a B4Xtable and I'd like to change X Row according to content.. Ex: I have the column "state" below it shows "Exists" and "Not Exists" and I need to change the row's color if it's "Not Exists" I've seen this post: B4XTable How do I change the color of a row ...

www.b4x.com

 

[benji]

Gracias, había buscado y por algún motivo (yo, lo mas probable) no las encontré antes. Gracias, las voy a probar.

Aqui lo dejo por si alguien le sirve...

Sub B4XTable1_DataUpdated
    For i = 0 To B4XTable1.VisibleRowIds.Size - 1
        Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
        If RowId > 0 Then
            'criteria
            Dim Value As Int = B4XTable1.GetRow(RowId).Get("Estado")
            If Value = 3 Then
                SetRowColor(i, xui.Color_Green)
                Continue
            End If
        End If
        If i Mod 2 = 0 Then
            SetRowColor(i, B4XTable1.EvenRowColor)
        Else
            SetRowColor(i, B4XTable1.OddRowColor)
        End If
    Next
End Sub

Sub SetRowColor (RowIndex As Int, Clr As Int)
    For Each c As B4XTableColumn In B4XTable1.VisibleColumns
        Dim pnl As B4XView = c.CellsLayouts.Get(RowIndex + 1) '+1 because of the header
        pnl.Color = Clr
    Next
End Sub