ChartDirector 6.0 (ASP/COM/VB Edition)

Text Styles and Colors (2)




This example demonstrates controlling text style and colors in various text containing objects (chart and axis titles, axis labels, legend keys, data labels, etc).

The chart title, y-axis title, y-axis labels, x-axis labels, legend keys, and the data labels are configured with different fonts and colors, and have different background and 3D border effects. The y-axis labels are appended with "Mbytes" as the unit. The x-axis labels are rotated 45 degrees.

Note that since ChartDirector Ver 3.0, you may use CDML to produce more sophisticated formatting effects than demonstrated in this example.

Source Code Listing

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

' The data for the chart
data0 = Array(100, 125, 245, 147, 67)
data1 = Array(85, 156, 179, 211, 123)
data2 = Array(97, 87, 56, 267, 157)
labels = Array("Mon Jun 4", "Tue Jun 5", "Wed Jun 6", "Thu Jun 7", "Fri Jun 8")

' Create a XYChart object of size 540 x 350 pixels
Set c = cd.XYChart(540, 350)

' Set the plot area to start at (120, 40) and of size 280 x 240 pixels
Call c.setPlotArea(120, 40, 280, 240)

' Add a title to the chart using 20pt Times Bold Italic (timesbi.ttf) font and using a deep blue
' color (0x000080)
Call c.addTitle("Weekly Server Load", "timesbi.ttf", 20, &H000080)

' Add a legend box at (420, 100) (right of plot area) using 12pt Times Bold font. Sets the
' background of the legend box to light grey 0xd0d0d0 with a 1 pixel 3D border.
Call c.addLegend(420, 100, True, "timesbd.ttf", 12).setBackground(&Hd0d0d0, &Hd0d0d0, 1)

' Add a title to the y-axis using 12pt Arial Bold/deep blue (0x000080) font. Set the background to
' yellow (0xffff00) with a 2 pixel 3D border.
Call c.yAxis().setTitle("Throughput (per hour)", "arialbd.ttf", 12, &H000080).setBackground( _
    &Hffff00, &Hffff00, 2)

' Use 10pt Arial Bold/orange (0xcc6600) font for the y axis labels
Call c.yAxis().setLabelStyle("arialbd.ttf", 10, &Hcc6600)

' Set the axis label format to "nnn MBytes"
Call c.yAxis().setLabelFormat("{value} MBytes")

' Use 10pt Arial Bold/green (0x008000) font for the x axis labels. Set the label angle to 45
' degrees.
Call c.xAxis().setLabelStyle("arialbd.ttf", 10, &H008000).setFontAngle(45)

' Set the labels on the x axis.
Call c.xAxis().setLabels(labels)

' Add a 3D stack bar layer with a 3D depth of 5 pixels
Set layer = c.addBarLayer2(cd.Stack, 5)

' Use Arial Italic as the default data label font in the bars
Call layer.setDataLabelStyle("ariali.ttf")

' Use 10pt Times Bold Italic (timesbi.ttf) as the aggregate label font. Set the background to flesh
' (0xffcc66) color with a 1 pixel 3D border.
Call layer.setAggregateLabelStyle("timesbi.ttf", 10).setBackground(&Hffcc66, cd.Transparent, 1)

' Add the first data set to the stacked bar layer
Call layer.addDataSet(data0, -1, "Server #1")

' Add the second data set to the stacked bar layer
Call layer.addDataSet(data1, -1, "Server #2")

' Add the third data set to the stacked bar layer, and set its data label font to Arial Bold Italic.
Set textbox = layer.addDataSet(data2, -1, "Server #3").setDataLabelStyle("arialbi.ttf")

' Set the data label font color for the third data set to yellow (0xffff00)
Call textbox.setFontColor(&Hffff00)

' Set the data label background color to the same color as the bar segment, with a 1 pixel 3D
' border.
Call textbox.setBackground(cd.SameAsMainColor, cd.Transparent, 1)

' Output the chart
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)
Response.End
%>

[Windows Version (in Visual Basic)] vbdemo\fontxy.cls
Public Sub createChart(viewer As Object, chartIndex As Integer)

    Dim cd As New ChartDirector.API

    ' The data for the chart
    Dim data0()
    data0 = Array(100, 125, 245, 147, 67)
    Dim data1()
    data1 = Array(85, 156, 179, 211, 123)
    Dim data2()
    data2 = Array(97, 87, 56, 267, 157)
    Dim labels()
    labels = Array("Mon Jun 4", "Tue Jun 5", "Wed Jun 6", "Thu Jun 7", "Fri Jun 8")

    ' Create a XYChart object of size 540 x 350 pixels
    Dim c As XYChart
    Set c = cd.XYChart(540, 350)

    ' Set the plot area to start at (120, 40) and of size 280 x 240 pixels
    Call c.setPlotArea(120, 40, 280, 240)

    ' Add a title to the chart using 20pt Times Bold Italic (timesbi.ttf) font and using a deep blue
    ' color (0x000080)
    Call c.addTitle("Weekly Server Load", "timesbi.ttf", 20, &H000080)

    ' Add a legend box at (420, 100) (right of plot area) using 12pt Times Bold font. Sets the
    ' background of the legend box to light grey 0xd0d0d0 with a 1 pixel 3D border.
    Call c.addLegend(420, 100, True, "timesbd.ttf", 12).setBackground(&Hd0d0d0, &Hd0d0d0, 1)

    ' Add a title to the y-axis using 12pt Arial Bold/deep blue (0x000080) font. Set the background
    ' to yellow (0xffff00) with a 2 pixel 3D border.
    Call c.yAxis().setTitle("Throughput (per hour)", "arialbd.ttf", 12, &H000080).setBackground( _
        &Hffff00, &Hffff00, 2)

    ' Use 10pt Arial Bold/orange (0xcc6600) font for the y axis labels
    Call c.yAxis().setLabelStyle("arialbd.ttf", 10, &Hcc6600)

    ' Set the axis label format to "nnn MBytes"
    Call c.yAxis().setLabelFormat("{value} MBytes")

    ' Use 10pt Arial Bold/green (0x008000) font for the x axis labels. Set the label angle to 45
    ' degrees.
    Call c.xAxis().setLabelStyle("arialbd.ttf", 10, &H008000).setFontAngle(45)

    ' Set the labels on the x axis.
    Call c.xAxis().setLabels(labels)

    ' Add a 3D stack bar layer with a 3D depth of 5 pixels
    Dim layer As BarLayer
    Set layer = c.addBarLayer2(cd.Stack, 5)

    ' Use Arial Italic as the default data label font in the bars
    Call layer.setDataLabelStyle("ariali.ttf")

    ' Use 10pt Times Bold Italic (timesbi.ttf) as the aggregate label font. Set the background to
    ' flesh (0xffcc66) color with a 1 pixel 3D border.
    Call layer.setAggregateLabelStyle("timesbi.ttf", 10).setBackground(&Hffcc66, cd.Transparent, 1)

    ' Add the first data set to the stacked bar layer
    Call layer.addDataSet(data0, -1, "Server #1")

    ' Add the second data set to the stacked bar layer
    Call layer.addDataSet(data1, -1, "Server #2")

    ' Add the third data set to the stacked bar layer, and set its data label font to Arial Bold
    ' Italic.
    Dim textbox As ChartDirector.TextBox
    Set textbox = layer.addDataSet(data2, -1, "Server #3").setDataLabelStyle("arialbi.ttf")

    ' Set the data label font color for the third data set to yellow (0xffff00)
    Call textbox.setFontColor(&Hffff00)

    ' Set the data label background color to the same color as the bar segment, with a 1 pixel 3D
    ' border.
    Call textbox.setBackground(cd.SameAsMainColor, cd.Transparent, 1)

    ' Output the chart
    Set viewer.Picture = c.makePicture()

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
        "title='{dataSetName} on {xLabel}: {value} MBytes/hour'")

End Sub