Gennady
Гений
(60122)
15 лет назад
Доброго времени суток.
Ошибаетесь, уважаемые. Еще как удалишь. Правда, не любой, а нарисованный с помощью процедур DrawPoly, Line, LineRel, LineTo и Rectangle. Нужно просто изменить режим вывода. К тому же, ClrScr это для текстового режима. Для графического ClearViewPort (для текущей области рисования) или ClearDevice (для всего устройства) .
SetWriteMode (процедура) (модуль Graph)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Устанавливает режим записи для рисования
линий.
Объявление:
Procedure SetWriteMode(WriteMode : Integer);
Режим:
Real, Protected
Замечания:
Каждой двоичной операции между каждыми двумя
соответствующими байтами рисуемой линии и
экрана соответствует
константа двоичной операции. Например, CopyPut
использует ассемблерную команду MOV, замещая
вновь нарисованной линией все, что было на
экране до этого. XORPut использует для вывода
линии команду XOR. Две последовательные
команды XOR сотрут построенную линию,
возвращая экран в первоначальное состояние.
SetWriteMode воздействует только на обращения
к подпрограммам DrawPoly, Line, LineRel,
LineTo и Rectangle.
Вывод понятен? Нужно просто установить
SetWriteMode(XORPut);
и нарисовать объект еще раз.
Удачи!