меню во фрейме, как єто сделать? Опции

[Wait]

здавствуйте, если можете, помогите, пожалуйста..
мне нужно меню во фрейме для игры... Где-то слышал, что такое возможно... Напишите, пожалуйста модуль для этого.
Заранее благодарен

[Дож]

Ну, что тебя не устраивает здесь:

Код

Unit FMenu;

Interface



Type menu=record

    But:byte;

    button:array[1..8] of string[22];

    Cin,Cout:integer;

    Fon:array[1..2]of integer;

    Zag : string[10];

    end;


Var N : menu;

   


Function  SimpleMenu : byte;


IMPLEMENTATION

Uses Graph,crt;


Function SimpleMenг : byte;

Var i,j:integer;;

     C:char;

      Y:1..8;

BEGIN

SetFillStyle(N.Fon[1],N.Fon[2]);

Y:=1; C:=' ';

While ord( C )<>13 do begin

i:=0;

With N do begin

settextstyle(4,0,8);{перенисите нужный BGI шрифт!}

setcolor(Cout);

Bar(0,0,640,480);

OutTextXY(20,5,Zag);

settextstyle(4,0,5);

While i<>But do begin

i:=i+1;

If i=Y then setcolor(Cin) else setcolor(Cout);

OutTextXY(20,i*TextHeight(N.Button[i])+60,N.Button[i]);

end;

end;

C:=Readkey;

Case ord( C ) of

72:If Y<>1 then Y:=Y-1 else Y:=N.But;

80:If Y<>N.But then Y:=y+1 else Y:=1;

end;

end;

simpleMenu:=Y;

end;


BEGIN


End.

А? Назови конкретно, что нужно исправить...