Вниз
Скачать: CL | DM;

Мерцание при прорисовке Image   Найти похожие ветки 

 
O?O   (2004-10-30 07:13) [0]

По таймеру делаю движение фигуры, к примеру квадрата слева направо до правого края Image потом справа налево до левого края и так далее. Делаю в цикле

 Сначала стираем предыдущее положение

 Im.Canvas.Pen.Width := 1;
 Im.Canvas.Brush.Color := clBtnFace;
 Im.Canvas.Pen.Color := clBtnFace;
 Im.Canvas.Rectangle(0,0,Im.Width,Im.Height);

 Затем рисуем новое

 Im.Canvas.Pen.Width := 1;
 Im.Canvas.Brush.Color := clBtnFace;
 Im.Canvas.Pen.Color := clBtnFace;
 Im.Canvas.Rectangle(X,Y,X+100,Y+100);

X и Y меняем с какимнибудь шагом.

Всё бы хорошо, только прорисовка неплавная а иногда проскальзывают мерцания, типа квадрат до конца не прорисовался сразу, глазу очень заметно. Помню когда-то еще в Турбо паскале чтоб небыло мерцаний как-то там синхронизировали прорисовку с обратным ходом луча, может и в дельфях надо что-то такое делать?


 
AZ ©   (2004-10-30 07:25) [1]

Попробуй
DoubleBuffered:=True


 
O?O   (2004-10-30 07:53) [2]

Бальшой спасиб :)
Очень выручили



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

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



Память: 0.45 MB
Время: 0.026 c
14-1098796678
ЮрийК
2004-10-26 17:17
2004.11.14
Dеинсталяция проги из "Add/Remove Programs"


14-1098945766
vopros
2004-10-28 10:42
2004.11.14
Что за дрянь?Касперский не ловит.


1-1099116369
SSSdd
2004-10-30 10:06
2004.11.14
Как подсчитать время прошедшее между двумя датами?


1-1099130123
Artemiy2004
2004-10-30 13:55
2004.11.14
Как скопировать небольшую часть картинки в новый битмап?


1-1098994543
Луарвик
2004-10-29 00:15
2004.11.14
Как юзать memo1.ScrollBy?




   Наверх