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

UptoLike

ВУЗ: 

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

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

Рубрика: 

215
ShowText(item[markedItem].str,
item[markedItem].x,item[markedItem].y,
clMarkedText, clMarkedItem);
{ждем нажатия, какой-либо клавиши}
c:=readkey;
if c=#0 then c:=readkey;
{выделенный пункт меню делаем того же цвета, что и остальные}
ShowText(item[markedItem].str,
item[markedItem].x,item[markedItem].y,
clText,clMenu);
{обработка нажатия клавиши}
case c of
keyUp: dec(markedItem);
keyDown: inc(markedItem);
keyHome: markedItem:=1;
keyEnd: markedItem:=nItems;
keyEnter: begin {нажата клавиша Enter}
MenuVert:=item[markedItem].res; {возвращается из
функции Menu код возврата выделенного
пункта}
exit; {выход из функции}
end;
keyEsc: begin {нажата клавиша Esc}
MenuVert:=0; {возвращается из функции Menu
0 – сообщение о том, что от выбора отказались}
exit; {выход из функции}
end;
end;
{Обработка особых случаев}
if markedItem<1 then markedItem:=nItems;
if markedItem>nItems then markedItem:=1;
end;
end;
end;

Страницы