Редактировалось 5 раз(а), последний 2021-05-22 06:05:42

в примерах есть вот:
[code:1] Add(MainForm,6544452,21,105)
{
Left=20
Top=105
Font=[MS Sans Serif,8,0,0]
link(onCreate,1903125:doPopupHere,[(194,146)(194,146)])
}
Add(PopupMenu,1903125,315,133)
{
Menu='sasdfasd','asdfasdf','','asdf','asdf'
}

[/code:1]

В свойствах есть кнопочка список там заполняешь пункты тоесть каждая новая строчка это пункт. потом с точки onClick у тебя будут выходить события по индексу строк тоесть каждая строка иммеет индекс самая верхняя ноль.
так ясней будет :
[code:1] Add(MainForm,6544452,28,35)
{
Left=20
Top=105
Font=[MS Sans Serif,8,0,0]
}
Add(PopupMenu,1903125,315,133)
{
Menu='sasdfasd','asdfasdf'
link(onClick,12712150:doEvent,[])
}
Add(IndexToChanel,12712150,392,133)
{
link(onEvent1,8750286:doMessage,[(450,139)(450,139)])
link(onEvent2,5274541:doMessage,[(453,146)(453,216)])
}
Add(Message,8750286,476,133)
{
Message="sasdfasd"
}
Add(Message,5274541,483,210)
{
Message="asdfasdf"
}
Add(Label,11765021,70,140)
{
Left=80
Top=75
Width=155
Font=[MS Sans Serif,8,0,0]
Caption="Щелкни меня!"
link(onClick,1903125:doPopupHere,[(208,146)(208,146)])
}

[/code:1]

Блин все спутала надобыло пример менб а я попупа:-)))А иконки ни как нельзя добавить :-((((

Впринцепе все также тока забыла как в меню писать чтобы были команды.

felini, иконки в меню вставлять нельзя.

Редактировалось 5 раз(а), последний 2021-05-22 06:05:42

на выходе также по индексам как и в попупе а вот как сделать суб меню:
[code:1] Add(Menu,2783250,267,48)
{
Menu='&Файл','(','&Установить компонент Ctrl+I','-','&Удалить компонент из HIC Ctrl+Del','&Добавить компонент в HIC Ctrl+A','&Обновить компонент F6','-','&Обновить список компонентов F5','&Скачать новые компоненты с сайта Ctrl+D','-','&Запустить HiAsm Ctrl+H','-','&Выход Esc',')','&Вид','(','+Кнопки','+Строка состояния','-','+Поверх остальных окон',')','&Помощь','(','&Справка F1','-','&О программе F2',')'
Point(onSelectNum)
}

[/code:1]

да прастит меня ампер за плагиат:-)))

З.Ы. -Если не вкурсе то просто копируй код и в хиасме на раб столе жми правую клавишу вставить!

Вот попробывал вставить картинку получается убожество какоето
картинку в компонент bitmap вставь сам
[code:1]Add(PopupMenu,9769186,259,140) {
Menu='321','321','321','-','321','(','321',')'
Str="1"
Point(Bitmap)
Point(Index)
link(Bitmap,8619908:Bitmap,[(272,114)(272,114)])
}
Add(Button,5444478,140,140)
{
Left=160
Top=115
Font=[MS Sans Serif,8,0,0]
Data=Integer(0)
link(onClick,12646026:doEvent1,[])
}
Add(Bitmap,8619908,266,77)
{
}
Add(Hub,12646026,189,140)
{
link(onEvent1,9769186:doSetBMP,[(240,146)(240,174)])
link(onEvent2,9769186:doPopupHere,[])
}
[/code:1]

Редактировалось 5 раз(а), последний 2021-05-22 06:05:42

Просто в свойстве Data поставь нужный индекс.

MarGoo, будем считать это не плагиатом, а цитатой...