Custom y-axis zooming
Posted: Tue Feb 22, 2005 12:28 pm
hi,
I know this subject has been an issue before, but I cannot make it work.
I use ActiveX TeeChart 6.0.0.5 in IIS server (asp pages).
I have three custom y-axes (axCurrent, axVoltage, axPotential) and I try to enable zooming for these axes. I've read the "How can I get zoom to work with my custom axes" and tried that code, but with no luck.
Here's part of my code:
sub MyChart_OnMouseDown(Button, Shift, X, Y)
myX0 = X
myY0 = Y
end sub
sub MyChart_OnMouseUp(Button, Shift, X, Y)
myX1 = X
myX2 = Y
end sub
sub MyChart_OnUndoZoom
MyChart.Axis.Custom(0).Automatic = True
MyChart.Axis.Custom(1).Automatic = True
MyChart.Axis.Custom(2).Automatic = True
end sub
sub MyChart_OnZoom()
With MyChart.Axis.Custom(0)
.SetMinMax .CalcPosPoint(myX1), .CalcPosPoint(myX0)
'Mychart.Repaint
End With
With MyChart.Axis.Custom(1)
.SetMinMax .CalcPosPoint(myY1), .CalcPosPoint(myY0)
'Mychart.Repaint
End With
end sub
First question is: how to enable the zooming also for the third y-axis? Additionally, I need the zooming enabled for those axes that are drawn; the user can select, which data to be drawn, and e.g. current axis is not always visible.
I would appreciate for any information.
Thanks in advance.
Mike
I know this subject has been an issue before, but I cannot make it work.
I use ActiveX TeeChart 6.0.0.5 in IIS server (asp pages).
I have three custom y-axes (axCurrent, axVoltage, axPotential) and I try to enable zooming for these axes. I've read the "How can I get zoom to work with my custom axes" and tried that code, but with no luck.
Here's part of my code:
sub MyChart_OnMouseDown(Button, Shift, X, Y)
myX0 = X
myY0 = Y
end sub
sub MyChart_OnMouseUp(Button, Shift, X, Y)
myX1 = X
myX2 = Y
end sub
sub MyChart_OnUndoZoom
MyChart.Axis.Custom(0).Automatic = True
MyChart.Axis.Custom(1).Automatic = True
MyChart.Axis.Custom(2).Automatic = True
end sub
sub MyChart_OnZoom()
With MyChart.Axis.Custom(0)
.SetMinMax .CalcPosPoint(myX1), .CalcPosPoint(myX0)
'Mychart.Repaint
End With
With MyChart.Axis.Custom(1)
.SetMinMax .CalcPosPoint(myY1), .CalcPosPoint(myY0)
'Mychart.Repaint
End With
end sub
First question is: how to enable the zooming also for the third y-axis? Additionally, I need the zooming enabled for those axes that are drawn; the user can select, which data to be drawn, and e.g. current axis is not always visible.
I would appreciate for any information.
Thanks in advance.
Mike