помогите с меню пожалуйста
помогите если можете мне нужно сделать
раскрывающее меню например как кнопка пуск
когда выбираеш пункт "программы" по стрелочки
с права выплыват еще меню, выбираеш "стандартные"
выплывает еще меню и так далее.
зарание спосибо. работаю в 5 билдере
раскрывающее меню например как кнопка пуск
когда выбираеш пункт "программы" по стрелочки
с права выплыват еще меню, выбираеш "стандартные"
выплывает еще меню и так далее.
зарание спосибо. работаю в 5 билдере
Цитата:
Originally posted by iga
помогите если можете мне нужно сделать
раскрывающее меню например как кнопка пуск
когда выбираеш пункт "программы" по стрелочки
с права выплыват еще меню, выбираеш "стандартные"
выплывает еще меню и так далее.
зарание спосибо. работаю в 5 билдере
помогите если можете мне нужно сделать
раскрывающее меню например как кнопка пуск
когда выбираеш пункт "программы" по стрелочки
с права выплыват еще меню, выбираеш "стандартные"
выплывает еще меню и так далее.
зарание спосибо. работаю в 5 билдере
Не понял.
А что насчет билдеровских редакторов меню?
Там сколь угодно вложенные делать можно.
Или нужно динамически?
Цитата:
Originally posted by _kolyan
Не понял.
А что насчет билдеровских редакторов меню?
Там сколь угодно вложенные делать можно.
Или нужно динамически?
Не понял.
А что насчет билдеровских редакторов меню?
Там сколь угодно вложенные делать можно.
Или нужно динамически?
дело в том что я не умею делать вложенные меню
подскажи как это сделать
В редакторе кликаешь правой кнопкой меню и выбираешь - Create SubMenu
Цитата:
Originally posted by SEDEGOFF
В редакторе кликаешь правой кнопкой меню и выбираешь - Create SubMenu
В редакторе кликаешь правой кнопкой меню и выбираешь - Create SubMenu
огромное спосибо
Цитата:
Originally posted by iga
огромное спосибо
огромное спосибо
Либо еще проще, в редакторе меню позиционируешься на пункт меню который хочешь сделать раскрывающимся и нажимаешь Ctrl+Стрелка вправо
Цитата:
Originally posted by moonmike
Либо еще проще, в редакторе меню позиционируешься на пункт меню который хочешь сделать раскрывающимся и нажимаешь Ctrl+Стрелка вправо
Либо еще проще, в редакторе меню позиционируешься на пункт меню который хочешь сделать раскрывающимся и нажимаешь Ctrl+Стрелка вправо
A kak eto vsio sdelat v programnom vide?
Meniu punkty ja vkuril kad sozdavat:
TMenuItem *item = new TMenuItem(pMenu);
item->Caption = "Insert";
pMenu->Items->Add(item);
sozdast meniu s odnim punktom insert. A mne nuzno ctoby v meniu Insert bylo by sub meniu. Naprimer:
Insert->Insert1
Используй AddChild
Цитата:
Originally posted by SEDEGOFF
Используй AddChild
Используй AddChild
Mozet mozes podrobnee, cto to mne nicevo ne pollucajetsia.
Kuda nuzno suvat etu AddChild i cto ei podavat kak parametry
Извени ошибся нет там такого метода.
Вот работающий пример
[COLOR=darkblue]
int y;
IBQuery1->Open();
TToolBar *bar = new TToolBar(ControlBar1);
bar->Caption = IBQuery1->Fields->Fields[1]->AsString;
bar->ShowHint = true;
bar->EdgeBorders.Clear();
bar->Parent = ControlBar1;
bar->Images = ImageList1;
bar->AutoSize = true;
bar->Width = 1;
//bar->Height += 1;
while(!IBQuery1->Eof)
{
//нужно добавить инструментальную панель, а на неё добавить
//кнопки
TIcon *ico = new TIcon;
TMenuItem *item = new TMenuItem(MainMenu1);
item->Caption = IBQuery1->Fields->Fields[1]->AsString;
N8->Insert(0, item);
TToolButton *button = new TToolButton(bar);
button->Wrap = false;
button->Parent = bar;
bar->Width += 24;
TMenuItem *item2 = new TMenuItem(0);
item2->Caption = "ВСЕ ДОКУМЕНТЫ";
item2->OnClick = clickMENU;
item2->Hint = "ВСЕ ДОКУМЕНТЫ - " + IBQuery1->Fields->Fields[1]->AsString;
button->MenuItem = item2;
item->Insert(0, item2);
try
{
ico->LoadFromStream(IBQuery1->CreateBlobStream(IBQuery1->Fields->Fields[2], bmRead));
y = ImageList1->AddIcon(ico);
item->ImageIndex = y;
button->ImageIndex = y;
item2->ImageIndex = y;
}catch(...){}
IBQuery2->SQL->Clear();
IBQuery2->SQL->Add("select name,ico from operation where id_tip="+IBQuery1->Fields->Fields[0]->AsString);
IBQuery2->Open();
while(!IBQuery2->Eof)
{
TMenuItem *item1 = new TMenuItem(0);
item1->Caption = IBQuery2->Fields->Fields[0]->AsString;
item1->Hint = IBQuery2->Fields->Fields[0]->AsString;
item1->OnClick = clickMENU;
try
{
ico->LoadFromStream(IBQuery2->CreateBlobStream(IBQuery2->Fields->Fields[1], bmRead));
y = ImageList1->AddIcon(ico);
item1->ImageIndex = y;
}catch(...){}
item->Insert(item->Count, item1);
IBQuery2->Next();
}
IBQuery2->Close();
bar->AutoSize = true;
delete ico;
IBQuery1->Next();
}
IBQuery1->Close();
[/COLOR]
Вот работающий пример
[COLOR=darkblue]
int y;
IBQuery1->Open();
TToolBar *bar = new TToolBar(ControlBar1);
bar->Caption = IBQuery1->Fields->Fields[1]->AsString;
bar->ShowHint = true;
bar->EdgeBorders.Clear();
bar->Parent = ControlBar1;
bar->Images = ImageList1;
bar->AutoSize = true;
bar->Width = 1;
//bar->Height += 1;
while(!IBQuery1->Eof)
{
//нужно добавить инструментальную панель, а на неё добавить
//кнопки
TIcon *ico = new TIcon;
TMenuItem *item = new TMenuItem(MainMenu1);
item->Caption = IBQuery1->Fields->Fields[1]->AsString;
N8->Insert(0, item);
TToolButton *button = new TToolButton(bar);
button->Wrap = false;
button->Parent = bar;
bar->Width += 24;
TMenuItem *item2 = new TMenuItem(0);
item2->Caption = "ВСЕ ДОКУМЕНТЫ";
item2->OnClick = clickMENU;
item2->Hint = "ВСЕ ДОКУМЕНТЫ - " + IBQuery1->Fields->Fields[1]->AsString;
button->MenuItem = item2;
item->Insert(0, item2);
try
{
ico->LoadFromStream(IBQuery1->CreateBlobStream(IBQuery1->Fields->Fields[2], bmRead));
y = ImageList1->AddIcon(ico);
item->ImageIndex = y;
button->ImageIndex = y;
item2->ImageIndex = y;
}catch(...){}
IBQuery2->SQL->Clear();
IBQuery2->SQL->Add("select name,ico from operation where id_tip="+IBQuery1->Fields->Fields[0]->AsString);
IBQuery2->Open();
while(!IBQuery2->Eof)
{
TMenuItem *item1 = new TMenuItem(0);
item1->Caption = IBQuery2->Fields->Fields[0]->AsString;
item1->Hint = IBQuery2->Fields->Fields[0]->AsString;
item1->OnClick = clickMENU;
try
{
ico->LoadFromStream(IBQuery2->CreateBlobStream(IBQuery2->Fields->Fields[1], bmRead));
y = ImageList1->AddIcon(ico);
item1->ImageIndex = y;
}catch(...){}
item->Insert(item->Count, item1);
IBQuery2->Next();
}
IBQuery2->Close();
bar->AutoSize = true;
delete ico;
IBQuery1->Next();
}
IBQuery1->Close();
[/COLOR]
Spasibo pomoglo!!!