Sub LoadDayData(FillData As List)
Dim Bitmap1 As Bitmap
Dim Panel0 As Panel
Dim PanelTop, PanelHeight, Label2Top, ProgressBarTop, ProgressBarWidth As Int
Dim Progress As Int
Bitmap1.Initialize(File.DirAssets,"Icon.png")
PanelTop=0
Panel0=scvMain.Panel
Panel0.Color=Colors.Gray
For i = 0 To FillData.Size - 1
Dim a As Act
a = FillData.Get(i)
Dim Panel1 As Panel
Dim ImageView1 As ImageView
Panel1.Initialize("SchemaLijst")
Panel1.Tag=i&"0"
PanelHeight=99dip
Label2Top=75dip
Panel0.AddView(Panel1,0,PanelTop,100%y, PanelHeight)
Panel1.Color=Colors.Black
Dim Label1, Label2 As Label
Label1.Initialize("SchemaLijst")
Panel1.AddView(Label1,80dip,5dip,240dip,30dip)
Label1.Color=Colors.Black
Label1.Tag=i&"1"
Label1.Text=a.timeFrom
ImageView1.Initialize("SchemaLijst")
ImageView1.Tag=i&"6"
Panel1.AddView(ImageView1,5dip,5dip,65dip,65dip)
ImageView1.Bitmap=Bitmap1
Dim Label3, Label4, Label5 As Label
Label3.Initialize("SchemaLijst")
Panel1.AddView(Label3,80dip,30dip,240dip,30dip)
Label3.Tag=i&"3"
Label3.Text=a.description
Label3.TextSize=11
Label4.Initialize("")
Panel1.AddView(Label4,10dip,70dip,60dip,30dip)
Label4.Tag="Label4"
Label4.Text=""
Label4.TextSize=11
Label4.Gravity=Gravity.CENTER
PanelTop=PanelTop+PanelHeight+1dip
Next
Panel0.Height=PanelTop
End Sub