![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
Олег |
![]()
Сообщение
#1
|
|||
Гость ![]() |
Вот такой простенький пример. По экрану должeн двигатсься квадрат.
Uses Graph;
var x,y: Integer;
a, v: Byte;
procedure Flip;
begin
a:= a xor 1;
v:= v xor 1;
SetVisualPage(v);
SetActivePage(a);
end;
BEGIN
x:= 9; y:= 2;
a:= 0; v:= 1;
InitGraph(x, y, 'C:\BP\BGI');
SetActivePage(a);
SetVisualPage(v);
for x:=0 to 600 do
begin
ClearDevice;
Bar(x, 30,x+30,60);
Flip;
end;
ReadLn;
END.
Вместо этого квадрат рисуется в двух местах (сверху и снизу). В чем дело? Может проблема связана с вертикальной разверткой? Если так, то как синхронизировать (используя только Graph)?
Сообщение отредактировано: volvo - 7.11.2006 20:54 |
|||
![]() ![]() |
![]() |
Текстовая версия | 31.07.2025 4:42 |