Hola a todos,

He encontrado un possible �bug� en el component TAChart. La versi�n de Lazarus que uso es la v0.9.30.1 SVN:30356 en Windows 7 x64

Para reproducir el error seguir los siguientes pasos:

Crear un proyecto con un TChart y un TButton; agregar un TLineSeries y un TUserDefinedChartSource con 4 puntos, seleccione el �ltimo como fuente para la serie. Defina una variable como un arreglo de cuatro enteros y asigne valores a dicho arreglo en el evento OnClick del bot�n. Asigne adecuadamente los valores AITem en el evento �DataSourceGetChartDataItem� con los datos del arreglo. Algunas veces al hacer zoom la serie no es correctamente dibujada. (El proyecto de ejempo adjunto se ha removido a petici�n del moderador para reducir el tama�o del mensaje), realice un zoom en el segundo punto (0.1,0.5) pero sin incluir el eje Y con el valor cero, la serie no ser� dibujada, sin embargo si incluye el eje Y=0 se mostrar� adecuadamente:

TForm1 = class(TForm)

    Button1: TButton;
    Chart1: TChart;
    Chart1LineSeries1: TLineSeries;
    DataSource: TUserDefinedChartSource;
    procedure Button1Click(Sender: TObject);
    procedure DataSourceGetChartDataItem(ASource: TUserDefinedChartSource;
      AIndex: Integer; var AItem: TChartDataItem);
  end;
var
  Form1: TForm1;
  dat:array [0..3] of real;
implementation
{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  DataSource.BeginUpdate;
  dat[0]:=0;
  dat[1]:=0.5;
  dat[2]:=0;
  dat[3]:=-0.5;
  DataSource.EndUpdate;
end;
procedure TForm1.DataSourceGetChartDataItem(ASource:
TUserDefinedChartSource;
  AIndex: Integer; var AItem: TChartDataItem);
begin
  AItem.X:=AIndex/10;
  AItem.Y:=dat[AIndex];
end;

Gracias,

Miguel A. Risco Castillo

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20110418/a26f44a8/attachment.html>