' Table2D Custom View Module
Private Sub Class_Globals
Private SV As ScrollView2D
Private TablePanel As Panel
'...
End Sub
Public Sub DesignerCreateView (Base As Panel, Lbl As Label, Props As Map)
TablePanel = Base
'...
InitTable
End Sub
Public Sub Initialize (CallbackModule As Object, EventName As String)
Callback = CallbackModule
Event = EventName
End Sub
Public Sub InitTable
SV.Initialize(TablePanel.Width, TablePanel.Height - RowHeight, "SV")
TablePanel.AddView(SV, 0, RowHeight , TablePanel.Width, TablePanel.Height - RowHeight)
End Sub
' Used by the Main Module
Sub Globals
Dim Table1 As Table2D
'...
End Sub
Sub Activity_Create(FirstTime As Boolean)
LoadLayout("Layout1")
Table1.ResizeTable(5)
For i = 1 To 500
Table1.AddRow(...)
Next
'...
End Sub