Steema Central

Code: Select all

uses Series;

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

  for i:=0 to 3 do
    Chart1.AddSeries(TFastLineSeries).FillSampleValues;

  Chart1.Zoom.Animated:=true;
  Chart1.Zoom.AnimatedSteps:=6;
  Chart1.Zoom.Direction:=tzdBoth;
end;

Code: Select all

	for(int i=0; i<Chart->SeriesCount(); ++i)
	{
		if(Chart->Zoom->Direction == tzdBoth || Chart->Zoom->Direction == tzdHorizontal)
		{
			if(Chart->Series[i]->HorizAxis == aCustomHorizAxis)//<-----------I forgot to check that it's custom
			{
				TChartAxis* pTCustomHorizontalAxes = Chart->Series[i]->GetHorizAxis;
				if(pTCustomHorizontalAxes)
				{
					double aMin = pTCustomHorizontalAxes->CalcPosPoint(Chart->Zoom->X0);
					double aMax = pTCustomHorizontalAxes->CalcPosPoint(Chart->Zoom->X1);
					pTCustomHorizontalAxes->Automatic = false;
					pTCustomHorizontalAxes->SetMinMax(aMin,aMax);
				}
			}
		}

		if(Chart->Zoom->Direction == tzdBoth || Chart->Zoom->Direction == tzdVertical)
		{
			if(Chart->Series[i]->VertAxis == aCustomVertAxis)//<-----------I forgot to check that it's custom
			{
				TChartAxis* pTCustomVerticalAxes = Chart->Series[i]->GetVertAxis;
				if(pTCustomVerticalAxes)
				{
					double aMin = pTCustomVerticalAxes->CalcPosPoint(Chart->Zoom->Y0);
					double aMax = pTCustomVerticalAxes->CalcPosPoint(Chart->Zoom->Y1);
					pTCustomVerticalAxes->Automatic = false;
					pTCustomVerticalAxes->SetMinMax(aMin,aMax);
				}
			}
		}
	}