Есть цикл, в котором рисуется некоторая кривая (график). Нужно, чтобы она выводилась не вся сразу, а по шагам, последовательно (э... Как будто мы ведем карандашом по бумаге, а за грифелем появляется след).
Сначала я сделал просто задержку при рисовании Sleep(SleepTime). Но оказалось, что если SleepTime = 1 и больше, то получается очень медленно.
Тут я заметил, что вместо Sleep() можно вставить Application.ProcessMessages, - он тоже дает задержку, но меньшую, чем Sleep(1):
1.
2.
3.
4.
5.
6.
7.
8.
Repeat
If (Form4.CheckBox3.Checked) then begin Application.ProcessMessages;sleep(SleepTime); end ;
If (i mod 1000 )= 0 then Application.ProcessMessages;
x:=Round(Mas3[i, 1 ]-Mas3[i, 0 ]* 1 . 414214 / 4 );
y:=Round(Mas3[i, 2 ]+Mas3[i, 0 ]* 1 . 414214 / 4 );
Imag.Canvas.LineTo((O1.x-x), (O1.y-y));
i:=i+ 1 ;
Until (i=MasLength) or Stop;
Все бы хорошо, но вот беда - когда строится график, программа очень медленно реагирует на другие события (нажатие на кнопку, котороая меняет значение переменной Stop, нажатие "на рисунок", когда должно запуститься копирование его в буфер). Казалось бы Application.ProcessMessages запускается в каждом цикле - все должно срабатывать мгновенно. Ан нет.
В чем может быть дело?
Как сделать построение с задержкой?
Заранее благодарю за помощь.
