Где ошибка? (Delphi: Canvas+Threads)

[Erlotaza]

Здравствуйте. Задали написать программу с 3-ма canvas-графиками, работающих через потоки Threads. Написал. По потокам это моя первая программа, поэтому я создал их копипастом. Программа запускает графики последовательно, и единственное, на что надо переделать - ОДНОВРЕМЕННЫЙ запуск всех графиков, и я смогу сдавааааааааааааать))) Заранее благодарен

[Erlotaza]

http://zalil.ru/33131511 - Это собственно программа

[Rin]

А вот ответ на вашу задачу http://programmersforum.ru/showthread.php?t=197034

[Erlotaza]

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

А вот ответ на вашу задачу http://programmersforum.ru/showthread.php?t=197034

Ни один из них не правильный!

[Rin]

Спецом для Вас, взятое из той темы.

procedure TMyThread1.Execute;
begin
    while not Terminated do
     setPix;
end;

procedure TMyThread2.Execute;
begin
      while not Terminated do
     setPix2;
end;

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

[BDA]

Упс, случайно прицепил не тот проект в прошлой теме.