program program27_3;
uses GraphABC;
procedure sun;
begin
 SetPenWidth(10);
 SetPenColor(clYellow);
 Line(350,200,200,200);
 Line(350,200,500,200);
 Line(350,200,350,50);
 Line(350,200,350,350);
 Line(350,200,245,100);
 Line(350,200,455,300);
 Line(350,200,445,100);
 Line(350,200,245,300);
 Circle(350,200,100);
 FloodFill(350,200,clYellow);
end;
var
i,j:integer;
x,y:integer;
begin
 SetWindowCaption('Çàòìåíèå');
 SetWindowSize(700,400);
 x:=1;
 While x<>700 do
 begin
  sun;
  SetPenColor(clBlack);
  Circle(x,200,100);
  FloodFill(x,200,clBlack);
  inc(x);
  Sleep(10);
  if x=700 then
  halt(0);
  ClearWindow;
 end;
end.

Если запустить очень видно, что картинка всегда мерцает, помогите исправить, если не сложно и если возможно.
Заранее благодарен

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.05.2011, 13:38

Ответы с готовыми решениями:

Мерцание картинки
Привет все))) Подскажите пожалуйста как убрать мерцание картинки....уже все испробовал ни что не...

Как убрать мерцание картинки во время её движения?
Как убрать мерцание картинки во время её движения? Я уже пробовал и LockDrawing и...

Мерцание при перемещении картинки
Возможно вопрос уже был решен, но всё же. С помощью таймера задаю перемещение картинки на пиксель...

Мерцание картинки, в последствии завсание
Система: I3 4170 MSI H81M-E33 Radeon HD 7850 2Gb 8 DDR-3 1600 HDD 7200 Очередной раз...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.05.2011, 13:38

Помогаю со студенческими работами здесь

Tao Framework :Мерцание картинки
Добрый день Проект WindowsForms ,язык C#, библиотека taoframework-2.1.0 При движении формы на...

Мерцание картинки при прорисовке
Здравствуйте. На словах не могу обьяснить суть проблемы - по этому выкладываю пример)) Суть в том...

Мерцание элементов управления, содержащих картинки
Столкнулся с такой проблемой - При запуске моего приложения пару - тройку секунд происходят...

Мерцание при перемещение картинки в PictureBox по таймеру
Добрый день. У меня проблема мерцания при перемещение картинки в PictureBox по таймеру. Пробовал...

Мерцание картинки OpenGL. Как исправить или что нужно добавить?
Начинаю знакомиться с OpenGL, задание было нарисовать картинку: белый треугольник, пурпурный и...

Организовать проверку на правильность собирания картинки в программе
Всем привет. На форме имеются 4 картинки (1 картинка разделенная на 4 части) и 4 "ячейки" (bevel)....

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх