меню в паскаль

[Serge_Bliznykov]

так пойдёт?

{ Пример создания и использования меню в графике}
program menu2;
uses Crt, Graph;
const
     NORM=WHITE; { цвет невыделеного пункта }
     SEL=YELLOW;  { цвет выделенного пункта }
     BackSelectedColor=Cyan;
     BackNotSelectedColor=Black;

     N=4;      {количество пунктов в меню}
     HeightSize = 40; {высота, занимаемая каждой строчкой в меню}
     WidthSize = 200; {длина каждой строчки}
var
     menu:array[1..N] of string[12];{ названия пунктов меню }
     punkt:integer;  { номер выделенного пункта }
     ch:char;        { введенный символ }
     x,y:integer;    { координаты первой строки меню }

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;

Procedure punkt1;
begin
     ClearDevice;
     OutText('Процедура 1.Нажмите <Enter> для продолжения.');
     readln;
end;

Procedure punkt2;
begin
     ClearDevice;
     OutText('Процедура 2.Нажмите <Enter> для продолжения.');
     readln;
end;

procedure ShowSelectedPunkt;
begin
     SetFillStyle(1, BackSelectedColor );
     Bar(x,y+(punkt-1)*HeightSize-(HeightSize div 4),
         x + WidthSize, y+(punkt-1)*HeightSize+3*(HeightSize div 4));
     SetColor(SEL);
     MoveTo(x,y+(punkt-1)*HeightSize);
     OutText(menu[punkt]);{ выделим строку меню }
     SetColor(NORM);
end;

procedure ShowNotSelected(i : integer);
begin
     SetFillStyle(1, BackNotSelectedColor);
     Bar(x,y+(i-1)*HeightSize-(HeightSize div 4),
         x + WidthSize, y+(i-1)*HeightSize+3*(HeightSize div 4));
     SetColor(NORM);
     MoveTo(x,y+(i-1)*HeightSize);
     OutText(menu[i]);{ выделим строку меню }
end;

Procedure MenuToScr;{ вывод меню на экран }
var i:integer;
begin
     ClearDevice;
     SetTextStyle(TriplexFont, HorizDir, 2);
     SetTextJustify(LeftText, TopText);
     SetColor(NORM);
     for i:=1 to N do begin
          ShowNotSelected(i);
     end;
     ShowSelectedPunkt;
end;

{ основная программа }
begin

  grDriver := Detect;
  InitGraph(grDriver, grMode,'..\BGI');
  ErrCode := GraphResult;

     menu[1]:=' Memu Item 1 ';
     menu[2]:=' Memu Item 2 ';
     menu[3]:=' Empty Menu Item ';
     menu[4]:=' Quit ';
     punkt:=1;
     x:=200;
     y:=100;
     MenuToScr;
     repeat
          ch:=ReadKey;
          if ch=char(0) then begin
               ch:=ReadKey;
               case ch of
                    chr(80):{ стрелка вниз }
                         if punkt<N then begin
                              ShowNotSelected(punkt);
                              punkt:=punkt+1;
                              ShowSelectedPunkt;
                         end;
                    chr(72):{ стрелка вверх }
                         if punkt>1 then begin
                              ShowNotSelected(punkt);
                              punkt:=punkt-1;
                              ShowSelectedPunkt;
                         end;
                 end;
              end
          else
               if ch=chr(13) then begin { нажата клавиша <Enter> }
                    case punkt of
                         1:punkt1;
                         2:punkt2;
                         N:ch:=chr(27);{ выход }
                    end;
                    MenuToScr;
               end;
     until ch=chr(27);{ 27 - код <Esc> }
end.