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/gradientbar
This example is the version from Sun, 17th Mar 2012.
Project "gradientbar.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 bar chart dim data(-1) as double = array(1350.0, 1600, 1950, 2300, 2700) // The labels for the bar chart dim labels(-1) as string = array("2001", "2002", "2003", "2004", "2005") // The colors for the bars dim colors(-1) as integer Colors.Append &hcc0000 Colors.Append &h66aaee Colors.Append &heebb22 Colors.Append &hcccccc Colors.Append &hcc88ff // Create a PieChart object of size 600 x 380 pixels. dim c as new CDXYChartMBS(600, 380) // Use the white on black palette, which means the default text and line colors // are white c.setWhiteOnBlackColors // Use a vertical gradient color from blue (0000cc) to deep blue (000044) as // background. Use rounded corners of 30 pixels radius for the top-left and // bottom-right corners. c.setBackground(c.linearGradientColor(0, 0, 0, c.getHeight, &h0000cc, &h000044)) c.setRoundedFrame(&hffffff, 30, 0, 30, 0) // Add a title using 18 pts Times New Roman Bold Italic font. Add 6 pixels top // and bottom margins to the title. dim title as CDTextBoxMBS = c.addTitle("Annual Revenue for Star Tech", "timesbi.ttf", 18) title.setMargin(0, 0, 6, 6) // Add a separator line in white color just under the title call c.addLine(20, title.getHeight, c.getWidth - 21, title.getHeight, &hffffff) // Tentatively set the plotarea at (70, 80) and of 480 x 240 pixels in size. Use // transparent border and white grid lines call c.setPlotArea(70, 80, 480, 240, -1, -1, CDXYChartMBS.kTransparent, &hffffff) // Swap the axis so that the bars are drawn horizontally c.swapXY // Add a multi-color bar chart layer using the supplied data. Use bar gradient // lighting with the light intensity from 0.75 to 2.0 call c.addBarLayer(data, colors).setBorderColor(CDXYChartMBS.kTransparent, CDXYChartMBS.barLighting(0.75, 2.0)) // Set the labels on the x axis. call c.xAxis.setLabels(labels) // Show the same scale on the left and right y-axes c.syncYAxis // Set the bottom y-axis title using 10pt Arial Bold font call c.yAxis.setTitle("USD (millions)", "arialbd.ttf", 10) // Set y-axes to transparent c.yAxis.setColors(CDXYChartMBS.kTransparent) c.yAxis2.setColors(CDXYChartMBS.kTransparent) // Disable ticks on the x-axis by setting the tick color to transparent c.xAxis.setTickColor(CDXYChartMBS.kTransparent) // Set the label styles of all axes to 8pt Arial Bold font call c.xAxis.setLabelStyle("arialbd.ttf", 8) call c.yAxis.setLabelStyle("arialbd.ttf", 8) call c.yAxis2.setLabelStyle("arialbd.ttf", 8) // Adjust the plot area size, such that the bounding box (inclusive of axes) is // 30 pixels from the left edge, 25 pixels below the title, 50 pixels from the // right edge, and 25 pixels from the bottom edge. c.packPlotArea(30, title.getHeight + 25, c.getWidth - 50, c.getHeight - 25) // 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 Xojo blog

Start Chat