Тест программных программ
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: налоги в россии, курсовые работы бесплатно
| Добавил(а) на сайт: Сталин.
Предыдущая страница реферата | 19 20 21 22 23 24 25 26 27 28 29 | Следующая страница реферата
clrscr;
Закрашивание следующего окна- важная функция. Она закрашивает то синее окно, которое было выбрано перед обращением к процедуре.
Window(10,22,69,22); {основное окно панели управления}
TextBackGround(green);
clrscr;
TextColor(brown); {установка цвета текста}
Write('Новый Открыть Править Результат Печать Выход'); {нанесение надписи на панель
управления}
If x>=20 Then x:=x-10; {проверка соответствия окна выбора границам панели управления}
Этот оператор производит сравнение координат окна выбора с координатами начала панели управления. Если окно выбора “выехало” за границы панели управления, то изменений координат не производится, окно выбора остается на своем месте.
Window(x,22,x+9,22); {рисование окна выбора}
TextBackGround(blue);
clrscr;
case x of {выбор надписи на окне выбора}
Данное ветвление распознает по координате окна выбора какое слово следует в него вписать.
10:Begin
TextColor(green);
Write('Новый');
End;
20:Begin
TextColor(green);
Write('Открыть');
End;
30:Begin
TextColor(green);
Write('Править');
End;
40:Begin
TextColor(green);
Write('Результат');
End;
50:Begin
TextColor(green);
Write('Печать');
End;
60:Begin
TextColor(green);
Write('Выход');
End;
End;
End;
Procedure panel.right; {процедура сдвига окна выбора вправо}
Begin
Window(x,22,x+9,22); {закрашивание предыдущего окна}
TextBackGround(green);
clrscr;
Window(10,22,69,22); {рисование окна панели управления}
TextBackGround(green);
clrscr;
TextColor(brown); {изменение цвета текста}
Рекомендуем скачать другие рефераты по теме: allbest, реферат отношения.
Категории:
Предыдущая страница реферата | 19 20 21 22 23 24 25 26 27 28 29 | Следующая страница реферата
Главная