Создание меню в графическом режиме - Pascal ABC

Формулировка задачи:

Я понимаю что у стрелок есть значения #80 #77 #75 #72 И у меня есть прога для админа. Вот для него меню:
procedure menu;
    var
       i:integer;
       mas:array [1..7] of string;
    begin
      mas[1]:='Просмотр пользователей';
      mas[2]:='Добавление пользователей';
      mas[3]:='Удаление пользователей';
      mas[4]:='Редактирование пользователей';
      mas[5]:='Архив';
      mas[6]:='История изменения';
      mas[7]:='Завершение работы';
    for i:=1 to 7 do 
      begin
        Textout(300,60*i,mas[i])
      end;
    end;
мне нужно сделать его стрелочным...но еще ...нужно чтобы он отмечал стрелкой на каком выборе вы сейчас находитесь...Объясните пожалуйста как это можно сотворить..Буду очень признательна)


textual

Код к задаче: «Создание меню в графическом режиме - Pascal ABC»

uses graphABC,Events;
var k:byte;
procedure menu(var k:byte);
var i:integer;
    mas:array [1..7] of string;
begin
clearwindow;
mas[1]:='Просмотр пользователей';
mas[2]:='Добавление пользователей';
mas[3]:='Удаление пользователей';
mas[4]:='Редактирование пользователей';
mas[5]:='Архив';
mas[6]:='История изменения';
mas[7]:='Завершение работы';
Textout(50,1,' ');
for i:=1 to 7 do
Textout(50,30*i,mas[i]);
SetPenColor(clRed);
SetBrushStyle(bsClear);
rectangle(40,k*30-10,220,k*30+20)
end;
procedure KeyDown(key:integer);
begin
case key of
VK_Up:begin
      dec(k);
      if k=0 then k:=7;
      menu(k);
      redraw;
      end;
VK_Down:begin
        inc(k);
        if k=8 then k:=1;
        menu(k);
        redraw;
        end;
VK_Return:begin
          unlockdrawing;
          clearwindow;
          textout(100,100,inttostr(k))
          end;
else exit;
end;
end;
begin
k:=1;
menu(k);
lockdrawing;
onkeydown:=KeyDown;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.455 из 5

Источник