| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Sergey__ ©   (2004-04-22 13:36:00) 

Добрый день, хочу сделать форму на которой на фоне картинки плавно двигался текст(несколько строк), может кто знает ?
при использовании TTimer, текст движется рывками.
Использую примерно такой код:
procedure TForm1.Timer1Timer(Sender: TObject);
var i: integer;
R: Extended;
BitMap: TBitmap;
TW,X,Y: Integer;
Txt : String;

begin
Randomize;
Bitmap.Canvas.Polygon([Point(0, 0), Point(799, 0),
Point(1699, 899), Point(0, 899)]);
X := X - 3;
If X <=-TW then
X := Form1.Width;
y:=(300);
Bitmap.Canvas.TextOut(X,y,txt);
Form1.Canvas.Draw(0,0,Bitmap);  
end;

---

Ozone   (2004-04-23 09:03:00) [1]

- Interval у таймера поставь = 1
- коорддинаты по Ox изменяй тоже на 1

---

Sergey__   (2004-04-22 14:58:00) [2]

Выход хороший, однако проблема таже, текст движется прерывисто,
как бы не менял время таймера

---

C@N   (2004-04-22 14:23:00) [3]

всё можно делать и проще двигать Label1по leftи topили его родственников со свойством...transparant вместо

> Bitmap.Canvas.TextOut(X,y,txt);
> Form1.Canvas.Draw(0,0,Bitmap);

естественно в том-же таймере, но так-же будет торм-торм-торм-озить

---

Наверх