'Control Panel Inputs
Cd.Initialize2 (Colors.ARGB (255,255,255,255),0,2, Colors.Black)
Dim Data(9) As Int
Data = Array As Int(150dip,275dip,120dip,250dip,35dip,177dip,70dip,60dip,140dip,45dip) ' Label Width Info
Dim Text(10) As String
Text = Array As String("Enterprise","Three Horseshoes - Flackwell Heath","AWP","Queen It's Kind Of Magic 100p","A1","K.Terms","28.98","N/a","PubCo","14") ' ****Default Temp Data *****
For X = 0 To 9
ControlInput(X).Initialize("ControlIn")
ControlInput(X).Background = Cd
ControlInput(X).TextColor = Colors.Black
ControlInput(X).Gravity = Gravity.LEFT+ Gravity.CENTER_VERTICAL
ControlInput(X).TextSize= 20
ControlInput(X).Typeface = Typeface.DEFAULT
ControlInput(X).Tag =X
ControlInput(X).Text = Text(X)
ControlInput(X).Padding = Array As Int (5dip, 0dip, 0dip, 0dip)
ControlPanel.AddView(ControlInput(X),125dip,40dip+(LineSpace *X),Data(X),29dip) ' Linespace = 28dip
Next
'Ajust text size to fit Site Name Box
For X = 1 To 3
SetTextSize(ControlInput(X),ControlInput(X).Text) 'Site Name /Machine Name/
Next