Основы программирования на языке Turbo Pascal. Беляева И.В. - 214 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

214
x,y – координаты начала строки
TxtColor – цвет текста
BckColor – цвет фона
ЗАМЕЧАНИЕ: после вывода строки курсор перемещается в начало
выведенной строки
}
procedure ShowText(const str:string; x,y,TxtColor,BckColor:byte);
begin
TextBackground(BckColor); {установка цвета фона}
textcolor(txtcolor); {установка цвета текста}
gotoxy(x,y); {перемещаем курсор в позицию начало строки меню}
write(str); {выводим строку меню}
gotoxy(x,y); {перемещаем курсор в позицию начало строки меню}
end;
{Меню
Возвращаемое значение:
0 – в случае отказа от выбора
menu.item[menu.markedItem].res – в случае выбора пункта меню
}
function MenuVert(var menu:TMenu):byte;
var
c:char; {код нажатой клавиши}
i:byte; {счетчик}
begin
with menu do
begin
{готовим окно, в которое будем выводить}
ColorWindow(Left,Top,Width,Height,clMenu);
{выводим все пункты}
for i:=1 to nItems do
ShowText(item[i].str, item[i].x,item[i].y, clText,clMenu);
while true do
begin

Страницы