Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private clvType1 As CustomListView
Private lHeaderTid As Label
Private lHeaderAktivitet As Label
Private lHeaderSted As Label
Private lDetailTid As Label
Private lDetailAktivitet As Label
Private lDetailSted As Label
Private ItemHeight As Double = 40
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
Page1.RootPanel.LoadLayout("infopagetype1")
clvType1.Initialize(Me, "clvType1", 100%X)
Page1.RootPanel.AddView(clvType1.AsView, 0, ItemHeight, 100%x, 100%y - ItemHeight)
NavControl.ShowPage(Page1)
Dim p As Panel
p.Initialize("")
p.Color = Colors.White
p.SetLayoutAnimated(0, 0, 0, 0, 100%x, ItemHeight)
p.LoadLayout("infoDetailType1")
Dim s As StringBuilder
s.Initialize
s.Append("OK")
lDetailTid.Text= s
lDetailAktivitet.Text = s
lDetailSted.Text ="test"
clvType1.Add(p, ItemHeight,"")
For i=1 To 3
Dim p As Panel
p.Initialize("")
p.Color = Colors.White
p.SetLayoutAnimated(0, 0, 0, 0, 100%x, ItemHeight)
p.LoadLayout("infoDetailType1")
Dim s As StringBuilder
s.Initialize
For j=i To 4
s.Append("text - ")
Next
lDetailTid.Text= s
lDetailAktivitet.Text = s
lDetailSted.Text ="text"
clvType1.Add(p, ItemHeight,"")
Next
End Sub
Private Sub Page1_Resize(Width As Int, height As Int)
clvType1.SetSize(Width, height - ItemHeight)
End Sub