ChartDirector 7.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", "Times New Roman Bold Italic", 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("Arial Bold", 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, "Arial Bold Italic", 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 = cd.WebChartViewer(Request, "chart1") Call viewer.setChart(c, cd.SVG) ' Include tool tip for the chart viewer.ImageMap = c.getHTMLImageMap("", "", "title='{label}: US${value}K ({percent}%)'") %> <!DOCTYPE html> <html> <head> <title>Pie Chart with Legend (2)</title> <!-- Include ChartDirector Javascript Library to support chart interactions --> <script type="text/javascript" src="cdjcv.js"></script> </head> <body style="margin:5px 0px 0px 5px"> <div style="font:bold 18pt verdana;"> Pie Chart with Legend (2) </div> <hr style="border:solid 1px #000080; background:#000080" /> <div style="font:10pt verdana; margin-bottom:1.5em"> <a href="viewsource.asp?file=<%= Request("SCRIPT_NAME") %>">View Chart Source Code</a> </div> <!-- ****** Here is the chart image ****** --> <%= viewer.renderHTML() %> </body> </html>

[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