Скачать: CL | DM;

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

← →
Sergey__   (2004-04-22 13:36) [0]

Добрый день, хочу сделать форму на которой на фоне картинки плавно двигался текст(несколько строк), может кто знает ?
при использовании 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;

---

← →
C@N ©   (2004-04-22 14:23) [1]

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

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

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

---

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

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

---

← →
Ozone ©   (2004-04-23 09:03) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c