Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Pascal

Smiling Мыслитель (5217), закрыт 15 лет назад
как в паскале в графическом режиме удалить последний нарисованный объект? заранее спасибо
Лучший ответ
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);

и нарисовать объект еще раз.

Удачи!
Остальные ответы
igor Ученик (234) 15 лет назад
Turbo Pascal 7.0 ? :) clrscr();
-Egor- Мыслитель (6174) 15 лет назад
последний нарисованный ты не удалишь ...а очисить :clrscr;
Похожие вопросы