Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS ChartDirector Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /ChartDirector/stackradar
This example is the version from Sun, 17th Mar 2012.
Project "stackradar.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class PicWindow Inherits Window
EventHandler Sub Open()
// The data for the chart
dim data0(-1) as double = array(100, 100, 100, 100, 100.0)
dim data1(-1) as double = array(90, 85, 85, 80, 70.0)
dim data2(-1) as double = array(80, 65, 65, 75, 45.0)
// The labels for the chart
dim labels(-1) as string = array("Population<*br*><*font=arial.ttf*>6 millions", "GDP<*br*><*font=arial.ttf*>120 billions", "Export<*br*><*font=arial.ttf*>25 billions", "Import<*br*><*font=arial.ttf*>24 billions", "Investments<*br*><*font=arial.ttf*>20 billions")
// Create a PolarChart object of size 480 x 460 pixels. Set background color to
// silver, with 1 pixel 3D border effect
dim c as new CDPolarChartMBS(480, 460, CDPolarChartMBS.silverColor, &h000000, 1)
// Add a title to the chart using 15 pts Times Bold Italic font. The title text
// is white (ffffff) on a deep green (008000) background
c.addTitle("Economic Growth", "timesbi.ttf", 15, &hffffff).setBackground(&h008000)
// Set plot area center at (240, 270), with 150 pixels radius
c.setPlotArea(240, 270, 150)
// Use 1 pixel width semi-transparent black (c0000000) lines as grid lines
c.setGridColor(&hC0000000, 1, &hC0000000, 1)
// Add a legend box at top-center of plot area (240, 35) using horizontal layout.
// Use 10 pts Arial Bold font, with silver background and 1 pixel 3D border
// effect.
dim b as CDLegendBoxMBS
b = c.addLegend(240, 35, false, "arialbd.ttf", 10)
b.setAlignment(CDPolarChartMBS.kTopCenter)
b.setBackground(CDPolarChartMBS.silverColor, CDPolarChartMBS.kTransparent, 1)
// Add area layers of different colors to represent the data
call c.addAreaLayer(data0, &hcc8880,"Year 2004")
call c.addAreaLayer(data1, &hffd080,"Year 1994")
call c.addAreaLayer(data2, &ha0bce0,"Year 1984")
// Set the labels to the angular axis as spokes.
call c.angularAxis.setLabels(labels)
// Set radial axis from 0 - 100 with a tick every 20 units
c.radialAxis.setLinearScale(0, 100, 20)
// Just show the radial axis as a grid line. Hide the axis labels by setting the
// label color to Transparent
c.radialAxis.setColors(&hC0000000, CDPolarChartMBS.kTransparent)
// Output the chart
Backdrop=c.makeChartPicture
End EventHandler
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project
The items on this page are in the following plugins: MBS ChartDirector Plugin.