здавствуйте, если можете, помогите, пожалуйста..
мне нужно меню во фрейме для игры... Где-то слышал, что такое возможно... Напишите, пожалуйста модуль для этого.
Заранее благодарен
меню во фрейме, как єто сделать? |
меню во фрейме, как єто сделать? |
Wait |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 20 Пол: Мужской Репутация: 0 |
здавствуйте, если можете, помогите, пожалуйста..
мне нужно меню во фрейме для игры... Где-то слышал, что такое возможно... Напишите, пожалуйста модуль для этого. Заранее благодарен |
Дож |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 179 Пол: Мужской Репутация: 1 |
Ну, что тебя не устраивает здесь:
Код 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. А? Назови конкретно, что нужно исправить... -------------------- Доброго времени суток.
:nnn: |
Текстовая версия | 28.03.2024 18:21 |