halloda con el zoom de tchart

[efirvida]

estoy haciendo una app en la que necesito darle zoom a un grafico de lineas solo en el sentido de las x, y despues poder desplasarme por el, ya se como hacer el grafico con tchart el problema es que cuando doy zoom me da zoom los dos ejes y eso no me sirve ¿Alguna ayuda?
un ejemplo parecido a lo que quiero es el sound forge o cualquier programa de esos que dan graficos de frecuencia y esas cosas, asi quiero que luzca, mas o menos
AHH! uso Delphi 2010

[Ñuño Martínez]

Creo que confundes la ampliación (zoom) con la escala. Prueba a cambiar la escala del eje X sin modificar la ampliación.

Para desplazar, quizá mejor que metas el TChart en un TScrollBox. Así le puedes poner el tamaño que quieras al diagrama mientras dejas que TScrollBox se encargue de lo demás.

[efirvida]

Empezado por Ñuño Martínez

Creo que confundes la ampliación (zoom) con la escala. Prueba a cambiar la escala del eje X sin modificar la ampliación.

Para desplazar, quizá mejor que metas el TChart en un TScrollBox. Así le puedes poner el tamaño que quieras al diagrama mientras dejas que TScrollBox se encargue de lo demás.

por favor, no me podrias poner algo de codigo que la verdad que no encuentro como hacer eso, y no tengo la ayuda del delphi

[Ñuño Martínez]

No hay código. Pones un TScrollBox con la alineación que desees y activando las barras de desplazamiento, y dentro de este pones el TChart asignándole el tamaño que quieras aun cuando este "se salga" del TScrollBox.

[rounin]

Aproximadamente asi:

Código Delphi [-]
 
const
  MyMinimum = 0;
  MyMaximum = 1000;
 
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  Chart1.AllowPanning := pmHorizontal; 
 
  Chart1.LeftAxis.AutomaticMaximum := False;
  Chart1.LeftAxis.AutomaticMinimum := False; 
 
  Chart1.OnZoom := Chart1Zoom;
 
  //Chart1.OnUndoZoom := Chart1UndoZoom;

  Chart1.LeftAxis.Minimum := MyMinimum;
  Chart1.LeftAxis.Maximum := MyMaximum;
end;
 
procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  (Sender as TChart).LeftAxis.Minimum := MyMinimum;
  (Sender as TChart).LeftAxis.Maximum := MyMaximum;
end;

[efirvida]

muchas gracias me ha servido de mucho!