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

В каком еще фрейме ? вы о чем?

Мне кажется можно только нарисовать параллелепипед bar3D(x1,y1,x2,y2, глубина). Использую предварительно SetFillStyle(образец_заливки, цвет) и SetLineStyle(стиль_линий, 0, толщина).
Я правильно понял фрейм - это рамка? Тогда так можно. ЕСли надо могу выложить полный внешний вид и исходник

Если это "меню в рамке", то можно и поискать по форуму - уже выкладывалось несколько реализаций графического меню...

Выложите, пожалуйста... :molitva:

Лично у меня получилось вот так:


Внешний вид огрничен только фантазией и занием графики в TP. Я конечно сделал очень просто, но ИМХО похоже на рамку...

Вот, что я написал в прошлом году по этому поводу:

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.

Модуль состоит из одной функции SimpleMenu, типа Menu и глобальной переменной N. Переменная N отвечает за внешний вид и содержимое меню, а точнее за:
1) кол-во кнопок в меню (переменная Menu.but)
2) надписи в кнопках(переменная Menu.Button)
3) названия меню(переменная Menu.Zag)
4) цвет фона в стиле Bar. В переменной Menu.Fon[1] задан тип фона(см. setfillstyle), а в Menu.Fon[2] цвет фон.
5) Цвет пассивных и активных кнопок. Menu.Cin - cursor in(курсор внутри)
Menu.Cout - cursor out(курсор вне)

Функция SimpleMenu: создает меню и обробатывает сигналы пользователя:
стрелка вверх: сдвинуть указатель вверх
стрелка вниз: сдвинуть указатель вниз
Enter : выбрать выделенную кнопку.
Функция возвращает номер выбранной пользователем кнопки.
Примечание : модуль использует какой-то BGI шрифт, не помню какой точно.

Прошу не судить строго, я тогда не знал ни о каком ООП, мышь на паскале казалась нереальностью... :p2:

Сообщение отредактировано: volvo - 3.11.2006 20:50

Красиво - мой респект Дож.
Если Wait надо шоб полная симуляция менюшки - ну с управлением и т.д.
то щас пойду усовершенствую...

2Дож

А почему ООП, мышь можно и встроенным ассемблером делать к сожалению на память не воспроизведу, но можно и найти - тя интересует?

Я тебя недопонял.

Я эб этом, что мышь к паскалю можно приспособить с помощью встроенного ассемблера, и ооп здесь ни причём

ААА! Да, насчет мыши я все уже хорошо знаю, но год назад не знал. А насчет ООП, если бы я об нем знал, то создал бы объект, например, TMenu, в который бы входили все эти поля и функция SimpleMenu. И была бы возможность создавать не одно меню, а много! Хотя, здесь не много исправлять нужно.

Да, нет наверно, у меня рядом книжка по паскалю лежит и в FAQ про это говорится(FAQ).

Сообщение отредактировано: Дож - 15.05.2005 21:09

Кого интересует меню с ООП - смотрите здесь: Меню - ООП

Усовершенствуйте, плиз, если Вам не трудно, буду очень благодарен.
Мне это меню нужно для первой страницы игры
В тексовом режиме я его умею делать, но это не то - для первой страницы нужна графика...
Мне надо, чтобы управление было попроще без всяких там мышей, ассемблеров... чтобы был переход на метки Новая игра, Справка, Выход...
Очень хотелось бы...

Или кто-нибудь... напишите это мне, пожалуйста. Очень прошу. Надо побыстрее :molitva: :molitva: :molitva: :molitva: :molitva: :molitva:

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


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

Не компилируется Graph...

Ну так ты в ту же директорию GRAPH.TPU скопируй... Кстати, я не тестировал эту программу под FPC, когда я ее писал даже TP7 еще не было...

Не получается, GRAPH.TPU там уже был... Та же ошибка...

может директория паскаля неверно задана?

-= M0hs =-
тема потеряла актуальность
Я даже не помню о чем идет речь.