Графика в Pascale

[SVadiks]

Ребят подкиньте идею как можно реализовать след. прогу?
Дан Список из n- пунктов. С помощью клавиш на клавиатуре вверх и вниз ходить по этому списку причем активную строчку списка подсветить как нибудь.

[Stilet]

попробуй такое:
http://www.programmersforum.ru/showt...t=%CC%E5%ED%FE

[Serge_Bliznykov]

SVadiks, это именно в графическом режиме нужно?

Как абсолютно правильно предложил Stilet, такие вещи в старой доброй DOS консоли делались в текстовом режиме!

ну, до кучи ещё и мой вариант текстового меню на Pascal (p.s. по сути это то же самое, что предложил Виталий, просто записанное по другому, и, возможно, чуть-чуть попроще..)

{ Пример создания и использования меню }
program menu2;
uses Crt;
const
     NORM=$17; { цвет невыделеного пункта }
     SEL=$70;  { цвет выделенного пункта }
     N=3; {количество пунктов в меню}
var
     menu:array[1..N] of string[12];{ названия пунктов меню }
     punkt:integer;  { номер выделенного пункта }
     ch:char;        { введенный символ }
     x,y:integer;    { координаты первой строки меню }

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

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

Procedure MenuToScr;{ вывод меню на экран }
var i:integer;
begin
     ClrScr;
     for i:=1 to N do begin
          GoToXY(x,y+i-1);
          write(menu[i]);
     end;
     TextAttr:=SEL;
     GoToXY(x,y+punkt-1);
     write(menu[punkt]);{ выделим строку меню }
     TextAttr:=NORM;
end;
{ основная программа }
begin
     menu[1]:=' Действие 1 ';
     menu[2]:=' Действие 2 ';
     menu[3]:=' Выход ';
     punkt:=1;
     x:=5;
     y:=5; TextAttr:=NORM;
     MenuToScr;
     repeat
          ch:=ReadKey;
          if ch=char(0) then begin
               ch:=ReadKey;
               case ch of
                    chr(80):{ стрелка вниз }
                         if punkt<N then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt+1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                    chr(72):{ стрелка вверх }
                         if punkt>1 then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt-1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                 end;
              end
          else
               if ch=chr(13) then begin { нажата клавиша <Enter> }
                    case punkt of
                         1:punkt1;
                         2:punkt2;
                         3:ch:=chr(27);{ выход }
                    end;
                    MenuToScr;
               end;
     until ch=chr(27);{ 27 - код <Esc> }
end.

[Stilet]

Оффтоп: Да... В графике паскалевской такое меню кропануть - это круто!

[Stepler]

Например так

TextColor(Green+Blink)

задаем зелёный цвет с миганием.
Или так

TextBackground(Red)

устанавливаем красный цвет фона.

[SVadiks]

Большое спасибо ВСЕМ сейчас буду пробовать.

p/s можно и graph прикрутить, но это необязательно требование

[Serge_Bliznykov]

оффтоп

Сообщение от Stilet

Да... В графике паскалевской такое меню кропануть - это круто!

ну, на самом деле, не так уж и сложно. Зарисовывать выделенный пункт меню через залитый прямоугольник.
Текст выводить через OutTextXY
Ещё и шрифт можно задать.
Это всё достаточно просто.
вопрос - насколько это нужно?!! (имхо, минусов больше, чем плюсов)