Wish B4XTableSelections - Keep existing formatting

Erel said:

Can you create a small example with the formatting and B4XTableSelections?

Click to expand...

Erel said:

Can you create a small example with the formatting and B4XTableSelections?

Click to expand...

MrKim said:

Here it is with all of my original formatting and some real sample data.
Thanks for taking the time to take a look.
I should mention this is an old code version of B4x tables that I started using years ago and I have modified it but I don't think my mods are anything that would impact this issue. It also throws an error in design: View attachment 158819 but it has always done that and it seems to work fine and how to fix the error was not obvious to me so I have ignored it. I did try to switch to the B4xlib at one point years ago but again, this generated a lot of errors that I didn't understand or have time to fix and the program works great so I have stuck with this.
Highlighting the selected line is great feature because it 'bookmarks' where you are in the table. I hope it is an easy fix.

Click to expand...

Public Sub Refresh
    For i = 0 To mTable.VisibleRowIds.Size - 1
        Dim clr As Int
        If i Mod 2 = 0 Then clr = mTable.EvenRowColor Else clr = mTable.OddRowColor
        Dim RowId As Long = mTable.VisibleRowIds.Get(i)
        Dim RowSelected As Boolean = SelectedLines.ContainsKey(RowId)
        If RowSelected And LineMode = False Then
            Dim SelectedCells As List = SelectedLines.Get(RowId)
        End If
        For Each col As B4XTableColumn In mTable.VisibleColumns
            Dim p As B4XView = col.CellsLayouts.Get(i + 1)
            'Dim lbl As B4XView = p.GetView(col.LabelIndex)
            If RowSelected And (LineMode Or SelectedCells.IndexOf(col.Id) > -1) Then
                p.Color = SelectionColor
                'lbl.TextColor = SelectedTextColor
            Else
                p.Color = clr
'                lbl.TextColor = mTable.TextColor
            End If
        Next
    Next

John Naylor said:

Try the attached.

I have modified the B4XTableSelections code to maintain text formatting between Select and De-Select.

The error you see about HighlightTextColor is because the property in the B4XTable class on line 7 does not have a default value.

It was just a case of commenting out 3 lines.

Click to expand...