проблемы с chart, при внесении изменения данных график не хочет рисоваться

[Барби]

не пойму в чем проблема, если сразу запустить программу то график прекрасно рисуется, если же уже в запущенной программе внести изменения в данные по которым строится график, то график уже не строится при повторном запуске. может кто сообразит, в чем проблема

кусочки кода, если нужен весь, скажите сделаю вложение

procedure TfrmMain.showQueuesStatistic;
begin
// приоритетная очередь
lblPLen.Caption := IntToStr(PriorQueue.len);
lblPMaxlen.Caption := IntToStr(PriorQueue.maxlen);
lblPMinlen.Caption := IntToStr(PriorQueue.minlen);
if (PriorQueue.lennum=0) then
lblPMidlen.Caption := '0'
else
lblPMidlen.Caption := FloatToStrF(PriorQueue.sumlen/PriorQueue.lennum,
ffGeneral, 3, 10);
lblPCount.Caption := IntToStr(PriorQueue.count);

// обычная очередь
lblNLen.Caption := IntToStr(NormQueue.len);
lblNMaxlen.Caption := IntToStr(NormQueue.maxlen);
lblNMinlen.Caption := IntToStr(NormQueue.minlen);
if (NormQueue.lennum=0) then
lblNMidlen.Caption := '0'
else
lblNMidlen.Caption := FloatToStrF(NormQueue.sumlen/NormQueue.lennum,
ffGeneral, 3, 10);
lblNCount.Caption := IntToStr(NormQueue.count);

// выводим эту точку на график
Chart1.Series[0].Add(PriorQueue.len, '', clTeeColor);
Chart1.Series[1].Add(NormQueue.len, '', clTeeColor);
ProgressBar1.Position := ProgressBar1.Position+1;
end;


а это код на кнопку с изменениями параметров для построения графика
procedure TfrmOptions.tbHour1Change(Sender: TObject);
var
h, m: string;
begin
h := IntToStr(tbHour1.Position);
if (tbHour1.Position<10) then
h := '0'+h;
m := IntToStr(tbMinute1.Position);
if (tbMinute1.Position<10) then
m := '0'+m;
lblStartTime.Caption := h+':'+m;
end;

//---------------------------------------
// Время конца моделирования
//---------------------------------------
procedure TfrmOptions.tbHour2Change(Sender: TObject);
var
h, m: string;
begin
h := IntToStr(tbHour2.Position);
if (tbHour2.Position<10) then
h := '0'+h;
m := IntToStr(tbMinute2.Position);
if (tbMinute2.Position<10) then
m := '0'+m;
lblStopTime.Caption := h+':'+m;
end;

//---------------------------------------
// Отмена
//---------------------------------------
procedure TfrmOptions.Button2Click(Sender: TObject);
begin
flag := false;
Close;
end;

//---------------------------------------
// Применение параметров
//---------------------------------------
procedure TfrmOptions.Button1Click(Sender: TObject);
begin
flag := true;
Close;
end;

end.

[mihali4]

//---------------------------------------
// Применение параметров
//---------------------------------------
procedure TfrmOptions.Button1Click(Sender: TObject);
...

Ну, и где же тут Series.Repaint ? Или вы ждете, пока он сам перерисуется?

[Барби]

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

Ну, и где же тут Series.Repaint ? Или вы ждете, пока он сам перерисуется?

я о таком даже не слышала,спасибо. мне необходимо повторить всю процедуру рисования толькоо с Series.Repaint или же как то обособленно указать в процедуре что вот мол перерисовывайся?

[mihali4]

Попробовать, конечно же, очень сложно...
Chart1.Repaint;

[Барби]

так я попробовала а все равно не хочет рисовать заново если что нить поменяю, мне кажется надо еще то ли цикл какой то то ли сослаться на процедуру рисования из главной формы, прям не знаю что и предпринять, не выходит каменный цветок

[Nemon]

попробуй сделать chart1.refresh;

[Барби]

неа, никак рисовать не хочет

[alun]

Попробуй Series.Clear(); а потом заново нарисуй...

[Барби]

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

Попробуй Series.Clear(); а потом заново нарисуй...

очистка перед каждым новым рисованием у меня произвоится, новое рисование тоже производится, а вот если изменить параметры через другую форму, то очистка производится, а рисование нет. и не пойму никак как бы посторить рисование, если копировать на форму с изменением параметров весь процесс рисования. то он ругается ведь само рисование происходит на главной форме,а сослаться что то никак не получается. а на главной форме уже и так и сяк пробую чтоб при получении флага а новых данных перерисовывалось и безрезультатно

[mihali4]

1. Проверьте обработчик BitBtn2Click. У вас там явно что-то не в порядке.
2. Вы таймер включать/выключать умеете? Что он у вас молотит без остановки?
3. Пошаговый режим отладки вам знаком? Тогда поставьте брэйкпойнт на первый оператор обработчика btnRunClick и посмотрите, что у вас происходит при повторном запуске.