Автор: Гость 10.03.2004 18:46
Хотелось бы узнать как в графическом режиме можно организовать меню, когда нажимаешь стрелки вверх и вниз и вместе с этим как бы передвигается курсор(без использования) и подсвечивает выбранную строку!К примеру:
Решить уравнение
Решить дискриминант
Решить пример
Выход?
Очень благодарен.
Автор: KRUTOY 11.03.2004 0:57
Сам не пробывал, а ты попробуй так: ;)
для перемещения используй клавиши курсора.
Код
procedure enter(var b:boolean);
var key:char;
begin
textcolor(white);textbackground(blue);menu(24,10,56,22);
gotoxy(25,11);write('Выберите проверяемую задачу: ');
gotoxy(36,13);write('Вторая');
gotoxy(36,14);write('Третья');
gotoxy(36,15);write('Четвертая');
gotoxy(36,16);write('Пятая');
gotoxy(36,17);write('Шестая');
gotoxy(36,18);write('О программе...');
gotoxy(35,12+i);write(#250);
gotoxy(25,20);write('Для выхода нажмите Esc...');
repeat
key:=readkey;
gotoxy(35,12+i);write(' ');
if key=chr(80) then if i<6 then i:=i+1;
if key=chr(72) then if i>1 then i:=i-1;
gotoxy(35,12+i);write(#250);
until (key=chr(13))or(key=chr(27));
if key=chr(13)then b:=true else b:=false;
textcolor(txtclr);textbackground(backcolor);
end;