Other Wishes - [B4X] [XUI] AS Settings

Private Sub AS_Settings1_CustomDrawGroup(CustomDrawGroup As AS_Settings_CustomDrawGroup)
    CustomGroupColor(CustomDrawGroup.GroupViews.BackgroundPanel,CustomDrawGroup.group.Key)
End Sub

Private Sub AS_Settings1_CustomDrawProperty(CustomDrawProperty As AS_Settings_CustomDrawProperty)
    CustomGroupColor(CustomDrawProperty.PropertyViews.RootBackgroundPanel,CustomDrawProperty.Property.Group.Key)
    CustomGroupColor(CustomDrawProperty.PropertyViews.BackgroundPanel,CustomDrawProperty.Property.Group.Key)
End Sub

Private Sub CustomGroupColor(BackgroundPanel As B4XView,GroupKey As String)
    Select Case GroupKey
        Case "Basic"
            BackgroundPanel.Color = xui.Color_ARGB(255,73, 98, 164)
        Case "Advanced"
            BackgroundPanel.Color = xui.Color_ARGB(255,141, 68, 173)
    End Select
End Sub

Private Sub AS_Settings1_PageScrollChanged(Offset As Int, Page As AS_SettingsPage)
    Log("PageScrollChanged: " & Offset)
End Sub