Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MBS Xojo 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 Xojo PDF Plugins