Platforms to show: All Mac Windows Linux Cross-Platform

/ChartDirector/Tracking Cursor/Track Line with Legend Retina
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/Tracking Cursor/Track Line with Legend Retina
This example is the version from Wed, 13th Dec 2016.
Project "Track Line with Legend Retina.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control Canvas1 Inherits MyControl
ControlInstance Canvas1 Inherits MyControl
End Control
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
Class MyControl Inherits Canvas
EventHandler Sub MouseMove(X As Integer, Y As Integer) trackLineLegend x pic = c.makeChartPicture me.Invalidate End EventHandler
EventHandler Sub Open() CDBaseChartMBS.ScaleFactor = 2 // Data for the chart as 3 random data series dim r as new CDRanSeriesMBS(127) dim data0(-1) as double = r.getSeries(100, 100, -15, 15) dim data1(-1) as double = r.getSeries(100, 150, -15, 15) dim data2(-1) as double = r.getSeries(100, 200, -15, 15) dim timeStamps(-1) as double = r.getDateSeries(100, CDBaseChartMBS.chartTime(2011, 1, 1), 86400, false) // Create a XYChart object of size 640 x 400 pixels c = new CDXYChartMBS(640, 400) // Add a title to the chart using 18 pts Times New Roman Bold Italic font call c.addTitle(" Product Line Global Revenue", "timesbi.ttf", 18) // Set the plotarea at (50, 55) with width 70 pixels less than chart width, and height 90 pixels // less than chart height. Use a vertical gradient from light blue (f0f6ff) to sky blue (a0c0ff) // as background. Set border to transparent and grid lines to white (ffffff). call c.setPlotArea(50, 55, c.getWidth - 70, c.getHeight - 90, c.linearGradientColor(0, 55, 0, c.getHeight - 35, &hf0f6ff, &ha0c0ff), -1, CDBaseChartMBS.kTransparent, &hffffff, &hffffff) // Set legend icon style to use line style icon, sized for 8pt font c.getLegend.setLineStyleKey c.getLegend.setFontSize(8) // Set axis label style to 8pts Arial Bold call c.xAxis.setLabelStyle("arialbd.ttf", 8) call c.yAxis.setLabelStyle("arialbd.ttf", 8) // Set the axis stem to transparent c.xAxis.setColors(CDBaseChartMBS.kTransparent) c.yAxis.setColors(CDBaseChartMBS.kTransparent) // Configure x-axis label format call c.xAxis.setMultiFormat(CDBaseChartMBS.StartOfYearFilter, "{value|mm/yyyy} ", CDBaseChartMBS.StartOfMonthFilter, "{value|mm}") // Add axis title using 10pts Arial Bold Italic font call c.yAxis.setTitle("USD millions", "arialbi.ttf", 10) // Add a line layer to the chart using a line width of 2 pixels. dim layer as CDLineLayerMBS = c.addLineLayer layer.setLineWidth(2) // Add 3 data series to the line layer layer.setXData(timeStamps) call layer.addDataSet(data0, &hff3333, "Alpha") call layer.addDataSet(data1, &h008800, "Beta") call layer.addDataSet(data2, &h3333cc, "Gamma") // Include track line with legend for the latest data values trackLineLegend(c.getPlotArea.getRightX) pic = c.makeChartPicture // fix some properties if set wrong in IDE me.DoubleBuffer = false me.EraseBackground = false #if RBVersion >= 2013.0 then me.Transparent = False #endif End EventHandler
EventHandler Sub Paint(g As Graphics, areas() As REALbasic.Rect) g.DrawPicture pic, 0, 0, g.Width, g.Height, 0, 0, pic.Width, pic.Height End EventHandler
Sub trackLineLegend(mouseX as integer) // Clear the current dynamic layer and get the DrawArea object to draw on it. dim d as cdDrawAreaMBS = c.initDynamicLayer // The plot area object dim plotArea as cdPlotAreaMBS = c.getPlotArea // check if we are outside the plotArea if mousex<plotArea.getLeftX then Return if mousey<plotArea.getTopY then Return if mousex>plotArea.getRightX then Return if mousey>plotArea.getBottomY then Return // Get the data x-value that is nearest to the mouse, and find its pixel coordinate. dim xValue as double = c.getNearestXValue(mouseX) dim xCoor as integer = c.getXCoor(xValue) // Draw a vertical track line at the x-position d.vline(plotArea.getTopY, plotArea.getBottomY, xCoor, d.dashLineColor(&h000000, &h0101)) // Container to hold the legend entries dim legendEntries(-1) as string // Iterate through all layers to build the legend array dim u as integer = c.getLayerCount-1 for i as integer = 0 to u dim layer as CDLayerMBS = c.getLayerByZ(i) // The data array index of the x-value dim xIndex as integer = layer.getXIndexOf(xValue) // Iterate through all the data sets in the layer dim uu as integer = layer.getDataSetCount-1 for j as integer = 0 to uu dim dataSet as CDDataSetMBS = layer.getDataSetByZ(j) // We are only interested in visible data sets with names dim dataName as string = dataSet.getDataName dim colorvalue as integer = dataSet.getDataColor if (dataName.len>0 and (colorvalue <> CDBaseChartMBS.kTransparent)) then // Build the legend entry, consist of the legend icon, name and data value. dim dataValue as double = dataSet.getValue(xIndex) dim legendEntry as string dim s as string = "N/A" if dataValue <> CDBaseChartMBS.kNoValue then s = c.formatValue(dataValue, "{value|P4}") end if legendEntry = "<*block*>" + dataSet.getLegendIcon + " " + dataName + ": " + s + "<*/*>" legendEntries.Append legendEntry // Draw a track dot for data points within the plot area dim yCoor as integer = c.getYCoor(dataSet.getPosition(xIndex), dataSet.getUseYAxis) if ((yCoor >= plotArea.getTopY) and (yCoor <= plotArea.getBottomY)) then, yCoor, 4, 4, colorvalue, colorvalue) end if end if next next // Create the legend by joining the legend entries dim legendText as string legendText = "<*block,maxWidth=" + str(plotArea.getWidth) + "*><*block*><*font=arialbd.ttf*>[" + c.xAxis.getFormattedLabel(xValue, "mmm dd, yyyy") + "]<*/*>" for i as integer = UBound(legendEntries) downto 0 legendText = legendText+ " " + legendEntries(i) next // Display the legend on the top of the plot area dim t as CDTTFTextMBS = d.text(legendText, "arial.ttf", 8) t.draw(plotArea.getLeftX + 5, plotArea.getTopY - 3, &h000000, CDBaseChartMBS.kBottomLeft) 't.destroy End Sub
Note "Notes"
This sample program demonstrates a track cursor programmed with the following features: * A vertical line that follows the mouse cursor on the plot area and snaps to the nearest x data value. * Small dots that shows the data points at the nearest x data value. * Dynamically updated legend entries that shows the value of the data points at the nearest x data value. The code first draws the chart, and sets the track cursor to the right side of the plot area. This ensures the chart initially has a legend that reflects the latest data values. We hide tracking if mouse is out of plotarea. The trackLineLegend method is the routine that draws the track cursor. Its key elements are: * To draw dynamic contents on the chart, the code obtains the DrawArea object for drawing on the dynamic layer of the chart using BaseChart.initDynamicLayer. * The nearest x data value is obtained using XYChart.getNearestXValue. * A vertical line is drawn at the nearest x data value using DrawArea.vline. * The code then iterates through all data sets in all layers to find all the data points at the nearest x data value. For each of these points, it formats a legend entry for the point, which consists of the data set icon (obtained using DataSet.getLegendIcon), data set name (obtained using DataSet.getDataName), and data value (obtained using DataSet.getValue). The code also gets the point's y position using DataSet.getPosition, and draws a circular dot using * Finally, the code combines all the legend entries and draws them at the top of the plot area using DrawArea.text.
Property c As CDXYChartMBS
Property pic As Picture
End Class
End Project

See also:

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