Скорость построения в TChart

[artemavd]

Такой вопрос меня интересует. Можно ли регулировать скорость построения графиков и диаграмм в TChart? Например, чтобы можно было поставить такую скорость, чтобы было видно как медленно строится диаграмма или график. Возможно ли такое сделать?

[_Engine_]

Медленно добавлять значения?

[artemavd]

_Engine_, нет). не значения медленно добавлять, а чтобы было визуально видеть построение. То есть чтобы можно было замедлить скорость рисования графика. Чтобы можно было видеть как он рисуется. Не сразу как только нажал на кнопку и график был построен, а медленно линии рисовались.

[mihali4]

Чтобы можно было видеть как он рисуется.

Так вам и предложили единственно возможный вариант.
Если вы будете строить ваш график поточечно, с некоторой паузой перед выдачей очередной точки, то и получите эффект плавного построения графика...
То есть ваша кнопка "Построить график" запустит некий таймер, который будет добавлять к графику по одной точке, пока не дойдет до конца.

[artemavd]

mihali4, а можно как то это на примере кода увидеть?

[zetrix]

Добавление точек в цикле же?

начало_цикла
Chart1.Series[0].AddXY(X,Y);
application.ProcessMessages;
Sleep(100);
конец_цикла

[mihali4]

Сообщение от artemavd

mihali4, а можно как то это на примере кода увидеть?

Можно. У вашего антипода:
http://www.programmersforum.ru/showthread.php?t=31687

[artemavd]

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
 c,d,c1,d1,fig:real;
 c2,d2,c3,d3,d4,X,Y:real;
begin
 try
 with Form1.Series2 do
   begin
   Chart2.Series[2].AddXY(X,Y);
   Application.ProcessMessages;
   Sleep(100);

    Clear;
    c2:=StrToFloat(Form1.SG3.Cells[1,26]);
    d2:=StrToInt(Form1.SG3.Cells[2,26]);
    c3:=StrToInt(Form1.SG3.Cells[3,26]);
    d3:=StrToInt(Form1.SG3.Cells[4,26]);
    d4:=StrToInt(Form1.SG3.Cells[5,26]);
    Add(c2,'СБ',clGreen);
    Add(d2, 'КУ', clYellow);
    Add(c3, 'У', clBlue);
    Add(d3, 'О', clRed);
    Add(d4, 'ЧО', clRed);
   end;
  except
   on EConvertError do
     fig:=0;
  end;
end;

Попробовал так, но при нажатии на кнопку появляется ошибка: "List index out of bounds (2)"

[mihali4]

Про порнуху - это спам-бот...
По теме.
Во-первых: а Chart2.Series[2] существует?
Во-вторых:

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
c,d,c1,d1,fig:real;
c2,d2,c3,d3,d4,X,Y:real;
begin
try
with Form1.Series2 do
begin
Chart2.Series[2].AddXY(X,Y);

А где определяются значения X,Y ?