B4A Library [B4X] [XUI] Pie Chart

A simple, cross platform, pie chart class based on XUI library.

Implemented as a custom view. Add it with the designer and set the data with:

Code:

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)

A B4J project is attached. The class is inside.

 

V1.01 uploaded. Fixes an issue when there is a single item.