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/treemaplayout
This example is the version from Fri, 29th Apr 2021.
Project "treemaplayout.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
EventHandler Sub Open() CDBaseChartMBS.ScaleFactor = 2 // Labels for the tree map Dim energy_types() As String = Array("Coal", "Oil", "Gas", "Nuclear", "Hydro", "Solar", "Wind", "Biomass", "Geothermal", "Wave") For chartIndex As Integer = 0 To 4 // Random data for the tree map Dim r As New CDRanSeriesMBS(3) Dim data() As Double = r.getSeries(20, 20, 400) // Create a Tree Map object of size 300 x 300 pixels Dim c As New CDTreeMapChartMBS(300, 300) c.setPlotArea(20, 20, 260, 260) // Obtain the root of the tree map, which is the entire plot area Dim root As CDTreeMapNodeMBS = c.RootNode // Add first level nodes to the root. root.setData(data) If chartIndex = 0 Then // Squarity - Layout the cells so that they are as square as possible. Call c.addTitle("Squarify") root.setLayoutMethod(CDBaseChartMBS.kTreeMapSquarify) Elseif (chartIndex = 1) Then // Strip layout - Cells flow from left to right, top to bottom. The number of cells in each // row is such that they will be as close to a square as possible. (The setLayoutMethod also // supports other flow directions.) Call c.addTitle("Strip") root.setLayoutMethod(CDBaseChartMBS.kTreeMapStrip) Elseif (chartIndex = 2) Then // Binary Split by Size - Split the cells into left/right groups so that their size are as // close as possible. For each group, split the cells into top/bottom groups using the same // criteria. Continue until each group contains one cell. (The setLayoutMethod also supports // other flow directions.) Call c.addTitle("Binary Split by Size") root.setLayoutMethod(CDBaseChartMBS.kTreeMapBinaryBySize) Elseif (chartIndex = 3) Then // Binary Split by Count - Same as "Binary Split by Size", except that the cell count // (instead of the size) is used to split the cells. Call c.addTitle("Binary Split by Count") root.setLayoutMethod(CDBaseChartMBS.kTreeMapBinaryByMid) Elseif (chartIndex = 4) Then // Binary Split by Size (Sorted) - Same as "Binary Split by Size" except the cells are // sorted first. Call c.addTitle("Binary Split by Size (Sorted)") root.setSorting(-1) root.setLayoutMethod(CDBaseChartMBS.kTreeMapBinaryBySize) end if // Get the prototype (template) for the first level nodes. Dim nodeConfig As CDTreeMapNodeMBS = c.getLevelPrototype(1) // Set the label format for the nodes to show the label and value with 8pt Arial Bold font in // black color (000000) and center aligned in the node. nodeConfig.setLabelFormat("{index}", "Arial", 8, &h000000, CDBaseChartMBS.kCenter) // Set automatic fill color and white (ffffff) border nodeConfig.setColors(CDBaseChartMBS.kDataColor, &hffffff) // Output the chart Dim pic As Picture = c.makeChartPicture Dim w As New MainWindow w.Title = "Tree Map Layout " + Str(chartIndex) w.pic = pic Next End EventHandler
End Class
Class MainWindow Inherits Window
EventHandler Sub Paint(g As Graphics, areas() As REALbasic.Rect) If pic <> Nil Then // scale to window g.DrawPicture pic, 0, 0, g.Width, g.Height, 0, 0, pic.Width, pic.Height End If End EventHandler
Property pic As Picture
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
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 PDF Plugins

Start Chat