Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Вниз

Мерцание при прорисовке 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 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.038 c
9-1090344678
kruel
2004-07-20 21:31
2004.11.14
расстояние от точки до эллипса


10-1031254876
iZEN
2002-09-05 23:41
2004.11.14
CORBA умирает?


1-1099084233
Ol_G
2004-10-30 01:10
2004.11.14
Есть необходимость защитить некоторые файлы от копирования


14-1098727730
Auron
2004-10-25 22:08
2004.11.14
написание Firewall a


14-1098947558
peypivo
2004-10-28 11:12
2004.11.14
Кодировки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский