Вверх ↑
Ответов: 8975
Рейтинг: 824
#1: 2020-05-14 18:22:53 ЛС | профиль | цитата
Lelekanet, так на картинке? (Запуск по левой кнопке, цвет по правой)
401_songs_from_Vysotsky.jpg
Схема


Add(MainForm,2953706,77,119)
{
Point(onClose)
link(onCreate,8886675:doWork1,[])
link(onClose,8886675:doWork2,[])
}
Add(ChildScrollBox,8886675,133,133)
{
link(onEvent1,3795989:doPlay,[])
}
BEGIN_SDK
Add(EditMulti,14872424,21,21)
{
EventCount=1
WorkCount=2
VarCount=1
Width=503
Height=284
link(doWork1,3252789:doEvent1,[(31,27)(31,104)])
link(doWork2,16161429:doSave,[(72,34)(72,111)])
link(Var1,7372644:FString,[(27,199)(377,199)])
}
Add(ScrollBox,16699449,154,35)
{
Top=30
Width=384
Height=261
Align=5
}
Add(ChildPanelEx,11402050,168,161)
{
Mode=1
link(onMouse,2790051:doEvent,[])
}
BEGIN_SDK
Add(EditMultiEx,8229545,21,21)
{
WorkCount=#5:##add|8:##select|6:doName|7:doColor|
EventCount=#7:onMouse|
VarCount=#12:##eventIndex|
Point(##add)
Point(##select)
Point(##eventIndex)
link(##add,12111087:doSplit,[(53,27)(53,104)])
link(doName,7541162:doWork1,[(137,41)])
link(doColor,4026461:doWork1,[(130,48)])
}
Add(Panel,11596730,35,154)
{
Left=1
Top=1
Width=180
Height=22
Layout="parent.MyButton"
}
Add(BitBtn,13540337,147,98)
{
Left=1
Top=1
Width=178
Point(onMouseDown)
Point(doColor)
link(onMouseDown,8229545:onMouse,[(246,111)(246,27)])
}
Add(MultiStrData,12111087,84,98)
{
link(onPart1,7541162:doWork2,[])
link(onPart2,4026461:doWork2,[])
}
Add(HubEx,7541162,133,98)
{
link(onEvent,13540337:doCaption,[])
}
Add(HubEx,4026461,126,105)
{
link(onEvent,13540337:doColor,[])
}
END_SDK
Add(StrList,16161429,84,70)
{
FileName="MyVysotsky.ini"
Point(onGetString)
Point(doGetString)
link(onGetString,12589699:doSplit,[])
}
Add(GridLayout,12662673,98,203)
{
Name="MyButton"
Space=1
Padding=1
Rows=100
Cols=5
}
Add(Hub,3252789,42,98)
{
link(onEvent1,16161429:doLoad,[])
link(onEvent2,6152100:doEnum,[(63,111)(63,167)])
}
Add(ArrayEnum,6152100,98,161)
{
link(onItem,11402050:##add,[])
link(onEndEnum,12662673:doResize,[(142,174)(142,192)(86,192)(86,209)])
link(Array,5292357:Var2,[])
}
Add(DoData,5348467,273,161)
{
link(onEventData,9824690:doEvent1,[])
link(Data,13396291:Var1,[(279,150)(265,150)])
}
Add(IndexToChanel,2790051,210,161)
{
link(onEvent1,5348467:doData,[])
link(onEvent2,9936760:doData,[(254,174)(254,237)])
}
Add(DoData,9936760,273,231)
{
link(onEventData,16369887:doEvent1,[])
link(Data,10037942:Var2,[])
}
Add(GetDataEx,13396291,259,203)
{
Angle=3
link(Data,11402050:##eventIndex,[(174,208)])
}
Add(Hub,16369887,315,231)
{
OutCount=3
link(onEvent1,13495204:doWork3,[(349,237)])
link(onEvent2,11402050:##select,[(337,244)(337,223)(148,223)(148,174)])
link(onEvent3,15065728:doOpen,[])
}
Add(Hub,9824690,315,161)
{
link(onEvent1,13495204:doWork2,[])
link(onEvent2,14872424:onEvent1,[(427,174)(427,27)])
}
Add(HubEx,13495204,345,161)
{
Angle=3
link(onEvent,16161429:doGetString,[(349,141)(72,141)(72,118)])
}
Add(MultiStrPart,12589699,273,77)
{
link(onSplit,7372644:doString,[])
}
Add(Dir,11047771,371,28)
{
}
Add(FormatStr,7372644,371,77)
{
Mask="%1Data\%2"
Point(FString)
link(Str1,11047771:CurrentDir,[])
link(Str2,15168363:Var1,[(384,68)(335,68)])
}
Add(ColorDialog,15065728,350,245)
{
link(onSelect,9152612:doEvent1,[])
}
Add(Hub,9152612,392,245)
{
link(onEvent1,11402050:doColor,[(418,251)(418,216)(156,216)(156,188)])
link(onEvent2,13652958:doString,[])
}
Add(ArrayRW,16322012,476,245)
{
link(Array,5292357:Var3,[(482,131)])
link(Index,10037942:Var3,[(489,208)])
}
Add(GetDataEx,5292357,98,126)
{
link(Data,16161429:Array,[])
}
Add(GetDataEx,10037942,273,203)
{
Angle=3
link(Data,13396291:Var3,[])
}
Add(FormatStr,13652958,427,252)
{
Mask="%1;%2"
link(onFString,16322012:doWrite,[])
link(Str1,15168363:Var3,[(433,121)])
}
Add(GetDataEx,15168363,329,116)
{
Angle=3
link(Data,12589699:Part1,[(279,121)])
}
END_SDK
Add(ChildPanel,1787229,189,147)
{
link(onEvent1,3795989:doPause,[])
link(onEvent2,3795989:doClose,[(233,160)(233,167)])
}
BEGIN_SDK
Add(EditMulti,11844099,21,21)
{
EventCount=2
WorkCount=1
link(doWork1,2141613:doPosition,[(39,27)(39,34)])
}
Add(Panel,2406175,56,77)
{
Width=384
Height=30
Align=2
}
Add(Button,13466393,105,35)
{
Left=265
Top=5
Width=35
Caption="II"
Data=Integer(0)
Point(doCaption)
link(onClick,11844099:onEvent1,[(229,41)(229,27)])
}
Add(ProgressBar,2141613,56,28)
{
Left=10
Top=7
Width=240
Height=15
Color=32768
Max=1000
ProgressColor=65280
}
Add(Button,16686038,147,42)
{
Left=310
Top=5
Width=35
Caption="XX"
Point(doCaption)
link(onClick,11844099:onEvent2,[(250,48)(250,34)])
}
END_SDK
Add(MediaPlayer,3795989,245,133)
{
Point(doClose)
link(FileName,8886675:Var1,[(251,121)(195,121)(195,177)(139,177)])
}
Add(Timer,1116406,189,189)
{
Interval=50
link(onTimer,23102:doCalc,[])
}
Add(MathParse,23102,245,189)
{
MathStr="%1/(%2+1)*1000"
ResultType=0
link(onResult,1787229:doWork1,[(290,195)(290,183)(177,183)(177,153)])
link(X1,3795989:Position,[])
link(X2,3795989:Length,[])
}

А кто захочет и *.ехе, и схему, и песни Высоцкого, то вот на Яндекс-диске https://yadi.sk/d/WrTEjd8ftvvzaQ 650 Мб
карма: 19

0