Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Private CLV1 As CustomListView
Private PCLV1 As PreoptimizedCLV
end sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("B4XCLVNoDiv")
Root.Color = Main.backgroundColour
B4XPages.SetTitle(Me, "Select Monitoring")
PCLV1.Initialize(Me, "PCLV1", CLV1)
..... some sql
Do While rsMonitoringReadingElements.NextRow
Select rsMonitoringReadingElements.GetInt("ReadingType")
Case 100,101,102,103,104,105,106,115,136,137,141,142 : ViewHeight = 141dip
..... more Reading Types
End Select
PCLV1.AddItem(ViewHeight, xui.Color_White, rsMonitoringReadingElements.GetInt("ElementID"))
Loop
PCLV1.Commit
End Sub
Sub CLV1_VisibleRangeChanged & Sub PCLV_HintRequested implemented and working