ChartDirector 6.0 (ASP/COM/VB Edition)

Pie Chart with Legend (2)




This example demonstrates a pie chart with a legend box, together with many effects, such as gradient color background, rounded frame, soft drop shadow, custom sector colors, sector gradient shading, customized sector labels and using CDML and Parameter Substitution and Formatting to format legend text.

Source Code Listing

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

' The data for the pie chart
data = Array(21, 18, 15, 12, 8, 24)

' The labels for the pie chart
labels = Array("Labor", "Licenses", "Taxes", "Legal", "Facilities", "Production")

' The colors to use for the sectors
colors = Array(&H66aaee, &Heebb22, &Hbbbbbb, &H8844ff, &Hdd2222, &H009900)

' Create a PieChart object of size 600 x 320 pixels. Use a vertical gradient color from light blue
' (99ccff) to white (ffffff) spanning the top 100 pixels as background. Set border to grey (888888).
' Use rounded corners. Enable soft drop shadow.
Set c = cd.PieChart(600, 320)
Call c.setBackground(c.linearGradientColor(0, 0, 0, 100, &H99ccff, &Hffffff), &H888888)
Call c.setRoundedFrame()
Call c.setDropShadow()

' Add a title using 18pt Times New Roman Bold Italic font. Add 16 pixels top margin to the title.
Call c.addTitle("Pie Chart With Legend Demonstration", "timesbi.ttf", 18).setMargin2(0, 0, 16, 0)

' Set the center of the pie at (160, 165) and the radius to 110 pixels
Call c.setPieSize(160, 165, 110)

' Draw the pie in 3D with a pie thickness of 25 pixels
Call c.set3D(25)

' Set the pie data and the pie labels
Call c.setData(data, labels)

' Set the sector colors
Call c.setColors2(cd.DataColor, colors)

' Use local gradient shading for the sectors
Call c.setSectorStyle(cd.LocalGradientShading)

' Use the side label layout method, with the labels positioned 16 pixels from the pie bounding box
Call c.setLabelLayout(cd.SideLayout, 16)

' Show only the sector number as the sector label
Call c.setLabelFormat("{={sector}+1}")

' Set the sector label style to Arial Bold 10pt, with a dark grey (444444) border
Call c.setLabelStyle("arialbd.ttf", 10).setBackground(cd.Transparent, &H444444)

' Add a legend box, with the center of the left side anchored at (330, 175), and using 10pt Arial
' Bold Italic font
Set b = c.addLegend(330, 175, True, "arialbi.ttf", 10)
Call b.setAlignment(cd.Left)

' Set the legend box border to dark grey (444444), and with rounded conerns
Call b.setBackground(cd.Transparent, &H444444)
Call b.setRoundedCorners()

' Set the legend box margin to 16 pixels, and the extra line spacing between the legend entries as 5
' pixels
Call b.setMargin(16)
Call b.setKeySpacing(0, 5)

' Set the legend box icon to have no border (border color same as fill color)
Call b.setKeyBorder(cd.SameAsMainColor)

' Set the legend text to show the sector number, followed by a 120 pixels wide block showing the
' sector label, and a 40 pixels wide block showing the percentage
Call b.setText( _
    "<*block,valign=top*>{={sector}+1}.<*advanceTo=22*><*block,width=120*>{label}<*/*>" & _
    "<*block,width=40,halign=right*>{percent}<*/*>%")

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

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

    Dim cd As New ChartDirector.API

    ' The data for the pie chart
    Dim data()
    data = Array(21, 18, 15, 12, 8, 24)

    ' The labels for the pie chart
    Dim labels()
    labels = Array("Labor", "Licenses", "Taxes", "Legal", "Facilities", "Production")

    ' The colors to use for the sectors
    Dim colors()
    colors = Array(&H66aaee, &Heebb22, &Hbbbbbb, &H8844ff, &Hdd2222, &H009900)

    ' Create a PieChart object of size 600 x 320 pixels. Use a vertical gradient color from light
    ' blue (99ccff) to white (ffffff) spanning the top 100 pixels as background. Set border to grey
    ' (888888). Use rounded corners. Enable soft drop shadow.
    Dim c As PieChart
    Set c = cd.PieChart(600, 320)
    Call c.setBackground(c.linearGradientColor(0, 0, 0, 100, &H99ccff, &Hffffff), &H888888)
    Call c.setRoundedFrame()
    Call c.setDropShadow()

    ' Add a title using 18pt Times New Roman Bold Italic font. Add 16 pixels top margin to the
    ' title.
    Call c.addTitle("Pie Chart With Legend Demonstration", "timesbi.ttf", 18).setMargin2(0, 0, 16,0)

    ' Set the center of the pie at (160, 165) and the radius to 110 pixels
    Call c.setPieSize(160, 165, 110)

    ' Draw the pie in 3D with a pie thickness of 25 pixels
    Call c.set3D(25)

    ' Set the pie data and the pie labels
    Call c.setData(data, labels)

    ' Set the sector colors
    Call c.setColors2(cd.DataColor, colors)

    ' Use local gradient shading for the sectors
    Call c.setSectorStyle(cd.LocalGradientShading)

    ' Use the side label layout method, with the labels positioned 16 pixels from the pie bounding
    ' box
    Call c.setLabelLayout(cd.SideLayout, 16)

    ' Show only the sector number as the sector label
    Call c.setLabelFormat("{={sector}+1}")

    ' Set the sector label style to Arial Bold 10pt, with a dark grey (444444) border
    Call c.setLabelStyle("arialbd.ttf", 10).setBackground(cd.Transparent, &H444444)

    ' Add a legend box, with the center of the left side anchored at (330, 175), and using 10pt
    ' Arial Bold Italic font
    Dim b As LegendBox
    Set b = c.addLegend(330, 175, True, "arialbi.ttf", 10)
    Call b.setAlignment(cd.Left)

    ' Set the legend box border to dark grey (444444), and with rounded conerns
    Call b.setBackground(cd.Transparent, &H444444)
    Call b.setRoundedCorners()

    ' Set the legend box margin to 16 pixels, and the extra line spacing between the legend entries
    ' as 5 pixels
    Call b.setMargin(16)
    Call b.setKeySpacing(0, 5)

    ' Set the legend box icon to have no border (border color same as fill color)
    Call b.setKeyBorder(cd.SameAsMainColor)

    ' Set the legend text to show the sector number, followed by a 120 pixels wide block showing the
    ' sector label, and a 40 pixels wide block showing the percentage
    Call b.setText( _
        "<*block,valign=top*>{={sector}+1}.<*advanceTo=22*><*block,width=120*>{label}<*/*>" & _
        "<*block,width=40,halign=right*>{percent}<*/*>%")

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

    'include tool tip for the chart
    viewer.ImageMap = c.getHTMLImageMap("clickable", "", _
        "title='{label}: US${value}K ({percent}%)'")

End Sub