Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2010, 11:27   #11
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Так двойной буферизации тут нет, если включить, всё нормально. А у TPixelFormatDescriptor в любом случае надо бы заполнять поля.
Код:
 FillChar (pfd, SizeOf (pfd), 0);
 with pfd do
 begin
   nSize := sizeof(TPixelFormatDescriptor);
   nVersion := 1;
   dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
   iPixelType := PFD_TYPE_RGBA;
   cColorBits := 24;
   cDepthBits := 32;
   iLayerType := PFD_MAIN_PLANE;
 end;
Цитата:
Doublebuffered вообще оставляет любоваться только на чёрный фон.
У меня всё нормально вроде.
Цитата:
Включи вертикальную синхронизацию или поменяй интервал на таймере.
От vsync off таких полос не может быть.
Somebody вне форума Ответить с цитированием
Старый 01.07.2010, 13:18   #12
saggy
Форумчанин
 
Регистрация: 08.10.2009
Сообщений: 112
По умолчанию

о! подредактировав procedure SetDCPixelFormat (hdc : HDC); по совету Somebody мерцание исчезло! Пасиб большое!
Дв буферизацию не ставил... ведь теперь она не нужна.
procedure life; for years := 1 to 11 do gotoschool(normal); woman := TMan.add; childrens.add(TMans); problems.add(fuck); woman.destroy; END.

Последний раз редактировалось saggy; 01.07.2010 в 13:21.
saggy вне форума Ответить с цитированием
Старый 02.07.2010, 11:38   #13
Somebody
Участник клуба
 
Регистрация: 08.10.2007
Сообщений: 1,185
По умолчанию

Цитата:
Сообщение от saggy Посмотреть сообщение
Дв буферизацию не ставил... ведь теперь она не нужна.
Уверен? У меня без PFD_DOUBLEBUFFER хоть редко и не очень заметно, но мелькает.
Somebody вне форума Ответить с цитированием
Старый 02.07.2010, 12:00   #14
saggy
Форумчанин
 
Регистрация: 08.10.2009
Сообщений: 112
По умолчанию

Да ну не уже второй день без мерцания
procedure life; for years := 1 to 11 do gotoschool(normal); woman := TMan.add; childrens.add(TMans); problems.add(fuck); woman.destroy; END.
saggy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мерцание Image Жека-старший Компоненты Delphi 4 23.05.2010 19:36
Мерцание vladi Microsoft Office Excel 0 03.06.2009 17:42
Мерцание на Канве SERG1980 Мультимедиа в Delphi 3 30.04.2008 08:14
мерцание shad0w Общие вопросы C/C++ 3 11.12.2007 12:31