halloda con el zoom de tchart

[Ñ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;