Показать сообщение отдельно
Старый 10.10.2008, 20:10   #1
Winner
Нуждающийся
 
Регистрация: 28.09.2008
Сообщений: 98
Написано одно полезное сообщение
Смех Очистка экрана

Недавно только разобрался в обычном Pascal и Midlet Pascal и пока умею делать только простенькие программки. Другими словами я еще ламер
Встретился с проблемой очистки экрана. Решения этой проблемы нигде не нашел, потому я создал эту тему. Если такая тема уже соществует, то прошу скинуть мне ссылку.

В общем проблема такая: я делаю текст или картинку в начале программы и потом эта картинка или текст не пропадает, если я хочу поставить другую картинку или текст, поэтому получается каша: этот текст или картинка налезают друг на друга (слоями) и сливаются.

Ну, вот пример.

program display;
var next, clicked, exit:command;
begin
	drawText ('Очистка экрана', 5, 5);
	repaint;
	next := createCommand ('Дальше', CM_SCREEN, 1);
	exit := createCommand ('Выйти', CM_EXIT, 1);
	addCommand (next);
	addCommand (exit);
	repeat 
	clicked := GetClickedCommand;
	until clicked <> emptyCommand;
	if clicked = next then 
	drawText ('Экрана очистка', 5, 5);
	repaint;
	delay (10000);
end.
Как вы видите, в конце программы "Экрана очистка" закрывает "Очистка экрана" и они сливаются. Как сделать так, чтобы "Очистка экрана" стиралась после того, как я нажму кнопку "Дальше"? Если такое возможно.
(Offline)
 
Ответить с цитированием