MBS Xojo Developer Conference and Training
Join us from 3rd to 6th May 2016 in Berlin, Germany.

MBS Real Studio Plugin Tutorial Videos

ChartDirectorPie Source

Class App
Inherits Application
// Constants
Const kFileQuitShortcut = Ctrl+Q
Const kFileQuit = E&xit
Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
// Controls
ControlInstance
Sub ValueChanged() Handles Event
update
End Sub
End ControlInstance
ControlInstance
Sub ValueChanged() Handles Event
update
End Sub
End ControlInstance
ControlInstance
Sub ValueChanged() Handles Event
update
End Sub
End ControlInstance
ControlInstance
End ControlInstance

// Event implementations
Sub Open()
update
End Sub

// Methods
Protected Sub Update()
dim c as new CDPieChartMBS(Canvas1.Width,canvas1.Height)
dim data(2) as Double
dim labels(2) as string

data(0)=Slider1.Value
data(1)=Slider2.Value
data(2)=Slider3.Value

labels(0)="a"
labels(1)="b"
labels(2)="c"

c.setData data,labels
c.setPieSize Canvas1.Width/2, canvas1.Height/2, 200

dim t as CDTextBoxMBS
t=c.addTitle("Our first chart!", "timesbi.ttf",15, &hFFFFFF)
t.setBackground &h0000cc, 0, c.glassEffect(c.kReducedGlare)

c.set3D 20

c.setExplode 1, 50

c.setTransparentColors

canvas1.Backdrop=c.makeChartPicture
End Sub
End Class


All movies




Links
MBS Real Studio Chart Plugins