Sub TabStripSetup
Dim TabPages As List
TabPages.Initialize
Dim cs As CSBuilder
Dim TutteP,StudentiP,GenitoriP,InsegnantiP As Page
TutteP.Initialize("TutteP")
TutteP.RootPanel.LoadLayout("Tutte")
SetAttributedTitle(TutteP,cs.Initialize.Color(Colors.White). Append("Tutte").PopAll)
TabPages.Add(TutteP)
StudentiP.Initialize("StudentiP")
StudentiP.RootPanel.LoadLayout("Studenti")
SetAttributedTitle(StudentiP,cs.Initialize.Color(Colors.White).Append("Studenti").PopAll)
TabPages.Add(StudentiP)
GenitoriP.Initialize("GenitoriP")
GenitoriP.RootPanel.LoadLayout("Genitori")
SetAttributedTitle(GenitoriP,cs.Initialize.Color(Colors.White).Append("Genitori").PopAll)
TabPages.Add(GenitoriP)
If LoginCheck Then
InsegnantiP.Initialize("InsegnantiP")
InsegnantiP.RootPanel.LoadLayout("Insegnanti")
SetAttributedTitle(InsegnantiP,cs.Initialize.Color(Colors.White).Append("Insegnanti").PopAll)
TabPages.Add(InsegnantiP)
InsegnantiListView.AsView.Tag = 2
InsegnantiListView.AnimationDuration = 0
End If
TabStrip1.SetPages(TabPages)
StudentiListView.AsView.Tag = 0
GenitoriListView.AsView.Tag = 1
TutteListView.AsView.Tag = 3
TopPanel = xui.CreatePanel("")
TopPanel.SetLayoutAnimated(0, 0, 0, MainPage.RootPanel.Width, 70dip)
TopPanel.LoadLayout("top")
StudentiListView.AnimationDuration = 0
GenitoriListView.AnimationDuration = 0
TutteListView.AnimationDuration = 0
End Sub