Бегущая строка.

[blackstersl]

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

  
 s := label8.Caption;
   if  Label_State.Caption > '00:02' then
   if label8.Width > 130 then
   label8.Caption := copy(s,2,length(s)+ 1 )+copy(s,5,5);

а в таймере поставил интервал на 400(если меньше то слишком быстро)
Спасибо.

[Роман Радер]

таким образом плавно не будет. лучше рисовать текст на TBitmap'e в памяти и нужный кусок выводить на форму в событии OnPaint

[Romer9999]

Да сделал бы в процедуре таймера типа label1.left:=label1.left+3; и а таймер бы там выровнял как тебе нада

[Dj_smart]

Я это делал на PaintBox'e:
Ставил таймер и по таймеру делал такой код:

paintbox.tag:=paintbox.tag+1;
if paintbox.tag=paintbox.canvas.textwidth(s) then paintbox.tag=-1*paintbox.width;
paintbox.repaint;

И при перерисовке (OnPaint)

paintbox.textout(-1*paintbox.tag,0,s);

s - строка которую крутить
paintbox.tag - изначально должен быть нулём
Прошу прощения за ошибки, если таковые будут, ибо писал прям в браузере.