Graph-меню

[ivannes]

Решил написать на graph менюшку (попросили меня) а тут проблема такая:
с указателем тока вниз а далее буковки на экран. Как от этого избавится? Да и пару советов не помешало бы по поводу входов в пункты меню и выходы из них )

program menu_graph;
uses
    graph, crt;
var
   Gd, Gm: Integer;
   Color:Byte;
   key: string;
   x1,y1,x2,y2:integer;
begin
Gd:= Detect;
InitGraph(Gd,Gm,'');
If GraphResult <> grOk then
   Halt(1);
Randomize;
SetBkColor(Red);{рисование интерфейса}
SetColor(White);
SetLineStyle(0,0,3);
Rectangle(10,10,630,470);
Rectangle(10,40,630,470);
moveto(220,15); {прорисовка пунктов меню}
settextstyle(0,0,3);
outtext('Main Menu');
moveto(240,100);
setcolor(brown);
settextstyle(0,0,2);
outtext('New Game');
moveto(250,130);
outtext('Options');
moveto(270,160);
outtext('Help');
moveto(270,190);
outtext('Exit');
setcolor(blue);
x1:=230;
y1:=90;
x2:=380;
y2:=125;
rectangle(x1,y1,x2,y2);
key:=readkey;
if key = 's' then begin {клавиша s, пока клавиши w не надо}
setcolor(red);
rectangle(x1,y1,x2,y2);
y1:=y1+30;
y2:=y2+30;
setcolor(blue);
rectangle(x1,y1,x2,y2);
end;
readln;
closeGraph;
end.

[_-Re@l-_]

Здесь, в общем-то, нужна несложная процедура с циклом.
Если подождёте 15 минут, выложу примерный код.

Uses CRT,Graph;

Procedure HideMenu;
Begin
        SetColor(Black);
        OutTextXY(250,250,'1. New Game');
        OutTextXY(250,300,'2. Continue');
        OutTextXY(250,350,'3. Exit');
End;

Procedure DrawMenu(Selected : Integer);
Begin
        HideMenu;
        Case Selected Of
        1 : 
        Begin
                SetColor(Yellow);
                OutTextXY(250,250,'1. New Game');
                SetColor(Blue);
                OutTextXY(250,300,'2. Continue');
                SetColor(Blue);
                OutTextXY(250,350,'3. Exit');
        End;
        2 : 
        Begin
                SetColor(Blue);
                OutTextXY(250,250,'1. New Game');
                SetColor(Yellow);
                OutTextXY(250,300,'2. Continue');
                SetColor(Blue);
                OutTextXY(250,350,'3. Exit');
        End;
        3 : 
        Begin
                SetColor(Blue);
                OutTextXY(250,250,'1. New Game');
                SetColor(Blue);
                OutTextXY(250,300,'2. Continue');
                SetColor(Yellow);
                OutTextXY(250,350,'3. Exit');
        End;
        End;
End;

Var
     gd , gm : Integer;
     key : Char;
     current : Integer;
Begin
        gd:=Detect;
        InitGraph(gd,gm,'');
        key:=#0;
        current:=1;
        DrawMenu(current);
        While key <> #13 Do
        Begin
                key:=ReadKey;
                If Key = 'w' Then 
                Begin
                        Inc(current);
                        If current > 3 Then current:=1;
                End;
                If Key = 's' Then
                Begin
                        Dec(current);
                        If current < 1 Then current:=3;
                End;
                DrawMenu(current);
        End;
        CloseGraph;
End.

Код примерный, возможны синтаксические и логические ошибки.
И, кстати, здесь есть что оптимизировать и улучшать. Сам опробовать не могу, ибо стоит Windows 7, а она не даёт толком поработать в Borland Pascal.

P.S. Проверил, синтаксических ошибок нет

[Serge_Bliznykov]

Угу, _-Re@l-_ абсолютно прав.


ну, до кучи ещё и мой вариант можете посмотреть ТУТ

[_-Re@l-_]

Serge_Bliznykov, спасибо
И ещё. Если хотите, чтобы текст был красивый, можете добавить ещё одну процедуру:

Procedure SetFontType(Size : Integer;TType : Integer);
Begin
        SetTextStyle(TType,HorizDir,Size);
End;

///....

gd:=Detect;
InitGraph(gd,gm,'');
SetFontType(4,5);

///...

Теперь текст будет покрасивее

[ivannes]

Сообщение от _-Re@l-_

Serge_Bliznykov, спасибо
И ещё. Если хотите, чтобы текст был красивый, можете добавить ещё одну процедуру:

Procedure SetFontType(Size : Integer;TType : Integer);
Begin
        SetTextStyle(TType,HorizDir,Size);
End;

///....

gd:=Detect;
InitGraph(gd,gm,'');
SetFontType(4,5);

///...

Теперь текст будет покрасивее

ну на счёт этого, я сам соображу), кстати в коде была ошибка: нажмаешь на w указатель вниз, а нажмешь на s указатель вверх. Но ни че я её сразу исправил)

[_-Re@l-_]

кстати в коде была ошибка: нажмаешь на w указатель вниз, а нажмешь на s указатель вверх. Но ни че я её сразу исправил)

Ах да. Ну да это случайность, а не ошибка. Просто перепутал верх и низ.

[sir.andrey]

В моей чудо игре есть прекрасное меню!

[puporev]

sir.andrew, тебе этот код
http://programmersforum.ru/showpost....3&postcount=21
ничего не напоминает? И кстати где ты там увидел меню?