Example: /ChartDirector/gradientbar

Online Documentation   -   Statistics   -   FAQ   -   Plugin Parts (All, Dependencies)   -   Class hierarchy

New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1

The list of the   topics,   classes,   interfaces,   controls,   modules,   global methods by category,   global methods by name,   screenshots,   licenses   and   examples.

Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/gradientbar


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

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


💬 Ask a question or report a problem