Download QCChart2D User Manual - Quinn

324 Zooming
SimpleDataset Dataset4 = new SimpleDataset("Fourth",x1,y4);
SimpleDataset Dataset5 = new SimpleDataset("Fifth", x1,y5);
CartesianCoordinates pTransform1 =
new CartesianCoordinates( ChartObj.LINEAR_SCALE, ChartObj.LINEAR_SCALE);
pTransform1.AutoScale(Dataset1, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR);
CartesianCoordinates pTransform2 =
new CartesianCoordinates( ChartObj.LINEAR_SCALE, ChartObj.LINEAR_SCALE);
pTransform2.AutoScale(Dataset2, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR);
CartesianCoordinates pTransform3 =
new CartesianCoordinates( ChartObj.LINEAR_SCALE, ChartObj.LINEAR_SCALE);
pTransform3.AutoScale(Dataset3, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR);
CartesianCoordinates pTransform4 =
new CartesianCoordinates( ChartObj.LINEAR_SCALE, ChartObj.LINEAR_SCALE);
pTransform4.AutoScale(Dataset4, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR);
CartesianCoordinates pTransform5 =
new CartesianCoordinates( ChartObj.LINEAR_SCALE, ChartObj.LINEAR_SCALE);
pTransform5.AutoScale(Dataset5, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR);
.
.
CartesianCoordinates []transformArray =
{pTransform1, pTransform2,pTransform3,pTransform4,pTransform5};
ChartZoom zoomObj = new ChartZoom (chartVu, transformArray, true);
zoomObj.SetButtonMask(MouseButtons.Left);
zoomObj.SetZoomYEnable(true);
zoomObj.SetZoomXEnable(true);
zoomObj.SetZoomXRoundMode(ChartObj.AUTOAXES_FAR);
zoomObj.SetZoomYRoundMode(ChartObj.AUTOAXES_FAR);
zoomObj.SetEnable(true);
zoomObj.SetZoomStackEnable(true);
zoomObj.InternalZoomStackProcesssing = true;
chartVu.SetCurrentMouseListener(zoomObj);
.
.
.
Dim
Dim
Dim
Dim
Dim
Dataset1
Dataset2
Dataset3
Dataset4
Dataset5
As
As
As
As
As
New
New
New
New
New
SimpleDataset("First", x1, y1)
SimpleDataset("Second", x1, y2)
SimpleDataset("Third", x1, y3)
SimpleDataset("Fourth", x1, y4)
SimpleDataset("Fifth", x1, y5)
Dim pTransform1 As New CartesianCoordinates(ChartObj.LINEAR_SCALE, _
ChartObj.LINEAR_SCALE)
pTransform1.AutoScale(Dataset1, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR)
Dim pTransform2 As New CartesianCoordinates(ChartObj.LINEAR_SCALE, _
ChartObj.LINEAR_SCALE)
pTransform2.AutoScale(Dataset2, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR)
Dim pTransform3 As New CartesianCoordinates(ChartObj.LINEAR_SCALE, _
ChartObj.LINEAR_SCALE)
pTransform3.AutoScale(Dataset3, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR)
Dim pTransform4 As New CartesianCoordinates(ChartObj.LINEAR_SCALE, _
ChartObj.LINEAR_SCALE)
pTransform4.AutoScale(Dataset4, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR)
Dim pTransform5 As New CartesianCoordinates(ChartObj.LINEAR_SCALE, _
ChartObj.LINEAR_SCALE)
pTransform5.AutoScale(Dataset5, ChartObj.AUTOAXES_FAR, ChartObj.AUTOAXES_FAR)
.
.
.
Dim transformArray As CartesianCoordinates() = {pTransform1, _
pTransform2, pTransform3, pTransform4, pTransform5}