MBS Xojo Plugin Tutorial Videos

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


 

All movies