Как выйти с процедуры?

[Andrey770]

Доброго дня или ночи всеи!
Есть такая ошибка у меня. После выбора процедуры с помощью меню, нужно при нажатие определённой клавиши закрыть эту процедуру.

Пробовал через Exit не помогло, дело в том, что эта процедурка выводит на экран прямоугольник с текстом внутри.

вот код процедуры

procedure practice;
begin
rectangle(200,220,440,320);
outtextXY(250,270,'-----------------);
end;

 if k=#109 then exit;

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

[Stilet]

что мне написать, чтобы стереть прямоугольник??

Отрисовку прямоугольника цветом фона. короче просто допиши в процедуру SetColor или типа (точно не помню как процедура называется)

[Andrey770]

Сообщение от Stilet

Отрисовку прямоугольника цветом фона. короче просто допиши в процедуру SetColor или типа (точно не помню как процедура называется)

О точно, спасибо за подсказку.
Я его накрою прямоугольником bar с
setfillstylе(1,black);

Спасибо.

[Stilet]

Я его накрою прямоугольником bar

Ну можно, но это медленная процедура. Всетки рекомендую отрисовку прямоугольника а не заливку.