Page 1 of 1
Zoom with mouse don'work properly with left and right axis
Posted: Thu Oct 14, 2010 4:47 pm
by 16556001
When a chart has a right and a left axis, if you get a zoom effect with the mouse the right scale is refreshed with the left scale values!!! in the new delphi 2010 version. This is fine in the version 8 and version 9. What's the matter?
Re: Zoom with mouse don'work properly with left and right axis
Posted: Fri Oct 15, 2010 9:50 am
by narcis
Hi Gerard,
This works fine for me here using latest v2010.01.11004 and this code snippet:
Code: Select all
uses Series;
procedure TForm1.FormCreate(Sender: TObject);
begin
Chart1.AddSeries(TLineSeries.Create(Self));
Chart1[0].VertAxis:=aBothVertAxis;
Chart1[0].FillSampleValues;
end;
Are you using latest v2010 release available? If so, can you please modify the code snippet above or send a simple example project we can run "as-is" so that we can reproduce the problem here?
Thanks in advance.
Re: Zoom with mouse don'work properly with left and right axis
Posted: Mon Oct 18, 2010 9:55 pm
by 16556001
Hi Narcis,
With this simple program
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;
type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Series1.FillSampleValues(20);
Series2.FillSampleValues(20);
end;
end.
and this simple form:
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 243
ClientWidth = 472
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Chart1: TChart
Left = 0
Top = 0
Width = 472
Height = 243
BackWall.Brush.Gradient.Direction = gdBottomTop
BackWall.Brush.Gradient.EndColor = clWhite
BackWall.Brush.Gradient.StartColor = 15395562
BackWall.Brush.Gradient.Visible = True
BackWall.Transparent = False
Foot.Font.Name = 'Verdana'
Gradient.Direction = gdBottomTop
Gradient.EndColor = clWhite
Gradient.MidColor = 15395562
Gradient.StartColor = 15395562
Gradient.Visible = True
LeftWall.Color = 14745599
Legend.Font.Name = 'Verdana'
RightWall.Color = 14745599
SubFoot.Font.Name = 'Verdana'
SubTitle.Font.Name = 'Verdana'
Title.Font.Name = 'Verdana'
Title.Text.Strings = (
'TChart')
BottomAxis.Axis.Color = 4210752
BottomAxis.Grid.Color = 11119017
BottomAxis.LabelsFont.Name = 'Verdana'
BottomAxis.TicksInner.Color = 11119017
BottomAxis.Title.Font.Name = 'Verdana'
DepthAxis.Axis.Color = 4210752
DepthAxis.Grid.Color = 11119017
DepthAxis.LabelsFont.Name = 'Verdana'
DepthAxis.TicksInner.Color = 11119017
DepthAxis.Title.Font.Name = 'Verdana'
DepthTopAxis.Axis.Color = 4210752
DepthTopAxis.Grid.Color = 11119017
DepthTopAxis.LabelsFont.Name = 'Verdana'
DepthTopAxis.TicksInner.Color = 11119017
DepthTopAxis.Title.Font.Name = 'Verdana'
LeftAxis.Axis.Color = 4210752
LeftAxis.Grid.Color = 11119017
LeftAxis.LabelsFont.Name = 'Verdana'
LeftAxis.TicksInner.Color = 11119017
LeftAxis.Title.Font.Name = 'Verdana'
RightAxis.Axis.Color = 4210752
RightAxis.Grid.Color = 11119017
RightAxis.LabelsFont.Name = 'Verdana'
RightAxis.TicksInner.Color = 11119017
RightAxis.Title.Font.Name = 'Verdana'
TopAxis.Axis.Color = 4210752
TopAxis.Grid.Color = 11119017
TopAxis.LabelsFont.Name = 'Verdana'
TopAxis.TicksInner.Color = 11119017
TopAxis.Title.Font.Name = 'Verdana'
Align = alClient
TabOrder = 0
ColorPaletteIndex = 13
object Series1: TLineSeries
Marks.Arrow.Visible = True
Marks.Callout.Brush.Color = clBlack
Marks.Callout.Arrow.Visible = True
Marks.Visible = False
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
object Series2: TLineSeries
Marks.Arrow.Visible = True
Marks.Callout.Brush.Color = clBlack
Marks.Callout.Arrow.Visible = True
Marks.Visible = False
VertAxis = aRightAxis
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
end
end
the TChart version is v2010.01.11004 win32
Best regards
Re: Zoom with mouse don'work properly with left and right axis
Posted: Tue Oct 19, 2010 10:40 am
by yeray
Hi Gerard,
Thanks for the project and for reporting this. I've reproduced it with v2010.00 s I've added it to the defect list to be fixed in future releases (TV52015228).
In the meanwhile, you could correct it at OnZoom event:
Code: Select all
procedure TForm1.Chart1Zoom(Sender: TObject);
begin
with Chart1.Axes.Left do SetMinMax(CalcPosPoint(Chart1.Zoom.Y1), CalcPosPoint(Chart1.Zoom.Y0));
end;
Re: Zoom with mouse don'work properly with left and right axis
Posted: Wed Oct 20, 2010 9:41 am
by narcis
Hi Gerard,
As an update, I have a solution proposal for this bug. Since you are a source code customer you can try the fix doing a little modification at Chart.pas, implementing
TCustomChart.CalcZoomPoints method as shown below. You can use TeeRecompile tool supplied with the source code installer to compile and install the packages at your IDEs.
Code: Select all
Procedure TCustomChart.CalcZoomPoints;
var Series : TChartSeries;
t : Integer;
Begin
Series:=nil;
With Zoom, Axes do
Begin
Check;
for t:=0 to SeriesCount-1 do
begin
if SeriesList[t].Active and SeriesList[t].CanZoomScroll then
Series:=SeriesList[t];
end;
if Assigned(Series) and
(Top.PosAxis = Bottom.PosAxis) and (Left.PosAxis = Right.PosAxis) then //TV52015228, keeps polar zoom support
begin
DoZoom(Series.XScreenToValue(X0),Series.XScreenToValue(X1),
Series.XScreenToValue(X0),Series.XScreenToValue(X1),
Series.YScreenToValue(Y1),Series.YScreenToValue(Y0),
Series.YScreenToValue(Y1),Series.YScreenToValue(Y0));
end
else
begin
DoZoom( Top.CalcPosPoint(X0),Top.CalcPosPoint(X1),
Bottom.CalcPosPoint(X0),Bottom.CalcPosPoint(X1),
Left.CalcPosPoint(Y1),Left.CalcPosPoint(Y0),
Right.CalcPosPoint(Y1),Right.CalcPosPoint(Y0));
end;
if History then
AddZoomSnapshot;
end;
End;
Re: Zoom with mouse don'work properly with left and right axis
Posted: Wed Oct 20, 2010 11:24 am
by 16556001
Hi Narcis and Yerai,
Thank you for your help.
Gérard.