Make(delphi) ver(4.04 build 182) Add(ListBox,14738624,245,28) { Left=5 Top=35 Width=545 Height=125 Point(doSelect) link(onClick,6437386:doGet,[]) } Add(Counter,2028006,175,105) { Min=-1 Default=-1 Point(doValue) link(onNext,13600621:doEvent1,[]) } Add(ArrayRW,7455926,259,112) { link(onRead,1372390:doEvent1,[]) link(Array,14738624:Array,[]) } Add(Button,854059,77,28) { Left=5 Top=5 Width=75 Caption="Open" link(onClick,5203079:doExecute,[]) } Add(Button,590727,77,105) { Left=10 Top=170 Width=175 Caption="запуск перебора массива" link(onClick,12127398:doEvent1,[]) } Add(Hub,12127398,140,105) { InCount=2 OutCount=1 link(onEvent1,2028006:doNext,[]) } Add(BASS_StreamCreateFile,2073512,378,175) { Name="MainSound" link(onCreate,10701583:doPlay,[]) link(onEndPlay,10006279:doStart,[]) } Add(BASS_ChannelPlay,10701583,469,175) { Channel="MainSound" } Add(Edit,8243139,378,112) { Left=195 Top=170 Width=355 Height=21 Text="" } Add(MainForm,6488361,77,175) { Width=564 Height=278 Color=-16777206 Caption="Consecutive viewing of files" Point(Handle) link(onCreate,7762274:doInit,[]) } Add(BASS_Init,7762274,147,189) { link(Handle,6488361:Handle,[(167,177)(125,177)(125,219)(83,219)]) } Add(Hub,1372390,322,112) { OutCount=3 link(onEvent1,8243139:doText,[]) link(onEvent2,2073512:doCreate,[(357,125)(357,181)]) link(onEvent3,413294:doData,[(350,132)(350,167)(205,167)(205,286)]) } Add(Hub,13600621,217,105) { link(onEvent1,14738624:doSelect,[(238,111)(238,76)]) link(onEvent2,3516535:doWork2,[]) } Add(MT_Get,6437386,294,35) { link(onGet,11293159:doEvent1,[]) } Add(Hub,11293159,350,42) { link(onEvent1,2028006:doValue,[(381,48)(381,95)(163,95)(163,132)]) link(onEvent2,3516535:doWork1,[(376,55)(376,89)(249,89)]) } Add(HubEx,3516535,245,112) { link(onEvent,7455926:doRead,[]) } Add(TrackBar,3815340,322,266) { Left=65 Top=205 Width=430 Color=-16777206 Point(doMax) link(onPosition,15605497:doPosition,[(366,272)(366,219)(254,219)(254,188)]) } Add(BASS_ChannelPosition,15605497,266,182) { Channel="MainSound" Mode=2 link(Position,3815340:Position,[(272,172)(315,172)(315,310)(328,310)]) } Add(DoData,413294,273,280) { link(onEventData,3815340:doMax,[]) link(Data,15605497:Length,[]) } Add(DoData,2908798,266,238) { link(onEventData,3815340:doPosition2,[(310,244)(310,279)]) link(Data,15605497:CurPosition,[]) } Add(Timer,6920353,217,238) { link(onTimer,2908798:doData,[]) } Add(Thread,10006279,420,182) { Delay=0 FastStop=0 link(onSyncExec,12127398:doEvent2,[(459,195)(459,155)(128,155)(128,118)]) } Add(ODialog,5203079,133,28) { Filter="MP3|*.mp3" Title="Открыть mp3 файл" Select=1 link(onExecute,14738624:doAdd,[]) }