TeeChart Standard v2010.01 zoomt falsch

[baumina]

Ich habe ein Projekt von Delphi2007 auf DelphiXE portiert. Nun habe ich das Problem, dass wenn die LeftAxis positive Werte und die RightAxis negative Werte anzeigt und gezoomt wird, dass danach die LeftAxis plötzlich die selbe Anzeige erhält wie die RightAxis.

Hat jemand eine Idee wie ich dieses Verhalten ändern kann, dass alles so funktioniert wie unter Delphi2007?

Zur Veranschaulichung habe ich zwei kleine Testprogramme gemacht, zudem habe ich noch ScreenShots vom Verhalten beider Versionen gemacht.

[Der schöne Günther]

Zitat:

Release Notes 2nd February 2011
TeeChart VCL version 2010
Build 2010.02.20202

[...]
9) [TV52015228]
Zoom not working in charts with several
series with different axes. Fixed.

http://www.steema.com/versioninfo/vcl

Hört sich so an, als sei das in 2010.02 gefixed worden :?

[baumina]

Kann ich denn die Standard-Version für Delphi updaten und wenn ja wie? bzw. gibt's evtl. einen Workaround?

[Der schöne Günther]

Keine Ahnung- Ich würde gerne auf cc.embarcadero.com suchen, aber die Suche bricht immer nur mit Serverfehlern ab. :thumb:

Teechart 2010 habe ich nirgendwo installiert, aber hat die Chart-Komponente denn ein OnZoom-Ereignis und die Zoom-Property? Vielleicht kann man da ja noch was drehen...

[baumina]

Ja OnZoom gibt's, Zoom ebenfalls. Ich experimentiere auch schon seit ner Weile mit allem (Un)Möglichen rum, allerdings bislang erfolglos :-(

[baumina]

Ich habe nun bei Steema angefragt und folgende Antwort bekommen:

Zitat:

I'm afraid there's no update for the TeeChart Standard version shipped with RAD XE3.
So you can purchase the commercial Standard/Pro TeeChart VCL version to get the latest version or apply the workaround suggested in the forums here:

Delphi-Quellcode:

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.View3D:=false;

  for i:=0 to 1 do
    Chart1.AddSeries(TPointSeries);

  Chart1[0].Add(0);
  Chart1[0].Add(110);
  Chart1[0].Add(200);

  Chart1[1].Add(20);
  Chart1[1].Add(9);
  Chart1[1].Add(0);

  Chart1[1].VertAxis:=aRightAxis;

  //Workaround:
  //Chart1.OnZoom:=Chart1Zoom;
end;

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  with Chart1.Axes.Left do SetMinMax(CalcPosPoint(Chart1.Zoom.Y1), CalcPosPoint(Chart1.Zoom.Y0));
end;

Hoping that this helps, otherwise please let me know.

Das hat geholfen! :thumb: