Вверх ↑
Ответов: 1379
Рейтинг: 86
#1: 2013-07-21 20:15:50 ЛС | профиль | цитата
nesco писал(а):
В обычный PopUpMenu добавлена возможность иметь подпункты
При заполнении пунктов меню в свойстве PopupMenu до компиляции программы подпункты имеются. При попытке сделать то же самое через doAddItem он игнорирует скобки и просто отображает их. Как исправить?
Add(MainForm,9336040,490,399)
{
Width=424
Height=271
Point(onMouseDown)
link(onMouseDown,9182184:doEvent,[])
}
Add(IndexToChanel,9182184,553,420)
{
link(onEvent2,2915151:doPopupHere,[])
}
Add(PopupMenu,2915151,721,427)
{
Menu=#4:id=1|4:id=2|1:-|12:Безопасность|1:(|4:id=4|4:id=5|1:)|6:Прочее|1:(|4:id=3|4:id=7|4:id=6|1:)|7:Закрыть|
Point(onEndPopup)
}
Add(Memo,9609630,630,462)
{
Left=95
Top=40
Width=200
Height=155
Font=[Courier New,9,0,0,204]
Strings=#4:id=1|4:id=2|1:-|12:Безопасность|1:(|4:id=4|4:id=5|1:)|6:Прочее|1:(|4:id=3|4:id=7|4:id=6|1:)|7:Закрыть|
ScrollBars=2
}
Add(ArrayEnum,8598748,644,532)
{
link(onItem,2915151:doAddItem,[(698,538)(698,447)])
link(Array,9609630:Array,[])
}
Add(Hub,5680992,574,511)
{
link(onEvent1,2915151:doClear,[(691,517)(691,454)])
link(onEvent2,8598748:doEnum,[(616,524)(616,538)])
}
Add(Button,7411915,511,511)
{
Left=155
Top=10
Width=85
Height=25
Font=[Segoe UI,8,0,0,204]
Caption="Применить"
link(onClick,5680992:doEvent1,[])
}

карма: 0

0