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

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS ChartDirector Plugin.

The biggest plugin in space...

MBS FileMaker Plugins

Start Chat