Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.11;
Скачать: 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 вся ветка

Текущий архив: 2004.07.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
1-1088077542
BFG9k
2004-06-24 15:45
2004.07.11
Текст как у недоступного компонента


1-1088582894
Alex_2004
2004-06-30 12:08
2004.07.11
MS Word


14-1087977495
Дмитрий2004
2004-06-23 11:58
2004.07.11
25 кадр


14-1087986481
Tornado
2004-06-23 14:28
2004.07.11
Программы не запускаются....что за глюк???


14-1087819008
YurikGL
2004-06-21 15:56
2004.07.11
Восстановление SCSI-винта