Sub Globals
Private PieChart1 As PieChart 'the parent is Panel1
Private xui As XUI
Private Panel1 As Panel
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("MAIN")
Dim data As List
data.Initialize
data.Add(PieChart1.CreateSlice("Slice #1", 234, 0)) '0 = random color
data.Add(PieChart1.CreateSlice("Slice #2", 500, xui.Color_Red))
data.Add(PieChart1.CreateSlice("Slice #3", 20, 0))
data.Add(PieChart1.CreateSlice("Slice #4", 200, 0))
PieChart1.SetData(data)
End Sub
Sub Button1_Click
Panel1.Visible=Not (Panel1.Visible)
End Sub