Custom axis zoom
Posted: Thu Aug 10, 2006 7:47 pm
Hi,
I have several vertical Custom axes on my Chart. I found some code in your FAQ how to zoom custom axes.
It works fine when I zoom with Zoom tool (hold down left mouse button and select a rectangle), but it do not work when I Zoom with the following code:
I used the following code to zoom my custom axes:
Best regards,
Gabor Varga
I have several vertical Custom axes on my Chart. I found some code in your FAQ how to zoom custom axes.
It works fine when I zoom with Zoom tool (hold down left mouse button and select a rectangle), but it do not work when I Zoom with the following code:
Code: Select all
MyChart.Zoom.ZoomPercent( 110 );
Code: Select all
procedure TUserControl.TChart_Felso_Zoomed(sender: System.Object; e: System.EventArgs);
var
I: Integer;
ax : Steema.TeeChart.Axis;
begin
for I := 0 to TChart_Felso.Axes.Custom.Count - 1 do
begin
ax := TChart_Felso.Axes.Custom[ i ];
with ax do
begin
Debug.Write( 'y1 = ' + TChart_Felso.Zoom.y1.ToString);
Debug.Write( 'y0 = ' + TChart_Felso.Zoom.y0.ToString );
SetMinMax( CalcPosPoint( TChart_Felso.Zoom.y1 ),
CalcPosPoint( TChart_Felso.Zoom.y0 )
);
end;
end;
end;
Gabor Varga