Главная страница
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.037 c
14-1087584156
Yegorchic
2004-06-18 22:42
2004.07.11
HTML. Меню...


1-1088253844
Maratus
2004-06-26 16:44
2004.07.11
Принтер печатает только после постановки в задание всех страниц


3-1087045844
Karlson
2004-06-12 17:10
2004.07.11
Фильтрация в union all


14-1087984521
syte_ser78
2004-06-23 13:55
2004.07.11
Почему?


1-1088432471
Pafnuty
2004-06-28 18:21
2004.07.11
Вторая форма в .dll?