German Hintergrundfarbe bei ScrollView

Sub FillSV
    Private NumberofRows As Int = 100, NumberofColumns As Int = 4, iBackColor As Int
    Private iColWidth(NumberofColumns) As String = Array As String("15.0", "50.0", "15.0", "20.0")
    Private l As Label,    ImageView1 As ImageView, scvMain As ScrollView, Table As Panel
    Private TableFontSize As Float = 16, TableRowHeight As Int = 40dip
    Private TableColor1 As Int = Colors.RGB(184,204,228)
    Private TableColor2 As Int = Colors.RGB(220,230,241)
    Private iRow As Int, iCol As Int
    Private ColumnWidth As Int, ColumnWidthSum As Int

    scvMain.Initialize(0)
    Activity.AddView(scvMain,0,0,100%x,100%y)
    Table = scvMain.Panel
    Table.Color = Colors.Magenta
    Table.Height = NumberofRows * TableRowHeight
    
    For iRow = 0 To NumberofRows - 1
        ColumnWidthSum = 0
        For iCol = 0 To NumberofColumns - 1
            ColumnWidth= scvMain.Width * iColWidth(iCol)/100.0
            If iRow Mod 2 == 0 Then
                iBackColor = TableColor1
            Else
                iBackColor = TableColor2
            End If
            If iCol <> 2 Then
                l.Initialize("")
                l.Text = "XYZ"
                l.TextColor = Colors.Black
                l.TextSize = TableFontSize
                l.Color = iBackColor
                l.Gravity = Gravity.CENTER_VERTICAL + Gravity.CENTER_HORIZONTAL
                Table.AddView(l, ColumnWidthSum, TableRowHeight * iRow, ColumnWidth, TableRowHeight)
            Else           
                Private Bitmap1 As Bitmap = LoadBitmapResize(File.DirAssets, "Pfeiloben.png", 0.5 * ColumnWidth, 0.5 * ColumnWidth, True)
                ImageView1.Initialize("")
''                ImageView1.Color = Colors.Transparent
''                ImageView1.Color = iBackColor
                ImageView1.Bitmap = Bitmap1
                ImageView1.Width = ColumnWidth
                ImageView1.Height = TableRowHeight
                ImageView1.Gravity = Gravity.CENTER_VERTICAL + Gravity.CENTER_HORIZONTAL
                Table.AddView(ImageView1,ColumnWidthSum, TableRowHeight * iRow, ColumnWidth, TableRowHeight)
            End If           
            ColumnWidthSum = ColumnWidthSum + ColumnWidth
        Next
    Next
End Sub

Sub Class_Globals
    Private Root As B4XView 'ignore
    Private xui As XUI 'ignore
    
    Private B4XTable1 As B4XTable
    Private XSelections As B4XTableSelections
    
    Private B4XComboBox1 As B4XComboBox
    
    Private PfeilColumn As B4XTableColumn
    
End Sub

'You can add more parameters here.
Public Sub Initialize As Object
    Return Me
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    'load the layout to Root
    Root.LoadLayout("Table")
    FillSV

End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Sub FillSV
    Private NumberofRows As Int = 100
    Private TableRowHeight As Int = 50dip
    B4XTable1.RowHeight = TableRowHeight
    
'    --- Define the rowcolors ---
    Private TableColor1 As Int = Colors.RGB(184,204,228)
    Private TableColor2 As Int = Colors.RGB(220,230,241)
    
    B4XTable1.AddColumn("Text1", B4XTable1.COLUMN_TYPE_NUMBERS).Width = 50dip
    B4XTable1.AddColumn("Text2", B4XTable1.COLUMN_TYPE_TEXT)
    PfeilColumn = B4XTable1.AddColumn("Pfeil", B4XTable1.COLUMN_TYPE_TEXT)
    PfeilColumn.Width = 50dip
    PfeilColumn.Searchable = False
    PfeilColumn.Sortable = False
    B4XTable1.AddColumn("Text3", B4XTable1.COLUMN_TYPE_TEXT)'.Width = 20dip
    
'    --- Set the rowcolors ---   
    B4XTable1.EvenRowColor = TableColor1
    B4XTable1.OddRowColor = TableColor2
    
    Dim Data As List
    Data.Initialize
    
'    --- Create table content ---
    For iRow = 0 To NumberofRows - 1
        Data.Add(Array(iRow + 1, $"XYZ${iRow + 1}"$, "", $"${iRow + 1}XYZ"$))
    Next
    
'    --- Fill the table ---
    B4XTable1.SetData(Data)
    B4XTable1.MaximumRowsPerPage = 10
    B4XTable1.BuildLayoutsCache(10)
    
'    ---  Skipp header and add an ImageView to each of the flags column cells ---
    For i = 1 To PfeilColumn.CellsLayouts.Size - 1
        Dim pnl As B4XView = PfeilColumn.CellsLayouts.Get(i)
        Dim iv As ImageView
        iv.Initialize("")
        pnl.AddView(iv, 5dip, 5dip, PfeilColumn.Width - 10dip, B4XTable1.RowHeight - 10dip)
    Next

'    MODE_SINGLE_CELL_TEMP - this Is the built-in selection mode. Unlike the other selection modes it disappears automatically.
'    MODE_SINGLE_CELL_PERMANENT - selection of a single cell.
'    MODE_SINGLE_LINE_PERMANENT - selection of a single line.
'    MODE_MULTIPLE_CELLS - selection of multiple cells.
'    MODE_MULTIPLE_LINES - selection of multiple lines
    
    XSelections.Initialize(B4XTable1)
    XSelections.Mode = XSelections.MODE_SINGLE_CELL_PERMANENT
    B4XComboBox1.SetItems(Array("SINGLE_CELL_TEMP", "SINGLE_CELL_PERMANENT", "SINGLE_LINE_PERMANENT", "MULTIPLE_CELLS", "MULTIPLE_LINES"))
    B4XComboBox1.DelayBeforeChangeEvent = 0

    'uncomment if you want selections to be removed automatically when the cell or line are not visible.
'    XSelections.AutoRemoveInvisibleSelections = True
    
    
    
End Sub

Sub B4XTable1_DataUpdated
    For i = 0 To B4XTable1.VisibleRowIds.Size - 1
        Dim RowId As Long = B4XTable1.VisibleRowIds.Get(i)
        Dim pnl As B4XView = PfeilColumn.CellsLayouts.Get(i + 1) '+1 because the first cell is the header
        Dim iv As B4XView = pnl.GetView(1) 'ImageView will be the 2nd child of the panel. The built-in label is the first.
        If RowId > 0 Then
'            Dim row As Map = B4XTable1.GetRow(RowId)
            iv.SetBitmap(xui.LoadBitmapResize(File.DirAssets, "Pfeiloben.png", iv.Width, iv.Height, True))
            iv.Tag = $"Pfeiloben${i + 1}"$
        Else
            'empty row
            iv.SetBitmap(Null)
        End If
    Next
    XSelections.Refresh
End Sub

Sub B4XTable1_CellClicked (ColumnId As String, RowId As Long)
    Dim RowData As Map = B4XTable1.GetRow(RowId)
    Dim cell As String = RowData.Get(ColumnId)
    Log($"Id: ${ColumnId} RowId ${RowId} Cell: ${ cell}"$)
    
    XSelections.CellClicked(ColumnId, RowId)
    
    If ColumnId = "Pfeil" And cell = "" Then
        Dim pnl As B4XView = PfeilColumn.CellsLayouts.Get(RowId)
        Dim iv As B4XView = pnl.GetView(1)
        Dim TagStr As String = iv.Tag
        Log(TagStr)
        Dim su As ApacheSU
        If su.StartsWith(TagStr,"Pfeiloben") = True Then
            Log($"Found ${TagStr}"$)
            iv.SetBitmap(xui.LoadBitmapResize(File.DirAssets, "Pfeilnieder.png", iv.Width, iv.Height, True))
            iv.Tag = $"Pfeilnieder${RowId}"$
        End If
        If su.StartsWith(TagStr,"Pfeilnieder") = True Then
            Log($"Found ${TagStr}"$)
            iv.SetBitmap(xui.LoadBitmapResize(File.DirAssets, "Pfeiloben.png", iv.Width, iv.Height, True))
            iv.Tag = $"Pfeilnieder${RowId}"$
        End If
        Sleep(200)
        B4XTable1.Refresh
    End If
End Sub

'    --- Change the Sort Direction Arrow Color Based on its Direction ---
Sub B4XTable1_HeaderClicked (ColumnId As String)
    Dim up As Boolean = B4XTable1.lblSort.Text = Chr(0xF0DE)
    B4XTable1.lblSort.Text = ""
    Sleep(50)
    If Not(up) Then
        B4XTable1.lblSort.Text = "D"
        B4XTable1.lblSort.textColor= xui.Color_Red
    Else
        B4XTable1.lblSort.Text = "U"
        B4XTable1.lblSort.textColor= xui.Color_Green
    End If
End Sub


Sub B4XComboBox1_SelectedIndexChanged (Index As Int)
    Dim mode As Int = Index + 1 'implementation detail. You should use the constants instead
    XSelections.Mode = mode
End Sub

Sub btnClear_Click
    XSelections.Clear
End Sub

Sub btnLog_Click
    If XSelections.Mode = XSelections.MODE_SINGLE_CELL_TEMP Then
        Log("Temporary mode. No selection")
        Return
    End If
    Dim LineMode As Boolean = XSelections.Mode = XSelections.MODE_MULTIPLE_LINES Or XSelections.Mode = XSelections.MODE_SINGLE_LINE_PERMANENT
    If XSelections.IsSelected = False Then
        Log("Nothing is selected")
    Else
        Log($"First selected row id: ${XSelections.FirstSelectedRowId}"$)
        If LineMode = False Then Log($"First selected column: ${XSelections.FirstSelectedColumnId}"$)
        Dim sb As StringBuilder
        sb.Initialize
        If LineMode Then
            sb.Append("The following rows are selected:").Append(CRLF)
            For Each rowid As Long In XSelections.SelectedLines.Keys
                sb.Append(rowid).Append(CRLF)
            Next
        Else
            sb.Append("The following cells are selected:").Append(CRLF)
            For Each rowid As Long In XSelections.SelectedLines.Keys
                Dim cols As List = XSelections.SelectedLines.Get(rowid)
                For Each col As String In cols
                    sb.Append("(").Append(rowid).Append(", ").Append(col).Append(")").Append(CRLF)
                Next
            Next
        End If
        Log(sb.ToString)
        xui.MsgboxAsync(sb.ToString, "Selection")
    End If
End Sub

    For iRow = 0 To NumberofRows - 1
        ColumnWidthSum = 0
        For iCol = 0 To NumberofColumns - 1
            ColumnWidth= scvMain.Width * iColWidth(iCol)/100.0
            If iRow Mod 2 == 0 Then
                iBackColor = TableColor1
            Else
                iBackColor = TableColor2
            End If
            If iCol <> 2 Then
                l.Initialize("")
                l.Text = "XYZ"
                l.TextColor = Colors.Black
                l.TextSize = TableFontSize
                l.Color = iBackColor
                l.Gravity = Gravity.CENTER_VERTICAL + Gravity.CENTER_HORIZONTAL
                Table.AddView(l, ColumnWidthSum + igridWidth, TableRowHeight * iRow + igridWidth, ColumnWidth - 2 * igridWidth, TableRowHeight - 2 * igridWidth)
            Else
                cs.Initialize.Size(30).Typeface(Typeface.MONOSPACE)
                cs.Append("").Image(LoadBitmap(File.DirAssets, "Pfeiloben.png"), 0.4 * ColumnWidth, 0.3 * ColumnWidth, False)
                cs.PopAll
                l.Initialize("")
                l.Text = cs
                l.Color = iBackColor
                l.Gravity = Gravity.CENTER_VERTICAL + Gravity.CENTER_HORIZONTAL
                Table.AddView(l, ColumnWidthSum + igridWidth, TableRowHeight * iRow + igridWidth, ColumnWidth- 2 * igridWidth, TableRowHeight- 2 * igridWidth)           
            End If           
            ColumnWidthSum = ColumnWidthSum + ColumnWidth
        Next
    Next