activex - Teechart Multiple box plot for single point -
can plot multiple box polt single point similar in bar chart have multiple bar @ single point.
thanks akshay
you can have multiple boxseries, example here: http://www.teechart.net/support/viewtopic.php?f=3&t=13048&hilit=boxplot
it's delphi example, shouldn't different in activex.
update:
from comments, understand want have boxes in different x positions, , in groups. here simple example of how play positions achieve same:
dim nseries, groupsize integer private sub form_load() dim i, aindex, sindex, lindex, tmpx integer teecommander1.chartlink = tchart1.chartlink 'tchart1.header.text.text = tchart1.version tchart1.aspect.view3d = false tchart1.panel.margintop = 7 tchart1.header.visible = false tchart1.axis.bottom.ticks.visible = false tchart1.axis.bottom.minorticks.visible = false nseries = 8 groupsize = 2 aindex = tchart1.tools.add(tcannotate) tchart1.tools.items(aindex).asannotation.text = "group 1" tmpx = 0 = 0 nseries - 1 sindex = tchart1.addseries(scbox) tchart1.series(sindex).fillsamplevalues tchart1.series(sindex).asboxplot.position = tmpx if (i + 1) mod groupsize tmpx = tmpx + 1 else if + 1 < nseries - 1 lindex = tchart1.tools.add(tccolorline) tchart1.tools.items(lindex).ascolorline.axis = tchart1.axis.bottom tchart1.tools.items(lindex).ascolorline.value = tmpx + 1 tmpx = tmpx + 2 aindex = tchart1.tools.add(tcannotate) tchart1.tools.items(aindex).asannotation.text = "group " + str$(((i + 1) / groupsize) + 1) end if end if next tchart1.environment.internalrepaint end sub private sub tchart1_onafterdraw() dim tmpx integer = 0 tchart1.tools.count - 1 if tchart1.tools.items(i).tooltype = tcannotate tchart1.tools.items(i).asannotation if = tchart1.tools.count - 1 tmpx = tchart1.getchartrect.right else tmpx = tchart1.axis.bottom.calcxposvalue(tchart1.tools.items(i + 1).ascolorline.value) end if if = 0 tmpx = tchart1.getchartrect.left + (tmpx - tchart1.getchartrect.left) / 2 else tmpx = tchart1.axis.bottom.calcxposvalue(tchart1.tools.items(i - 1).ascolorline.value) + (tmpx - tchart1.axis.bottom.calcxposvalue(tchart1.tools.items(i - 1).ascolorline.value)) / 2 end if .left = tmpx - .width / 2 end end if next end sub private sub tchart1_ongetaxislabel(byval axis long, byval seriesindex long, byval valueindex long, labeltext string) if axis = 3 labeltext = " " end if end sub
Comments
Post a Comment