Меню для приложения

@fredhack · Регистрация: 21.01.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток! Уважаемые обитатели форума помогите пожалуйста...

Нужно сделать меню для приложения но как это реализовать не представляю (приложил картинку нарисовал в фотошопе меню)...

Суть такова
1 изначально должно быть видно только черный прямоугольник (Там кухни мира например Россия Въетнам)
2 При нажатии на флаг выдвигается меню с категорией (супы напитки десерты и тд и тп)
3 при нажатии например на супы выдвигается список супов

@krapotkin · 13.06.2021, 08:32

для этой задачи главное - это ваша версия делфи

@fredhack · 13.06.2021, 08:42 **[ТС]**

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

для этой задачи главное - это ваша версия делфи

Rad Studio 10.4

@krapotkin · 13.06.2021, 18:05

тогда в целом задача попроще
берем FMX, там анимация и картинки более родные для платформы, нежели старинный Windows GDI.

не буду лишний раз объяснять про модель данных. предполагается, что она у вас уже есть и вам нужно эти данные всего лишь отображать на экране

мы видим традиционное дерево, показанное в немного нетрадиционном виде
т.е. у нас есть узлы TMyNode, которые могут раскрываться далее, и листья TMyLeaf, которые, соответственно, уже не раскрыть.
каждый раскрытый уровень я бы представил отдельным фреймом
фрейм инкапсулирует логику обработки одного уровня дерева.
фрейм хранит указатель на модель и родительский узел
модель пусть умеет отдавать нам список узлов и листьев - детей заданного узла.
Еще мы должны уметь красить его в нужный цвет.
Непосредственно изображать меню можно доверить компоненту TListBox, если меню не очень большое. Если пунктов может быть несколько десятков, то ListBox будет подтормаживать и придется использовать TListView, что будет чуть сложнее.

Delphi
1
2
3
4
5
6
7
TLevelFrame = class(TFrame)
  lb1: TListBox;
public 
  FModel: TProducts;
  FParent: TProduct;
  FColor: TAlphaColor;
end;

поэтому этапы разработки выглядят пока так
1. разработать модель - классы для хранения ваших данных.
навскидку что-то типа

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses System.Generics.Collections, System.SysUtils;
 
TProducts = class;
TProduct = class
  id: integer;
  name: string;
  items: TProducts;
  constructor Create;
  destructor Destroy; override;
end;
 
TProducts = class(TObjectlist<TProduct>)
end;
 
..
constructor TProduct.Create;
begin
  inherited Create;
  items := TProducts.Create();
end;
destructor TProduct.Destroy; override;
begin
  FreeAndNil(items);
  inherited Destroy;
end;

2. Разработать инициализацию фрейма на заданных FModel, FParent, FColor
3. Разработать метод создания очередного фрейма при нажатии на итем
тут тоже все несложно. Его индекс будет совпадать с индексом в выбранной ветке модели.
Если это узел, то открыть новый фрейм меню, если нет, то что-то другое.
4. когда все это будет работать, можно уже и про анимации подумать

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@fredhack 8 / 6 / 5 Регистрация: 21.01.2013 Сообщений: 109

	Меню для приложения 13.06.2021, 02:45. Показов 2157. Ответов 3 Метки нет (Все метки) Доброго времени суток! Уважаемые обитатели форума помогите пожалуйста... Нужно сделать меню для приложения но как это реализовать не представляю (приложил картинку нарисовал в фотошопе меню)... Суть такова 1 изначально должно быть видно только черный прямоугольник (Там кухни мира например Россия Въетнам) 2 При нажатии на флаг выдвигается меню с категорией (супы напитки десерты и тд и тп) 3 при нажатии например на супы выдвигается список супов Миниатюры 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,657 Записей в блоге: 21
	13.06.2021, 08:32
	для этой задачи главное - это ваша версия делфи 0

Меню для приложения

Решение