ChartDirectorPie Source
Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /kunden/macsw.de/webseiten/monkeybreadsoftware-video/rbformat/rbcode.php on line 244
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
Watch other Xojo videos:
![]() | MBS Xojo Plugins 21.1 (English) 23:12 minutes |
![]() | Installing a Xojo Web App Server (English) 28:19 minutes |
![]() | MBS Plugin Installation Win (English) 22:03 minutes |
![]() | MBS Plugin Installation Mac (English) 25:17 minutes |
![]() | XDC 2020 MBS Plugins Presentation (English) 38:59 minutes |
![]() | MBS Plugins @ MBS 2019 (English) 42:28 minutes |
Links
MBS FileMaker Plugins