Private Sub createStudentPanel(student As StudentType, left As Long) As View
Dim p As Panel
p.Initialize("p")
'left = left + 1dip
Dim u As Utils
u.Initialize
Dim photoBorder As ImageView
photoBorder.Initialize("photoBorder")
photoBorder.Gravity = Gravity.FILL
Dim b As Bitmap
b.Initialize(File.DirAssets, "circulo-medio.png")
photoBorder.Bitmap = b
Dim StudentPhoto As ImageView
StudentPhoto.Initialize("StudentPhoto")
StudentPhoto.Gravity = Gravity.FILL
StudentPhoto.Bitmap = u.loadPhoto(student.photo)
StudentPhoto.Tag = student.studentId
Dim PanelStudent As Panel
PanelStudent.Initialize("AgendaPanelStudent")
PanelStudent.Color = Colors.Transparent
PanelStudent.Tag = 1
Dim StudentName As Label
StudentName.Initialize("StudentName")
StudentName.Gravity = Gravity.CENTER
StudentName.TextColor = Colors.White
StudentName.Text = student.StudentName
StudentName.Typeface = Typeface.DEFAULT_BOLD
Dim SchoolClass As Label
SchoolClass.Initialize("SchoolClass")
SchoolClass.Gravity = Gravity.left
SchoolClass.TextColor = Colors.White
Dim SchoolPin As ImageView
SchoolPin.Initialize("SchoolPin")
SchoolPin.Gravity = Gravity.FILL
Dim pin As Bitmap
pin.Initialize(File.DirAssets, "icon-pin.png")
SchoolPin.Bitmap = pin
Dim school As Label
school.Initialize("School")
school.Gravity = Gravity.left
school.TextColor = Colors.White
If (student.School.schoolName = Null) Then
school.Text = "Não está matriculado numa escola Schoolastic"
SchoolClass.Text = ""
Else
school.Text = student.School.schoolName
SchoolClass.Text = student.SchoolClass.schoolClassName
End If
Dim top As Long = (ScrollStudent.Height - 0.90*ScrollStudent.Height - 15dip) / 2
p.AddView(StudentName, left, top, 0.80*Activity.Width-left, 30dip)
top = top + 30dip
p.AddView(photoBorder, _
left, _
top, _
0.63*ScrollStudent.Height, 0.63*ScrollStudent.Height)
left = left + 4dip
p.AddView(StudentPhoto, left, top+4dip, 0.63*ScrollStudent.Height - 8dip, 0.63*ScrollStudent.Height - 8dip)
p.AddView(PanelStudent, left, top+4dip, 0.63*ScrollStudent.Height - 8dip, 0.63*ScrollStudent.Height - 8dip)
left = left + StudentPhoto.Width + 15dip
p.AddView(SchoolClass, left, top, 0.60*Activity.Width, 30dip)
top = top + 25dip
If (student.School.schoolName <> Null) Then
p.AddView(SchoolPin, left, top+5, 0.10*ScrollStudent.Height, 0.10*ScrollStudent.Height)
p.AddView(school, left + 0.10*ScrollStudent.Height + 5dip, top, 0.60*Activity.Width-5dip, 30dip)
Else
p.AddView(school, left, top, 0.60*Activity.Width-5dip, 50dip)
End If
Return p
End Sub