Zooming problem with multiple Y axis
Zooming problem with multiple Y axis
Hi! I'm developing an application using your example of multiple axis as model. I was doing so fine up to now.
The graphs should look like the one in the attachment.
The problem with zooming is as follows: If you zoom any section in the graph, x axis is zoomed but
y axis do not respond to zoom.
I think I should do that by code, but mousedown and mouseup event do not fire when I zoom in the
graph.
I've attached a simplified version of the code. Hope some one could help me.
Thanks.
O. Molina
The graphs should look like the one in the attachment.
The problem with zooming is as follows: If you zoom any section in the graph, x axis is zoomed but
y axis do not respond to zoom.
I think I should do that by code, but mousedown and mouseup event do not fire when I zoom in the
graph.
I've attached a simplified version of the code. Hope some one could help me.
Thanks.
O. Molina
Re: Zooming problem with multiple Y axis
Hi O.Molina,
Take a look at this example of zooming with custom axes. Note that this is a delphi code but you shouldn't fins too much problems translating it.
Take a look at this example of zooming with custom axes. Note that this is a delphi code but you shouldn't fins too much problems translating it.
Best Regards,
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |
Re: Zooming problem with multiple Y axis
Hi Yeray!
I looked the delphi sample, the few things I understood (I'm not good on delphi) is that
I should need to set the minimum and maximum properties of each custom axis manually.
I knew that and tried to do in my testcode. The problem is that I can't find y's properties
for the zoomed area to convert it to minmax values of the custom axis.
I also tried to accomplish that through mouseDown and mouseUP events
but they don't fire.
Could you take a look to my testcode ?
Thanks ...
O. Molina
I looked the delphi sample, the few things I understood (I'm not good on delphi) is that
I should need to set the minimum and maximum properties of each custom axis manually.
I knew that and tried to do in my testcode. The problem is that I can't find y's properties
for the zoomed area to convert it to minmax values of the custom axis.
I also tried to accomplish that through mouseDown and mouseUP events
but they don't fire.
Could you take a look to my testcode ?
Thanks ...
O. Molina
Re: Zooming problem with multiple Y axis
Hi O.Molina,
You project help me to see that there was a bug with the old TeeChart v4 AX. It seems that connecting a TeeCommander to the chart, it disables the events. I've retested in TeeCahrt AX v8 and they fire normally. So I recommend you to upgrade to the latest TeeChart version or to remove your TeeCommander.
You project help me to see that there was a bug with the old TeeChart v4 AX. It seems that connecting a TeeCommander to the chart, it disables the events. I've retested in TeeCahrt AX v8 and they fire normally. So I recommend you to upgrade to the latest TeeChart version or to remove your TeeCommander.
Best Regards,
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |
Re: Zooming problem with multiple Y axis
Thanks Yeray !
I´ll move to version 8. Mean while I'll unattach the chart to teecommander.
I´ll move to version 8. Mean while I'll unattach the chart to teecommander.
Re: Zooming problem with multiple Y axis
Hi! It's me again.
I've done a lot of progress since I moved my application to v8.
Now I'm facing another problem. By now it is solved but the solution I've found
implies some extra clicks by the user and makes the application a little bit confusing.
I'm doing fine with custom axis, but zooming it's not in the final functionality.
I want to zoom in one and only one of the custom axis. I've achieving this forcing
the user to click in the axis he wants to zoom so I can gather its axis number.
I think it will be easier if i can detect which custom axis is the user referring to by
the coordinates of the zoomed area. is there a way to accomplish that ?
My application redistributes the vertical axis length in n equal parts. one for every new
custom axis.
Thanks ...
O. Molina
I've done a lot of progress since I moved my application to v8.
Now I'm facing another problem. By now it is solved but the solution I've found
implies some extra clicks by the user and makes the application a little bit confusing.
I'm doing fine with custom axis, but zooming it's not in the final functionality.
I want to zoom in one and only one of the custom axis. I've achieving this forcing
the user to click in the axis he wants to zoom so I can gather its axis number.
I think it will be easier if i can detect which custom axis is the user referring to by
the coordinates of the zoomed area. is there a way to accomplish that ?
My application redistributes the vertical axis length in n equal parts. one for every new
custom axis.
Thanks ...
O. Molina
Re: Zooming problem with multiple Y axis
Hi O.Molina,
Here you have an example that uses 4 series, each one with its own vertical and horizontal axis. Note that if you use bottom axis for all the series (a unique horizontal axis for all the series) it will zoom for all at the same time.
Here you have an example that uses 4 series, each one with its own vertical and horizontal axis. Note that if you use bottom axis for all the series (a unique horizontal axis for all the series) it will zoom for all at the same time.
Code: Select all
Dim StartX, StartY As Integer
Dim DrawZoomRect As Boolean
Dim nSeries As Integer
Private Sub Form_Load()
TChart1.Aspect.View3D = False
nSeries = 4
Dim i As Integer
For i = 0 To nSeries - 1
TChart1.AddSeries scFastLine
TChart1.Series(i).FillSampleValues 100
TChart1.Axis.AddCustom False
TChart1.Axis.AddCustom True
TChart1.Series(i).VerticalAxisCustom = i * 2
TChart1.Series(i).HorizontalAxisCustom = i * 2 + 1
TChart1.Axis.Custom(i * 2).PositionUnits = puPixels
TChart1.Axis.Custom(i * 2).StartPosition = i * (100 / nSeries)
TChart1.Axis.Custom(i * 2).EndPosition = i * (100 / nSeries) + (100 / nSeries)
TChart1.Axis.Custom(i * 2).AxisPen.Color = TChart1.Series(i).Color
TChart1.Axis.Custom(i * 2 + 1).PositionUnits = puPixels
If i = 0 Then
TChart1.Environment.InternalRepaint
End If
TChart1.Axis.Custom(i * 2 + 1).PositionPercent = ((TChart1.GetChartRect.Bottom - TChart1.GetChartRect.Top) / nSeries) * (nSeries - i - 1)
TChart1.Axis.Custom(i * 2 + 1).AxisPen.Color = TChart1.Series(i).Color
Next i
TChart1.Panel.MarginLeft = 7
TChart1.Zoom.Enable = False
End Sub
Private Sub TChart1_OnMouseDown(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
If Button = mbLeft Then
StartX = X
StartY = Y
DrawZoomRect = True
End If
End Sub
Private Sub TChart1_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
If DrawZoomRect Then
TChart1.Repaint
TChart1.Canvas.Brush.Style = bsClear
TChart1.Canvas.Rectangle StartX, StartY, X, Y
End If
End Sub
Private Sub TChart1_OnMouseUp(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
If Button = mbLeft Then
If DrawZoomRect Then
Dim i As Integer
If StartX < X And StartY < Y Then
For i = 0 To nSeries - 1
With TChart1.Axis.Custom(i * 2)
If .CalcPosPoint(StartY) >= .Minimum And .CalcPosPoint(StartY) <= .Maximum Then
.SetMinMax .CalcPosPoint(StartY), .CalcPosPoint(Y)
TChart1.Axis.Custom(i * 2 + 1).SetMinMax TChart1.Axis.Custom(i * 2 + 1).CalcPosPoint(StartX), TChart1.Axis.Custom(i * 2 + 1).CalcPosPoint(X)
End If
End With
Next i
Else
For i = 0 To TChart1.Axis.CustomCount - 1
TChart1.Axis.Custom(i).Automatic = True
Next i
TChart1.Environment.InternalRepaint
End If
End If
DrawZoomRect = False
End If
End Sub
Best Regards,
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |
Re: Zooming problem with multiple Y axis
Thanks Yeray!
It's exactly the functionality I'm looking for.
Saludos desde MEXICO
It's exactly the functionality I'm looking for.
Saludos desde MEXICO
Re: Zooming problem with multiple Y axis
Hi Yeray!
Can you give that code in C#!
thanks
Can you give that code in C#!
thanks
Re: Zooming problem with multiple Y axis
Hi tomking
Here there is a translator tool between VB.Net and C#.
A tip you could need is that the tChart1.Draw() call in C# would be the equivalent of the ActiveX' tChart1.Environment.InternalRepaint call.
If you still find problems translating it, please don't hesitate to let us know.
Here there is a translator tool between VB.Net and C#.
A tip you could need is that the tChart1.Draw() call in C# would be the equivalent of the ActiveX' tChart1.Environment.InternalRepaint call.
If you still find problems translating it, please don't hesitate to let us know.
Best Regards,
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |
Re: Zooming problem with multiple Y axis
Hi Yeray!
Could you show me how to create multiple Y-axis like this image.
Thanks
Could you show me how to create multiple Y-axis like this image.
Thanks
- Attachments
-
- multipleAxis.JPG (113.51 KiB) Viewed 25446 times
Re: Zooming problem with multiple Y axis
Hi tomking,
Here you have another example. This time with only an horizontal axis:
Here you have another example. This time with only an horizontal axis:
Code: Select all
Dim StartX, StartY As Integer
Dim DrawZoomRect As Boolean
Dim nSeries As Integer
Private Sub Form_Load()
TeeCommander1.Chart = TChart1
nSeries = 6
TChart1.Aspect.View3D = False
TChart1.Legend.Visible = False
TChart1.Panel.MarginUnits = muPixels
TChart1.Panel.MarginLeft = nSeries * 15
TChart1.Panel.MarginRight = nSeries * 15
TChart1.Zoom.Enable = False
Dim i As Integer
For i = 0 To nSeries - 1
TChart1.AddSeries scFastLine
TChart1.Axis.AddCustom False
TChart1.Series(i).VerticalAxisCustom = i
TChart1.Axis.Custom(i).AxisPen.Color = TChart1.Series(i).Color
TChart1.Axis.Custom(i).GridPen.Visible = False
TChart1.Axis.Custom(i).Labels.Angle = 90
TChart1.Axis.Custom(i).PositionPercent = -((i Mod 3) * 28)
TChart1.Series(i).FillSampleValues 20000
TChart1.Series(i).asFastLine.DrawAllPoints = False
TChart1.Axis.Custom(i).PositionUnits = muPixels
If ((i + 1) Mod 2 = 0) Then
TChart1.Axis.Custom(i).Otherside = True
End If
Next i
End Sub
Private Sub TChart1_OnMouseDown(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
If Button = mbLeft Then
StartX = X
StartY = Y
DrawZoomRect = True
End If
End Sub
Private Sub TChart1_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
If DrawZoomRect Then
TChart1.Repaint
TChart1.Canvas.Brush.Style = bsClear
TChart1.Canvas.Rectangle StartX, StartY, X, Y
End If
End Sub
Private Sub TChart1_OnMouseUp(ByVal Button As TeeChart.EMouseButton, ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
If Button = mbLeft Then
If DrawZoomRect Then
Dim i As Integer
If StartX < X And StartY < Y Then
For i = 0 To nSeries - 1
With TChart1.Axis.Custom(i)
If .CalcPosPoint(StartY) >= .Minimum And .CalcPosPoint(StartY) <= .Maximum Then
.SetMinMax .CalcPosPoint(StartY), .CalcPosPoint(Y)
End If
End With
Next i
TChart1.Axis.Bottom.SetMinMax TChart1.Axis.Bottom.CalcPosPoint(StartX), TChart1.Axis.Bottom.CalcPosPoint(X)
Else
For i = 0 To TChart1.Axis.CustomCount - 1
TChart1.Axis.Custom(i).Automatic = True
Next i
TChart1.Axis.Bottom.Automatic = True
TChart1.Environment.InternalRepaint
End If
End If
DrawZoomRect = False
End If
End Sub
Best Regards,
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |
Re: Zooming problem with multiple Y axis
Hi Yeray!
I use C#.net 2008 and Teehchart for .NET v3.
Could you give the code in this environment.
Thanks
I use C#.net 2008 and Teehchart for .NET v3.
Could you give the code in this environment.
Thanks
Re: Zooming problem with multiple Y axis
Hi tomking,
Using the translation tool I pointed to you above and understanding the overall process the code tries to do, you shouldn't find too much problems translating it. Anyway, here you have it:
Using the translation tool I pointed to you above and understanding the overall process the code tries to do, you shouldn't find too much problems translating it. Anyway, here you have it:
Code: Select all
public Form1()
{
InitializeComponent();
InitializeChart();
}
bool DrawZoomRect;
int nSeries;
int StartX, StartY;
private void InitializeChart()
{
chartController1.Chart = tChart1;
nSeries = 6;
tChart1.Aspect.View3D = false;
tChart1.Legend.Visible = false;
tChart1.Panel.MarginUnits = Steema.TeeChart.PanelMarginUnits.Pixels;
tChart1.Panel.MarginLeft = (nSeries * 15);
tChart1.Panel.MarginRight = (nSeries * 15);
tChart1.Zoom.Allow = false;
for (int i = 0; i < nSeries; i++)
{
new FastLine(tChart1.Chart);
tChart1.Axes.Custom.Add(new Axis(false,false,tChart1.Chart));
tChart1[i].CustomVertAxis = tChart1.Axes.Custom[i];
tChart1.Axes.Custom[i].AxisPen.Color = tChart1[i].Color;
tChart1.Axes.Custom[i].Grid.Visible = false;
tChart1.Axes.Custom[i].Labels.Angle = 90;
tChart1.Axes.Custom[i].RelativePosition = -((i % 3) * 28);
tChart1[i].FillSampleValues(20000);
((FastLine)tChart1[i]).DrawAllPoints = false;
tChart1.Axes.Custom[i].PositionUnits = PositionUnits.Pixels;
if (((i + 1) % 2) == 0)
{
tChart1.Axes.Custom[i].OtherSide = true;
}
}
tChart1.MouseDown += new MouseEventHandler(tChart1_MouseDown);
tChart1.MouseMove += new MouseEventHandler(tChart1_MouseMove);
tChart1.MouseUp += new MouseEventHandler(tChart1_MouseUp);
}
void tChart1_MouseUp(object sender, MouseEventArgs e)
{
if (e.Button == MouseButtons.Left)
{
if (DrawZoomRect)
{
if ((StartX < e.X) && (StartY < e.Y))
{
for (int i=0; i<nSeries; i++)
{
if ((tChart1.Axes.Custom[i].CalcPosPoint(StartY) >= tChart1.Axes.Custom[i].Minimum) &
(tChart1.Axes.Custom[i].CalcPosPoint(StartY) <= tChart1.Axes.Custom[i].Maximum))
{
tChart1.Axes.Custom[i].SetMinMax(tChart1.Axes.Custom[i].CalcPosPoint(StartY),tChart1.Axes.Custom[i].CalcPosPoint(e.Y));
}
}
tChart1.Axes.Bottom.SetMinMax(tChart1.Axes.Bottom.CalcPosPoint(StartX), tChart1.Axes.Bottom.CalcPosPoint(e.X));
}
else
{
for (int i=0; i<tChart1.Axes.Custom.Count; i++)
{
tChart1.Axes.Custom[i].Automatic = true;
}
tChart1.Axes.Bottom.Automatic = true;
tChart1.Refresh();
}
}
DrawZoomRect = false;
}
}
void tChart1_MouseMove(object sender, MouseEventArgs e)
{
if (DrawZoomRect)
{
tChart1.Invalidate();
tChart1.Graphics3D.Brush.Visible = false;
tChart1.Graphics3D.Rectangle(StartX, StartY, e.X, e.Y);
}
}
void tChart1_MouseDown(object sender, MouseEventArgs e)
{
if (e.Button == MouseButtons.Left)
{
StartX = e.X;
StartY = e.Y;
DrawZoomRect = true;
}
}
Best Regards,
Yeray Alonso Development & Support Steema Software Av. Montilivi 33, 17003 Girona, Catalonia (SP) | |
Please read our Bug Fixing Policy |