VPF::Копирование меню в ListBox - Форум программистов

ChOrT

Дата 19.3.2006, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Кто скажет, как скопировать в ListBox распадающееся меню (название его разделов, без названия самого меню)?... С обычным меню получается, с распадающимся никак...

ChOrT

Дата 21.3.2006, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Цитата

С обычным меню получается, с распадающимся никак...

Соответственно распадающееся - необычное, нераспадающееся - обычное... С многоуровневым, короче, не получается... С каскадным... Состоящим из 3-х и более уровней... smile

Если непонял опять, то на пальцах уже показать не смогу, увы... Как скопировать и что такое ListBox объяснить не надо, надеюсь? smile

bems

Дата 21.3.2006, 15:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Что не получается? Как это выглядит(и чем отличается от того, как должно выглядеть)?
И код покажи

--------------------

Обижено школьников: 8

ChOrT

Дата 21.3.2006, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Блин, забыл... Меню - это, к примеру в опере, такая панелька с кнопочками вверху окна... При нажатии на кнопочки, вылетают разделы этого самого меню... Тобиш, если меню 3-х уровневое, то при подведении крысы к разделу, помеченному черной стрелочкой (справа от раздела), медленно, но верно, выползает еще один список... smile

bems

Дата 21.3.2006, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(ChOrT @ 19.3.2006, 19:07

)

С обычным меню получается

код! и если тот же код для "распадающегося" то в чем разница?

--------------------

Обижено школьников: 8

ChOrT

Дата 21.3.2006, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Код


procedure TForm1.RGSHClick(Sender: TObject);
var i: integer;
begin
LB1.Clear;
for i:=0 to PMSH.Items.Count-1 do
  LB1.Items.Add(PMSH.Items[i].Caption);
end;

В общем виде смотрится так... только LB1 - ListBox, PMSH - PoupMenu smile

Добавлено @ 16:03
Самое главное, что нужно, это через свойство Count определить кол-во элементов в подменю... Чтоб было проще понять, могу описать структуру меню... Само меню состоит из одной строки, которая распадается на 10 ее элементов, каждый из них еще на 4-8 элементов подменю... Вот все эти названия, кроме названия меню, и нужно загрузить в ListBox... Благодарствую, если поможешь smile

bems

Дата 21.3.2006, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

тек бы и сразу. А то в "опере", блин. Ну я начал прикапываться к чужому меню. Ща примерчик налабаю

--------------------

Обижено школьников: 8

ChOrT

Дата 21.3.2006, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Да просто тот довел сверху, мощьно, сложно блин... придрался, как будто я прикол какой написал там smile

bems

Дата 21.3.2006, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


procedure EnumerateMenuItems(item:TMenuItem);
var i:integer;
begin
if (item.count=0)
   then form1.lb.Items.Add(item.caption)
   else for i:=0 to item.Count-1 do
        EnumerateMenuItems(item[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumerateMenuItems(pm.Items);
end;

только pm - TPopupMenu, lb - TListBox
Добавлено @ 16:24

Цитата(ChOrT @ 21.3.2006, 16:16

)

тот довел сверху, мощьно, сложно блин...

а "распадающиеся меню" - это и правда мощно smile

--------------------

Обижено школьников: 8

ChOrT

Дата 21.3.2006, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Ух ты [censored 2] , и правда работает... smile

Спасибо...

Цитата

а "распадающиеся меню" - это и правда мощно smile

Ну так как же это у вас, интеллектуалов, называется то? Научи, чтоб я больше так мощно не писал...

MIX55

Дата 21.3.2006, 17:38 (ссылка)

(нет голосов)

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

Репутация: 3
Всего: 4

Цитата

Ну так как же это у вас, интеллектуалов, называется то? Научи, чтоб я больше так мощно не писал...

скорее всего выпадающее

--------------------

Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e

ChOrT

Дата 21.3.2006, 20:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Слушай, bems, а как с твоим кодом загружать не все подразделы моего меню, а например только 6,7,8... или 2,3... просто я что-то не догоняю его вообще smile

bems

Дата 22.3.2006, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(ChOrT @ 21.3.2006, 20:24

)

6,7,8... или 2,3

это пункты которые надо вывести или разделы из которых вывести подпункты?

--------------------

Обижено школьников: 8

ChOrT

Дата 22.3.2006, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Нет, 6,7,8 - это 3 подраздела меню, из которых надо загрузить всю информацию...

bems

Дата 22.3.2006, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

ну если их всего 2-3, то вызывай EnumerateMenuItems для каждой:

Код


EnumerateMenuItems(MenuItem6);
EnumerateMenuItems(MenuItem7);
EnumerateMenuItems(MenuItem8);

ну только итемы твои

--------------------

Обижено школьников: 8

ChOrT

Дата 22.3.2006, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Точно...

А можно, чтобы в цикле загружались все, кроме 1 подменю?

bems

Дата 22.3.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


procedure EnumerateMenuItems(item:TMenuItem;BeginFrom:integer);
var i:integer;
begin
if (item.count=0)
   then form1.lb.Items.Add(item.caption)
   else for i:=BeginFrom to item.Count-1 do
        EnumerateMenuItems(item[i],0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumerateMenuItems(pm.Items,1);
end;

Примерно так.
Только если ты будешь меня спрашивать о каждом изменении кода, то свою программу будешь до пенсии писать.
Легче будет понять как это работает и изменять все самому. Что не ясно - спрашивай.

Цитата(ChOrT @ 21.3.2006, 20:24

)

а как с твоим кодом ... просто я что-то не догоняю его вообще

Что именно не понятно?

--------------------

Обижено школьников: 8

ChOrT

Дата 22.3.2006, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.3.2006

Репутация: нет
Всего: нет

Ничего не ясно, вот... smile

Думал спрошу что не понимаю, а ты тут такие шняги выкинул, вообще запутал... А сам бы я это написал... Написал бы сам, только строк так в 100 smile

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

А ты асю когда-нибудь включаешь вообще? Напиши мне плиз, или включи хотя бы...

bems

Дата 23.3.2006, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(bems @ 22.3.2006, 21:50

)

Код


procedure EnumerateMenuItems(item:TMenuItem;BeginFrom:integer);
var i:integer;
begin
if (item.count=0)//если нет подпунктов
   then form1.lb.Items.Add(item.caption)//то добавляем заголовок в листбокс
   else for i:=BeginFrom to item.Count-1 do//а если есть - перечисляем все подпункты
        EnumerateMenuItems(item[i],0);//и для каждого из них запускаем эту же процедуру
//параметр BeginFrom - начальный индекс до которого ничего не добавляем
//для подпунктов ставим его в 0  - подпункты выводим сначала
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumerateMenuItems(pm.Items,1);//а тут ставим его один - то есть на
//первом уровне рекурсии первый подпункт все-таки пропустить
end;

Добавлено @ 16:29
асю вечером посмотрю

--------------------

Обижено школьников: 8

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »