ChartDirector 6.0 (ASP/COM/VB Edition)

XY Zooming and Scrolling (Web)




This example demonstrates zooming and scrolling in both horizontal and vertical directions. In addition to using mouse click and drag, this example demonstrates using a WebViewPortControl to visualize and control the viewport. There is also an image map for data point tooltips.

The main source code listing of this sample program is included at the end of this section. The code consists of the following main parts:

When the script starts to run , the first thing it does is to use WebChartViewer.IsPartialUpdateRequest to detect if it is handling an AJAX chart update or an initial page request. If it is an AJAX chart update, it just draws the chart and sends back an AJAX response using WebChartViewer.partialUpdateChart, then terminates the request. If it is an initial page request, it initializes the WebChartViewer, draws the chart, and sends the HTML contents to the browser as usual.

Files in this Demonstration

This sample script requires the following files. When developing your own script using this sample script as a template, please ensure you copy the necessary files to the proper directories (typically the same directory as the script) and reference them using proper paths.

FileDescription
xyzoomscroll.aspMain source code for this demo.
scrollnesw.gif
zoomInIcon.gif
zoomOutIcon.gif
The images used in the push buttons in this demo.
getchart.aspThe standard utility script used in the image url for retrieving the chart image from a session variable (see BaseChart.makeSession).
cdjcv.js
zoomin.cur
zoomout.cur
wait.gif
spacer.gif
The script file for JsChartViewer and JsViewPortControl, and the supporting cursor and image files. They must be in the same directory.

Source Code Listing

[Web Version (in ASP)] aspdemo\xyzoomscroll.asp
<%@ language="vbscript" %>
<%
Set cd = CreateObject("ChartDirector.API")

'
' Initialize the WebChartViewer when the page is first loaded
'
Sub initViewer(viewer)
    '
    ' This example assumes the initial chart is the full chart and we can auto-detect the full data
    ' range in the drawChart code. So we do not need to configure the full range here.
    '
End Sub

'
' Draw the main chart
'
Sub drawChart(viewer)
    '
    ' For simplicity, in this demo, the data arrays are filled with hard coded data. In a real
    ' application, you may use a database or other data source to load up the arrays, and only
    ' visible data (data within the view port) need to be loaded.
    '
    dataX0 = Array(10, 15, 6, -12, 14, -8, 13, -3, 16, 12, 10.5, -7, 3, -10, -5, 2, 5)
    dataY0 = Array(130, 150, 80, 110, -110, -105, -130, -15, -170, 125, 125, 60, 25, 150, 150, 15, _
        120)
    dataX1 = Array(6, 7, -4, 3.5, 7, 8, -9, -10, -12, 11, 8, -3, -2, 8, 4, -15, 15)
    dataY1 = Array(65, -40, -40, 45, -70, -80, 80, 10, -100, 105, 60, 50, 20, 170, -25, 50, 75)
    dataX2 = Array(-10, -12, 11, 8, 6, 12, -4, 3.5, 7, 8, -9, 3, -13, 16, -7.5, -10, -15)
    dataY2 = Array(65, -80, -40, 45, -70, -80, 80, 90, -100, 105, 60, -75, -150, -40, 120, -50, _
        -30)

    ' Create an XYChart object 500 x 480 pixels in size, with light blue (c0c0ff) background
    Set c = cd.XYChart(500, 480, &Hc0c0ff)

    ' Set the plotarea at (50, 40) and of size 400 x 400 pixels. Use light grey (c0c0c0) horizontal
    ' and vertical grid lines. Set 4 quadrant coloring, where the colors alternate between lighter
    ' and deeper grey (dddddd/eeeeee).
    Call c.setPlotArea(50, 40, 400, 400, -1, -1, -1, &Hc0c0c0, &Hc0c0c0).set4QBgColor(&Hdddddd, _
        &Heeeeee, &Hdddddd, &Heeeeee, &H000000)

    ' As the data can lie outside the plotarea in a zoomed chart, we need enable clipping
    Call c.setClipping()

    ' Set 4 quadrant mode, with both x and y axes symetrical around the origin
    Call c.setAxisAtOrigin(cd.XYAxisAtOrigin, cd.XAxisSymmetric + cd.YAxisSymmetric)

    ' Add a legend box at (450, 40) (top right corner of the chart) with vertical layout and 8pt
    ' Arial Bold font. Set the background color to semi-transparent grey (40dddddd).
    Set legendBox = c.addLegend(450, 40, True, "arialbd.ttf", 8)
    Call legendBox.setAlignment(cd.TopRight)
    Call legendBox.setBackground(&H40dddddd)

    ' Add titles to axes
    Call c.xAxis().setTitle("Alpha Index")
    Call c.yAxis().setTitle("Beta Index")

    ' Set axes line width to 2 pixels
    Call c.xAxis().setWidth(2)
    Call c.yAxis().setWidth(2)

    ' The default ChartDirector settings has a denser y-axis grid spacing and less-dense x-axis grid
    ' spacing. In this demo, we want the tick spacing to be symmetrical. We use around 40 pixels
    ' between major ticks and 20 pixels between minor ticks.
    Call c.xAxis().setTickDensity(40, 20)
    Call c.yAxis().setTickDensity(40, 20)

    '
    ' In this example, we represent the data by scatter points. You may modify the code below to use
    ' other layer types (lines, areas, etc).
    '

    ' Add scatter layer, using 11 pixels red (ff33333) X shape symbols
    Call c.addScatterLayer(dataX0, dataY0, "Group A", cd.Cross2Shape(), 11, &Hff3333)

    ' Add scatter layer, using 11 pixels green (33ff33) circle symbols
    Call c.addScatterLayer(dataX1, dataY1, "Group B", cd.CircleShape, 11, &H33ff33)

    ' Add scatter layer, using 11 pixels blue (3333ff) triangle symbols
    Call c.addScatterLayer(dataX2, dataY2, "Group C", cd.TriangleSymbol, 11, &H3333ff)

    '
    ' In this example, we have not explicitly configured the full x and y range. In this case, the
    ' first time syncLinearAxisWithViewPort is called, ChartDirector will auto-scale the axis and
    ' assume the resulting range is the full range. In subsequent calls, ChartDirector will set the
    ' axis range based on the view port and the full range.
    '
    Call viewer.syncLinearAxisWithViewPort("x", c.xAxis())
    Call viewer.syncLinearAxisWithViewPort("y", c.yAxis())

    ' Output the chart
    chartQuery = c.makeSession(Session, viewer.Id)

    ' Include tool tip for the chart
    imageMap = c.getHTMLImageMap("", "", "title='[{dataSetName}] Alpha = {x|G}, Beta = {value|G}'")

    ' Set the chart URL, image map and chart metrics to the viewer
    viewer.ImageUrl = "getchart.asp?" & chartQuery
    viewer.ImageMap = imageMap
    viewer.ChartMetrics = c.getChartMetrics()
End Sub

'
' Draw the thumbnail chart in the WebViewPortControl
'
Sub drawFullChart(vp, viewer)
    '
    ' For simplicity, in this demo, the data arrays are filled with hard coded data. In a real
    ' application, you may use a database or other data source to load up the arrays. As this is a
    ' small thumbnail chart, complete data may not be needed. For exmaple, if there are a million
    ' points, a random sample may already be sufficient for the thumbnail chart.
    '
    dataX0 = Array(10, 15, 6, -12, 14, -8, 13, -3, 16, 12, 10.5, -7, 3, -10, -5, 2, 5)
    dataY0 = Array(130, 150, 80, 110, -110, -105, -130, -15, -170, 125, 125, 60, 25, 150, 150, 15, _
        120)
    dataX1 = Array(6, 7, -4, 3.5, 7, 8, -9, -10, -12, 11, 8, -3, -2, 8, 4, -15, 15)
    dataY1 = Array(65, -40, -40, 45, -70, -80, 80, 10, -100, 105, 60, 50, 20, 170, -25, 50, 75)
    dataX2 = Array(-10, -12, 11, 8, 6, 12, -4, 3.5, 7, 8, -9, 3, -13, 16, -7.5, -10, -15)
    dataY2 = Array(65, -80, -40, 45, -70, -80, 80, 90, -100, 105, 60, -75, -150, -40, 120, -50, _
        -30)

    ' Create an XYChart object 120 x 120 pixels in size
    Set c = cd.XYChart(120, 120)

    ' Set the plotarea to cover the entire chart and with no grid lines. Set 4 quadrant coloring,
    ' where the colors alternate between lighter and deeper grey (d8d8d8/eeeeee).
    Call c.setPlotArea(0, 0, c.getWidth() - 1, c.getHeight() - 1, -1, -1, -1, cd.Transparent _
        ).set4QBgColor(&Hd8d8d8, &Heeeeee, &Hd8d8d8, &Heeeeee, &H000000)

    ' Set 4 quadrant mode, with both x and y axes symetrical around the origin
    Call c.setAxisAtOrigin(cd.XYAxisAtOrigin, cd.XAxisSymmetric + cd.YAxisSymmetric)

    ' The x and y axis scales reflect the full range of the view port
    Call c.xAxis().setLinearScale(viewer.getValueAtViewPort("x", 0), viewer.getValueAtViewPort( _
        "x", 1), cd.NoValue)
    Call c.yAxis().setLinearScale(viewer.getValueAtViewPort("y", 0), viewer.getValueAtViewPort( _
        "y", 1), cd.NoValue)

    ' Add scatter layer, using 5 pixels red (ff33333) X shape symbols
    Call c.addScatterLayer(dataX0, dataY0, "Group A", cd.Cross2Shape(), 5, &Hff3333)

    ' Add scatter layer, using 5 pixels green (33ff33) circle symbols
    Call c.addScatterLayer(dataX1, dataY1, "Group B", cd.CircleShape, 5, &H33ff33)

    ' Add scatter layer, using 5 pixels blue (3333ff) triangle symbols
    Call c.addScatterLayer(dataX2, dataY2, "Group C", cd.TriangleSymbol, 5, &H3333ff)

    ' Output the chart
    chartQuery = c.makeSession(Session, vp.Id)

    ' Set the chart URL and chart metrics to the viewport control
    vp.ImageUrl = "getchart.asp?" & chartQuery
    vp.ChartMetrics = c.getChartMetrics()
End Sub

'
' This script handles both the full page request, as well as the subsequent partial updates (AJAX
' chart updates). We need to determine the type of request first before we processing it.
'

' Create the WebChartViewer object
Set viewer = cd.WebChartViewer(Request, "chart1")

If viewer.IsPartialUpdateRequest Then
    ' Is a partial update request. Draw the chart and perform a partial response.
    Call drawChart(viewer)
    Response.Write viewer.partialUpdateChart()
    Response.End
End If

'
' If the code reaches here, it is a full page request.
'

' Initialize the WebChartViewer and draw the chart.
Call initViewer(viewer)
Call drawChart(viewer)

' Draw a thumbnail chart representing the full range in the WebViewPortControl
Set viewPortCtrl = cd.WebViewPortControl("fullchart1")
Call drawFullChart(viewPortCtrl, viewer)
%>
<!DOCTYPE html>
<html>
<head>
    <title>XY Zooming and Scrolling</title>
    <script type="text/javascript" src="cdjcv.js"></script>
    <style type="text/css">
        .chartButton { font:12px Verdana; border-bottom:#000000 1px solid; padding:5px; cursor:pointer;}
        .chartButtonSpacer { font:12px Verdana; border-bottom:#000000 1px solid; padding:5px;}
        .chartButton:hover { box-shadow:inset 0px 0px 0px 2px #444488; }
        .chartButtonPressed { background-color: #CCFFCC; }
    </style>
</head>
<body style="margin:0px">
<script type="text/javascript">

//
// Execute the following initialization code after the web page is loaded
//
JsChartViewer.addEventListener(window, 'load', function() {
    // Update the chart when the view port has changed (eg. when the user zooms in using the mouse)
    var viewer = JsChartViewer.get('<%=viewer.Id%>');
    viewer.attachHandler("ViewPortChanged", viewer.partialUpdate);

    // Set the zoom and scroll mode to bi-directional
    viewer.setScrollDirection(JsChartViewer.HorizontalVertical);
    viewer.setZoomDirection(JsChartViewer.HorizontalVertical);

    // Set the initial mouse usage to "zoom in"
    setMouseMode(JsChartViewer.ZoomIn);

    // Initialize the view port control
    var viewPortCtrl = JsViewPortControl.get('<%=viewPortCtrl.Id%>');
    // Set the mask color to semi-transparent black
    viewPortCtrl.setViewPortExternalColor("#80000000");
    // Set the selection rectangle border to white
    viewPortCtrl.setSelectionBorderStyle("1px solid white");
    // Bind the view port control to the chart viewer
    viewPortCtrl.setViewer(viewer);
});

//
// This method is called when the user clicks on the Pointer, Zoom In or Zoom Out buttons
//
function setMouseMode(mode)
{
    var viewer = JsChartViewer.get('<%=viewer.Id%>');
    if (mode == viewer.getMouseUsage())
        mode = JsChartViewer.Default;

    // Set the button color based on the selected mouse mode
    document.getElementById("scrollButton").className = "chartButton" +
        ((mode  == JsChartViewer.Scroll) ? " chartButtonPressed" : "");
    document.getElementById("zoomInButton").className = "chartButton" +
        ((mode  == JsChartViewer.ZoomIn) ? " chartButtonPressed" : "");
    document.getElementById("zoomOutButton").className = "chartButton" +
        ((mode  == JsChartViewer.ZoomOut) ? " chartButtonPressed" : "");

    // Set the mouse mode
    viewer.setMouseUsage(mode);
}

</script>
<form method="post">
<table cellspacing="0" cellpadding="0" style="border:black 1px solid;">
    <tr>
        <td align="right" colspan="2" style="background:#000088; color:#ffff00; padding:0px 4px 2px 0px;">
            <a style="color:#FFFF00; font:italic bold 10pt Arial; text-decoration:none" href="http://www.advsofteng.com/">
                Advanced Software Engineering
            </a>
        </td>
    </tr>
    <tr valign="top">
        <td style="width:130px; background:#e0e0e0;">
            <!-- The following table is to create 3 cells for 3 buttons to control the mouse usage mode. -->
            <table cellspacing="0" cellpadding="0" width="100%" border="0">
                <tr>
                    <td class="chartButton" id="scrollButton" onclick="setMouseMode(JsChartViewer.Scroll)"
                        ontouchstart="this.onclick(event); event.preventDefault();">
                        <img src="scrollnesw.gif" style="vertical-align:middle" alt="Drag" />&nbsp;&nbsp;Drag to Scroll
                    </td>
                </tr>
                <tr>
                    <td class="chartButton" id="zoomInButton" onclick="setMouseMode(JsChartViewer.ZoomIn)"
                        ontouchstart="this.onclick(event); event.preventDefault();">
                        <img src="zoomInIcon.gif" style="vertical-align:middle" alt="Zoom In" />&nbsp;&nbsp;Zoom In
                    </td>
                </tr>
                <tr>
                    <td class="chartButton" id="zoomOutButton" onclick="setMouseMode(JsChartViewer.ZoomOut)"
                        ontouchstart="this.onclick(event); event.preventDefault();">
                        <img src="zoomOutIcon.gif" style="vertical-align:middle" alt="Zoom Out" />&nbsp;&nbsp;Zoom Out
                    </td>
                </tr>
            </table>
            <br /><br /><br /><br /><br />
            <div style="text-align:center;">
                <!-- ****** Here is the view port control ****** -->
                <%=viewPortCtrl.renderHTML()%>
            </div>
        </td>
        <td style="border-left: black 1px solid; background-color: #c0c0ff; padding:5px">
            <!-- ****** Here is the chart image ****** -->
            <%=viewer.renderHTML()%>
        </td>
    </tr>
</table>
</form>
</body>
</html>