Недавно у меня заказали плеер. И среди прочего функционала была идея вызова "плей листа" из трея (т.е зарастание не ограниченный список меню). Я это реализовал. Выкладываю пробный код мало ли кому понадобиться.
[spoiler=Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,203,469)
{
Height=240
link(onCreate,13972583:doWork3,[])
}
Add(PopupMenuEx,10020295,252,63)
{
Bitmaps=[]
Point(Count)
link(MenuItemIdx,13972583:doWork4,[(359,69)(359,496)])
}
Add(Button,4294894,315,469)
{
Left=10
Top=10
Width=85
Caption="Open Menu"
link(onClick,13972583:doWork1,[])
}
Add(ListBox,2957653,609,266)
{
Left=10
Top=70
Width=355
}
Add(CheckBox,10810022,315,511)
{
Left=105
Top=10
Width=110
Caption="Start\stop Punct2"
link(onCheck,13972583:doWork2,[(391,517)(391,482)])
}
Add(Label,14244493,560,553)
{
Left=15
Top=160
}
Add(Edit,2840118,546,259)
{
Left=15
Top=40
Width=340
Text="Add Text"
link(onEnter,2957653:doAdd,[])
}
Add(Edit,3985418,581,483)
{
Left=225
Top=160
Width=150
}
Add(MultiElement,13972583,434,469)
{
link(Data1,10810022:Checked,[(440,457)(380,457)(380,555)(321,555)])
link(onEvent1,10020295:doClear,[(500,475)(500,262)(240,262)(240,76)])
link(onEvent2,10020295:doPopupHere,[(480,482)(480,281)(223,281)(223,69)])
link(onEvent3,10020295:doInit,[(538,489)(538,307)(233,307)(233,83)])
link(onEvent4,3985418:doText2,[])
link(onEvent5,462573:doCheck,[(558,503)(558,524)])
link(onEvent6,14244493:doText,[(513,510)(513,559)])
link(Data2,2957653:Array,[(447,458)(629,458)])
link(Data3,2957653:Text,[(454,390)(615,390)])
link(Data4,10020295:Count,[(461,282)(265,282)])
}
BEGIN_SDK
Add(EditMulti,15161750,21,21)
{
EventCount=6
WorkCount=4
DataCount=4
Width=1392
Height=690
link(doWork1,6030472:doEvent1,[(441,27)(441,265)])
link(doWork2,3202300:doWork1,[(760,34)])
link(doWork3,3202300:doWork2,[(389,41)(389,398)])
link(doWork4,14161800:doEvent1,[(543,48)(543,258)])
}
Add(FormatStr,13558403,938,546)
{
Mask="Развернуть\r\n%1\r\nПлей лист\r\n(\r\n%2\r\n)\r\n-\r\nВыход"
link(onFString,15161750nEvent3,[(1192,552)(1192,41)])
link(Str1,14376297:Value,[(944,485)(930,485)])
link(Str2,15161750ata3,[(951,284)(41,284)])
}
Add(Hub,6030472,861,259)
{
OutCount=3
link(onEvent1,15161750nEvent1,[(1144,265)(1144,27)])
link(onEvent2,13558403:doString,[(907,272)(907,552)])
link(onEvent3,15161750nEvent2,[(1164,279)(1164,34)])
}
Add(IndexToChanel,9963269,770,392)
{
Point(Index)
link(onEvent1,6442786:doData,[])
link(onEvent2,1925270:doData,[(821,405)(821,440)])
link(Index,2209832:Var2,[])
}
Add(Memory,14376297,924,392)
{
}
Add(DoData,6442786,833,392)
{
Data=String(Запуск)
link(onEventData,11256830:doWork2,[])
}
Add(DoData,1925270,833,434)
{
Data=String(Стоп)
link(onEventData,11256830:doWork3,[(893,440)])
}
Add(HubEx,11256830,889,392)
{
link(onEvent,14376297:doValue,[])
}
Add(IndexToChanel,5865912,1148,252)
{
link(onEvent2,6817244:doData,[])
}
Add(DoData,6817244,1204,259)
{
link(onEventData,15161750nEvent5,[(1324,265)(1324,55)])
link(Data,2209832:Var3,[(1210,202)(926,202)(926,376)])
}
Add(GetDataEx,2209832,770,371)
{
link(Data,15161750ata1,[(776,196)(27,196)])
}
Add(Hub,14161800,1022,252)
{
link(onEvent1,5865912:doEvent,[])
link(onEvent2,7796696:doValue,[])
}
Add(Memory,7796696,1085,259)
{
link(onData,7435581:doOperation,[(1139,265)(1139,325)(1060,325)(1060,391)])
}
Add(If_else,4471469,1141,385)
{
link(onTrue,786217:doData,[])
link(onFalse,13801423:doOperation,[(1185,398)(1185,454)(1052,454)(1052,510)])
link(Op1,7435581:Result,[(1147,373)(1128,373)(1128,422)(1091,422)])
link(Op2,15161750ata4,[(1154,187)(48,187)])
}
Add(DoData,786217,1225,385)
{
Data=String(Выход)
link(onEventData,15161750nEvent6,[(1335,391)(1335,62)])
}
Add(Math,7435581,1085,385)
{
Op2=1
ResultType=0
link(onResult,4471469:doCompare,[])
link(Op1,13465798:Var2,[])
}
Add(ArrayRW,5665237,1127,504)
{
link(onRead,15161750nEvent4,[(1286,510)(1286,48)])
link(Array,15161750ata2,[(1133,116)(34,116)])
}
Add(Math,13801423,1064,504)
{
OpType=1
Op2=3
ResultType=0
link(onResult,5665237:doRead,[])
link(Op1,13465798:Var1,[(1070,348)])
}
Add(GetDataEx,13465798,1085,343)
{
link(Data,7796696:Value,[])
}
Add(HubEx,3202300,756,392)
{
link(onEvent,9963269:doEvent,[])
}
END_SDK
Add(CheckBox,462573,651,518)
{
Left=220
Top=10
Width=155
Caption="Start\Stop Resuliat"
}
]