Слайд-шоу на PaintBox

[Evil_Net]

Делаю примитивную смену фоток на PaintBox.

В загрузке картинок проблем нету.
В OnPaint пишу (пример 1 из эффектов смены картинки

тут загрузка следующей картинки в bmNext.... 

for i := 0 to bmNext.Height do
  begin
    Application.ProcessMessages;
    Sleep(2);
    BitBlt(PaintBox1.Canvas.Handle, 0, i, bmNext.Width, 1, bmNext.Canvas.Handle, 0, i, SRCCOPY);
  end;
PaintBox1.Invalidate;

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

[evg_m]

таймер !
установка на 5000 мс.

блокирование(отключение) таймера
загрузка картинки из файла (в bmnext !!!)
установка состояния прорисовки.

и прорисовка (анимация) уже имеющейся картинки.
обратное включение таймера.

[Filka]

Может, пригодится:
http://www.delphiarea.com/products/d...nents/picshow/
http://www.delphisources.ru/pages/so...t-zsimage.html
http://www.efg2.com/Lab/ImageProcessing/SlideShow.htm

[Serge_Bliznykov]

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

в событии обработчике таймера выводите картинку (путём вызова метода onPaint, который выводит картинку по заданному индексу) и наращивайте переменную с индексом.
При достижении конечного значения в индексе, выключайте таймер.
всё.

[Evil_Net]

В том то и дело, что с таймером пробовал, не работало. Сейчас еще раз заново сделал и все работает) видимо ошибка в коде была!