Sub Globals
Private TabStrip1 As TabStrip
Private ControlPanel As Panel
Private ControlLabel(10) As Label
Dim Cd As ColorDrawable
Dim LineSpace As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
LineSpace = 28dip 'space between labels / Inputs
Activity.LoadLayout("Main")
TabStrip1.LoadLayout("Page1", "Control Page")
TabStrip1.LoadLayout("Page2", "Blank")
TabStrip1.LoadLayout("Page3", "Blank")
'Create and Display Control Panel
Cd .Initialize2 (Colors.ARGB (255,193,249,202),35,2, Colors.Black)
ControlPanel.Background =Cd
ControlPanel.SetLayout(10dip, 10dip, 418dip, 330dip) ' (Left,Top,Width,Height)
ControlLabel(10) =Array As Label(label1,label2,label3,label4,label5,label6,label7,label8,label9,label10)
Dim Text() As String = Array As String("PubCo","Site Name","M/c Type","M/c Name","Position","AWP Terms","Weekly Rent £","PubCo Share","Shortfall To","M/c Float £")
For X = 0 To 9
Cd.Initialize2 (Colors.ARGB (0,193,249,202),0,0, Colors.Black)
ControlLabel(X).Background = Cd
ControlLabel(X).TextColor = Colors.Black
ControlLabel(X).Gravity = Gravity.right
ControlLabel(X).TextSize= 16
ControlLabel(X).Text= Text(X)
ControlLabel(X).Typeface = Typeface.DEFAULT
ControlLabel(X).SetLayout (5dip, 38dip +(X*LineSpace) , 110dip, 20dip) 'Left,Top,Width,Height
Next
End Sub